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 bitrid ⊢ φ → 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