Metamath Proof Explorer


Theorem esplyfval1

Description: The first elementary symmetric polynomial is the sum of all variables. (Contributed by Thierry Arnoux, 16-Mar-2026)

Ref Expression
Hypotheses esplyfval1.w ⊢ W = I mPoly R
esplyfval1.v ⊢ V = I mVar R
esplyfval1.e No typesetting found for |- E = ( I eSymPoly R ) with typecode |-
esplyfval1.i ⊢ φ → I ∈ Fin
esplyfval1.r ⊢ φ → R ∈ Ring
Assertion esplyfval1 ⊢ φ → E ⁡ 1 = ∑ W V

Proof

Step Hyp Ref Expression
1 esplyfval1.w ⊢ W = I mPoly R
2 esplyfval1.v ⊢ V = I mVar R
3 esplyfval1.e Could not format E = ( I eSymPoly R ) : No typesetting found for |- E = ( I eSymPoly R ) with typecode |-
4 esplyfval1.i ⊢ φ → I ∈ Fin
5 esplyfval1.r ⊢ φ → R ∈ Ring
6 eqid ⊢ h ∈ ℕ 0 I | finSupp 0 ⁡ h = h ∈ ℕ 0 I | finSupp 0 ⁡ h
7 6 psrbasfsupp ⊢ h ∈ ℕ 0 I | finSupp 0 ⁡ h = h ∈ ℕ 0 I | h -1 ℕ ∈ Fin
8 eqid ⊢ 0 R = 0 R
9 eqid ⊢ 1 R = 1 R
10 4 ad2antrr ⊢ φ ∧ i ∈ I ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → I ∈ Fin
11 5 ad2antrr ⊢ φ ∧ i ∈ I ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → R ∈ Ring
12 simplr ⊢ φ ∧ i ∈ I ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → i ∈ I
13 simpr ⊢ φ ∧ i ∈ I ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h
14 2 7 8 9 10 11 12 13 mvrval2 ⊢ φ ∧ i ∈ I ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → V ⁡ i ⁡ f = if f = j ∈ I ⟼ if j = i 1 0 1 R 0 R
15 14 ad4ant14 ⊢ φ ∧ i ∈ I ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → V ⁡ i ⁡ f = if f = j ∈ I ⟼ if j = i 1 0 1 R 0 R
16 15 an52ds ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ i ∈ I → V ⁡ i ⁡ f = if f = j ∈ I ⟼ if j = i 1 0 1 R 0 R
17 16 mpteq2dva ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 → i ∈ I ⟼ V ⁡ i ⁡ f = i ∈ I ⟼ if f = j ∈ I ⟼ if j = i 1 0 1 R 0 R
18 17 oveq2d ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 → ∑ R i ∈ I V ⁡ i ⁡ f = ∑ R i ∈ I if f = j ∈ I ⟼ if j = i 1 0 1 R 0 R
19 nfv ⊢ Ⅎ j φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ i ∈ I
20 nfmpt1 ⊢ Ⅎ _ j j ∈ I ⟼ if j = i 1 0
21 20 nfeq2 ⊢ Ⅎ j f = j ∈ I ⟼ if j = i 1 0
22 nfv ⊢ Ⅎ j i = ⋃ supp 0 ⁡ f
23 21 22 nfbi ⊢ Ⅎ j f = j ∈ I ⟼ if j = i 1 0 ↔ i = ⋃ supp 0 ⁡ f
24 unisnv ⊢ ⋃ j = j
25 24 eqeq2i ⊢ i = ⋃ j ↔ i = j
26 25 a1i ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ i ∈ I ∧ j ∈ supp 0 ⁡ f ∧ f supp 0 = j → i = ⋃ j ↔ i = j
27 simpr ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ j ∈ supp 0 ⁡ f ∧ f supp 0 = j → f supp 0 = j
28 27 unieqd ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ j ∈ supp 0 ⁡ f ∧ f supp 0 = j → ⋃ supp 0 ⁡ f = ⋃ j
29 28 adantllr ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ i ∈ I ∧ j ∈ supp 0 ⁡ f ∧ f supp 0 = j → ⋃ supp 0 ⁡ f = ⋃ j
30 29 eqeq2d ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ i ∈ I ∧ j ∈ supp 0 ⁡ f ∧ f supp 0 = j → i = ⋃ supp 0 ⁡ f ↔ i = ⋃ j
31 simplr ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ i ∈ I ∧ j ∈ supp 0 ⁡ f ∧ f supp 0 = j ∧ i = j → f supp 0 = j
32 31 fveq2d ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ i ∈ I ∧ j ∈ supp 0 ⁡ f ∧ f supp 0 = j ∧ i = j → 𝟙 I ⁡ f supp 0 = 𝟙 I ⁡ j
33 4 ad2antrr ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 → I ∈ Fin
34 ssrab2 ⊢ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⊆ ℕ 0 I
35 34 a1i ⊢ φ → h ∈ ℕ 0 I | finSupp 0 ⁡ h ⊆ ℕ 0 I
36 35 sselda ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → f ∈ ℕ 0 I
37 36 elmaprd ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → f : I ⟶ ℕ 0
38 37 adantr ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 → f : I ⟶ ℕ 0
39 ffrn ⊢ f : I ⟶ ℕ 0 → f : I ⟶ ran ⁡ f
40 38 39 syl ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 → f : I ⟶ ran ⁡ f
41 simpr ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 → ran ⁡ f ⊆ 0 1
42 40 41 fssd ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 → f : I ⟶ 0 1
43 33 42 indfsid ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 → f = 𝟙 I ⁡ f supp 0
44 43 ad5antr ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ i ∈ I ∧ j ∈ supp 0 ⁡ f ∧ f supp 0 = j ∧ i = j → f = 𝟙 I ⁡ f supp 0
45 sneq ⊢ i = j → i = j
46 45 adantl ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ i ∈ I ∧ j ∈ supp 0 ⁡ f ∧ f supp 0 = j ∧ i = j → i = j
47 46 fveq2d ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ i ∈ I ∧ j ∈ supp 0 ⁡ f ∧ f supp 0 = j ∧ i = j → 𝟙 I ⁡ i = 𝟙 I ⁡ j
48 32 44 47 3eqtr4d ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ i ∈ I ∧ j ∈ supp 0 ⁡ f ∧ f supp 0 = j ∧ i = j → f = 𝟙 I ⁡ i
49 simpr ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ i ∈ I ∧ j ∈ supp 0 ⁡ f ∧ f supp 0 = j ∧ f = 𝟙 I ⁡ i → f = 𝟙 I ⁡ i
50 49 oveq1d ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ i ∈ I ∧ j ∈ supp 0 ⁡ f ∧ f supp 0 = j ∧ f = 𝟙 I ⁡ i → f supp 0 = 𝟙 I ⁡ i supp 0
51 simplr ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ i ∈ I ∧ j ∈ supp 0 ⁡ f ∧ f supp 0 = j ∧ f = 𝟙 I ⁡ i → f supp 0 = j
52 4 ad3antrrr ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 → I ∈ Fin
53 52 ad4antr ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ i ∈ I ∧ j ∈ supp 0 ⁡ f ∧ f supp 0 = j ∧ f = 𝟙 I ⁡ i → I ∈ Fin
54 snssi ⊢ i ∈ I → i ⊆ I
55 54 adantl ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ i ∈ I → i ⊆ I
56 55 ad3antrrr ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ i ∈ I ∧ j ∈ supp 0 ⁡ f ∧ f supp 0 = j ∧ f = 𝟙 I ⁡ i → i ⊆ I
57 indsupp ⊢ I ∈ Fin ∧ i ⊆ I → 𝟙 I ⁡ i supp 0 = i
58 53 56 57 syl2anc ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ i ∈ I ∧ j ∈ supp 0 ⁡ f ∧ f supp 0 = j ∧ f = 𝟙 I ⁡ i → 𝟙 I ⁡ i supp 0 = i
59 50 51 58 3eqtr3rd ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ i ∈ I ∧ j ∈ supp 0 ⁡ f ∧ f supp 0 = j ∧ f = 𝟙 I ⁡ i → i = j
60 vex ⊢ i ∈ V
61 60 sneqr ⊢ i = j → i = j
62 59 61 syl ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ i ∈ I ∧ j ∈ supp 0 ⁡ f ∧ f supp 0 = j ∧ f = 𝟙 I ⁡ i → i = j
63 48 62 impbida ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ i ∈ I ∧ j ∈ supp 0 ⁡ f ∧ f supp 0 = j → i = j ↔ f = 𝟙 I ⁡ i
64 indsn ⊢ I ∈ Fin ∧ i ∈ I → 𝟙 I ⁡ i = j ∈ I ⟼ if j = i 1 0
65 52 64 sylan ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ i ∈ I → 𝟙 I ⁡ i = j ∈ I ⟼ if j = i 1 0
66 65 ad2antrr ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ i ∈ I ∧ j ∈ supp 0 ⁡ f ∧ f supp 0 = j → 𝟙 I ⁡ i = j ∈ I ⟼ if j = i 1 0
67 66 eqeq2d ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ i ∈ I ∧ j ∈ supp 0 ⁡ f ∧ f supp 0 = j → f = 𝟙 I ⁡ i ↔ f = j ∈ I ⟼ if j = i 1 0
68 63 67 bitr2d ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ i ∈ I ∧ j ∈ supp 0 ⁡ f ∧ f supp 0 = j → f = j ∈ I ⟼ if j = i 1 0 ↔ i = j
69 26 30 68 3bitr4rd ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ i ∈ I ∧ j ∈ supp 0 ⁡ f ∧ f supp 0 = j → f = j ∈ I ⟼ if j = i 1 0 ↔ i = ⋃ supp 0 ⁡ f
70 ovexd ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 → f supp 0 ∈ V
71 simpr ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 → f supp 0 = 1
72 hash1snb ⊢ f supp 0 ∈ V → f supp 0 = 1 ↔ ∃ j f supp 0 = j
73 72 biimpa ⊢ f supp 0 ∈ V ∧ f supp 0 = 1 → ∃ j f supp 0 = j
74 70 71 73 syl2anc ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 → ∃ j f supp 0 = j
75 exsnrex ⊢ ∃ j f supp 0 = j ↔ ∃ j ∈ supp 0 ⁡ f f supp 0 = j
76 74 75 sylib ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 → ∃ j ∈ supp 0 ⁡ f f supp 0 = j
77 76 adantr ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ i ∈ I → ∃ j ∈ supp 0 ⁡ f f supp 0 = j
78 19 23 69 77 r19.29af2 ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ i ∈ I → f = j ∈ I ⟼ if j = i 1 0 ↔ i = ⋃ supp 0 ⁡ f
79 78 ifbid ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ i ∈ I → if f = j ∈ I ⟼ if j = i 1 0 1 R 0 R = if i = ⋃ supp 0 ⁡ f 1 R 0 R
80 79 mpteq2dva ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 → i ∈ I ⟼ if f = j ∈ I ⟼ if j = i 1 0 1 R 0 R = i ∈ I ⟼ if i = ⋃ supp 0 ⁡ f 1 R 0 R
81 80 oveq2d ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 → ∑ R i ∈ I if f = j ∈ I ⟼ if j = i 1 0 1 R 0 R = ∑ R i ∈ I if i = ⋃ supp 0 ⁡ f 1 R 0 R
82 ringmnd ⊢ R ∈ Ring → R ∈ Mnd
83 5 82 syl ⊢ φ → R ∈ Mnd
84 83 ad3antrrr ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 → R ∈ Mnd
85 suppssdm ⊢ f supp 0 ⊆ dom ⁡ f
86 37 fdmd ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → dom ⁡ f = I
87 86 ad4antr ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ j ∈ supp 0 ⁡ f ∧ f supp 0 = j → dom ⁡ f = I
88 85 87 sseqtrid ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ j ∈ supp 0 ⁡ f ∧ f supp 0 = j → f supp 0 ⊆ I
89 simplr ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ j ∈ supp 0 ⁡ f ∧ f supp 0 = j → j ∈ supp 0 ⁡ f
90 88 89 sseldd ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ j ∈ supp 0 ⁡ f ∧ f supp 0 = j → j ∈ I
91 24 90 eqeltrid ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ j ∈ supp 0 ⁡ f ∧ f supp 0 = j → ⋃ j ∈ I
92 28 91 eqeltrd ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ j ∈ supp 0 ⁡ f ∧ f supp 0 = j → ⋃ supp 0 ⁡ f ∈ I
93 92 76 r19.29a ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 → ⋃ supp 0 ⁡ f ∈ I
94 eqid ⊢ i ∈ I ⟼ if i = ⋃ supp 0 ⁡ f 1 R 0 R = i ∈ I ⟼ if i = ⋃ supp 0 ⁡ f 1 R 0 R
95 eqid ⊢ Base R = Base R
96 95 9 5 ringidcld ⊢ φ → 1 R ∈ Base R
97 96 ad3antrrr ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 → 1 R ∈ Base R
98 8 84 52 93 94 97 gsummptif1n0 ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 → ∑ R i ∈ I if i = ⋃ supp 0 ⁡ f 1 R 0 R = 1 R
99 18 81 98 3eqtrrd ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 → 1 R = ∑ R i ∈ I V ⁡ i ⁡ f
100 99 anasss ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 → 1 R = ∑ R i ∈ I V ⁡ i ⁡ f
101 83 ad2antrr ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ ran ⁡ f ⊆ 0 1 → R ∈ Mnd
102 4 ad2antrr ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ ran ⁡ f ⊆ 0 1 → I ∈ Fin
103 8 gsumz ⊢ R ∈ Mnd ∧ I ∈ Fin → ∑ R i ∈ I 0 R = 0 R
104 101 102 103 syl2anc ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ ran ⁡ f ⊆ 0 1 → ∑ R i ∈ I 0 R = 0 R
105 14 an32s ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ i ∈ I → V ⁡ i ⁡ f = if f = j ∈ I ⟼ if j = i 1 0 1 R 0 R
106 105 adantlr ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ ran ⁡ f ⊆ 0 1 ∧ i ∈ I → V ⁡ i ⁡ f = if f = j ∈ I ⟼ if j = i 1 0 1 R 0 R
107 simpr ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ i ∈ I ∧ f = j ∈ I ⟼ if j = i 1 0 → f = j ∈ I ⟼ if j = i 1 0
108 107 rneqd ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ i ∈ I ∧ f = j ∈ I ⟼ if j = i 1 0 → ran ⁡ f = ran ⁡ j ∈ I ⟼ if j = i 1 0
109 nfv ⊢ Ⅎ j φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ i ∈ I
110 109 21 nfan ⊢ Ⅎ j φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ i ∈ I ∧ f = j ∈ I ⟼ if j = i 1 0
111 eqid ⊢ j ∈ I ⟼ if j = i 1 0 = j ∈ I ⟼ if j = i 1 0
112 1nn0 ⊢ 1 ∈ ℕ 0
113 prid2g ⊢ 1 ∈ ℕ 0 → 1 ∈ 0 1
114 112 113 mp1i ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ i ∈ I ∧ f = j ∈ I ⟼ if j = i 1 0 ∧ j ∈ I → 1 ∈ 0 1
115 0nn0 ⊢ 0 ∈ ℕ 0
116 prid1g ⊢ 0 ∈ ℕ 0 → 0 ∈ 0 1
117 115 116 mp1i ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ i ∈ I ∧ f = j ∈ I ⟼ if j = i 1 0 ∧ j ∈ I → 0 ∈ 0 1
118 114 117 ifcld ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ i ∈ I ∧ f = j ∈ I ⟼ if j = i 1 0 ∧ j ∈ I → if j = i 1 0 ∈ 0 1
119 110 111 118 rnmptssd ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ i ∈ I ∧ f = j ∈ I ⟼ if j = i 1 0 → ran ⁡ j ∈ I ⟼ if j = i 1 0 ⊆ 0 1
120 108 119 eqsstrd ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ i ∈ I ∧ f = j ∈ I ⟼ if j = i 1 0 → ran ⁡ f ⊆ 0 1
121 120 adantllr ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ ran ⁡ f ⊆ 0 1 ∧ i ∈ I ∧ f = j ∈ I ⟼ if j = i 1 0 → ran ⁡ f ⊆ 0 1
122 simpllr ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ ran ⁡ f ⊆ 0 1 ∧ i ∈ I ∧ f = j ∈ I ⟼ if j = i 1 0 → ¬ ran ⁡ f ⊆ 0 1
123 121 122 pm2.65da ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ ran ⁡ f ⊆ 0 1 ∧ i ∈ I → ¬ f = j ∈ I ⟼ if j = i 1 0
124 123 iffalsed ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ ran ⁡ f ⊆ 0 1 ∧ i ∈ I → if f = j ∈ I ⟼ if j = i 1 0 1 R 0 R = 0 R
125 106 124 eqtr2d ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ ran ⁡ f ⊆ 0 1 ∧ i ∈ I → 0 R = V ⁡ i ⁡ f
126 125 mpteq2dva ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ ran ⁡ f ⊆ 0 1 → i ∈ I ⟼ 0 R = i ∈ I ⟼ V ⁡ i ⁡ f
127 126 oveq2d ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ ran ⁡ f ⊆ 0 1 → ∑ R i ∈ I 0 R = ∑ R i ∈ I V ⁡ i ⁡ f
128 104 127 eqtr3d ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ ran ⁡ f ⊆ 0 1 → 0 R = ∑ R i ∈ I V ⁡ i ⁡ f
129 128 adantlr ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ ¬ ran ⁡ f ⊆ 0 1 → 0 R = ∑ R i ∈ I V ⁡ i ⁡ f
130 83 ad2antrr ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ f supp 0 = 1 → R ∈ Mnd
131 4 ad2antrr ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ f supp 0 = 1 → I ∈ Fin
132 130 131 103 syl2anc ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ f supp 0 = 1 → ∑ R i ∈ I 0 R = 0 R
133 105 adantlr ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ f supp 0 = 1 ∧ i ∈ I → V ⁡ i ⁡ f = if f = j ∈ I ⟼ if j = i 1 0 1 R 0 R
134 simpr ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ f supp 0 = 1 ∧ i ∈ I ∧ f = j ∈ I ⟼ if j = i 1 0 → f = j ∈ I ⟼ if j = i 1 0
135 4 64 sylan ⊢ φ ∧ i ∈ I → 𝟙 I ⁡ i = j ∈ I ⟼ if j = i 1 0
136 135 ad5ant14 ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ f supp 0 = 1 ∧ i ∈ I ∧ f = j ∈ I ⟼ if j = i 1 0 → 𝟙 I ⁡ i = j ∈ I ⟼ if j = i 1 0
137 134 136 eqtr4d ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ f supp 0 = 1 ∧ i ∈ I ∧ f = j ∈ I ⟼ if j = i 1 0 → f = 𝟙 I ⁡ i
138 137 oveq1d ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ f supp 0 = 1 ∧ i ∈ I ∧ f = j ∈ I ⟼ if j = i 1 0 → f supp 0 = 𝟙 I ⁡ i supp 0
139 131 ad2antrr ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ f supp 0 = 1 ∧ i ∈ I ∧ f = j ∈ I ⟼ if j = i 1 0 → I ∈ Fin
140 54 ad2antlr ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ f supp 0 = 1 ∧ i ∈ I ∧ f = j ∈ I ⟼ if j = i 1 0 → i ⊆ I
141 139 140 57 syl2anc ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ f supp 0 = 1 ∧ i ∈ I ∧ f = j ∈ I ⟼ if j = i 1 0 → 𝟙 I ⁡ i supp 0 = i
142 138 141 eqtrd ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ f supp 0 = 1 ∧ i ∈ I ∧ f = j ∈ I ⟼ if j = i 1 0 → f supp 0 = i
143 142 fveq2d ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ f supp 0 = 1 ∧ i ∈ I ∧ f = j ∈ I ⟼ if j = i 1 0 → f supp 0 = i
144 hashsng ⊢ i ∈ I → i = 1
145 144 ad2antlr ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ f supp 0 = 1 ∧ i ∈ I ∧ f = j ∈ I ⟼ if j = i 1 0 → i = 1
146 143 145 eqtrd ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ f supp 0 = 1 ∧ i ∈ I ∧ f = j ∈ I ⟼ if j = i 1 0 → f supp 0 = 1
147 simpllr ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ f supp 0 = 1 ∧ i ∈ I ∧ f = j ∈ I ⟼ if j = i 1 0 → ¬ f supp 0 = 1
148 146 147 pm2.65da ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ f supp 0 = 1 ∧ i ∈ I → ¬ f = j ∈ I ⟼ if j = i 1 0
149 148 iffalsed ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ f supp 0 = 1 ∧ i ∈ I → if f = j ∈ I ⟼ if j = i 1 0 1 R 0 R = 0 R
150 133 149 eqtr2d ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ f supp 0 = 1 ∧ i ∈ I → 0 R = V ⁡ i ⁡ f
151 150 mpteq2dva ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ f supp 0 = 1 → i ∈ I ⟼ 0 R = i ∈ I ⟼ V ⁡ i ⁡ f
152 151 oveq2d ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ f supp 0 = 1 → ∑ R i ∈ I 0 R = ∑ R i ∈ I V ⁡ i ⁡ f
153 132 152 eqtr3d ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ f supp 0 = 1 → 0 R = ∑ R i ∈ I V ⁡ i ⁡ f
154 153 adantlr ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 ∧ ¬ f supp 0 = 1 → 0 R = ∑ R i ∈ I V ⁡ i ⁡ f
155 pm3.13 ⊢ ¬ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 → ¬ ran ⁡ f ⊆ 0 1 ∨ ¬ f supp 0 = 1
156 155 adantl ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 → ¬ ran ⁡ f ⊆ 0 1 ∨ ¬ f supp 0 = 1
157 129 154 156 mpjaodan ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ∧ ¬ ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 → 0 R = ∑ R i ∈ I V ⁡ i ⁡ f
158 100 157 ifeqda ⊢ φ ∧ f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h → if ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 1 R 0 R = ∑ R i ∈ I V ⁡ i ⁡ f
159 158 mpteq2dva ⊢ φ → f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ if ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 1 R 0 R = f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ ∑ R i ∈ I V ⁡ i ⁡ f
160 3 fveq1i Could not format ( E ` 1 ) = ( ( I eSymPoly R ) ` 1 ) : No typesetting found for |- ( E ` 1 ) = ( ( I eSymPoly R ) ` 1 ) with typecode |-
161 112 a1i ⊢ φ → 1 ∈ ℕ 0
162 6 4 5 161 8 9 esplyfval3 Could not format ( ph -> ( ( I eSymPoly R ) ` 1 ) = ( f e. { h e. ( NN0 ^m I ) | h finSupp 0 } |-> if ( ( ran f C_ { 0 , 1 } /\ ( # ` ( f supp 0 ) ) = 1 ) , ( 1r ` R ) , ( 0g ` R ) ) ) ) : No typesetting found for |- ( ph -> ( ( I eSymPoly R ) ` 1 ) = ( f e. { h e. ( NN0 ^m I ) | h finSupp 0 } |-> if ( ( ran f C_ { 0 , 1 } /\ ( # ` ( f supp 0 ) ) = 1 ) , ( 1r ` R ) , ( 0g ` R ) ) ) ) with typecode |-
163 160 162 eqtrid ⊢ φ → E ⁡ 1 = f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ if ran ⁡ f ⊆ 0 1 ∧ f supp 0 = 1 1 R 0 R
164 eqid ⊢ Base W = Base W
165 1 2 164 4 5 mvrf2 ⊢ φ → V : I ⟶ Base W
166 1 164 5 4 6 4 165 mplgsum ⊢ φ → ∑ W V = f ∈ h ∈ ℕ 0 I | finSupp 0 ⁡ h ⟼ ∑ R i ∈ I V ⁡ i ⁡ f
167 159 163 166 3eqtr4d ⊢ φ → E ⁡ 1 = ∑ W V