Metamath Proof Explorer


Theorem esplyfvaln

Description: The last elementary symmetric polynomial is the product 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
esplyfvaln.r φ R CRing
esplyfvaln.n N = I
esplyfvaln.m M = mulGrp W
Assertion esplyfvaln φ E N = M 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 esplyfvaln.r φ R CRing
6 esplyfvaln.n N = I
7 esplyfvaln.m M = mulGrp W
8 3 fveq1i Could not format ( E ` N ) = ( ( I eSymPoly R ) ` N ) : No typesetting found for |- ( E ` N ) = ( ( I eSymPoly R ) ` N ) with typecode |-
9 eqid h 0 I | finSupp 0 h = h 0 I | finSupp 0 h
10 5 crngringd φ R Ring
11 hashcl I Fin I 0
12 4 11 syl φ I 0
13 6 12 eqeltrid φ N 0
14 eqid 0 R = 0 R
15 eqid 1 R = 1 R
16 9 4 10 13 14 15 esplyfval3 Could not format ( ph -> ( ( I eSymPoly R ) ` N ) = ( f e. { h e. ( NN0 ^m I ) | h finSupp 0 } |-> if ( ( ran f C_ { 0 , 1 } /\ ( # ` ( f supp 0 ) ) = N ) , ( 1r ` R ) , ( 0g ` R ) ) ) ) : No typesetting found for |- ( ph -> ( ( I eSymPoly R ) ` N ) = ( f e. { h e. ( NN0 ^m I ) | h finSupp 0 } |-> if ( ( ran f C_ { 0 , 1 } /\ ( # ` ( f supp 0 ) ) = N ) , ( 1r ` R ) , ( 0g ` R ) ) ) ) with typecode |-
17 eqid Base W = Base W
18 breq1 h = 𝟙 I i finSupp 0 h finSupp 0 𝟙 I i
19 nn0ex 0 V
20 19 a1i φ i I 0 V
21 4 adantr φ i I I Fin
22 snssi i I i I
23 indf I Fin i I 𝟙 I i : I 0 1
24 4 22 23 syl2an φ i I 𝟙 I i : I 0 1
25 0nn0 0 0
26 25 a1i φ i I 0 0
27 1nn0 1 0
28 27 a1i φ i I 1 0
29 26 28 prssd φ i I 0 1 0
30 24 29 fssd φ i I 𝟙 I i : I 0
31 20 21 30 elmapdd φ i I 𝟙 I i 0 I
32 24 21 26 fidmfisupp φ i I finSupp 0 𝟙 I i
33 18 31 32 elrabd φ i I 𝟙 I i h 0 I | finSupp 0 h
34 33 fmpttd φ i I 𝟙 I i : I h 0 I | finSupp 0 h
35 eqeq2 t = y u = t u = y
36 35 ifbid t = y if u = t 1 R 0 R = if u = y 1 R 0 R
37 36 mpteq2dv t = y u h 0 I | finSupp 0 h if u = t 1 R 0 R = u h 0 I | finSupp 0 h if u = y 1 R 0 R
38 eqeq1 u = z u = y z = y
39 38 ifbid u = z if u = y 1 R 0 R = if z = y 1 R 0 R
40 39 cbvmptv u h 0 I | finSupp 0 h if u = y 1 R 0 R = z h 0 I | finSupp 0 h if z = y 1 R 0 R
41 37 40 eqtrdi t = y u h 0 I | finSupp 0 h if u = t 1 R 0 R = z h 0 I | finSupp 0 h if z = y 1 R 0 R
42 41 cbvmptv t h 0 I | finSupp 0 h u h 0 I | finSupp 0 h if u = t 1 R 0 R = y h 0 I | finSupp 0 h z h 0 I | finSupp 0 h if z = y 1 R 0 R
43 1 17 5 4 9 4 34 15 14 7 42 mplmonprod φ M t h 0 I | finSupp 0 h u h 0 I | finSupp 0 h if u = t 1 R 0 R i I 𝟙 I i = t h 0 I | finSupp 0 h u h 0 I | finSupp 0 h if u = t 1 R 0 R j I fld k I i I 𝟙 I i k j
44 eqid t h 0 I | finSupp 0 h u h 0 I | finSupp 0 h if u = t 1 R 0 R = t h 0 I | finSupp 0 h u h 0 I | finSupp 0 h if u = t 1 R 0 R
45 eqeq2 t = j I fld k I i I 𝟙 I i k j u = t u = j I fld k I i I 𝟙 I i k j
46 45 ifbid t = j I fld k I i I 𝟙 I i k j if u = t 1 R 0 R = if u = j I fld k I i I 𝟙 I i k j 1 R 0 R
47 46 mpteq2dv t = j I fld k I i I 𝟙 I i k j u h 0 I | finSupp 0 h if u = t 1 R 0 R = u h 0 I | finSupp 0 h if u = j I fld k I i I 𝟙 I i k j 1 R 0 R
48 simpr φ u h 0 I | finSupp 0 h u = j I fld k I i I 𝟙 I i k j u = j I fld k I i I 𝟙 I i k j
49 48 rneqd φ u h 0 I | finSupp 0 h u = j I fld k I i I 𝟙 I i k j ran u = ran j I fld k I i I 𝟙 I i k j
50 nfv j φ u h 0 I | finSupp 0 h
51 eqid j I fld k I i I 𝟙 I i k j = j I fld k I i I 𝟙 I i k j
52 eqid i I 𝟙 I i = i I 𝟙 I i
53 sneq i = k i = k
54 53 fveq2d i = k 𝟙 I i = 𝟙 I k
55 simpr φ j I k I k I
56 fvexd φ j I k I 𝟙 I k V
57 52 54 55 56 fvmptd3 φ j I k I i I 𝟙 I i k = 𝟙 I k
58 57 fveq1d φ j I k I i I 𝟙 I i k j = 𝟙 I k j
59 4 ad2antrr φ j I k I I Fin
60 55 snssd φ j I k I k I
61 simplr φ j I k I j I
62 indfval I Fin k I j I 𝟙 I k j = if j k 1 0
63 59 60 61 62 syl3anc φ j I k I 𝟙 I k j = if j k 1 0
64 velsn j k j = k
65 equcom j = k k = j
66 64 65 bitri j k k = j
67 66 a1i φ j I k I j k k = j
68 67 ifbid φ j I k I if j k 1 0 = if k = j 1 0
69 58 63 68 3eqtrd φ j I k I i I 𝟙 I i k j = if k = j 1 0
70 69 mpteq2dva φ j I k I i I 𝟙 I i k j = k I if k = j 1 0
71 70 oveq2d φ j I fld k I i I 𝟙 I i k j = fld k I if k = j 1 0
72 cnfld0 0 = 0 fld
73 cnfldfld fld Field
74 id fld Field fld Field
75 74 fldcrngd fld Field fld CRing
76 crngring fld CRing fld Ring
77 ringcmn fld Ring fld CMnd
78 75 76 77 3syl fld Field fld CMnd
79 73 78 mp1i φ j I fld CMnd
80 79 cmnmndd φ j I fld Mnd
81 4 adantr φ j I I Fin
82 simpr φ j I j I
83 eqid k I if k = j 1 0 = k I if k = j 1 0
84 ax-1cn 1
85 cnfldbas = Base fld
86 84 85 eleqtri 1 Base fld
87 86 a1i φ j I 1 Base fld
88 72 80 81 82 83 87 gsummptif1n0 φ j I fld k I if k = j 1 0 = 1
89 71 88 eqtrd φ j I fld k I i I 𝟙 I i k j = 1
90 1ex 1 V
91 90 prid2 1 0 1
92 89 91 eqeltrdi φ j I fld k I i I 𝟙 I i k j 0 1
93 92 adantlr φ u h 0 I | finSupp 0 h j I fld k I i I 𝟙 I i k j 0 1
94 50 51 93 rnmptssd φ u h 0 I | finSupp 0 h ran j I fld k I i I 𝟙 I i k j 0 1
95 94 adantr φ u h 0 I | finSupp 0 h u = j I fld k I i I 𝟙 I i k j ran j I fld k I i I 𝟙 I i k j 0 1
96 49 95 eqsstrd φ u h 0 I | finSupp 0 h u = j I fld k I i I 𝟙 I i k j ran u 0 1
97 48 oveq1d φ u h 0 I | finSupp 0 h u = j I fld k I i I 𝟙 I i k j u supp 0 = j I fld k I i I 𝟙 I i k j supp 0
98 suppssdm j I fld k I i I 𝟙 I i k j supp 0 dom j I fld k I i I 𝟙 I i k j
99 nn0subm 0 SubMnd fld
100 99 a1i φ j I 0 SubMnd fld
101 25 a1i φ j I k I 0 0
102 27 a1i φ j I k I 1 0
103 101 102 prssd φ j I k I 0 1 0
104 indf I Fin k I 𝟙 I k : I 0 1
105 59 60 104 syl2anc φ j I k I 𝟙 I k : I 0 1
106 105 61 ffvelcdmd φ j I k I 𝟙 I k j 0 1
107 103 106 sseldd φ j I k I 𝟙 I k j 0
108 58 107 eqeltrd φ j I k I i I 𝟙 I i k j 0
109 108 fmpttd φ j I k I i I 𝟙 I i k j : I 0
110 25 a1i φ j I 0 0
111 109 81 110 fdmfifsupp φ j I finSupp 0 k I i I 𝟙 I i k j
112 72 79 81 100 109 111 gsumsubmcl φ j I fld k I i I 𝟙 I i k j 0
113 51 112 dmmptd φ dom j I fld k I i I 𝟙 I i k j = I
114 98 113 sseqtrid φ j I fld k I i I 𝟙 I i k j supp 0 I
115 nfv j φ i I
116 ovexd φ i I j I fld k I 𝟙 I k j V
117 eqid j I fld k I 𝟙 I k j = j I fld k I 𝟙 I k j
118 115 116 117 fnmptd φ i I j I fld k I 𝟙 I k j Fn I
119 simpr φ i I i I
120 fveq2 j = i 𝟙 I k j = 𝟙 I k i
121 120 mpteq2dv j = i k I 𝟙 I k j = k I 𝟙 I k i
122 121 oveq2d j = i fld k I 𝟙 I k j = fld k I 𝟙 I k i
123 ovexd φ i I fld k I 𝟙 I k i V
124 117 122 119 123 fvmptd3 φ i I j I fld k I 𝟙 I k j i = fld k I 𝟙 I k i
125 4 ad2antrr φ i I k I I Fin
126 simpr φ i I k I k I
127 126 snssd φ i I k I k I
128 simplr φ i I k I i I
129 indfval I Fin k I i I 𝟙 I k i = if i k 1 0
130 125 127 128 129 syl3anc φ i I k I 𝟙 I k i = if i k 1 0
131 velsn i k i = k
132 equcom i = k k = i
133 131 132 bitri i k k = i
134 133 a1i φ i I k I i k k = i
135 134 ifbid φ i I k I if i k 1 0 = if k = i 1 0
136 130 135 eqtrd φ i I k I 𝟙 I k i = if k = i 1 0
137 136 mpteq2dva φ i I k I 𝟙 I k i = k I if k = i 1 0
138 137 oveq2d φ i I fld k I 𝟙 I k i = fld k I if k = i 1 0
139 73 78 mp1i φ i I fld CMnd
140 139 cmnmndd φ i I fld Mnd
141 eqid k I if k = i 1 0 = k I if k = i 1 0
142 86 a1i φ i I 1 Base fld
143 72 140 21 119 141 142 gsummptif1n0 φ i I fld k I if k = i 1 0 = 1
144 124 138 143 3eqtrd φ i I j I fld k I 𝟙 I k j i = 1
145 ax-1ne0 1 0
146 145 a1i φ i I 1 0
147 144 146 eqnetrd φ i I j I fld k I 𝟙 I k j i 0
148 118 21 26 119 147 elsuppfnd φ i I i supp 0 j I fld k I 𝟙 I k j
149 148 ex φ i I i supp 0 j I fld k I 𝟙 I k j
150 149 ssrdv φ I j I fld k I 𝟙 I k j supp 0
151 58 mpteq2dva φ j I k I i I 𝟙 I i k j = k I 𝟙 I k j
152 151 oveq2d φ j I fld k I i I 𝟙 I i k j = fld k I 𝟙 I k j
153 152 mpteq2dva φ j I fld k I i I 𝟙 I i k j = j I fld k I 𝟙 I k j
154 153 oveq1d φ j I fld k I i I 𝟙 I i k j supp 0 = j I fld k I 𝟙 I k j supp 0
155 150 154 sseqtrrd φ I j I fld k I i I 𝟙 I i k j supp 0
156 114 155 eqssd φ j I fld k I i I 𝟙 I i k j supp 0 = I
157 156 ad2antrr φ u h 0 I | finSupp 0 h u = j I fld k I i I 𝟙 I i k j j I fld k I i I 𝟙 I i k j supp 0 = I
158 97 157 eqtrd φ u h 0 I | finSupp 0 h u = j I fld k I i I 𝟙 I i k j u supp 0 = I
159 158 fveq2d φ u h 0 I | finSupp 0 h u = j I fld k I i I 𝟙 I i k j u supp 0 = I
160 159 6 eqtr4di φ u h 0 I | finSupp 0 h u = j I fld k I i I 𝟙 I i k j u supp 0 = N
161 96 160 jca φ u h 0 I | finSupp 0 h u = j I fld k I i I 𝟙 I i k j ran u 0 1 u supp 0 = N
162 simpllr φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I ran u 0 1
163 4 ad3antrrr φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N I Fin
164 19 a1i φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N 0 V
165 ssrab2 h 0 I | finSupp 0 h 0 I
166 165 a1i φ h 0 I | finSupp 0 h 0 I
167 166 sselda φ u h 0 I | finSupp 0 h u 0 I
168 167 ad2antrr φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N u 0 I
169 163 164 168 elmaprd φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N u : I 0
170 169 adantr φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I u : I 0
171 170 ffnd φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I u Fn I
172 simpr φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I j I
173 171 172 fnfvelrnd φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I u j ran u
174 162 173 sseldd φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I u j 0 1
175 163 adantr φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I I Fin
176 25 a1i φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I 0 0
177 suppssdm u supp 0 dom u
178 177 170 fssdm φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I u supp 0 I
179 simplr φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I u supp 0 = N
180 179 6 eqtr2di φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I I = u supp 0
181 175 178 180 phphashd φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I I = u supp 0
182 172 181 eleqtrd φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I j supp 0 u
183 elsuppfn u Fn I I Fin 0 0 j supp 0 u j I u j 0
184 183 simplbda u Fn I I Fin 0 0 j supp 0 u u j 0
185 171 175 176 182 184 syl31anc φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I u j 0
186 elprn1 u j 0 1 u j 0 u j = 1
187 174 185 186 syl2anc φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I u j = 1
188 187 mpteq2dva φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I u j = j I 1
189 169 feqmptd φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N u = j I u j
190 89 mpteq2dva φ j I fld k I i I 𝟙 I i k j = j I 1
191 190 ad3antrrr φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I fld k I i I 𝟙 I i k j = j I 1
192 188 189 191 3eqtr4d φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N u = j I fld k I i I 𝟙 I i k j
193 192 anasss φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N u = j I fld k I i I 𝟙 I i k j
194 161 193 impbida φ u h 0 I | finSupp 0 h u = j I fld k I i I 𝟙 I i k j ran u 0 1 u supp 0 = N
195 194 ifbid φ u h 0 I | finSupp 0 h if u = j I fld k I i I 𝟙 I i k j 1 R 0 R = if ran u 0 1 u supp 0 = N 1 R 0 R
196 195 mpteq2dva φ u h 0 I | finSupp 0 h if u = j I fld k I i I 𝟙 I i k j 1 R 0 R = u h 0 I | finSupp 0 h if ran u 0 1 u supp 0 = N 1 R 0 R
197 rneq u = f ran u = ran f
198 197 sseq1d u = f ran u 0 1 ran f 0 1
199 oveq1 u = f u supp 0 = f supp 0
200 199 fveqeq2d u = f u supp 0 = N f supp 0 = N
201 198 200 anbi12d u = f ran u 0 1 u supp 0 = N ran f 0 1 f supp 0 = N
202 201 ifbid u = f if ran u 0 1 u supp 0 = N 1 R 0 R = if ran f 0 1 f supp 0 = N 1 R 0 R
203 202 cbvmptv u h 0 I | finSupp 0 h if ran u 0 1 u supp 0 = N 1 R 0 R = f h 0 I | finSupp 0 h if ran f 0 1 f supp 0 = N 1 R 0 R
204 196 203 eqtrdi φ u h 0 I | finSupp 0 h if u = j I fld k I i I 𝟙 I i k j 1 R 0 R = f h 0 I | finSupp 0 h if ran f 0 1 f supp 0 = N 1 R 0 R
205 47 204 sylan9eqr φ t = j I fld k I i I 𝟙 I i k j u h 0 I | finSupp 0 h if u = t 1 R 0 R = f h 0 I | finSupp 0 h if ran f 0 1 f supp 0 = N 1 R 0 R
206 breq1 h = j I fld k I i I 𝟙 I i k j finSupp 0 h finSupp 0 j I fld k I i I 𝟙 I i k j
207 19 a1i φ 0 V
208 112 fmpttd φ j I fld k I i I 𝟙 I i k j : I 0
209 207 4 208 elmapdd φ j I fld k I i I 𝟙 I i k j 0 I
210 25 a1i φ 0 0
211 208 4 210 fidmfisupp φ finSupp 0 j I fld k I i I 𝟙 I i k j
212 206 209 211 elrabd φ j I fld k I i I 𝟙 I i k j h 0 I | finSupp 0 h
213 ovex 0 I V
214 213 rabex h 0 I | finSupp 0 h V
215 214 a1i φ h 0 I | finSupp 0 h V
216 215 mptexd φ f h 0 I | finSupp 0 h if ran f 0 1 f supp 0 = N 1 R 0 R V
217 44 205 212 216 fvmptd2 φ t h 0 I | finSupp 0 h u h 0 I | finSupp 0 h if u = t 1 R 0 R j I fld k I i I 𝟙 I i k j = f h 0 I | finSupp 0 h if ran f 0 1 f supp 0 = N 1 R 0 R
218 43 217 eqtrd φ M t h 0 I | finSupp 0 h u h 0 I | finSupp 0 h if u = t 1 R 0 R i I 𝟙 I i = f h 0 I | finSupp 0 h if ran f 0 1 f supp 0 = N 1 R 0 R
219 indval I Fin i I 𝟙 I i = j I if j i 1 0
220 4 22 219 syl2an φ i I 𝟙 I i = j I if j i 1 0
221 velsn j i j = i
222 221 a1i φ i I j I j i j = i
223 222 ifbid φ i I j I if j i 1 0 = if j = i 1 0
224 223 mpteq2dva φ i I j I if j i 1 0 = j I if j = i 1 0
225 220 224 eqtrd φ i I 𝟙 I i = j I if j = i 1 0
226 225 eqeq2d φ i I u = 𝟙 I i u = j I if j = i 1 0
227 226 ifbid φ i I if u = 𝟙 I i 1 R 0 R = if u = j I if j = i 1 0 1 R 0 R
228 227 mpteq2dv φ i I u h 0 I | finSupp 0 h if u = 𝟙 I i 1 R 0 R = u h 0 I | finSupp 0 h if u = j I if j = i 1 0 1 R 0 R
229 eqeq1 t = u t = j I if j = i 1 0 u = j I if j = i 1 0
230 229 ifbid t = u if t = j I if j = i 1 0 1 R 0 R = if u = j I if j = i 1 0 1 R 0 R
231 230 cbvmptv t h 0 I | finSupp 0 h if t = j I if j = i 1 0 1 R 0 R = u h 0 I | finSupp 0 h if u = j I if j = i 1 0 1 R 0 R
232 228 231 eqtr4di φ i I u h 0 I | finSupp 0 h if u = 𝟙 I i 1 R 0 R = t h 0 I | finSupp 0 h if t = j I if j = i 1 0 1 R 0 R
233 232 mpteq2dva φ i I u h 0 I | finSupp 0 h if u = 𝟙 I i 1 R 0 R = i I t h 0 I | finSupp 0 h if t = j I if j = i 1 0 1 R 0 R
234 eqidd φ i I 𝟙 I i = i I 𝟙 I i
235 eqidd φ t h 0 I | finSupp 0 h u h 0 I | finSupp 0 h if u = t 1 R 0 R = t h 0 I | finSupp 0 h u h 0 I | finSupp 0 h if u = t 1 R 0 R
236 eqeq2 t = 𝟙 I i u = t u = 𝟙 I i
237 236 ifbid t = 𝟙 I i if u = t 1 R 0 R = if u = 𝟙 I i 1 R 0 R
238 237 mpteq2dv t = 𝟙 I i u h 0 I | finSupp 0 h if u = t 1 R 0 R = u h 0 I | finSupp 0 h if u = 𝟙 I i 1 R 0 R
239 33 234 235 238 fmptco φ t h 0 I | finSupp 0 h u h 0 I | finSupp 0 h if u = t 1 R 0 R i I 𝟙 I i = i I u h 0 I | finSupp 0 h if u = 𝟙 I i 1 R 0 R
240 9 psrbasfsupp h 0 I | finSupp 0 h = h 0 I | h -1 Fin
241 2 240 14 15 4 5 mvrfval φ V = i I t h 0 I | finSupp 0 h if t = j I if j = i 1 0 1 R 0 R
242 233 239 241 3eqtr4d φ t h 0 I | finSupp 0 h u h 0 I | finSupp 0 h if u = t 1 R 0 R i I 𝟙 I i = V
243 242 oveq2d φ M t h 0 I | finSupp 0 h u h 0 I | finSupp 0 h if u = t 1 R 0 R i I 𝟙 I i = M V
244 16 218 243 3eqtr2d Could not format ( ph -> ( ( I eSymPoly R ) ` N ) = ( M gsum V ) ) : No typesetting found for |- ( ph -> ( ( I eSymPoly R ) ` N ) = ( M gsum V ) ) with typecode |-
245 8 244 eqtrid φ E N = M V