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