Metamath Proof Explorer


Theorem subgntr

Description: A subgroup of a topological group with nonempty interior is open. Alternatively, dual to clssubg , the interior of a subgroup is either a subgroup, or empty. (Contributed by Mario Carneiro, 19-Sep-2015)

Ref Expression
Hypothesis subgntr.h ⊢ J = TopOpen ⁡ G
Assertion subgntr ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S → S ∈ J

Proof

Step Hyp Ref Expression
1 subgntr.h ⊢ J = TopOpen ⁡ G
2 df-ima ⊢ y ∈ Base G ⟼ x - G A + G y int ⁡ J ⁡ S = ran ⁡ y ∈ Base G ⟼ x - G A + G y ↾ int ⁡ J ⁡ S
3 eqid ⊢ Base G = Base G
4 1 3 tgptopon ⊢ G ∈ TopGrp → J ∈ TopOn ⁡ Base G
5 4 3ad2ant1 ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S → J ∈ TopOn ⁡ Base G
6 5 adantr ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S ∧ x ∈ S → J ∈ TopOn ⁡ Base G
7 topontop ⊢ J ∈ TopOn ⁡ Base G → J ∈ Top
8 5 7 syl ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S → J ∈ Top
9 8 adantr ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S ∧ x ∈ S → J ∈ Top
10 simpl2 ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S ∧ x ∈ S → S ∈ SubGrp ⁡ G
11 3 subgss ⊢ S ∈ SubGrp ⁡ G → S ⊆ Base G
12 10 11 syl ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S ∧ x ∈ S → S ⊆ Base G
13 toponuni ⊢ J ∈ TopOn ⁡ Base G → Base G = ⋃ J
14 6 13 syl ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S ∧ x ∈ S → Base G = ⋃ J
15 12 14 sseqtrd ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S ∧ x ∈ S → S ⊆ ⋃ J
16 eqid ⊢ ⋃ J = ⋃ J
17 16 ntropn ⊢ J ∈ Top ∧ S ⊆ ⋃ J → int ⁡ J ⁡ S ∈ J
18 9 15 17 syl2anc ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S ∧ x ∈ S → int ⁡ J ⁡ S ∈ J
19 toponss ⊢ J ∈ TopOn ⁡ Base G ∧ int ⁡ J ⁡ S ∈ J → int ⁡ J ⁡ S ⊆ Base G
20 6 18 19 syl2anc ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S ∧ x ∈ S → int ⁡ J ⁡ S ⊆ Base G
21 20 resmptd ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S ∧ x ∈ S → y ∈ Base G ⟼ x - G A + G y ↾ int ⁡ J ⁡ S = y ∈ int ⁡ J ⁡ S ⟼ x - G A + G y
22 21 rneqd ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S ∧ x ∈ S → ran ⁡ y ∈ Base G ⟼ x - G A + G y ↾ int ⁡ J ⁡ S = ran ⁡ y ∈ int ⁡ J ⁡ S ⟼ x - G A + G y
23 2 22 eqtrid ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S ∧ x ∈ S → y ∈ Base G ⟼ x - G A + G y int ⁡ J ⁡ S = ran ⁡ y ∈ int ⁡ J ⁡ S ⟼ x - G A + G y
24 simpl1 ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S ∧ x ∈ S → G ∈ TopGrp
25 simpr ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S ∧ x ∈ S → x ∈ S
26 16 ntrss2 ⊢ J ∈ Top ∧ S ⊆ ⋃ J → int ⁡ J ⁡ S ⊆ S
27 9 15 26 syl2anc ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S ∧ x ∈ S → int ⁡ J ⁡ S ⊆ S
28 simpl3 ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S ∧ x ∈ S → A ∈ int ⁡ J ⁡ S
29 27 28 sseldd ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S ∧ x ∈ S → A ∈ S
30 eqid ⊢ - G = - G
31 30 subgsubcl ⊢ S ∈ SubGrp ⁡ G ∧ x ∈ S ∧ A ∈ S → x - G A ∈ S
32 10 25 29 31 syl3anc ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S ∧ x ∈ S → x - G A ∈ S
33 12 32 sseldd ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S ∧ x ∈ S → x - G A ∈ Base G
34 eqid ⊢ y ∈ Base G ⟼ x - G A + G y = y ∈ Base G ⟼ x - G A + G y
35 eqid ⊢ + G = + G
36 34 3 35 1 tgplacthmeo ⊢ G ∈ TopGrp ∧ x - G A ∈ Base G → y ∈ Base G ⟼ x - G A + G y ∈ J Homeo J
37 24 33 36 syl2anc ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S ∧ x ∈ S → y ∈ Base G ⟼ x - G A + G y ∈ J Homeo J
38 hmeoima ⊢ y ∈ Base G ⟼ x - G A + G y ∈ J Homeo J ∧ int ⁡ J ⁡ S ∈ J → y ∈ Base G ⟼ x - G A + G y int ⁡ J ⁡ S ∈ J
39 37 18 38 syl2anc ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S ∧ x ∈ S → y ∈ Base G ⟼ x - G A + G y int ⁡ J ⁡ S ∈ J
40 23 39 eqeltrrd ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S ∧ x ∈ S → ran ⁡ y ∈ int ⁡ J ⁡ S ⟼ x - G A + G y ∈ J
41 tgpgrp ⊢ G ∈ TopGrp → G ∈ Grp
42 24 41 syl ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S ∧ x ∈ S → G ∈ Grp
43 11 3ad2ant2 ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S → S ⊆ Base G
44 43 sselda ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S ∧ x ∈ S → x ∈ Base G
45 20 28 sseldd ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S ∧ x ∈ S → A ∈ Base G
46 3 35 30 grpnpcan ⊢ G ∈ Grp ∧ x ∈ Base G ∧ A ∈ Base G → x - G A + G A = x
47 42 44 45 46 syl3anc ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S ∧ x ∈ S → x - G A + G A = x
48 ovex ⊢ x - G A + G A ∈ V
49 eqid ⊢ y ∈ int ⁡ J ⁡ S ⟼ x - G A + G y = y ∈ int ⁡ J ⁡ S ⟼ x - G A + G y
50 oveq2 ⊢ y = A → x - G A + G y = x - G A + G A
51 49 50 elrnmpt1s ⊢ A ∈ int ⁡ J ⁡ S ∧ x - G A + G A ∈ V → x - G A + G A ∈ ran ⁡ y ∈ int ⁡ J ⁡ S ⟼ x - G A + G y
52 28 48 51 sylancl ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S ∧ x ∈ S → x - G A + G A ∈ ran ⁡ y ∈ int ⁡ J ⁡ S ⟼ x - G A + G y
53 47 52 eqeltrrd ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S ∧ x ∈ S → x ∈ ran ⁡ y ∈ int ⁡ J ⁡ S ⟼ x - G A + G y
54 10 adantr ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S ∧ x ∈ S ∧ y ∈ int ⁡ J ⁡ S → S ∈ SubGrp ⁡ G
55 32 adantr ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S ∧ x ∈ S ∧ y ∈ int ⁡ J ⁡ S → x - G A ∈ S
56 27 sselda ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S ∧ x ∈ S ∧ y ∈ int ⁡ J ⁡ S → y ∈ S
57 35 subgcl ⊢ S ∈ SubGrp ⁡ G ∧ x - G A ∈ S ∧ y ∈ S → x - G A + G y ∈ S
58 54 55 56 57 syl3anc ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S ∧ x ∈ S ∧ y ∈ int ⁡ J ⁡ S → x - G A + G y ∈ S
59 58 fmpttd ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S ∧ x ∈ S → y ∈ int ⁡ J ⁡ S ⟼ x - G A + G y : int ⁡ J ⁡ S ⟶ S
60 59 frnd ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S ∧ x ∈ S → ran ⁡ y ∈ int ⁡ J ⁡ S ⟼ x - G A + G y ⊆ S
61 eleq2 ⊢ u = ran ⁡ y ∈ int ⁡ J ⁡ S ⟼ x - G A + G y → x ∈ u ↔ x ∈ ran ⁡ y ∈ int ⁡ J ⁡ S ⟼ x - G A + G y
62 sseq1 ⊢ u = ran ⁡ y ∈ int ⁡ J ⁡ S ⟼ x - G A + G y → u ⊆ S ↔ ran ⁡ y ∈ int ⁡ J ⁡ S ⟼ x - G A + G y ⊆ S
63 61 62 anbi12d ⊢ u = ran ⁡ y ∈ int ⁡ J ⁡ S ⟼ x - G A + G y → x ∈ u ∧ u ⊆ S ↔ x ∈ ran ⁡ y ∈ int ⁡ J ⁡ S ⟼ x - G A + G y ∧ ran ⁡ y ∈ int ⁡ J ⁡ S ⟼ x - G A + G y ⊆ S
64 63 rspcev ⊢ ran ⁡ y ∈ int ⁡ J ⁡ S ⟼ x - G A + G y ∈ J ∧ x ∈ ran ⁡ y ∈ int ⁡ J ⁡ S ⟼ x - G A + G y ∧ ran ⁡ y ∈ int ⁡ J ⁡ S ⟼ x - G A + G y ⊆ S → ∃ u ∈ J x ∈ u ∧ u ⊆ S
65 40 53 60 64 syl12anc ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S ∧ x ∈ S → ∃ u ∈ J x ∈ u ∧ u ⊆ S
66 65 ralrimiva ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S → ∀ x ∈ S ∃ u ∈ J x ∈ u ∧ u ⊆ S
67 eltop2 ⊢ J ∈ Top → S ∈ J ↔ ∀ x ∈ S ∃ u ∈ J x ∈ u ∧ u ⊆ S
68 8 67 syl ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S → S ∈ J ↔ ∀ x ∈ S ∃ u ∈ J x ∈ u ∧ u ⊆ S
69 66 68 mpbird ⊢ G ∈ TopGrp ∧ S ∈ SubGrp ⁡ G ∧ A ∈ int ⁡ J ⁡ S → S ∈ J