Metamath Proof Explorer


Theorem tsmssubm

Description: Evaluate an infinite group sum in a submonoid. (Contributed by Mario Carneiro, 18-Sep-2015)

Ref Expression
Hypotheses tsmssubm.a φ A V
tsmssubm.1 φ G CMnd
tsmssubm.2 φ G TopSp
tsmssubm.s φ S SubMnd G
tsmssubm.f φ F : A S
tsmssubm.h H = G 𝑠 S
Assertion tsmssubm φ H tsums F = G tsums F S

Proof

Step Hyp Ref Expression
1 tsmssubm.a φ A V
2 tsmssubm.1 φ G CMnd
3 tsmssubm.2 φ G TopSp
4 tsmssubm.s φ S SubMnd G
5 tsmssubm.f φ F : A S
6 tsmssubm.h H = G 𝑠 S
7 6 submbas S SubMnd G S = Base H
8 4 7 syl φ S = Base H
9 8 eleq2d φ x S x Base H
10 9 anbi1d φ x S v TopOpen H x v z 𝒫 A Fin y 𝒫 A Fin z y H F y v x Base H v TopOpen H x v z 𝒫 A Fin y 𝒫 A Fin z y H F y v
11 elin x G tsums F S x G tsums F x S
12 11 biancomi x G tsums F S x S x G tsums F
13 eqid Base G = Base G
14 13 submss S SubMnd G S Base G
15 4 14 syl φ S Base G
16 15 sselda φ x S x Base G
17 eqid TopOpen G = TopOpen G
18 eqid 𝒫 A Fin = 𝒫 A Fin
19 5 15 fssd φ F : A Base G
20 13 17 18 2 3 1 19 eltsms φ x G tsums F x Base G u TopOpen G x u z 𝒫 A Fin y 𝒫 A Fin z y G F y u
21 20 baibd φ x Base G x G tsums F u TopOpen G x u z 𝒫 A Fin y 𝒫 A Fin z y G F y u
22 16 21 syldan φ x S x G tsums F u TopOpen G x u z 𝒫 A Fin y 𝒫 A Fin z y G F y u
23 vex u V
24 23 inex1 u S V
25 24 a1i φ x S u TopOpen G u S V
26 6 17 resstopn TopOpen G 𝑡 S = TopOpen H
27 26 eleq2i v TopOpen G 𝑡 S v TopOpen H
28 fvex TopOpen G V
29 elrest TopOpen G V S SubMnd G v TopOpen G 𝑡 S u TopOpen G v = u S
30 28 4 29 sylancr φ v TopOpen G 𝑡 S u TopOpen G v = u S
31 30 adantr φ x S v TopOpen G 𝑡 S u TopOpen G v = u S
32 27 31 bitr3id φ x S v TopOpen H u TopOpen G v = u S
33 eleq2 v = u S x v x u S
34 elin x u S x u x S
35 34 rbaib x S x u S x u
36 35 adantl φ x S x u S x u
37 33 36 sylan9bbr φ x S v = u S x v x u
38 eleq2 v = u S H F y v H F y u S
39 eqid Base H = Base H
40 eqid 0 H = 0 H
41 6 submmnd S SubMnd G H Mnd
42 4 41 syl φ H Mnd
43 6 subcmn G CMnd H Mnd H CMnd
44 2 42 43 syl2anc φ H CMnd
45 44 ad2antrr φ x S y 𝒫 A Fin H CMnd
46 elinel2 y 𝒫 A Fin y Fin
47 46 adantl φ x S y 𝒫 A Fin y Fin
48 5 ad2antrr φ x S y 𝒫 A Fin F : A S
49 elfpw y 𝒫 A Fin y A y Fin
50 49 simplbi y 𝒫 A Fin y A
51 50 adantl φ x S y 𝒫 A Fin y A
52 48 51 fssresd φ x S y 𝒫 A Fin F y : y S
53 8 ad2antrr φ x S y 𝒫 A Fin S = Base H
54 53 feq3d φ x S y 𝒫 A Fin F y : y S F y : y Base H
55 52 54 mpbid φ x S y 𝒫 A Fin F y : y Base H
56 fvex 0 H V
57 56 a1i φ x S y 𝒫 A Fin 0 H V
58 52 47 57 fdmfifsupp φ x S y 𝒫 A Fin finSupp 0 H F y
59 39 40 45 47 55 58 gsumcl φ x S y 𝒫 A Fin H F y Base H
60 59 53 eleqtrrd φ x S y 𝒫 A Fin H F y S
61 elin H F y u S H F y u H F y S
62 61 rbaib H F y S H F y u S H F y u
63 60 62 syl φ x S y 𝒫 A Fin H F y u S H F y u
64 4 ad2antrr φ x S y 𝒫 A Fin S SubMnd G
65 47 64 52 6 gsumsubm φ x S y 𝒫 A Fin G F y = H F y
66 65 eleq1d φ x S y 𝒫 A Fin G F y u H F y u
67 63 66 bitr4d φ x S y 𝒫 A Fin H F y u S G F y u
68 38 67 sylan9bbr φ x S y 𝒫 A Fin v = u S H F y v G F y u
69 68 an32s φ x S v = u S y 𝒫 A Fin H F y v G F y u
70 69 imbi2d φ x S v = u S y 𝒫 A Fin z y H F y v z y G F y u
71 70 ralbidva φ x S v = u S y 𝒫 A Fin z y H F y v y 𝒫 A Fin z y G F y u
72 71 rexbidv φ x S v = u S z 𝒫 A Fin y 𝒫 A Fin z y H F y v z 𝒫 A Fin y 𝒫 A Fin z y G F y u
73 37 72 imbi12d φ x S v = u S x v z 𝒫 A Fin y 𝒫 A Fin z y H F y v x u z 𝒫 A Fin y 𝒫 A Fin z y G F y u
74 25 32 73 ralxfr2d φ x S v TopOpen H x v z 𝒫 A Fin y 𝒫 A Fin z y H F y v u TopOpen G x u z 𝒫 A Fin y 𝒫 A Fin z y G F y u
75 22 74 bitr4d φ x S x G tsums F v TopOpen H x v z 𝒫 A Fin y 𝒫 A Fin z y H F y v
76 75 pm5.32da φ x S x G tsums F x S v TopOpen H x v z 𝒫 A Fin y 𝒫 A Fin z y H F y v
77 12 76 syl5bb φ x G tsums F S x S v TopOpen H x v z 𝒫 A Fin y 𝒫 A Fin z y H F y v
78 eqid TopOpen H = TopOpen H
79 resstps G TopSp S SubMnd G G 𝑠 S TopSp
80 3 4 79 syl2anc φ G 𝑠 S TopSp
81 6 80 eqeltrid φ H TopSp
82 8 feq3d φ F : A S F : A Base H
83 5 82 mpbid φ F : A Base H
84 39 78 18 44 81 1 83 eltsms φ x H tsums F x Base H v TopOpen H x v z 𝒫 A Fin y 𝒫 A Fin z y H F y v
85 10 77 84 3bitr4rd φ x H tsums F x G tsums F S
86 85 eqrdv φ H tsums F = G tsums F S