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 1elpr01 1 0 1
91 89 90 eqeltrdi φ j I fld k I i I 𝟙 I i k j 0 1
92 91 adantlr φ u h 0 I | finSupp 0 h j I fld k I i I 𝟙 I i k j 0 1
93 50 51 92 rnmptssd φ u h 0 I | finSupp 0 h ran j I fld k I i I 𝟙 I i k j 0 1
94 93 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
95 49 94 eqsstrd φ u h 0 I | finSupp 0 h u = j I fld k I i I 𝟙 I i k j ran u 0 1
96 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
97 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
98 nn0subm 0 SubMnd fld
99 98 a1i φ j I 0 SubMnd fld
100 25 a1i φ j I k I 0 0
101 27 a1i φ j I k I 1 0
102 100 101 prssd φ j I k I 0 1 0
103 indf I Fin k I 𝟙 I k : I 0 1
104 59 60 103 syl2anc φ j I k I 𝟙 I k : I 0 1
105 104 61 ffvelcdmd φ j I k I 𝟙 I k j 0 1
106 102 105 sseldd φ j I k I 𝟙 I k j 0
107 58 106 eqeltrd φ j I k I i I 𝟙 I i k j 0
108 107 fmpttd φ j I k I i I 𝟙 I i k j : I 0
109 25 a1i φ j I 0 0
110 108 81 109 fdmfifsupp φ j I finSupp 0 k I i I 𝟙 I i k j
111 72 79 81 99 108 110 gsumsubmcl φ j I fld k I i I 𝟙 I i k j 0
112 51 111 dmmptd φ dom j I fld k I i I 𝟙 I i k j = I
113 97 112 sseqtrid φ j I fld k I i I 𝟙 I i k j supp 0 I
114 nfv j φ i I
115 ovexd φ i I j I fld k I 𝟙 I k j V
116 eqid j I fld k I 𝟙 I k j = j I fld k I 𝟙 I k j
117 114 115 116 fnmptd φ i I j I fld k I 𝟙 I k j Fn I
118 simpr φ i I i I
119 fveq2 j = i 𝟙 I k j = 𝟙 I k i
120 119 mpteq2dv j = i k I 𝟙 I k j = k I 𝟙 I k i
121 120 oveq2d j = i fld k I 𝟙 I k j = fld k I 𝟙 I k i
122 ovexd φ i I fld k I 𝟙 I k i V
123 116 121 118 122 fvmptd3 φ i I j I fld k I 𝟙 I k j i = fld k I 𝟙 I k i
124 4 ad2antrr φ i I k I I Fin
125 simpr φ i I k I k I
126 125 snssd φ i I k I k I
127 simplr φ i I k I i I
128 indfval I Fin k I i I 𝟙 I k i = if i k 1 0
129 124 126 127 128 syl3anc φ i I k I 𝟙 I k i = if i k 1 0
130 velsn i k i = k
131 equcom i = k k = i
132 130 131 bitri i k k = i
133 132 a1i φ i I k I i k k = i
134 133 ifbid φ i I k I if i k 1 0 = if k = i 1 0
135 129 134 eqtrd φ i I k I 𝟙 I k i = if k = i 1 0
136 135 mpteq2dva φ i I k I 𝟙 I k i = k I if k = i 1 0
137 136 oveq2d φ i I fld k I 𝟙 I k i = fld k I if k = i 1 0
138 73 78 mp1i φ i I fld CMnd
139 138 cmnmndd φ i I fld Mnd
140 eqid k I if k = i 1 0 = k I if k = i 1 0
141 86 a1i φ i I 1 Base fld
142 72 139 21 118 140 141 gsummptif1n0 φ i I fld k I if k = i 1 0 = 1
143 123 137 142 3eqtrd φ i I j I fld k I 𝟙 I k j i = 1
144 ax-1ne0 1 0
145 144 a1i φ i I 1 0
146 143 145 eqnetrd φ i I j I fld k I 𝟙 I k j i 0
147 117 21 26 118 146 elsuppfnd φ i I i supp 0 j I fld k I 𝟙 I k j
148 147 ex φ i I i supp 0 j I fld k I 𝟙 I k j
149 148 ssrdv φ I j I fld k I 𝟙 I k j supp 0
150 58 mpteq2dva φ j I k I i I 𝟙 I i k j = k I 𝟙 I k j
151 150 oveq2d φ j I fld k I i I 𝟙 I i k j = fld k I 𝟙 I k j
152 151 mpteq2dva φ j I fld k I i I 𝟙 I i k j = j I fld k I 𝟙 I k j
153 152 oveq1d φ j I fld k I i I 𝟙 I i k j supp 0 = j I fld k I 𝟙 I k j supp 0
154 149 153 sseqtrrd φ I j I fld k I i I 𝟙 I i k j supp 0
155 113 154 eqssd φ j I fld k I i I 𝟙 I i k j supp 0 = I
156 155 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
157 96 156 eqtrd φ u h 0 I | finSupp 0 h u = j I fld k I i I 𝟙 I i k j u supp 0 = I
158 157 fveq2d φ 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 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
160 95 159 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
161 simpllr φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I ran u 0 1
162 ssrab2 h 0 I | finSupp 0 h 0 I
163 162 a1i φ h 0 I | finSupp 0 h 0 I
164 163 sselda φ u h 0 I | finSupp 0 h u 0 I
165 164 ad2antrr φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N u 0 I
166 165 elmaprd φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N u : I 0
167 166 adantr φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I u : I 0
168 167 ffnd φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I u Fn I
169 simpr φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I j I
170 168 169 fnfvelrnd φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I u j ran u
171 161 170 sseldd φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I u j 0 1
172 4 ad3antrrr φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N I Fin
173 172 adantr φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I I Fin
174 25 a1i φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I 0 0
175 suppssdm u supp 0 dom u
176 175 167 fssdm φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I u supp 0 I
177 simplr φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I u supp 0 = N
178 177 6 eqtr2di φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I I = u supp 0
179 173 176 178 phphashd φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I I = u supp 0
180 169 179 eleqtrd φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I j supp 0 u
181 elsuppfn u Fn I I Fin 0 0 j supp 0 u j I u j 0
182 181 simplbda u Fn I I Fin 0 0 j supp 0 u u j 0
183 168 173 174 180 182 syl31anc φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I u j 0
184 elprn1 u j 0 1 u j 0 u j = 1
185 171 183 184 syl2anc φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I u j = 1
186 185 mpteq2dva φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I u j = j I 1
187 166 feqmptd φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N u = j I u j
188 89 mpteq2dva φ j I fld k I i I 𝟙 I i k j = j I 1
189 188 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
190 186 187 189 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
191 190 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
192 160 191 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
193 192 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
194 193 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
195 rneq u = f ran u = ran f
196 195 sseq1d u = f ran u 0 1 ran f 0 1
197 oveq1 u = f u supp 0 = f supp 0
198 197 fveqeq2d u = f u supp 0 = N f supp 0 = N
199 196 198 anbi12d u = f ran u 0 1 u supp 0 = N ran f 0 1 f supp 0 = N
200 199 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
201 200 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
202 194 201 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
203 47 202 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
204 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
205 19 a1i φ 0 V
206 111 fmpttd φ j I fld k I i I 𝟙 I i k j : I 0
207 205 4 206 elmapdd φ j I fld k I i I 𝟙 I i k j 0 I
208 25 a1i φ 0 0
209 206 4 208 fidmfisupp φ finSupp 0 j I fld k I i I 𝟙 I i k j
210 204 207 209 elrabd φ j I fld k I i I 𝟙 I i k j h 0 I | finSupp 0 h
211 ovex 0 I V
212 211 rabex h 0 I | finSupp 0 h V
213 212 a1i φ h 0 I | finSupp 0 h V
214 213 mptexd φ f h 0 I | finSupp 0 h if ran f 0 1 f supp 0 = N 1 R 0 R V
215 44 203 210 214 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
216 43 215 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
217 indval I Fin i I 𝟙 I i = j I if j i 1 0
218 4 22 217 syl2an φ i I 𝟙 I i = j I if j i 1 0
219 velsn j i j = i
220 219 a1i φ i I j I j i j = i
221 220 ifbid φ i I j I if j i 1 0 = if j = i 1 0
222 221 mpteq2dva φ i I j I if j i 1 0 = j I if j = i 1 0
223 218 222 eqtrd φ i I 𝟙 I i = j I if j = i 1 0
224 223 eqeq2d φ i I u = 𝟙 I i u = j I if j = i 1 0
225 224 ifbid φ i I if u = 𝟙 I i 1 R 0 R = if u = j I if j = i 1 0 1 R 0 R
226 225 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
227 eqeq1 t = u t = j I if j = i 1 0 u = j I if j = i 1 0
228 227 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
229 228 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
230 226 229 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
231 230 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
232 eqidd φ i I 𝟙 I i = i I 𝟙 I i
233 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
234 eqeq2 t = 𝟙 I i u = t u = 𝟙 I i
235 234 ifbid t = 𝟙 I i if u = t 1 R 0 R = if u = 𝟙 I i 1 R 0 R
236 235 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
237 33 232 233 236 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
238 9 psrbasfsupp h 0 I | finSupp 0 h = h 0 I | h -1 Fin
239 2 238 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
240 231 237 239 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
241 240 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
242 16 216 241 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 |-
243 8 242 eqtrid φ E N = M V