Theorem tgpconncomp 24078

Description: The identity component, the connected component containing the identity element, is a closed (conncompcld 23399) normal subgroup. (Contributed by Mario Carneiro, 17-Sep-2015.)

Hypotheses

Ref	Expression
tgpconncomp.x	⊢ 𝑋 = (Base‘𝐺)
tgpconncomp.z	⊢ 0 = (0g‘𝐺)
tgpconncomp.j	⊢ 𝐽 = (TopOpen‘𝐺)
tgpconncomp.s	⊢ 𝑆 = ∪ {𝑥 ∈ 𝒫 𝑋 ∣ ( 0 ∈ 𝑥 ∧ (𝐽 ↾t 𝑥) ∈ Conn)}

Assertion

Ref	Expression
tgpconncomp	⊢ (𝐺 ∈ TopGrp → 𝑆 ∈ (NrmSGrp‘𝐺))

Distinct variable groups:   𝑥, 0   𝑥,𝐽   𝑥,𝐺   𝑥,𝑋

Allowed substitution hint:   𝑆(𝑥)

Proof of Theorem tgpconncomp

Dummy variables 𝑦 𝑧 𝑤 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		tgpconncomp.s	. . . . 5 ⊢ 𝑆 = ∪ {𝑥 ∈ 𝒫 𝑋 ∣ ( 0 ∈ 𝑥 ∧ (𝐽 ↾t 𝑥) ∈ Conn)}
2		ssrab2 4020	. . . . . 6 ⊢ {𝑥 ∈ 𝒫 𝑋 ∣ ( 0 ∈ 𝑥 ∧ (𝐽 ↾t 𝑥) ∈ Conn)} ⊆ 𝒫 𝑋
3		sspwuni 5042	. . . . . 6 ⊢ ({𝑥 ∈ 𝒫 𝑋 ∣ ( 0 ∈ 𝑥 ∧ (𝐽 ↾t 𝑥) ∈ Conn)} ⊆ 𝒫 𝑋 ↔ ∪ {𝑥 ∈ 𝒫 𝑋 ∣ ( 0 ∈ 𝑥 ∧ (𝐽 ↾t 𝑥) ∈ Conn)} ⊆ 𝑋)
4	2, 3	mpbi 230	. . . . 5 ⊢ ∪ {𝑥 ∈ 𝒫 𝑋 ∣ ( 0 ∈ 𝑥 ∧ (𝐽 ↾t 𝑥) ∈ Conn)} ⊆ 𝑋
5	1, 4	eqsstri 3968	. . . 4 ⊢ 𝑆 ⊆ 𝑋
6	5	a1i 11	. . 3 ⊢ (𝐺 ∈ TopGrp → 𝑆 ⊆ 𝑋)
7		tgpconncomp.j	. . . . . 6 ⊢ 𝐽 = (TopOpen‘𝐺)
8		tgpconncomp.x	. . . . . 6 ⊢ 𝑋 = (Base‘𝐺)
9	7, 8	tgptopon 24047	. . . . 5 ⊢ (𝐺 ∈ TopGrp → 𝐽 ∈ (TopOn‘𝑋))
10		tgpgrp 24043	. . . . . 6 ⊢ (𝐺 ∈ TopGrp → 𝐺 ∈ Grp)
11		tgpconncomp.z	. . . . . . 7 ⊢ 0 = (0g‘𝐺)
12	8, 11	grpidcl 18941	. . . . . 6 ⊢ (𝐺 ∈ Grp → 0 ∈ 𝑋)
13	10, 12	syl 17	. . . . 5 ⊢ (𝐺 ∈ TopGrp → 0 ∈ 𝑋)
14	1	conncompid 23396	. . . . 5 ⊢ ((𝐽 ∈ (TopOn‘𝑋) ∧ 0 ∈ 𝑋) → 0 ∈ 𝑆)
15	9, 13, 14	syl2anc 585	. . . 4 ⊢ (𝐺 ∈ TopGrp → 0 ∈ 𝑆)
16	15	ne0d 4282	. . 3 ⊢ (𝐺 ∈ TopGrp → 𝑆 ≠ ∅)
17		df-ima 5644	. . . . . . . 8 ⊢ ((𝑧 ∈ 𝑋 ↦ (𝑦(-g‘𝐺)𝑧)) “ 𝑆) = ran ((𝑧 ∈ 𝑋 ↦ (𝑦(-g‘𝐺)𝑧)) ↾ 𝑆)
18		resmpt 6002	. . . . . . . . . 10 ⊢ (𝑆 ⊆ 𝑋 → ((𝑧 ∈ 𝑋 ↦ (𝑦(-g‘𝐺)𝑧)) ↾ 𝑆) = (𝑧 ∈ 𝑆 ↦ (𝑦(-g‘𝐺)𝑧)))
19	5, 18	ax-mp 5	. . . . . . . . 9 ⊢ ((𝑧 ∈ 𝑋 ↦ (𝑦(-g‘𝐺)𝑧)) ↾ 𝑆) = (𝑧 ∈ 𝑆 ↦ (𝑦(-g‘𝐺)𝑧))
20	19	rneqi 5892	. . . . . . . 8 ⊢ ran ((𝑧 ∈ 𝑋 ↦ (𝑦(-g‘𝐺)𝑧)) ↾ 𝑆) = ran (𝑧 ∈ 𝑆 ↦ (𝑦(-g‘𝐺)𝑧))
21	17, 20	eqtri 2759	. . . . . . 7 ⊢ ((𝑧 ∈ 𝑋 ↦ (𝑦(-g‘𝐺)𝑧)) “ 𝑆) = ran (𝑧 ∈ 𝑆 ↦ (𝑦(-g‘𝐺)𝑧))
22		imassrn 6036	. . . . . . . . 9 ⊢ ((𝑧 ∈ 𝑋 ↦ (𝑦(-g‘𝐺)𝑧)) “ 𝑆) ⊆ ran (𝑧 ∈ 𝑋 ↦ (𝑦(-g‘𝐺)𝑧))
23	10	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑆) → 𝐺 ∈ Grp)
24	23	adantr 480	. . . . . . . . . . . 12 ⊢ (((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑆) ∧ 𝑧 ∈ 𝑋) → 𝐺 ∈ Grp)
25	6	sselda 3921	. . . . . . . . . . . . 13 ⊢ ((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑆) → 𝑦 ∈ 𝑋)
26	25	adantr 480	. . . . . . . . . . . 12 ⊢ (((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑆) ∧ 𝑧 ∈ 𝑋) → 𝑦 ∈ 𝑋)
27		simpr 484	. . . . . . . . . . . 12 ⊢ (((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑆) ∧ 𝑧 ∈ 𝑋) → 𝑧 ∈ 𝑋)
28		eqid 2736	. . . . . . . . . . . . 13 ⊢ (-g‘𝐺) = (-g‘𝐺)
29	8, 28	grpsubcl 18996	. . . . . . . . . . . 12 ⊢ ((𝐺 ∈ Grp ∧ 𝑦 ∈ 𝑋 ∧ 𝑧 ∈ 𝑋) → (𝑦(-g‘𝐺)𝑧) ∈ 𝑋)
30	24, 26, 27, 29	syl3anc 1374	. . . . . . . . . . 11 ⊢ (((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑆) ∧ 𝑧 ∈ 𝑋) → (𝑦(-g‘𝐺)𝑧) ∈ 𝑋)
31	30	fmpttd 7067	. . . . . . . . . 10 ⊢ ((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑆) → (𝑧 ∈ 𝑋 ↦ (𝑦(-g‘𝐺)𝑧)):𝑋⟶𝑋)
32	31	frnd 6676	. . . . . . . . 9 ⊢ ((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑆) → ran (𝑧 ∈ 𝑋 ↦ (𝑦(-g‘𝐺)𝑧)) ⊆ 𝑋)
33	22, 32	sstrid 3933	. . . . . . . 8 ⊢ ((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑆) → ((𝑧 ∈ 𝑋 ↦ (𝑦(-g‘𝐺)𝑧)) “ 𝑆) ⊆ 𝑋)
34	8, 11, 28	grpsubid 19000	. . . . . . . . . . 11 ⊢ ((𝐺 ∈ Grp ∧ 𝑦 ∈ 𝑋) → (𝑦(-g‘𝐺)𝑦) = 0 )
35	23, 25, 34	syl2anc 585	. . . . . . . . . 10 ⊢ ((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑆) → (𝑦(-g‘𝐺)𝑦) = 0 )
36		simpr 484	. . . . . . . . . . 11 ⊢ ((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑆) → 𝑦 ∈ 𝑆)
37		ovex 7400	. . . . . . . . . . 11 ⊢ (𝑦(-g‘𝐺)𝑦) ∈ V
38		eqid 2736	. . . . . . . . . . . 12 ⊢ (𝑧 ∈ 𝑆 ↦ (𝑦(-g‘𝐺)𝑧)) = (𝑧 ∈ 𝑆 ↦ (𝑦(-g‘𝐺)𝑧))
39		oveq2 7375	. . . . . . . . . . . 12 ⊢ (𝑧 = 𝑦 → (𝑦(-g‘𝐺)𝑧) = (𝑦(-g‘𝐺)𝑦))
40	38, 39	elrnmpt1s 5914	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ 𝑆 ∧ (𝑦(-g‘𝐺)𝑦) ∈ V) → (𝑦(-g‘𝐺)𝑦) ∈ ran (𝑧 ∈ 𝑆 ↦ (𝑦(-g‘𝐺)𝑧)))
41	36, 37, 40	sylancl 587	. . . . . . . . . 10 ⊢ ((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑆) → (𝑦(-g‘𝐺)𝑦) ∈ ran (𝑧 ∈ 𝑆 ↦ (𝑦(-g‘𝐺)𝑧)))
42	35, 41	eqeltrrd 2837	. . . . . . . . 9 ⊢ ((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑆) → 0 ∈ ran (𝑧 ∈ 𝑆 ↦ (𝑦(-g‘𝐺)𝑧)))
43	42, 21	eleqtrrdi 2847	. . . . . . . 8 ⊢ ((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑆) → 0 ∈ ((𝑧 ∈ 𝑋 ↦ (𝑦(-g‘𝐺)𝑧)) “ 𝑆))
44		eqid 2736	. . . . . . . . 9 ⊢ ∪ 𝐽 = ∪ 𝐽
45		eqid 2736	. . . . . . . . . . . . . . 15 ⊢ (+g‘𝐺) = (+g‘𝐺)
46		eqid 2736	. . . . . . . . . . . . . . 15 ⊢ (invg‘𝐺) = (invg‘𝐺)
47	8, 45, 46, 28	grpsubval 18961	. . . . . . . . . . . . . 14 ⊢ ((𝑦 ∈ 𝑋 ∧ 𝑧 ∈ 𝑋) → (𝑦(-g‘𝐺)𝑧) = (𝑦(+g‘𝐺)((invg‘𝐺)‘𝑧)))
48	25, 47	sylan 581	. . . . . . . . . . . . 13 ⊢ (((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑆) ∧ 𝑧 ∈ 𝑋) → (𝑦(-g‘𝐺)𝑧) = (𝑦(+g‘𝐺)((invg‘𝐺)‘𝑧)))
49	48	mpteq2dva 5178	. . . . . . . . . . . 12 ⊢ ((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑆) → (𝑧 ∈ 𝑋 ↦ (𝑦(-g‘𝐺)𝑧)) = (𝑧 ∈ 𝑋 ↦ (𝑦(+g‘𝐺)((invg‘𝐺)‘𝑧))))
50	8, 46	grpinvcl 18963	. . . . . . . . . . . . . 14 ⊢ ((𝐺 ∈ Grp ∧ 𝑧 ∈ 𝑋) → ((invg‘𝐺)‘𝑧) ∈ 𝑋)
51	23, 50	sylan 581	. . . . . . . . . . . . 13 ⊢ (((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑆) ∧ 𝑧 ∈ 𝑋) → ((invg‘𝐺)‘𝑧) ∈ 𝑋)
52	8, 46	grpinvf 18962	. . . . . . . . . . . . . . . 16 ⊢ (𝐺 ∈ Grp → (invg‘𝐺):𝑋⟶𝑋)
53	10, 52	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝐺 ∈ TopGrp → (invg‘𝐺):𝑋⟶𝑋)
54	53	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑆) → (invg‘𝐺):𝑋⟶𝑋)
55	54	feqmptd 6908	. . . . . . . . . . . . 13 ⊢ ((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑆) → (invg‘𝐺) = (𝑧 ∈ 𝑋 ↦ ((invg‘𝐺)‘𝑧)))
56		eqidd 2737	. . . . . . . . . . . . 13 ⊢ ((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑆) → (𝑤 ∈ 𝑋 ↦ (𝑦(+g‘𝐺)𝑤)) = (𝑤 ∈ 𝑋 ↦ (𝑦(+g‘𝐺)𝑤)))
57		oveq2 7375	. . . . . . . . . . . . 13 ⊢ (𝑤 = ((invg‘𝐺)‘𝑧) → (𝑦(+g‘𝐺)𝑤) = (𝑦(+g‘𝐺)((invg‘𝐺)‘𝑧)))
58	51, 55, 56, 57	fmptco 7082	. . . . . . . . . . . 12 ⊢ ((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑆) → ((𝑤 ∈ 𝑋 ↦ (𝑦(+g‘𝐺)𝑤)) ∘ (invg‘𝐺)) = (𝑧 ∈ 𝑋 ↦ (𝑦(+g‘𝐺)((invg‘𝐺)‘𝑧))))
59	49, 58	eqtr4d 2774	. . . . . . . . . . 11 ⊢ ((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑆) → (𝑧 ∈ 𝑋 ↦ (𝑦(-g‘𝐺)𝑧)) = ((𝑤 ∈ 𝑋 ↦ (𝑦(+g‘𝐺)𝑤)) ∘ (invg‘𝐺)))
60	7, 46	grpinvhmeo 24051	. . . . . . . . . . . . 13 ⊢ (𝐺 ∈ TopGrp → (invg‘𝐺) ∈ (𝐽Homeo𝐽))
61	60	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑆) → (invg‘𝐺) ∈ (𝐽Homeo𝐽))
62		eqid 2736	. . . . . . . . . . . . . 14 ⊢ (𝑤 ∈ 𝑋 ↦ (𝑦(+g‘𝐺)𝑤)) = (𝑤 ∈ 𝑋 ↦ (𝑦(+g‘𝐺)𝑤))
63	62, 8, 45, 7	tgplacthmeo 24068	. . . . . . . . . . . . 13 ⊢ ((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑋) → (𝑤 ∈ 𝑋 ↦ (𝑦(+g‘𝐺)𝑤)) ∈ (𝐽Homeo𝐽))
64	25, 63	syldan 592	. . . . . . . . . . . 12 ⊢ ((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑆) → (𝑤 ∈ 𝑋 ↦ (𝑦(+g‘𝐺)𝑤)) ∈ (𝐽Homeo𝐽))
65		hmeoco 23737	. . . . . . . . . . . 12 ⊢ (((invg‘𝐺) ∈ (𝐽Homeo𝐽) ∧ (𝑤 ∈ 𝑋 ↦ (𝑦(+g‘𝐺)𝑤)) ∈ (𝐽Homeo𝐽)) → ((𝑤 ∈ 𝑋 ↦ (𝑦(+g‘𝐺)𝑤)) ∘ (invg‘𝐺)) ∈ (𝐽Homeo𝐽))
66	61, 64, 65	syl2anc 585	. . . . . . . . . . 11 ⊢ ((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑆) → ((𝑤 ∈ 𝑋 ↦ (𝑦(+g‘𝐺)𝑤)) ∘ (invg‘𝐺)) ∈ (𝐽Homeo𝐽))
67	59, 66	eqeltrd 2836	. . . . . . . . . 10 ⊢ ((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑆) → (𝑧 ∈ 𝑋 ↦ (𝑦(-g‘𝐺)𝑧)) ∈ (𝐽Homeo𝐽))
68		hmeocn 23725	. . . . . . . . . 10 ⊢ ((𝑧 ∈ 𝑋 ↦ (𝑦(-g‘𝐺)𝑧)) ∈ (𝐽Homeo𝐽) → (𝑧 ∈ 𝑋 ↦ (𝑦(-g‘𝐺)𝑧)) ∈ (𝐽 Cn 𝐽))
69	67, 68	syl 17	. . . . . . . . 9 ⊢ ((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑆) → (𝑧 ∈ 𝑋 ↦ (𝑦(-g‘𝐺)𝑧)) ∈ (𝐽 Cn 𝐽))
70		toponuni 22879	. . . . . . . . . . . 12 ⊢ (𝐽 ∈ (TopOn‘𝑋) → 𝑋 = ∪ 𝐽)
71	9, 70	syl 17	. . . . . . . . . . 11 ⊢ (𝐺 ∈ TopGrp → 𝑋 = ∪ 𝐽)
72	71	adantr 480	. . . . . . . . . 10 ⊢ ((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑆) → 𝑋 = ∪ 𝐽)
73	5, 72	sseqtrid 3964	. . . . . . . . 9 ⊢ ((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑆) → 𝑆 ⊆ ∪ 𝐽)
74	1	conncompconn 23397	. . . . . . . . . . 11 ⊢ ((𝐽 ∈ (TopOn‘𝑋) ∧ 0 ∈ 𝑋) → (𝐽 ↾t 𝑆) ∈ Conn)
75	9, 13, 74	syl2anc 585	. . . . . . . . . 10 ⊢ (𝐺 ∈ TopGrp → (𝐽 ↾t 𝑆) ∈ Conn)
76	75	adantr 480	. . . . . . . . 9 ⊢ ((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑆) → (𝐽 ↾t 𝑆) ∈ Conn)
77	44, 69, 73, 76	connima 23390	. . . . . . . 8 ⊢ ((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑆) → (𝐽 ↾t ((𝑧 ∈ 𝑋 ↦ (𝑦(-g‘𝐺)𝑧)) “ 𝑆)) ∈ Conn)
78	1	conncompss 23398	. . . . . . . 8 ⊢ ((((𝑧 ∈ 𝑋 ↦ (𝑦(-g‘𝐺)𝑧)) “ 𝑆) ⊆ 𝑋 ∧ 0 ∈ ((𝑧 ∈ 𝑋 ↦ (𝑦(-g‘𝐺)𝑧)) “ 𝑆) ∧ (𝐽 ↾t ((𝑧 ∈ 𝑋 ↦ (𝑦(-g‘𝐺)𝑧)) “ 𝑆)) ∈ Conn) → ((𝑧 ∈ 𝑋 ↦ (𝑦(-g‘𝐺)𝑧)) “ 𝑆) ⊆ 𝑆)
79	33, 43, 77, 78	syl3anc 1374	. . . . . . 7 ⊢ ((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑆) → ((𝑧 ∈ 𝑋 ↦ (𝑦(-g‘𝐺)𝑧)) “ 𝑆) ⊆ 𝑆)
80	21, 79	eqsstrrid 3961	. . . . . 6 ⊢ ((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑆) → ran (𝑧 ∈ 𝑆 ↦ (𝑦(-g‘𝐺)𝑧)) ⊆ 𝑆)
81		ovex 7400	. . . . . . . 8 ⊢ (𝑦(-g‘𝐺)𝑧) ∈ V
82	81, 38	fnmpti 6641	. . . . . . 7 ⊢ (𝑧 ∈ 𝑆 ↦ (𝑦(-g‘𝐺)𝑧)) Fn 𝑆
83		df-f 6502	. . . . . . 7 ⊢ ((𝑧 ∈ 𝑆 ↦ (𝑦(-g‘𝐺)𝑧)):𝑆⟶𝑆 ↔ ((𝑧 ∈ 𝑆 ↦ (𝑦(-g‘𝐺)𝑧)) Fn 𝑆 ∧ ran (𝑧 ∈ 𝑆 ↦ (𝑦(-g‘𝐺)𝑧)) ⊆ 𝑆))
84	82, 83	mpbiran 710	. . . . . 6 ⊢ ((𝑧 ∈ 𝑆 ↦ (𝑦(-g‘𝐺)𝑧)):𝑆⟶𝑆 ↔ ran (𝑧 ∈ 𝑆 ↦ (𝑦(-g‘𝐺)𝑧)) ⊆ 𝑆)
85	80, 84	sylibr 234	. . . . 5 ⊢ ((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑆) → (𝑧 ∈ 𝑆 ↦ (𝑦(-g‘𝐺)𝑧)):𝑆⟶𝑆)
86	38	fmpt 7062	. . . . 5 ⊢ (∀𝑧 ∈ 𝑆 (𝑦(-g‘𝐺)𝑧) ∈ 𝑆 ↔ (𝑧 ∈ 𝑆 ↦ (𝑦(-g‘𝐺)𝑧)):𝑆⟶𝑆)
87	85, 86	sylibr 234	. . . 4 ⊢ ((𝐺 ∈ TopGrp ∧ 𝑦 ∈ 𝑆) → ∀𝑧 ∈ 𝑆 (𝑦(-g‘𝐺)𝑧) ∈ 𝑆)
88	87	ralrimiva 3129	. . 3 ⊢ (𝐺 ∈ TopGrp → ∀𝑦 ∈ 𝑆 ∀𝑧 ∈ 𝑆 (𝑦(-g‘𝐺)𝑧) ∈ 𝑆)
89	8, 28	issubg4 19121	. . . 4 ⊢ (𝐺 ∈ Grp → (𝑆 ∈ (SubGrp‘𝐺) ↔ (𝑆 ⊆ 𝑋 ∧ 𝑆 ≠ ∅ ∧ ∀𝑦 ∈ 𝑆 ∀𝑧 ∈ 𝑆 (𝑦(-g‘𝐺)𝑧) ∈ 𝑆)))
90	10, 89	syl 17	. . 3 ⊢ (𝐺 ∈ TopGrp → (𝑆 ∈ (SubGrp‘𝐺) ↔ (𝑆 ⊆ 𝑋 ∧ 𝑆 ≠ ∅ ∧ ∀𝑦 ∈ 𝑆 ∀𝑧 ∈ 𝑆 (𝑦(-g‘𝐺)𝑧) ∈ 𝑆)))
91	6, 16, 88, 90	mpbir3and 1344	. 2 ⊢ (𝐺 ∈ TopGrp → 𝑆 ∈ (SubGrp‘𝐺))
92	10	adantr 480	. . . . . . . . . 10 ⊢ ((𝐺 ∈ TopGrp ∧ ((𝑦 ∈ 𝑋 ∧ 𝑧 ∈ 𝑋) ∧ (𝑦(+g‘𝐺)𝑧) ∈ 𝑆)) → 𝐺 ∈ Grp)
93		eqid 2736	. . . . . . . . . . 11 ⊢ (oppg‘𝐺) = (oppg‘𝐺)
94	93, 46	oppginv 19334	. . . . . . . . . 10 ⊢ (𝐺 ∈ Grp → (invg‘𝐺) = (invg‘(oppg‘𝐺)))
95	92, 94	syl 17	. . . . . . . . 9 ⊢ ((𝐺 ∈ TopGrp ∧ ((𝑦 ∈ 𝑋 ∧ 𝑧 ∈ 𝑋) ∧ (𝑦(+g‘𝐺)𝑧) ∈ 𝑆)) → (invg‘𝐺) = (invg‘(oppg‘𝐺)))
96	95	fveq1d 6842	. . . . . . . 8 ⊢ ((𝐺 ∈ TopGrp ∧ ((𝑦 ∈ 𝑋 ∧ 𝑧 ∈ 𝑋) ∧ (𝑦(+g‘𝐺)𝑧) ∈ 𝑆)) → ((invg‘𝐺)‘((invg‘𝐺)‘𝑦)) = ((invg‘(oppg‘𝐺))‘((invg‘𝐺)‘𝑦)))
97		simprll 779	. . . . . . . . 9 ⊢ ((𝐺 ∈ TopGrp ∧ ((𝑦 ∈ 𝑋 ∧ 𝑧 ∈ 𝑋) ∧ (𝑦(+g‘𝐺)𝑧) ∈ 𝑆)) → 𝑦 ∈ 𝑋)
98	8, 46	grpinvinv 18981	. . . . . . . . 9 ⊢ ((𝐺 ∈ Grp ∧ 𝑦 ∈ 𝑋) → ((invg‘𝐺)‘((invg‘𝐺)‘𝑦)) = 𝑦)
99	92, 97, 98	syl2anc 585	. . . . . . . 8 ⊢ ((𝐺 ∈ TopGrp ∧ ((𝑦 ∈ 𝑋 ∧ 𝑧 ∈ 𝑋) ∧ (𝑦(+g‘𝐺)𝑧) ∈ 𝑆)) → ((invg‘𝐺)‘((invg‘𝐺)‘𝑦)) = 𝑦)
100	96, 99	eqtr3d 2773	. . . . . . 7 ⊢ ((𝐺 ∈ TopGrp ∧ ((𝑦 ∈ 𝑋 ∧ 𝑧 ∈ 𝑋) ∧ (𝑦(+g‘𝐺)𝑧) ∈ 𝑆)) → ((invg‘(oppg‘𝐺))‘((invg‘𝐺)‘𝑦)) = 𝑦)
101	100	oveq1d 7382	. . . . . 6 ⊢ ((𝐺 ∈ TopGrp ∧ ((𝑦 ∈ 𝑋 ∧ 𝑧 ∈ 𝑋) ∧ (𝑦(+g‘𝐺)𝑧) ∈ 𝑆)) → (((invg‘(oppg‘𝐺))‘((invg‘𝐺)‘𝑦))(+g‘(oppg‘𝐺))𝑧) = (𝑦(+g‘(oppg‘𝐺))𝑧))
102		eqid 2736	. . . . . . 7 ⊢ (+g‘(oppg‘𝐺)) = (+g‘(oppg‘𝐺))
103	45, 93, 102	oppgplus 19324	. . . . . 6 ⊢ (𝑦(+g‘(oppg‘𝐺))𝑧) = (𝑧(+g‘𝐺)𝑦)
104	101, 103	eqtrdi 2787	. . . . 5 ⊢ ((𝐺 ∈ TopGrp ∧ ((𝑦 ∈ 𝑋 ∧ 𝑧 ∈ 𝑋) ∧ (𝑦(+g‘𝐺)𝑧) ∈ 𝑆)) → (((invg‘(oppg‘𝐺))‘((invg‘𝐺)‘𝑦))(+g‘(oppg‘𝐺))𝑧) = (𝑧(+g‘𝐺)𝑦))
105	8, 46	grpinvcl 18963	. . . . . . . . . 10 ⊢ ((𝐺 ∈ Grp ∧ 𝑦 ∈ 𝑋) → ((invg‘𝐺)‘𝑦) ∈ 𝑋)
106	92, 97, 105	syl2anc 585	. . . . . . . . 9 ⊢ ((𝐺 ∈ TopGrp ∧ ((𝑦 ∈ 𝑋 ∧ 𝑧 ∈ 𝑋) ∧ (𝑦(+g‘𝐺)𝑧) ∈ 𝑆)) → ((invg‘𝐺)‘𝑦) ∈ 𝑋)
107		simprlr 780	. . . . . . . . 9 ⊢ ((𝐺 ∈ TopGrp ∧ ((𝑦 ∈ 𝑋 ∧ 𝑧 ∈ 𝑋) ∧ (𝑦(+g‘𝐺)𝑧) ∈ 𝑆)) → 𝑧 ∈ 𝑋)
108	99	oveq1d 7382	. . . . . . . . . 10 ⊢ ((𝐺 ∈ TopGrp ∧ ((𝑦 ∈ 𝑋 ∧ 𝑧 ∈ 𝑋) ∧ (𝑦(+g‘𝐺)𝑧) ∈ 𝑆)) → (((invg‘𝐺)‘((invg‘𝐺)‘𝑦))(+g‘𝐺)𝑧) = (𝑦(+g‘𝐺)𝑧))
109		simprr 773	. . . . . . . . . 10 ⊢ ((𝐺 ∈ TopGrp ∧ ((𝑦 ∈ 𝑋 ∧ 𝑧 ∈ 𝑋) ∧ (𝑦(+g‘𝐺)𝑧) ∈ 𝑆)) → (𝑦(+g‘𝐺)𝑧) ∈ 𝑆)
110	108, 109	eqeltrd 2836	. . . . . . . . 9 ⊢ ((𝐺 ∈ TopGrp ∧ ((𝑦 ∈ 𝑋 ∧ 𝑧 ∈ 𝑋) ∧ (𝑦(+g‘𝐺)𝑧) ∈ 𝑆)) → (((invg‘𝐺)‘((invg‘𝐺)‘𝑦))(+g‘𝐺)𝑧) ∈ 𝑆)
111		eqid 2736	. . . . . . . . . . 11 ⊢ (𝐺 ~QG 𝑆) = (𝐺 ~QG 𝑆)
112	8, 46, 45, 111	eqgval 19152	. . . . . . . . . 10 ⊢ ((𝐺 ∈ Grp ∧ 𝑆 ⊆ 𝑋) → (((invg‘𝐺)‘𝑦)(𝐺 ~QG 𝑆)𝑧 ↔ (((invg‘𝐺)‘𝑦) ∈ 𝑋 ∧ 𝑧 ∈ 𝑋 ∧ (((invg‘𝐺)‘((invg‘𝐺)‘𝑦))(+g‘𝐺)𝑧) ∈ 𝑆)))
113	92, 5, 112	sylancl 587	. . . . . . . . 9 ⊢ ((𝐺 ∈ TopGrp ∧ ((𝑦 ∈ 𝑋 ∧ 𝑧 ∈ 𝑋) ∧ (𝑦(+g‘𝐺)𝑧) ∈ 𝑆)) → (((invg‘𝐺)‘𝑦)(𝐺 ~QG 𝑆)𝑧 ↔ (((invg‘𝐺)‘𝑦) ∈ 𝑋 ∧ 𝑧 ∈ 𝑋 ∧ (((invg‘𝐺)‘((invg‘𝐺)‘𝑦))(+g‘𝐺)𝑧) ∈ 𝑆)))
114	106, 107, 110, 113	mpbir3and 1344	. . . . . . . 8 ⊢ ((𝐺 ∈ TopGrp ∧ ((𝑦 ∈ 𝑋 ∧ 𝑧 ∈ 𝑋) ∧ (𝑦(+g‘𝐺)𝑧) ∈ 𝑆)) → ((invg‘𝐺)‘𝑦)(𝐺 ~QG 𝑆)𝑧)
115	8, 11, 7, 1, 111	tgpconncompeqg 24077	. . . . . . . . . . . 12 ⊢ ((𝐺 ∈ TopGrp ∧ ((invg‘𝐺)‘𝑦) ∈ 𝑋) → [((invg‘𝐺)‘𝑦)](𝐺 ~QG 𝑆) = ∪ {𝑥 ∈ 𝒫 𝑋 ∣ (((invg‘𝐺)‘𝑦) ∈ 𝑥 ∧ (𝐽 ↾t 𝑥) ∈ Conn)})
116	106, 115	syldan 592	. . . . . . . . . . 11 ⊢ ((𝐺 ∈ TopGrp ∧ ((𝑦 ∈ 𝑋 ∧ 𝑧 ∈ 𝑋) ∧ (𝑦(+g‘𝐺)𝑧) ∈ 𝑆)) → [((invg‘𝐺)‘𝑦)](𝐺 ~QG 𝑆) = ∪ {𝑥 ∈ 𝒫 𝑋 ∣ (((invg‘𝐺)‘𝑦) ∈ 𝑥 ∧ (𝐽 ↾t 𝑥) ∈ Conn)})
117	93	oppgtgp 24063	. . . . . . . . . . . . 13 ⊢ (𝐺 ∈ TopGrp → (oppg‘𝐺) ∈ TopGrp)
118	117	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝐺 ∈ TopGrp ∧ ((𝑦 ∈ 𝑋 ∧ 𝑧 ∈ 𝑋) ∧ (𝑦(+g‘𝐺)𝑧) ∈ 𝑆)) → (oppg‘𝐺) ∈ TopGrp)
119	93, 8	oppgbas 19326	. . . . . . . . . . . . 13 ⊢ 𝑋 = (Base‘(oppg‘𝐺))
120	93, 11	oppgid 19331	. . . . . . . . . . . . 13 ⊢ 0 = (0g‘(oppg‘𝐺))
121	93, 7	oppgtopn 19328	. . . . . . . . . . . . 13 ⊢ 𝐽 = (TopOpen‘(oppg‘𝐺))
122		eqid 2736	. . . . . . . . . . . . 13 ⊢ ((oppg‘𝐺) ~QG 𝑆) = ((oppg‘𝐺) ~QG 𝑆)
123	119, 120, 121, 1, 122	tgpconncompeqg 24077	. . . . . . . . . . . 12 ⊢ (((oppg‘𝐺) ∈ TopGrp ∧ ((invg‘𝐺)‘𝑦) ∈ 𝑋) → [((invg‘𝐺)‘𝑦)]((oppg‘𝐺) ~QG 𝑆) = ∪ {𝑥 ∈ 𝒫 𝑋 ∣ (((invg‘𝐺)‘𝑦) ∈ 𝑥 ∧ (𝐽 ↾t 𝑥) ∈ Conn)})
124	118, 106, 123	syl2anc 585	. . . . . . . . . . 11 ⊢ ((𝐺 ∈ TopGrp ∧ ((𝑦 ∈ 𝑋 ∧ 𝑧 ∈ 𝑋) ∧ (𝑦(+g‘𝐺)𝑧) ∈ 𝑆)) → [((invg‘𝐺)‘𝑦)]((oppg‘𝐺) ~QG 𝑆) = ∪ {𝑥 ∈ 𝒫 𝑋 ∣ (((invg‘𝐺)‘𝑦) ∈ 𝑥 ∧ (𝐽 ↾t 𝑥) ∈ Conn)})
125	116, 124	eqtr4d 2774	. . . . . . . . . 10 ⊢ ((𝐺 ∈ TopGrp ∧ ((𝑦 ∈ 𝑋 ∧ 𝑧 ∈ 𝑋) ∧ (𝑦(+g‘𝐺)𝑧) ∈ 𝑆)) → [((invg‘𝐺)‘𝑦)](𝐺 ~QG 𝑆) = [((invg‘𝐺)‘𝑦)]((oppg‘𝐺) ~QG 𝑆))
126	125	eleq2d 2822	. . . . . . . . 9 ⊢ ((𝐺 ∈ TopGrp ∧ ((𝑦 ∈ 𝑋 ∧ 𝑧 ∈ 𝑋) ∧ (𝑦(+g‘𝐺)𝑧) ∈ 𝑆)) → (𝑧 ∈ [((invg‘𝐺)‘𝑦)](𝐺 ~QG 𝑆) ↔ 𝑧 ∈ [((invg‘𝐺)‘𝑦)]((oppg‘𝐺) ~QG 𝑆)))
127		vex 3433	. . . . . . . . . 10 ⊢ 𝑧 ∈ V
128		fvex 6853	. . . . . . . . . 10 ⊢ ((invg‘𝐺)‘𝑦) ∈ V
129	127, 128	elec 8690	. . . . . . . . 9 ⊢ (𝑧 ∈ [((invg‘𝐺)‘𝑦)](𝐺 ~QG 𝑆) ↔ ((invg‘𝐺)‘𝑦)(𝐺 ~QG 𝑆)𝑧)
130	127, 128	elec 8690	. . . . . . . . 9 ⊢ (𝑧 ∈ [((invg‘𝐺)‘𝑦)]((oppg‘𝐺) ~QG 𝑆) ↔ ((invg‘𝐺)‘𝑦)((oppg‘𝐺) ~QG 𝑆)𝑧)
131	126, 129, 130	3bitr3g 313	. . . . . . . 8 ⊢ ((𝐺 ∈ TopGrp ∧ ((𝑦 ∈ 𝑋 ∧ 𝑧 ∈ 𝑋) ∧ (𝑦(+g‘𝐺)𝑧) ∈ 𝑆)) → (((invg‘𝐺)‘𝑦)(𝐺 ~QG 𝑆)𝑧 ↔ ((invg‘𝐺)‘𝑦)((oppg‘𝐺) ~QG 𝑆)𝑧))
132	114, 131	mpbid 232	. . . . . . 7 ⊢ ((𝐺 ∈ TopGrp ∧ ((𝑦 ∈ 𝑋 ∧ 𝑧 ∈ 𝑋) ∧ (𝑦(+g‘𝐺)𝑧) ∈ 𝑆)) → ((invg‘𝐺)‘𝑦)((oppg‘𝐺) ~QG 𝑆)𝑧)
133		eqid 2736	. . . . . . . . 9 ⊢ (invg‘(oppg‘𝐺)) = (invg‘(oppg‘𝐺))
134	119, 133, 102, 122	eqgval 19152	. . . . . . . 8 ⊢ (((oppg‘𝐺) ∈ TopGrp ∧ 𝑆 ⊆ 𝑋) → (((invg‘𝐺)‘𝑦)((oppg‘𝐺) ~QG 𝑆)𝑧 ↔ (((invg‘𝐺)‘𝑦) ∈ 𝑋 ∧ 𝑧 ∈ 𝑋 ∧ (((invg‘(oppg‘𝐺))‘((invg‘𝐺)‘𝑦))(+g‘(oppg‘𝐺))𝑧) ∈ 𝑆)))
135	118, 5, 134	sylancl 587	. . . . . . 7 ⊢ ((𝐺 ∈ TopGrp ∧ ((𝑦 ∈ 𝑋 ∧ 𝑧 ∈ 𝑋) ∧ (𝑦(+g‘𝐺)𝑧) ∈ 𝑆)) → (((invg‘𝐺)‘𝑦)((oppg‘𝐺) ~QG 𝑆)𝑧 ↔ (((invg‘𝐺)‘𝑦) ∈ 𝑋 ∧ 𝑧 ∈ 𝑋 ∧ (((invg‘(oppg‘𝐺))‘((invg‘𝐺)‘𝑦))(+g‘(oppg‘𝐺))𝑧) ∈ 𝑆)))
136	132, 135	mpbid 232	. . . . . 6 ⊢ ((𝐺 ∈ TopGrp ∧ ((𝑦 ∈ 𝑋 ∧ 𝑧 ∈ 𝑋) ∧ (𝑦(+g‘𝐺)𝑧) ∈ 𝑆)) → (((invg‘𝐺)‘𝑦) ∈ 𝑋 ∧ 𝑧 ∈ 𝑋 ∧ (((invg‘(oppg‘𝐺))‘((invg‘𝐺)‘𝑦))(+g‘(oppg‘𝐺))𝑧) ∈ 𝑆))
137	136	simp3d 1145	. . . . 5 ⊢ ((𝐺 ∈ TopGrp ∧ ((𝑦 ∈ 𝑋 ∧ 𝑧 ∈ 𝑋) ∧ (𝑦(+g‘𝐺)𝑧) ∈ 𝑆)) → (((invg‘(oppg‘𝐺))‘((invg‘𝐺)‘𝑦))(+g‘(oppg‘𝐺))𝑧) ∈ 𝑆)
138	104, 137	eqeltrrd 2837	. . . 4 ⊢ ((𝐺 ∈ TopGrp ∧ ((𝑦 ∈ 𝑋 ∧ 𝑧 ∈ 𝑋) ∧ (𝑦(+g‘𝐺)𝑧) ∈ 𝑆)) → (𝑧(+g‘𝐺)𝑦) ∈ 𝑆)
139	138	expr 456	. . 3 ⊢ ((𝐺 ∈ TopGrp ∧ (𝑦 ∈ 𝑋 ∧ 𝑧 ∈ 𝑋)) → ((𝑦(+g‘𝐺)𝑧) ∈ 𝑆 → (𝑧(+g‘𝐺)𝑦) ∈ 𝑆))
140	139	ralrimivva 3180	. 2 ⊢ (𝐺 ∈ TopGrp → ∀𝑦 ∈ 𝑋 ∀𝑧 ∈ 𝑋 ((𝑦(+g‘𝐺)𝑧) ∈ 𝑆 → (𝑧(+g‘𝐺)𝑦) ∈ 𝑆))
141	8, 45	isnsg2 19131	. 2 ⊢ (𝑆 ∈ (NrmSGrp‘𝐺) ↔ (𝑆 ∈ (SubGrp‘𝐺) ∧ ∀𝑦 ∈ 𝑋 ∀𝑧 ∈ 𝑋 ((𝑦(+g‘𝐺)𝑧) ∈ 𝑆 → (𝑧(+g‘𝐺)𝑦) ∈ 𝑆)))
142	91, 140, 141	sylanbrc 584	1 ⊢ (𝐺 ∈ TopGrp → 𝑆 ∈ (NrmSGrp‘𝐺))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1087   = wceq 1542   ∈ wcel 2114   ≠ wne 2932  ∀wral 3051  {crab 3389  Vcvv 3429   ⊆ wss 3889  ∅c0 4273  𝒫 cpw 4541  ∪ cuni 4850   class class class wbr 5085   ↦ cmpt 5166  ran crn 5632   ↾ cres 5633   “ cima 5634   ∘ ccom 5635   Fn wfn 6493  ⟶wf 6494  ‘cfv 6498  (class class class)co 7367  [cec 8641  Basecbs 17179  +_gcplusg 17220   ↾_t crest 17383  TopOpenctopn 17384  0_gc0g 17402  Grpcgrp 18909  inv_gcminusg 18910  -_gcsg 18911  SubGrpcsubg 19096  NrmSGrpcnsg 19097   ~_QG cqg 19098  opp_gcoppg 19320  TopOnctopon 22875   Cn ccn 23189  Conncconn 23376  Homeochmeo 23718  TopGrpctgp 24036

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2708  ax-rep 5212  ax-sep 5231  ax-nul 5241  ax-pow 5307  ax-pr 5375  ax-un 7689  ax-cnex 11094  ax-resscn 11095  ax-1cn 11096  ax-icn 11097  ax-addcl 11098  ax-addrcl 11099  ax-mulcl 11100  ax-mulrcl 11101  ax-mulcom 11102  ax-addass 11103  ax-mulass 11104  ax-distr 11105  ax-i2m1 11106  ax-1ne0 11107  ax-1rid 11108  ax-rnegex 11109  ax-rrecex 11110  ax-cnre 11111  ax-pre-lttri 11112  ax-pre-lttrn 11113  ax-pre-ltadd 11114  ax-pre-mulgt0 11115

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2539  df-eu 2569  df-clab 2715  df-cleq 2728  df-clel 2811  df-nfc 2885  df-ne 2933  df-nel 3037  df-ral 3052  df-rex 3062  df-rmo 3342  df-reu 3343  df-rab 3390  df-v 3431  df-sbc 3729  df-csb 3838  df-dif 3892  df-un 3894  df-in 3896  df-ss 3906  df-pss 3909  df-nul 4274  df-if 4467  df-pw 4543  df-sn 4568  df-pr 4570  df-op 4574  df-uni 4851  df-int 4890  df-iun 4935  df-br 5086  df-opab 5148  df-mpt 5167  df-tr 5193  df-id 5526  df-eprel 5531  df-po 5539  df-so 5540  df-fr 5584  df-we 5586  df-xp 5637  df-rel 5638  df-cnv 5639  df-co 5640  df-dm 5641  df-rn 5642  df-res 5643  df-ima 5644  df-pred 6265  df-ord 6326  df-on 6327  df-lim 6328  df-suc 6329  df-iota 6454  df-fun 6500  df-fn 6501  df-f 6502  df-f1 6503  df-fo 6504  df-f1o 6505  df-fv 6506  df-riota 7324  df-ov 7370  df-oprab 7371  df-mpo 7372  df-om 7818  df-1st 7942  df-2nd 7943  df-tpos 8176  df-frecs 8231  df-wrecs 8262  df-recs 8311  df-rdg 8349  df-er 8643  df-ec 8645  df-map 8775  df-en 8894  df-dom 8895  df-sdom 8896  df-fin 8897  df-fi 9324  df-pnf 11181  df-mnf 11182  df-xr 11183  df-ltxr 11184  df-le 11185  df-sub 11379  df-neg 11380  df-nn 12175  df-2 12244  df-3 12245  df-4 12246  df-5 12247  df-6 12248  df-7 12249  df-8 12250  df-9 12251  df-sets 17134  df-slot 17152  df-ndx 17164  df-base 17180  df-ress 17201  df-plusg 17233  df-tset 17239  df-rest 17385  df-topn 17386  df-0g 17404  df-topgen 17406  df-plusf 18607  df-mgm 18608  df-sgrp 18687  df-mnd 18703  df-grp 18912  df-minusg 18913  df-sbg 18914  df-subg 19099  df-nsg 19100  df-eqg 19101  df-oppg 19321  df-top 22859  df-topon 22876  df-topsp 22898  df-bases 22911  df-cld 22984  df-cn 23192  df-cnp 23193  df-conn 23377  df-tx 23527  df-hmeo 23720  df-tmd 24037  df-tgp 24038

This theorem is referenced by: (None)