Theorem eqgabl 18958

Description: Value of the subgroup coset equivalence relation on an abelian group. (Contributed by Mario Carneiro, 14-Jun-2015.)

Hypotheses

Ref	Expression
eqgabl.x	⊢ 𝑋 = (Base‘𝐺)
eqgabl.n	⊢ − = (-g‘𝐺)
eqgabl.r	⊢ ∼ = (𝐺 ~QG 𝑆)

Assertion

Ref	Expression
eqgabl	⊢ ((𝐺 ∈ Abel ∧ 𝑆 ⊆ 𝑋) → (𝐴 ∼ 𝐵 ↔ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ (𝐵 − 𝐴) ∈ 𝑆)))

Proof of Theorem eqgabl

Step	Hyp	Ref	Expression
1		eqgabl.x	. . 3 ⊢ 𝑋 = (Base‘𝐺)
2		eqid 2824	. . 3 ⊢ (invg‘𝐺) = (invg‘𝐺)
3		eqid 2824	. . 3 ⊢ (+g‘𝐺) = (+g‘𝐺)
4		eqgabl.r	. . 3 ⊢ ∼ = (𝐺 ~QG 𝑆)
5	1, 2, 3, 4	eqgval 18332	. 2 ⊢ ((𝐺 ∈ Abel ∧ 𝑆 ⊆ 𝑋) → (𝐴 ∼ 𝐵 ↔ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ (((invg‘𝐺)‘𝐴)(+g‘𝐺)𝐵) ∈ 𝑆)))
6		simpll 765	. . . . . . 7 ⊢ (((𝐺 ∈ Abel ∧ 𝑆 ⊆ 𝑋) ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋)) → 𝐺 ∈ Abel)
7		ablgrp 18914	. . . . . . . . 9 ⊢ (𝐺 ∈ Abel → 𝐺 ∈ Grp)
8	7	ad2antrr 724	. . . . . . . 8 ⊢ (((𝐺 ∈ Abel ∧ 𝑆 ⊆ 𝑋) ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋)) → 𝐺 ∈ Grp)
9		simprl 769	. . . . . . . 8 ⊢ (((𝐺 ∈ Abel ∧ 𝑆 ⊆ 𝑋) ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋)) → 𝐴 ∈ 𝑋)
10	1, 2	grpinvcl 18154	. . . . . . . 8 ⊢ ((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) → ((invg‘𝐺)‘𝐴) ∈ 𝑋)
11	8, 9, 10	syl2anc 586	. . . . . . 7 ⊢ (((𝐺 ∈ Abel ∧ 𝑆 ⊆ 𝑋) ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋)) → ((invg‘𝐺)‘𝐴) ∈ 𝑋)
12		simprr 771	. . . . . . 7 ⊢ (((𝐺 ∈ Abel ∧ 𝑆 ⊆ 𝑋) ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋)) → 𝐵 ∈ 𝑋)
13	1, 3	ablcom 18927	. . . . . . 7 ⊢ ((𝐺 ∈ Abel ∧ ((invg‘𝐺)‘𝐴) ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (((invg‘𝐺)‘𝐴)(+g‘𝐺)𝐵) = (𝐵(+g‘𝐺)((invg‘𝐺)‘𝐴)))
14	6, 11, 12, 13	syl3anc 1367	. . . . . 6 ⊢ (((𝐺 ∈ Abel ∧ 𝑆 ⊆ 𝑋) ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋)) → (((invg‘𝐺)‘𝐴)(+g‘𝐺)𝐵) = (𝐵(+g‘𝐺)((invg‘𝐺)‘𝐴)))
15		eqgabl.n	. . . . . . . 8 ⊢ − = (-g‘𝐺)
16	1, 3, 2, 15	grpsubval 18152	. . . . . . 7 ⊢ ((𝐵 ∈ 𝑋 ∧ 𝐴 ∈ 𝑋) → (𝐵 − 𝐴) = (𝐵(+g‘𝐺)((invg‘𝐺)‘𝐴)))
17	12, 9, 16	syl2anc 586	. . . . . 6 ⊢ (((𝐺 ∈ Abel ∧ 𝑆 ⊆ 𝑋) ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋)) → (𝐵 − 𝐴) = (𝐵(+g‘𝐺)((invg‘𝐺)‘𝐴)))
18	14, 17	eqtr4d 2862	. . . . 5 ⊢ (((𝐺 ∈ Abel ∧ 𝑆 ⊆ 𝑋) ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋)) → (((invg‘𝐺)‘𝐴)(+g‘𝐺)𝐵) = (𝐵 − 𝐴))
19	18	eleq1d 2900	. . . 4 ⊢ (((𝐺 ∈ Abel ∧ 𝑆 ⊆ 𝑋) ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋)) → ((((invg‘𝐺)‘𝐴)(+g‘𝐺)𝐵) ∈ 𝑆 ↔ (𝐵 − 𝐴) ∈ 𝑆))
20	19	pm5.32da 581	. . 3 ⊢ ((𝐺 ∈ Abel ∧ 𝑆 ⊆ 𝑋) → (((𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ (((invg‘𝐺)‘𝐴)(+g‘𝐺)𝐵) ∈ 𝑆) ↔ ((𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ (𝐵 − 𝐴) ∈ 𝑆)))
21		df-3an 1085	. . 3 ⊢ ((𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ (((invg‘𝐺)‘𝐴)(+g‘𝐺)𝐵) ∈ 𝑆) ↔ ((𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ (((invg‘𝐺)‘𝐴)(+g‘𝐺)𝐵) ∈ 𝑆))
22		df-3an 1085	. . 3 ⊢ ((𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ (𝐵 − 𝐴) ∈ 𝑆) ↔ ((𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ (𝐵 − 𝐴) ∈ 𝑆))
23	20, 21, 22	3bitr4g 316	. 2 ⊢ ((𝐺 ∈ Abel ∧ 𝑆 ⊆ 𝑋) → ((𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ (((invg‘𝐺)‘𝐴)(+g‘𝐺)𝐵) ∈ 𝑆) ↔ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ (𝐵 − 𝐴) ∈ 𝑆)))
24	5, 23	bitrd 281	1 ⊢ ((𝐺 ∈ Abel ∧ 𝑆 ⊆ 𝑋) → (𝐴 ∼ 𝐵 ↔ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ (𝐵 − 𝐴) ∈ 𝑆)))

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 398   ∧ w3a 1083   = wceq 1536   ∈ wcel 2113   ⊆ wss 3939   class class class wbr 5069  ‘cfv 6358  (class class class)co 7159  Basecbs 16486  +_gcplusg 16568  Grpcgrp 18106  inv_gcminusg 18107  -_gcsg 18108   ~_QG cqg 18278  Abelcabl 18910

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1969  ax-7 2014  ax-8 2115  ax-9 2123  ax-10 2144  ax-11 2160  ax-12 2176  ax-ext 2796  ax-sep 5206  ax-nul 5213  ax-pow 5269  ax-pr 5333  ax-un 7464

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1085  df-tru 1539  df-ex 1780  df-nf 1784  df-sb 2069  df-mo 2621  df-eu 2653  df-clab 2803  df-cleq 2817  df-clel 2896  df-nfc 2966  df-ne 3020  df-ral 3146  df-rex 3147  df-reu 3148  df-rmo 3149  df-rab 3150  df-v 3499  df-sbc 3776  df-csb 3887  df-dif 3942  df-un 3944  df-in 3946  df-ss 3955  df-nul 4295  df-if 4471  df-pw 4544  df-sn 4571  df-pr 4573  df-op 4577  df-uni 4842  df-iun 4924  df-br 5070  df-opab 5132  df-mpt 5150  df-id 5463  df-xp 5564  df-rel 5565  df-cnv 5566  df-co 5567  df-dm 5568  df-rn 5569  df-res 5570  df-ima 5571  df-iota 6317  df-fun 6360  df-fn 6361  df-f 6362  df-fv 6366  df-riota 7117  df-ov 7162  df-oprab 7163  df-mpo 7164  df-1st 7692  df-2nd 7693  df-0g 16718  df-mgm 17855  df-sgrp 17904  df-mnd 17915  df-grp 18109  df-minusg 18110  df-sbg 18111  df-eqg 18281  df-cmn 18911  df-abl 18912

This theorem is referenced by:  2idlcpbl  20010  zndvds  20699  tgptsmscls  22761