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