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 4 adantr φ f h 0 I | finSupp 0 h I Fin
35 nn0ex 0 V
36 35 a1i φ f h 0 I | finSupp 0 h 0 V
37 ssrab2 h 0 I | finSupp 0 h 0 I
38 37 a1i φ h 0 I | finSupp 0 h 0 I
39 38 sselda φ f h 0 I | finSupp 0 h f 0 I
40 34 36 39 elmaprd φ f h 0 I | finSupp 0 h f : I 0
41 40 adantr φ f h 0 I | finSupp 0 h ran f 0 1 f : I 0
42 ffrn f : I 0 f : I ran f
43 41 42 syl φ f h 0 I | finSupp 0 h ran f 0 1 f : I ran f
44 simpr φ f h 0 I | finSupp 0 h ran f 0 1 ran f 0 1
45 43 44 fssd φ f h 0 I | finSupp 0 h ran f 0 1 f : I 0 1
46 33 45 indfsid φ f h 0 I | finSupp 0 h ran f 0 1 f = 𝟙 I f supp 0
47 46 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
48 sneq i = j i = j
49 48 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
50 49 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
51 32 47 50 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
52 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
53 52 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
54 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
55 4 ad3antrrr φ f h 0 I | finSupp 0 h ran f 0 1 f supp 0 = 1 I Fin
56 55 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
57 snssi i I i I
58 57 adantl φ f h 0 I | finSupp 0 h ran f 0 1 f supp 0 = 1 i I i I
59 58 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
60 indsupp I Fin i I 𝟙 I i supp 0 = i
61 56 59 60 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
62 53 54 61 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
63 vex i V
64 63 sneqr i = j i = j
65 62 64 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
66 51 65 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
67 indsn I Fin i I 𝟙 I i = j I if j = i 1 0
68 55 67 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
69 68 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
70 69 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
71 66 70 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
72 26 30 71 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
73 ovexd φ f h 0 I | finSupp 0 h ran f 0 1 f supp 0 = 1 f supp 0 V
74 simpr φ f h 0 I | finSupp 0 h ran f 0 1 f supp 0 = 1 f supp 0 = 1
75 hash1snb f supp 0 V f supp 0 = 1 j f supp 0 = j
76 75 biimpa f supp 0 V f supp 0 = 1 j f supp 0 = j
77 73 74 76 syl2anc φ f h 0 I | finSupp 0 h ran f 0 1 f supp 0 = 1 j f supp 0 = j
78 exsnrex j f supp 0 = j j supp 0 f f supp 0 = j
79 77 78 sylib φ f h 0 I | finSupp 0 h ran f 0 1 f supp 0 = 1 j supp 0 f f supp 0 = j
80 79 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
81 19 23 72 80 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
82 81 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
83 82 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
84 83 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
85 ringmnd R Ring R Mnd
86 5 85 syl φ R Mnd
87 86 ad3antrrr φ f h 0 I | finSupp 0 h ran f 0 1 f supp 0 = 1 R Mnd
88 suppssdm f supp 0 dom f
89 40 fdmd φ f h 0 I | finSupp 0 h dom f = I
90 89 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
91 88 90 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
92 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
93 91 92 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
94 24 93 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
95 28 94 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
96 95 79 r19.29a φ f h 0 I | finSupp 0 h ran f 0 1 f supp 0 = 1 supp 0 f I
97 eqid i I if i = supp 0 f 1 R 0 R = i I if i = supp 0 f 1 R 0 R
98 eqid Base R = Base R
99 98 9 5 ringidcld φ 1 R Base R
100 99 ad3antrrr φ f h 0 I | finSupp 0 h ran f 0 1 f supp 0 = 1 1 R Base R
101 8 87 55 96 97 100 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
102 18 84 101 3eqtrrd φ f h 0 I | finSupp 0 h ran f 0 1 f supp 0 = 1 1 R = R i I V i f
103 102 anasss φ f h 0 I | finSupp 0 h ran f 0 1 f supp 0 = 1 1 R = R i I V i f
104 86 ad2antrr φ f h 0 I | finSupp 0 h ¬ ran f 0 1 R Mnd
105 4 ad2antrr φ f h 0 I | finSupp 0 h ¬ ran f 0 1 I Fin
106 8 gsumz R Mnd I Fin R i I 0 R = 0 R
107 104 105 106 syl2anc φ f h 0 I | finSupp 0 h ¬ ran f 0 1 R i I 0 R = 0 R
108 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
109 108 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
110 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
111 110 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
112 nfv j φ f h 0 I | finSupp 0 h i I
113 112 21 nfan j φ f h 0 I | finSupp 0 h i I f = j I if j = i 1 0
114 eqid j I if j = i 1 0 = j I if j = i 1 0
115 1nn0 1 0
116 prid2g 1 0 1 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 1 0 1
118 0nn0 0 0
119 prid1g 0 0 0 0 1
120 118 119 mp1i φ f h 0 I | finSupp 0 h i I f = j I if j = i 1 0 j I 0 0 1
121 117 120 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
122 113 114 121 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
123 111 122 eqsstrd φ f h 0 I | finSupp 0 h i I f = j I if j = i 1 0 ran f 0 1
124 123 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
125 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
126 124 125 pm2.65da φ f h 0 I | finSupp 0 h ¬ ran f 0 1 i I ¬ f = j I if j = i 1 0
127 126 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
128 109 127 eqtr2d φ f h 0 I | finSupp 0 h ¬ ran f 0 1 i I 0 R = V i f
129 128 mpteq2dva φ f h 0 I | finSupp 0 h ¬ ran f 0 1 i I 0 R = i I V i f
130 129 oveq2d φ f h 0 I | finSupp 0 h ¬ ran f 0 1 R i I 0 R = R i I V i f
131 107 130 eqtr3d φ f h 0 I | finSupp 0 h ¬ ran f 0 1 0 R = R i I V i f
132 131 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
133 86 ad2antrr φ f h 0 I | finSupp 0 h ¬ f supp 0 = 1 R Mnd
134 4 ad2antrr φ f h 0 I | finSupp 0 h ¬ f supp 0 = 1 I Fin
135 133 134 106 syl2anc φ f h 0 I | finSupp 0 h ¬ f supp 0 = 1 R i I 0 R = 0 R
136 108 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
137 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
138 4 67 sylan φ i I 𝟙 I i = j I if j = i 1 0
139 138 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
140 137 139 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
141 140 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
142 134 ad2antrr φ f h 0 I | finSupp 0 h ¬ f supp 0 = 1 i I f = j I if j = i 1 0 I Fin
143 57 ad2antlr φ f h 0 I | finSupp 0 h ¬ f supp 0 = 1 i I f = j I if j = i 1 0 i I
144 142 143 60 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
145 141 144 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
146 145 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
147 hashsng i I i = 1
148 147 ad2antlr φ f h 0 I | finSupp 0 h ¬ f supp 0 = 1 i I f = j I if j = i 1 0 i = 1
149 146 148 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
150 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
151 149 150 pm2.65da φ f h 0 I | finSupp 0 h ¬ f supp 0 = 1 i I ¬ f = j I if j = i 1 0
152 151 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
153 136 152 eqtr2d φ f h 0 I | finSupp 0 h ¬ f supp 0 = 1 i I 0 R = V i f
154 153 mpteq2dva φ f h 0 I | finSupp 0 h ¬ f supp 0 = 1 i I 0 R = i I V i f
155 154 oveq2d φ f h 0 I | finSupp 0 h ¬ f supp 0 = 1 R i I 0 R = R i I V i f
156 135 155 eqtr3d φ f h 0 I | finSupp 0 h ¬ f supp 0 = 1 0 R = R i I V i f
157 156 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
158 pm3.13 ¬ ran f 0 1 f supp 0 = 1 ¬ ran f 0 1 ¬ f supp 0 = 1
159 158 adantl φ f h 0 I | finSupp 0 h ¬ ran f 0 1 f supp 0 = 1 ¬ ran f 0 1 ¬ f supp 0 = 1
160 132 157 159 mpjaodan φ f h 0 I | finSupp 0 h ¬ ran f 0 1 f supp 0 = 1 0 R = R i I V i f
161 103 160 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
162 161 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
163 3 fveq1i Could not format ( E ` 1 ) = ( ( I eSymPoly R ) ` 1 ) : No typesetting found for |- ( E ` 1 ) = ( ( I eSymPoly R ) ` 1 ) with typecode |-
164 115 a1i φ 1 0
165 6 4 5 164 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 |-
166 163 165 eqtrid φ E 1 = f h 0 I | finSupp 0 h if ran f 0 1 f supp 0 = 1 1 R 0 R
167 eqid Base W = Base W
168 1 2 167 4 5 mvrf2 φ V : I Base W
169 1 167 5 4 6 4 168 mplgsum φ W V = f h 0 I | finSupp 0 h R i I V i f
170 162 166 169 3eqtr4d φ E 1 = W V