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