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