Metamath Proof Explorer


Theorem selvply1rhm0

Description: The ring homomorphism H built in selvply1rhm is injective. (Contributed by Thierry Arnoux, 4-May-2026)

Ref Expression
Hypotheses selvply1rhm.1 B = Base P
selvply1rhm.2 P = I mPoly R
selvply1rhm.3 U = I X mPoly R
selvply1rhm.4 Q = Poly 1 U
selvply1rhm.5 H = f B n 0 1 𝑜 I selectVars R X f X n
selvply1rhm.6 φ I V
selvply1rhm.7 φ X I
selvply1rhm.8 φ R CRing
selvply1rhm0.1 0 ˙ = 0 Q
selvply1rhm0.2 Z = 0 P
selvply1rhm0.3 φ F B
selvply1rhm0.4 φ H F = 0 ˙
Assertion selvply1rhm0 φ F = Z

Proof

Step Hyp Ref Expression
1 selvply1rhm.1 B = Base P
2 selvply1rhm.2 P = I mPoly R
3 selvply1rhm.3 U = I X mPoly R
4 selvply1rhm.4 Q = Poly 1 U
5 selvply1rhm.5 H = f B n 0 1 𝑜 I selectVars R X f X n
6 selvply1rhm.6 φ I V
7 selvply1rhm.7 φ X I
8 selvply1rhm.8 φ R CRing
9 selvply1rhm0.1 0 ˙ = 0 Q
10 selvply1rhm0.2 Z = 0 P
11 selvply1rhm0.3 φ F B
12 selvply1rhm0.4 φ H F = 0 ˙
13 eqid Base R = Base R
14 eqid h 0 I | finSupp 0 h = h 0 I | finSupp 0 h
15 14 psrbasfsupp h 0 I | finSupp 0 h = h 0 I | h -1 Fin
16 2 13 1 15 11 mplelf φ F : h 0 I | finSupp 0 h Base R
17 16 feqmptd φ F = p h 0 I | finSupp 0 h F p
18 nn0ex 0 V
19 18 a1i φ p h 0 I | finSupp 0 h 0 V
20 1oex 1 𝑜 V
21 20 a1i φ p h 0 I | finSupp 0 h 1 𝑜 V
22 df1o2 1 𝑜 =
23 22 eqcomi = 1 𝑜
24 23 a1i φ p h 0 I | finSupp 0 h = 1 𝑜
25 0ex V
26 25 a1i φ p h 0 I | finSupp 0 h V
27 ssrab2 h 0 I | finSupp 0 h 0 I
28 27 a1i φ h 0 I | finSupp 0 h 0 I
29 28 sselda φ p h 0 I | finSupp 0 h p 0 I
30 29 elmaprd φ p h 0 I | finSupp 0 h p : I 0
31 7 adantr φ p h 0 I | finSupp 0 h X I
32 30 31 ffvelcdmd φ p h 0 I | finSupp 0 h p X 0
33 26 32 fsnd φ p h 0 I | finSupp 0 h p X : 0
34 24 33 feq2dd φ p h 0 I | finSupp 0 h p X : 1 𝑜 0
35 19 21 34 elmapdd φ p h 0 I | finSupp 0 h p X 0 1 𝑜
36 psr1baslem 0 1 𝑜 = h 0 1 𝑜 | h -1 Fin
37 eqid h 0 1 𝑜 | finSupp 0 h = h 0 1 𝑜 | finSupp 0 h
38 37 psrbasfsupp h 0 1 𝑜 | finSupp 0 h = h 0 1 𝑜 | h -1 Fin
39 36 38 eqtr4i 0 1 𝑜 = h 0 1 𝑜 | finSupp 0 h
40 35 39 eleqtrdi φ p h 0 I | finSupp 0 h p X h 0 1 𝑜 | finSupp 0 h
41 fvex 0 U V
42 41 fvconst2 p X h 0 1 𝑜 | finSupp 0 h h 0 1 𝑜 | finSupp 0 h × 0 U p X = 0 U
43 40 42 syl φ p h 0 I | finSupp 0 h h 0 1 𝑜 | finSupp 0 h × 0 U p X = 0 U
44 30 ffnd φ p h 0 I | finSupp 0 h p Fn I
45 fnressn p Fn I X I p X = X p X
46 44 31 45 syl2anc φ p h 0 I | finSupp 0 h p X = X p X
47 fvex p X V
48 25 47 fvsn p X = p X
49 48 opeq2i X p X = X p X
50 49 sneqi X p X = X p X
51 46 50 eqtr4di φ p h 0 I | finSupp 0 h p X = X p X
52 51 fveq2d φ p h 0 I | finSupp 0 h I selectVars R X F p X = I selectVars R X F X p X
53 6 adantr φ p h 0 I | finSupp 0 h I V
54 8 adantr φ p h 0 I | finSupp 0 h R CRing
55 11 adantr φ p h 0 I | finSupp 0 h F B
56 1 2 3 4 5 53 31 54 55 35 selvply1rhmlem3 φ p h 0 I | finSupp 0 h H F p X = I selectVars R X F X p X
57 eqid 1 𝑜 mPoly U = 1 𝑜 mPoly U
58 eqid 0 U = 0 U
59 57 4 9 ply1mpl0 0 ˙ = 0 1 𝑜 mPoly U
60 20 a1i φ 1 𝑜 V
61 6 difexd φ I X V
62 8 crngringd φ R Ring
63 3 61 62 mplringd φ U Ring
64 63 ringgrpd φ U Grp
65 57 38 58 59 60 64 mpl0 φ 0 ˙ = h 0 1 𝑜 | finSupp 0 h × 0 U
66 12 65 eqtrd φ H F = h 0 1 𝑜 | finSupp 0 h × 0 U
67 66 fveq1d φ H F p X = h 0 1 𝑜 | finSupp 0 h × 0 U p X
68 67 adantr φ p h 0 I | finSupp 0 h H F p X = h 0 1 𝑜 | finSupp 0 h × 0 U p X
69 52 56 68 3eqtr2rd φ p h 0 I | finSupp 0 h h 0 1 𝑜 | finSupp 0 h × 0 U p X = I selectVars R X F p X
70 eqid h 0 I X | finSupp 0 h = h 0 I X | finSupp 0 h
71 70 psrbasfsupp h 0 I X | finSupp 0 h = h 0 I X | h -1 Fin
72 eqid 0 R = 0 R
73 61 adantr φ p h 0 I | finSupp 0 h I X V
74 62 ringgrpd φ R Grp
75 74 adantr φ p h 0 I | finSupp 0 h R Grp
76 3 71 72 58 73 75 mpl0 φ p h 0 I | finSupp 0 h 0 U = h 0 I X | finSupp 0 h × 0 R
77 43 69 76 3eqtr3d φ p h 0 I | finSupp 0 h I selectVars R X F p X = h 0 I X | finSupp 0 h × 0 R
78 77 fveq1d φ p h 0 I | finSupp 0 h I selectVars R X F p X p I X = h 0 I X | finSupp 0 h × 0 R p I X
79 7 snssd φ X I
80 79 adantr φ p h 0 I | finSupp 0 h X I
81 simpr φ p h 0 I | finSupp 0 h p h 0 I | finSupp 0 h
82 15 2 1 54 80 55 81 selvvvval φ p h 0 I | finSupp 0 h I selectVars R X F p X p I X = F p
83 breq1 h = p I X finSupp 0 h finSupp 0 p I X
84 difssd φ p h 0 I | finSupp 0 h I X I
85 29 84 elmapssresd φ p h 0 I | finSupp 0 h p I X 0 I X
86 breq1 h = p finSupp 0 h finSupp 0 p
87 86 81 elrabrd φ p h 0 I | finSupp 0 h finSupp 0 p
88 c0ex 0 V
89 88 a1i φ p h 0 I | finSupp 0 h 0 V
90 87 89 fsuppres φ p h 0 I | finSupp 0 h finSupp 0 p I X
91 83 85 90 elrabd φ p h 0 I | finSupp 0 h p I X h 0 I X | finSupp 0 h
92 fvex 0 R V
93 92 fvconst2 p I X h 0 I X | finSupp 0 h h 0 I X | finSupp 0 h × 0 R p I X = 0 R
94 91 93 syl φ p h 0 I | finSupp 0 h h 0 I X | finSupp 0 h × 0 R p I X = 0 R
95 78 82 94 3eqtr3d φ p h 0 I | finSupp 0 h F p = 0 R
96 95 mpteq2dva φ p h 0 I | finSupp 0 h F p = p h 0 I | finSupp 0 h 0 R
97 2 15 72 10 6 74 mpl0 φ Z = h 0 I | finSupp 0 h × 0 R
98 fconstmpt h 0 I | finSupp 0 h × 0 R = p h 0 I | finSupp 0 h 0 R
99 97 98 eqtr2di φ p h 0 I | finSupp 0 h 0 R = Z
100 17 96 99 3eqtrd φ F = Z