Metamath Proof Explorer


Theorem pwsgprod

Description: Finite products in a power structure are taken componentwise. Compare pwsgsum . (Contributed by SN, 30-Jul-2024)

Ref Expression
Hypotheses pwsgprod.y Y = R 𝑠 I
pwsgprod.b B = Base R
pwsgprod.o 1 ˙ = 1 Y
pwsgprod.m M = mulGrp Y
pwsgprod.t T = mulGrp R
pwsgprod.i φ I V
pwsgprod.j φ J W
pwsgprod.r φ R CRing
pwsgprod.f φ x I y J U B
pwsgprod.w φ finSupp 1 ˙ y J x I U
Assertion pwsgprod φ M y J x I U = x I T y J U

Proof

Step Hyp Ref Expression
1 pwsgprod.y Y = R 𝑠 I
2 pwsgprod.b B = Base R
3 pwsgprod.o 1 ˙ = 1 Y
4 pwsgprod.m M = mulGrp Y
5 pwsgprod.t T = mulGrp R
6 pwsgprod.i φ I V
7 pwsgprod.j φ J W
8 pwsgprod.r φ R CRing
9 pwsgprod.f φ x I y J U B
10 pwsgprod.w φ finSupp 1 ˙ y J x I U
11 eqid Base Y = Base Y
12 4 11 mgpbas Base Y = Base M
13 4 3 ringidval 1 ˙ = 0 M
14 1 pwscrng R CRing I V Y CRing
15 8 6 14 syl2anc φ Y CRing
16 4 crngmgp Y CRing M CMnd
17 15 16 syl φ M CMnd
18 8 adantr φ y J R CRing
19 6 adantr φ y J I V
20 9 anassrs φ x I y J U B
21 20 an32s φ y J x I U B
22 21 fmpttd φ y J x I U : I B
23 1 2 11 18 19 22 pwselbasr φ y J x I U Base Y
24 23 fmpttd φ y J x I U : J Base Y
25 12 13 17 7 24 10 gsumcl φ M y J x I U Base Y
26 1 2 11 8 6 25 pwselbas φ M y J x I U : I B
27 26 ffnd φ M y J x I U Fn I
28 nfcv _ x M
29 nfcv _ x Σ𝑔
30 nfcv _ x J
31 nfmpt1 _ x x I U
32 30 31 nfmpt _ x y J x I U
33 28 29 32 nfov _ x M y J x I U
34 33 dffn5f M y J x I U Fn I M y J x I U = x I M y J x I U x
35 27 34 sylib φ M y J x I U = x I M y J x I U x
36 simpr φ x I x I
37 eqid x I U = x I U
38 37 fvmpt2 x I U B x I U x = U
39 36 20 38 syl2an2r φ x I y J x I U x = U
40 39 mpteq2dva φ x I y J x I U x = y J U
41 40 oveq2d φ x I T y J x I U x = T y J U
42 17 adantr φ x I M CMnd
43 5 crngmgp R CRing T CMnd
44 8 43 syl φ T CMnd
45 44 cmnmndd φ T Mnd
46 45 adantr φ x I T Mnd
47 7 adantr φ x I J W
48 8 crngringd φ R Ring
49 48 adantr φ x I R Ring
50 6 adantr φ x I I V
51 1 11 4 5 49 50 36 pwspjmhmmgpd φ x I a Base Y a x M MndHom T
52 23 adantlr φ x I y J x I U Base Y
53 10 adantr φ x I finSupp 1 ˙ y J x I U
54 fveq1 a = x I U a x = x I U x
55 fveq1 a = M y J x I U a x = M y J x I U x
56 12 13 42 46 47 51 52 53 54 55 gsummhm2 φ x I T y J x I U x = M y J x I U x
57 41 56 eqtr3d φ x I T y J U = M y J x I U x
58 57 mpteq2dva φ x I T y J U = x I M y J x I U x
59 35 58 eqtr4d φ M y J x I U = x I T y J U