Metamath Proof Explorer


Theorem psrmonprod

Description: Finite product of bags of variables in a power series. Here the function G maps a bag of variables to the corresponding monomial. (Contributed by Thierry Arnoux, 16-Mar-2026)

Ref Expression
Hypotheses psrmonprod.s S = I mPwSer R
psrmonprod.b B = Base S
psrmonprod.r φ R CRing
psrmonprod.i φ I V
psrmonprod.d D = h 0 I | finSupp 0 h
psrmonprod.a φ A Fin
psrmonprod.f φ F : A D
psrmonprod.1 1 ˙ = 1 R
psrmonprod.0 0 ˙ = 0 R
psrmonprod.m M = mulGrp S
psrmonprod.g G = y D z D if z = y 1 ˙ 0 ˙
Assertion psrmonprod φ M G F = G i I fld x A F x i

Proof

Step Hyp Ref Expression
1 psrmonprod.s S = I mPwSer R
2 psrmonprod.b B = Base S
3 psrmonprod.r φ R CRing
4 psrmonprod.i φ I V
5 psrmonprod.d D = h 0 I | finSupp 0 h
6 psrmonprod.a φ A Fin
7 psrmonprod.f φ F : A D
8 psrmonprod.1 1 ˙ = 1 R
9 psrmonprod.0 0 ˙ = 0 R
10 psrmonprod.m M = mulGrp S
11 psrmonprod.g G = y D z D if z = y 1 ˙ 0 ˙
12 7 ffvelcdmda φ k A F k D
13 7 feqmptd φ F = k A F k
14 fvexd φ y D Base R V
15 ovex 0 I V
16 5 15 rabex2 D V
17 16 a1i φ y D D V
18 eqid Base R = Base R
19 3 crngringd φ R Ring
20 18 8 19 ringidcld φ 1 ˙ Base R
21 20 ad2antrr φ y D z D 1 ˙ Base R
22 3 crnggrpd φ R Grp
23 18 9 grpidcl R Grp 0 ˙ Base R
24 22 23 syl φ 0 ˙ Base R
25 24 ad2antrr φ y D z D 0 ˙ Base R
26 21 25 ifcld φ y D z D if z = y 1 ˙ 0 ˙ Base R
27 26 fmpttd φ y D z D if z = y 1 ˙ 0 ˙ : D Base R
28 14 17 27 elmapdd φ y D z D if z = y 1 ˙ 0 ˙ Base R D
29 5 psrbasfsupp D = h 0 I | h -1 Fin
30 1 18 29 2 4 psrbas φ B = Base R D
31 30 adantr φ y D B = Base R D
32 28 31 eleqtrrd φ y D z D if z = y 1 ˙ 0 ˙ B
33 32 11 fmptd φ G : D B
34 33 feqmptd φ G = y D G y
35 fveq2 y = F k G y = G F k
36 12 13 34 35 fmptco φ G F = k A G F k
37 36 oveq2d φ M G F = M k A G F k
38 mpteq1 a = k a G F k = k G F k
39 38 oveq2d a = M k a G F k = M k G F k
40 mpteq1 a = x a F x i = x F x i
41 40 oveq2d a = fld x a F x i = fld x F x i
42 41 mpteq2dv a = i I fld x a F x i = i I fld x F x i
43 42 fveq2d a = G i I fld x a F x i = G i I fld x F x i
44 39 43 eqeq12d a = M k a G F k = G i I fld x a F x i M k G F k = G i I fld x F x i
45 mpteq1 a = b k a G F k = k b G F k
46 45 oveq2d a = b M k a G F k = M k b G F k
47 mpteq1 a = b x a F x i = x b F x i
48 47 oveq2d a = b fld x a F x i = fld x b F x i
49 48 mpteq2dv a = b i I fld x a F x i = i I fld x b F x i
50 49 fveq2d a = b G i I fld x a F x i = G i I fld x b F x i
51 46 50 eqeq12d a = b M k a G F k = G i I fld x a F x i M k b G F k = G i I fld x b F x i
52 mpteq1 a = b f k a G F k = k b f G F k
53 52 oveq2d a = b f M k a G F k = M k b f G F k
54 mpteq1 a = b f x a F x i = x b f F x i
55 54 oveq2d a = b f fld x a F x i = fld x b f F x i
56 55 mpteq2dv a = b f i I fld x a F x i = i I fld x b f F x i
57 56 fveq2d a = b f G i I fld x a F x i = G i I fld x b f F x i
58 53 57 eqeq12d a = b f M k a G F k = G i I fld x a F x i M k b f G F k = G i I fld x b f F x i
59 mpteq1 a = A k a G F k = k A G F k
60 59 oveq2d a = A M k a G F k = M k A G F k
61 mpteq1 a = A x a F x i = x A F x i
62 61 oveq2d a = A fld x a F x i = fld x A F x i
63 62 mpteq2dv a = A i I fld x a F x i = i I fld x A F x i
64 63 fveq2d a = A G i I fld x a F x i = G i I fld x A F x i
65 60 64 eqeq12d a = A M k a G F k = G i I fld x a F x i M k A G F k = G i I fld x A F x i
66 eqid 1 S = 1 S
67 10 66 ringidval 1 S = 0 M
68 67 gsum0 M = 1 S
69 mpt0 k G F k =
70 69 oveq2i M k G F k = M
71 70 a1i φ M k G F k = M
72 mpt0 x F x i =
73 72 oveq2i fld x F x i = fld
74 cnfld0 0 = 0 fld
75 74 gsum0 fld = 0
76 73 75 eqtri fld x F x i = 0
77 76 mpteq2i i I fld x F x i = i I 0
78 fconstmpt I × 0 = i I 0
79 77 78 eqtr4i i I fld x F x i = I × 0
80 79 a1i φ i I fld x F x i = I × 0
81 80 eqeq2d φ y = i I fld x F x i y = I × 0
82 81 biimpa φ y = i I fld x F x i y = I × 0
83 82 eqeq2d φ y = i I fld x F x i z = y z = I × 0
84 83 ifbid φ y = i I fld x F x i if z = y 1 ˙ 0 ˙ = if z = I × 0 1 ˙ 0 ˙
85 84 mpteq2dv φ y = i I fld x F x i z D if z = y 1 ˙ 0 ˙ = z D if z = I × 0 1 ˙ 0 ˙
86 1 4 19 29 9 8 66 psr1 φ 1 S = z D if z = I × 0 1 ˙ 0 ˙
87 86 adantr φ y = i I fld x F x i 1 S = z D if z = I × 0 1 ˙ 0 ˙
88 85 87 eqtr4d φ y = i I fld x F x i z D if z = y 1 ˙ 0 ˙ = 1 S
89 breq1 h = i I fld x F x i finSupp 0 h finSupp 0 i I fld x F x i
90 nn0ex 0 V
91 90 a1i φ 0 V
92 0nn0 0 0
93 92 fconst6 I × 0 : I 0
94 93 a1i φ I × 0 : I 0
95 91 4 94 elmapdd φ I × 0 0 I
96 79 95 eqeltrid φ i I fld x F x i 0 I
97 92 a1i φ 0 0
98 4 97 fczfsuppd φ finSupp 0 I × 0
99 79 98 eqbrtrid φ finSupp 0 i I fld x F x i
100 89 96 99 elrabd φ i I fld x F x i h 0 I | finSupp 0 h
101 100 5 eleqtrrdi φ i I fld x F x i D
102 fvexd φ 1 S V
103 11 88 101 102 fvmptd2 φ G i I fld x F x i = 1 S
104 68 71 103 3eqtr4a φ M k G F k = G i I fld x F x i
105 2fveq3 k = l G F k = G F l
106 105 cbvmptv k b f G F k = l b f G F l
107 106 oveq2i M k b f G F k = M l b f G F l
108 10 2 mgpbas B = Base M
109 eqid S = S
110 10 109 mgpplusg S = + M
111 1 4 3 psrcrng φ S CRing
112 10 crngmgp S CRing M CMnd
113 111 112 syl φ M CMnd
114 113 ad3antrrr φ b A f A b M k b G F k = G i I fld x b F x i M CMnd
115 6 adantr φ b A A Fin
116 simpr φ b A b A
117 115 116 ssfid φ b A b Fin
118 117 ad2antrr φ b A f A b M k b G F k = G i I fld x b F x i b Fin
119 33 ad4antr φ b A f A b M k b G F k = G i I fld x b F x i l b G : D B
120 7 ad4antr φ b A f A b M k b G F k = G i I fld x b F x i l b F : A D
121 simpllr φ b A f A b M k b G F k = G i I fld x b F x i b A
122 121 sselda φ b A f A b M k b G F k = G i I fld x b F x i l b l A
123 120 122 ffvelcdmd φ b A f A b M k b G F k = G i I fld x b F x i l b F l D
124 119 123 ffvelcdmd φ b A f A b M k b G F k = G i I fld x b F x i l b G F l B
125 simplr φ b A f A b M k b G F k = G i I fld x b F x i f A b
126 125 eldifbd φ b A f A b M k b G F k = G i I fld x b F x i ¬ f b
127 33 ad3antrrr φ b A f A b M k b G F k = G i I fld x b F x i G : D B
128 7 ad3antrrr φ b A f A b M k b G F k = G i I fld x b F x i F : A D
129 125 eldifad φ b A f A b M k b G F k = G i I fld x b F x i f A
130 128 129 ffvelcdmd φ b A f A b M k b G F k = G i I fld x b F x i F f D
131 127 130 ffvelcdmd φ b A f A b M k b G F k = G i I fld x b F x i G F f B
132 2fveq3 l = f G F l = G F f
133 108 110 114 118 124 125 126 131 132 gsumunsn φ b A f A b M k b G F k = G i I fld x b F x i M l b f G F l = M l b G F l S G F f
134 105 cbvmptv k b G F k = l b G F l
135 134 oveq2i M k b G F k = M l b G F l
136 id M k b G F k = G i I fld x b F x i M k b G F k = G i I fld x b F x i
137 135 136 eqtr3id M k b G F k = G i I fld x b F x i M l b G F l = G i I fld x b F x i
138 137 oveq1d M k b G F k = G i I fld x b F x i M l b G F l S G F f = G i I fld x b F x i S G F f
139 138 adantl φ b A f A b M k b G F k = G i I fld x b F x i M l b G F l S G F f = G i I fld x b F x i S G F f
140 4 ad2antrr φ b A f A b I V
141 19 ad2antrr φ b A f A b R Ring
142 breq1 h = i I fld x b F x i finSupp 0 h finSupp 0 i I fld x b F x i
143 90 a1i φ b A f A b 0 V
144 cnfldfld fld Field
145 id fld Field fld Field
146 145 fldcrngd fld Field fld CRing
147 crngring fld CRing fld Ring
148 ringcmn fld Ring fld CMnd
149 146 147 148 3syl fld Field fld CMnd
150 144 149 ax-mp fld CMnd
151 150 a1i φ b A f A b i I fld CMnd
152 117 ad2antrr φ b A f A b i I b Fin
153 nn0subm 0 SubMnd fld
154 153 a1i φ b A f A b i I 0 SubMnd fld
155 4 ad4antr φ b A f A b i I x b I V
156 90 a1i φ b A f A b i I x b 0 V
157 5 ssrab3 D 0 I
158 7 ad2antrr φ b A f A b F : A D
159 158 ad2antrr φ b A f A b i I x b F : A D
160 simpllr φ b A f A b i I b A
161 160 sselda φ b A f A b i I x b x A
162 159 161 ffvelcdmd φ b A f A b i I x b F x D
163 157 162 sselid φ b A f A b i I x b F x 0 I
164 155 156 163 elmaprd φ b A f A b i I x b F x : I 0
165 simplr φ b A f A b i I x b i I
166 164 165 ffvelcdmd φ b A f A b i I x b F x i 0
167 166 fmpttd φ b A f A b i I x b F x i : b 0
168 92 a1i φ b A f A b i I 0 0
169 167 152 168 fdmfifsupp φ b A f A b i I finSupp 0 x b F x i
170 74 151 152 154 167 169 gsumsubmcl φ b A f A b i I fld x b F x i 0
171 170 fmpttd φ b A f A b i I fld x b F x i : I 0
172 143 140 171 elmapdd φ b A f A b i I fld x b F x i 0 I
173 92 a1i φ b A f A b 0 0
174 171 ffund φ b A f A b Fun i I fld x b F x i
175 117 adantr φ b A f A b b Fin
176 140 adantr φ b A f A b x b I V
177 90 a1i φ b A f A b x b 0 V
178 158 adantr φ b A f A b x b F : A D
179 simplr φ b A f A b b A
180 179 sselda φ b A f A b x b x A
181 178 180 ffvelcdmd φ b A f A b x b F x D
182 157 181 sselid φ b A f A b x b F x 0 I
183 176 177 182 elmaprd φ b A f A b x b F x : I 0
184 183 feqmptd φ b A f A b x b F x = i I F x i
185 184 oveq1d φ b A f A b x b F x supp 0 = i I F x i supp 0
186 breq1 h = F x finSupp 0 h finSupp 0 F x
187 181 5 eleqtrdi φ b A f A b x b F x h 0 I | finSupp 0 h
188 186 187 elrabrd φ b A f A b x b finSupp 0 F x
189 188 fsuppimpd φ b A f A b x b F x supp 0 Fin
190 185 189 eqeltrrd φ b A f A b x b i I F x i supp 0 Fin
191 190 ralrimiva φ b A f A b x b i I F x i supp 0 Fin
192 iunfi b Fin x b i I F x i supp 0 Fin x b supp 0 i I F x i Fin
193 175 191 192 syl2anc φ b A f A b x b supp 0 i I F x i Fin
194 cmnmnd fld CMnd fld Mnd
195 150 194 ax-mp fld Mnd
196 195 a1i φ b A f A b fld Mnd
197 115 adantr φ b A f A b A Fin
198 197 179 ssexd φ b A f A b b V
199 74 196 198 140 166 suppgsumssiun φ b A f A b i I fld x b F x i supp 0 x b supp 0 i I F x i
200 193 199 ssfid φ b A f A b i I fld x b F x i supp 0 Fin
201 172 173 174 200 isfsuppd φ b A f A b finSupp 0 i I fld x b F x i
202 142 172 201 elrabd φ b A f A b i I fld x b F x i h 0 I | finSupp 0 h
203 202 5 eleqtrrdi φ b A f A b i I fld x b F x i D
204 difssd φ b A A b A
205 204 sselda φ b A f A b f A
206 158 205 ffvelcdmd φ b A f A b F f D
207 1 2 9 8 5 140 141 203 109 206 11 psrmonmul2 φ b A f A b G i I fld x b F x i S G F f = G i I fld x b F x i + f F f
208 171 ffnd φ b A f A b i I fld x b F x i Fn I
209 157 206 sselid φ b A f A b F f 0 I
210 140 143 209 elmaprd φ b A f A b F f : I 0
211 210 ffnd φ b A f A b F f Fn I
212 nfv i φ b A f A b
213 ovexd φ b A f A b i I fld x b f F x i V
214 eqid i I fld x b f F x i = i I fld x b f F x i
215 212 213 214 fnmptd φ b A f A b i I fld x b f F x i Fn I
216 eqid i I fld x b F x i = i I fld x b F x i
217 fveq2 i = j F x i = F x j
218 217 mpteq2dv i = j x b F x i = x b F x j
219 218 oveq2d i = j fld x b F x i = fld x b F x j
220 simpr φ b A f A b j I j I
221 ovexd φ b A f A b j I fld x b F x j V
222 216 219 220 221 fvmptd3 φ b A f A b j I i I fld x b F x i j = fld x b F x j
223 eqidd φ b A f A b j I F f j = F f j
224 217 mpteq2dv i = j x b f F x i = x b f F x j
225 224 oveq2d i = j fld x b f F x i = fld x b f F x j
226 ovexd φ b A f A b j I fld x b f F x j V
227 214 225 220 226 fvmptd3 φ b A f A b j I i I fld x b f F x i j = fld x b f F x j
228 cnfldbas = Base fld
229 cnfldadd + = + fld
230 150 a1i φ b A f A b j I fld CMnd
231 175 adantr φ b A f A b j I b Fin
232 183 adantlr φ b A f A b j I x b F x : I 0
233 nn0sscn 0
234 233 a1i φ b A f A b j I x b 0
235 232 234 fssd φ b A f A b j I x b F x : I
236 simplr φ b A f A b j I x b j I
237 235 236 ffvelcdmd φ b A f A b j I x b F x j
238 simplr φ b A f A b j I f A b
239 238 eldifbd φ b A f A b j I ¬ f b
240 210 adantr φ b A f A b j I F f : I 0
241 233 a1i φ b A f A b j I 0
242 240 241 fssd φ b A f A b j I F f : I
243 242 220 ffvelcdmd φ b A f A b j I F f j
244 fveq2 x = f F x = F f
245 244 fveq1d x = f F x j = F f j
246 228 229 230 231 237 238 239 243 245 gsumunsn φ b A f A b j I fld x b f F x j = fld x b F x j + F f j
247 227 246 eqtr2d φ b A f A b j I fld x b F x j + F f j = i I fld x b f F x i j
248 140 208 211 215 222 223 247 offveq φ b A f A b i I fld x b F x i + f F f = i I fld x b f F x i
249 248 fveq2d φ b A f A b G i I fld x b F x i + f F f = G i I fld x b f F x i
250 207 249 eqtrd φ b A f A b G i I fld x b F x i S G F f = G i I fld x b f F x i
251 250 adantr φ b A f A b M k b G F k = G i I fld x b F x i G i I fld x b F x i S G F f = G i I fld x b f F x i
252 133 139 251 3eqtrd φ b A f A b M k b G F k = G i I fld x b F x i M l b f G F l = G i I fld x b f F x i
253 107 252 eqtrid φ b A f A b M k b G F k = G i I fld x b F x i M k b f G F k = G i I fld x b f F x i
254 253 ex φ b A f A b M k b G F k = G i I fld x b F x i M k b f G F k = G i I fld x b f F x i
255 254 anasss φ b A f A b M k b G F k = G i I fld x b F x i M k b f G F k = G i I fld x b f F x i
256 44 51 58 65 104 255 6 findcard2d φ M k A G F k = G i I fld x A F x i
257 37 256 eqtrd φ M G F = G i I fld x A F x i