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 6 adantr φ p h 0 I | finSupp 0 h I V
28 ssrab2 h 0 I | finSupp 0 h 0 I
29 28 a1i φ h 0 I | finSupp 0 h 0 I
30 29 sselda φ p h 0 I | finSupp 0 h p 0 I
31 27 19 30 elmaprd φ p h 0 I | finSupp 0 h p : I 0
32 7 adantr φ p h 0 I | finSupp 0 h X I
33 31 32 ffvelcdmd φ p h 0 I | finSupp 0 h p X 0
34 26 33 fsnd φ p h 0 I | finSupp 0 h p X : 0
35 24 34 feq2dd φ p h 0 I | finSupp 0 h p X : 1 𝑜 0
36 19 21 35 elmapdd φ p h 0 I | finSupp 0 h p X 0 1 𝑜
37 psr1baslem 0 1 𝑜 = h 0 1 𝑜 | h -1 Fin
38 eqid h 0 1 𝑜 | finSupp 0 h = h 0 1 𝑜 | finSupp 0 h
39 38 psrbasfsupp h 0 1 𝑜 | finSupp 0 h = h 0 1 𝑜 | h -1 Fin
40 37 39 eqtr4i 0 1 𝑜 = h 0 1 𝑜 | finSupp 0 h
41 36 40 eleqtrdi φ p h 0 I | finSupp 0 h p X h 0 1 𝑜 | finSupp 0 h
42 fvex 0 U V
43 42 fvconst2 p X h 0 1 𝑜 | finSupp 0 h h 0 1 𝑜 | finSupp 0 h × 0 U p X = 0 U
44 41 43 syl φ p h 0 I | finSupp 0 h h 0 1 𝑜 | finSupp 0 h × 0 U p X = 0 U
45 31 ffnd φ p h 0 I | finSupp 0 h p Fn I
46 fnressn p Fn I X I p X = X p X
47 45 32 46 syl2anc φ p h 0 I | finSupp 0 h p X = X p X
48 fvex p X V
49 25 48 fvsn p X = p X
50 49 opeq2i X p X = X p X
51 50 sneqi X p X = X p X
52 47 51 eqtr4di φ p h 0 I | finSupp 0 h p X = X p X
53 52 fveq2d φ p h 0 I | finSupp 0 h I selectVars R X F p X = I selectVars R X F X p X
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 27 32 54 55 36 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 39 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 53 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 44 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 30 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