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 4 ad3antrrr φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N I Fin
163 19 a1i φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N 0 V
164 ssrab2 h 0 I | finSupp 0 h 0 I
165 164 a1i φ h 0 I | finSupp 0 h 0 I
166 165 sselda φ u h 0 I | finSupp 0 h u 0 I
167 166 ad2antrr φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N u 0 I
168 162 163 167 elmaprd φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N u : I 0
169 168 adantr φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I u : I 0
170 169 ffnd φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I u Fn I
171 simpr φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I j I
172 170 171 fnfvelrnd φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I u j ran u
173 161 172 sseldd φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I u j 0 1
174 162 adantr φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I I Fin
175 25 a1i φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I 0 0
176 suppssdm u supp 0 dom u
177 176 169 fssdm φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I u supp 0 I
178 simplr φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I u supp 0 = N
179 178 6 eqtr2di φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I I = u supp 0
180 174 177 179 phphashd φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I I = u supp 0
181 171 180 eleqtrd φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I j supp 0 u
182 elsuppfn u Fn I I Fin 0 0 j supp 0 u j I u j 0
183 182 simplbda u Fn I I Fin 0 0 j supp 0 u u j 0
184 170 174 175 181 183 syl31anc φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I u j 0
185 elprn1 u j 0 1 u j 0 u j = 1
186 173 184 185 syl2anc φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I u j = 1
187 186 mpteq2dva φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N j I u j = j I 1
188 168 feqmptd φ u h 0 I | finSupp 0 h ran u 0 1 u supp 0 = N u = j I u j
189 89 mpteq2dva φ j I fld k I i I 𝟙 I i k j = j I 1
190 189 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
191 187 188 190 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
192 191 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
193 160 192 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
194 193 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
195 194 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
196 rneq u = f ran u = ran f
197 196 sseq1d u = f ran u 0 1 ran f 0 1
198 oveq1 u = f u supp 0 = f supp 0
199 198 fveqeq2d u = f u supp 0 = N f supp 0 = N
200 197 199 anbi12d u = f ran u 0 1 u supp 0 = N ran f 0 1 f supp 0 = N
201 200 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
202 201 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
203 195 202 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
204 47 203 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
205 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
206 19 a1i φ 0 V
207 111 fmpttd φ j I fld k I i I 𝟙 I i k j : I 0
208 206 4 207 elmapdd φ j I fld k I i I 𝟙 I i k j 0 I
209 25 a1i φ 0 0
210 207 4 209 fidmfisupp φ finSupp 0 j I fld k I i I 𝟙 I i k j
211 205 208 210 elrabd φ j I fld k I i I 𝟙 I i k j h 0 I | finSupp 0 h
212 ovex 0 I V
213 212 rabex h 0 I | finSupp 0 h V
214 213 a1i φ h 0 I | finSupp 0 h V
215 214 mptexd φ f h 0 I | finSupp 0 h if ran f 0 1 f supp 0 = N 1 R 0 R V
216 44 204 211 215 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
217 43 216 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
218 indval I Fin i I 𝟙 I i = j I if j i 1 0
219 4 22 218 syl2an φ i I 𝟙 I i = j I if j i 1 0
220 velsn j i j = i
221 220 a1i φ i I j I j i j = i
222 221 ifbid φ i I j I if j i 1 0 = if j = i 1 0
223 222 mpteq2dva φ i I j I if j i 1 0 = j I if j = i 1 0
224 219 223 eqtrd φ i I 𝟙 I i = j I if j = i 1 0
225 224 eqeq2d φ i I u = 𝟙 I i u = j I if j = i 1 0
226 225 ifbid φ i I if u = 𝟙 I i 1 R 0 R = if u = j I if j = i 1 0 1 R 0 R
227 226 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
228 eqeq1 t = u t = j I if j = i 1 0 u = j I if j = i 1 0
229 228 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
230 229 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
231 227 230 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
232 231 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
233 eqidd φ i I 𝟙 I i = i I 𝟙 I i
234 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
235 eqeq2 t = 𝟙 I i u = t u = 𝟙 I i
236 235 ifbid t = 𝟙 I i if u = t 1 R 0 R = if u = 𝟙 I i 1 R 0 R
237 236 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
238 33 233 234 237 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
239 9 psrbasfsupp h 0 I | finSupp 0 h = h 0 I | h -1 Fin
240 2 239 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
241 232 238 240 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
242 241 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
243 16 217 242 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 |-
244 8 243 eqtrid φ E N = M V