MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  eqger Structured version   Visualization version   GIF version

Theorem eqger 19092
Description: The subgroup coset equivalence relation is an equivalence relation. (Contributed by Mario Carneiro, 13-Jan-2015.)
Hypotheses
Ref Expression
eqger.x 𝑋 = (Base‘𝐺)
eqger.r = (𝐺 ~QG 𝑌)
Assertion
Ref Expression
eqger (𝑌 ∈ (SubGrp‘𝐺) → Er 𝑋)

Proof of Theorem eqger
Dummy variables 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 eqger.r . . . 4 = (𝐺 ~QG 𝑌)
21releqg 19089 . . 3 Rel
32a1i 11 . 2 (𝑌 ∈ (SubGrp‘𝐺) → Rel )
4 subgrcl 19046 . . . . . 6 (𝑌 ∈ (SubGrp‘𝐺) → 𝐺 ∈ Grp)
5 eqger.x . . . . . . 7 𝑋 = (Base‘𝐺)
65subgss 19042 . . . . . 6 (𝑌 ∈ (SubGrp‘𝐺) → 𝑌𝑋)
7 eqid 2733 . . . . . . 7 (invg𝐺) = (invg𝐺)
8 eqid 2733 . . . . . . 7 (+g𝐺) = (+g𝐺)
95, 7, 8, 1eqgval 19091 . . . . . 6 ((𝐺 ∈ Grp ∧ 𝑌𝑋) → (𝑥 𝑦 ↔ (𝑥𝑋𝑦𝑋 ∧ (((invg𝐺)‘𝑥)(+g𝐺)𝑦) ∈ 𝑌)))
104, 6, 9syl2anc 584 . . . . 5 (𝑌 ∈ (SubGrp‘𝐺) → (𝑥 𝑦 ↔ (𝑥𝑋𝑦𝑋 ∧ (((invg𝐺)‘𝑥)(+g𝐺)𝑦) ∈ 𝑌)))
1110biimpa 476 . . . 4 ((𝑌 ∈ (SubGrp‘𝐺) ∧ 𝑥 𝑦) → (𝑥𝑋𝑦𝑋 ∧ (((invg𝐺)‘𝑥)(+g𝐺)𝑦) ∈ 𝑌))
1211simp2d 1143 . . 3 ((𝑌 ∈ (SubGrp‘𝐺) ∧ 𝑥 𝑦) → 𝑦𝑋)
1311simp1d 1142 . . 3 ((𝑌 ∈ (SubGrp‘𝐺) ∧ 𝑥 𝑦) → 𝑥𝑋)
144adantr 480 . . . . . 6 ((𝑌 ∈ (SubGrp‘𝐺) ∧ 𝑥 𝑦) → 𝐺 ∈ Grp)
155, 7, 14, 13grpinvcld 18903 . . . . . 6 ((𝑌 ∈ (SubGrp‘𝐺) ∧ 𝑥 𝑦) → ((invg𝐺)‘𝑥) ∈ 𝑋)
165, 8, 7grpinvadd 18933 . . . . . 6 ((𝐺 ∈ Grp ∧ ((invg𝐺)‘𝑥) ∈ 𝑋𝑦𝑋) → ((invg𝐺)‘(((invg𝐺)‘𝑥)(+g𝐺)𝑦)) = (((invg𝐺)‘𝑦)(+g𝐺)((invg𝐺)‘((invg𝐺)‘𝑥))))
1714, 15, 12, 16syl3anc 1373 . . . . 5 ((𝑌 ∈ (SubGrp‘𝐺) ∧ 𝑥 𝑦) → ((invg𝐺)‘(((invg𝐺)‘𝑥)(+g𝐺)𝑦)) = (((invg𝐺)‘𝑦)(+g𝐺)((invg𝐺)‘((invg𝐺)‘𝑥))))
185, 7grpinvinv 18920 . . . . . . 7 ((𝐺 ∈ Grp ∧ 𝑥𝑋) → ((invg𝐺)‘((invg𝐺)‘𝑥)) = 𝑥)
1914, 13, 18syl2anc 584 . . . . . 6 ((𝑌 ∈ (SubGrp‘𝐺) ∧ 𝑥 𝑦) → ((invg𝐺)‘((invg𝐺)‘𝑥)) = 𝑥)
2019oveq2d 7368 . . . . 5 ((𝑌 ∈ (SubGrp‘𝐺) ∧ 𝑥 𝑦) → (((invg𝐺)‘𝑦)(+g𝐺)((invg𝐺)‘((invg𝐺)‘𝑥))) = (((invg𝐺)‘𝑦)(+g𝐺)𝑥))
2117, 20eqtrd 2768 . . . 4 ((𝑌 ∈ (SubGrp‘𝐺) ∧ 𝑥 𝑦) → ((invg𝐺)‘(((invg𝐺)‘𝑥)(+g𝐺)𝑦)) = (((invg𝐺)‘𝑦)(+g𝐺)𝑥))
2211simp3d 1144 . . . . 5 ((𝑌 ∈ (SubGrp‘𝐺) ∧ 𝑥 𝑦) → (((invg𝐺)‘𝑥)(+g𝐺)𝑦) ∈ 𝑌)
237subginvcl 19050 . . . . 5 ((𝑌 ∈ (SubGrp‘𝐺) ∧ (((invg𝐺)‘𝑥)(+g𝐺)𝑦) ∈ 𝑌) → ((invg𝐺)‘(((invg𝐺)‘𝑥)(+g𝐺)𝑦)) ∈ 𝑌)
2422, 23syldan 591 . . . 4 ((𝑌 ∈ (SubGrp‘𝐺) ∧ 𝑥 𝑦) → ((invg𝐺)‘(((invg𝐺)‘𝑥)(+g𝐺)𝑦)) ∈ 𝑌)
2521, 24eqeltrrd 2834 . . 3 ((𝑌 ∈ (SubGrp‘𝐺) ∧ 𝑥 𝑦) → (((invg𝐺)‘𝑦)(+g𝐺)𝑥) ∈ 𝑌)
266adantr 480 . . . 4 ((𝑌 ∈ (SubGrp‘𝐺) ∧ 𝑥 𝑦) → 𝑌𝑋)
275, 7, 8, 1eqgval 19091 . . . 4 ((𝐺 ∈ Grp ∧ 𝑌𝑋) → (𝑦 𝑥 ↔ (𝑦𝑋𝑥𝑋 ∧ (((invg𝐺)‘𝑦)(+g𝐺)𝑥) ∈ 𝑌)))
2814, 26, 27syl2anc 584 . . 3 ((𝑌 ∈ (SubGrp‘𝐺) ∧ 𝑥 𝑦) → (𝑦 𝑥 ↔ (𝑦𝑋𝑥𝑋 ∧ (((invg𝐺)‘𝑦)(+g𝐺)𝑥) ∈ 𝑌)))
2912, 13, 25, 28mpbir3and 1343 . 2 ((𝑌 ∈ (SubGrp‘𝐺) ∧ 𝑥 𝑦) → 𝑦 𝑥)
3013adantrr 717 . . 3 ((𝑌 ∈ (SubGrp‘𝐺) ∧ (𝑥 𝑦𝑦 𝑧)) → 𝑥𝑋)
315, 7, 8, 1eqgval 19091 . . . . . . 7 ((𝐺 ∈ Grp ∧ 𝑌𝑋) → (𝑦 𝑧 ↔ (𝑦𝑋𝑧𝑋 ∧ (((invg𝐺)‘𝑦)(+g𝐺)𝑧) ∈ 𝑌)))
324, 6, 31syl2anc 584 . . . . . 6 (𝑌 ∈ (SubGrp‘𝐺) → (𝑦 𝑧 ↔ (𝑦𝑋𝑧𝑋 ∧ (((invg𝐺)‘𝑦)(+g𝐺)𝑧) ∈ 𝑌)))
3332biimpa 476 . . . . 5 ((𝑌 ∈ (SubGrp‘𝐺) ∧ 𝑦 𝑧) → (𝑦𝑋𝑧𝑋 ∧ (((invg𝐺)‘𝑦)(+g𝐺)𝑧) ∈ 𝑌))
3433adantrl 716 . . . 4 ((𝑌 ∈ (SubGrp‘𝐺) ∧ (𝑥 𝑦𝑦 𝑧)) → (𝑦𝑋𝑧𝑋 ∧ (((invg𝐺)‘𝑦)(+g𝐺)𝑧) ∈ 𝑌))
3534simp2d 1143 . . 3 ((𝑌 ∈ (SubGrp‘𝐺) ∧ (𝑥 𝑦𝑦 𝑧)) → 𝑧𝑋)
364adantr 480 . . . . . 6 ((𝑌 ∈ (SubGrp‘𝐺) ∧ (𝑥 𝑦𝑦 𝑧)) → 𝐺 ∈ Grp)
375, 7, 36, 30grpinvcld 18903 . . . . . 6 ((𝑌 ∈ (SubGrp‘𝐺) ∧ (𝑥 𝑦𝑦 𝑧)) → ((invg𝐺)‘𝑥) ∈ 𝑋)
3812adantrr 717 . . . . . 6 ((𝑌 ∈ (SubGrp‘𝐺) ∧ (𝑥 𝑦𝑦 𝑧)) → 𝑦𝑋)
395, 7, 36, 38grpinvcld 18903 . . . . . . 7 ((𝑌 ∈ (SubGrp‘𝐺) ∧ (𝑥 𝑦𝑦 𝑧)) → ((invg𝐺)‘𝑦) ∈ 𝑋)
405, 8, 36, 39, 35grpcld 18862 . . . . . 6 ((𝑌 ∈ (SubGrp‘𝐺) ∧ (𝑥 𝑦𝑦 𝑧)) → (((invg𝐺)‘𝑦)(+g𝐺)𝑧) ∈ 𝑋)
415, 8, 36, 37, 38, 40grpassd 18860 . . . . 5 ((𝑌 ∈ (SubGrp‘𝐺) ∧ (𝑥 𝑦𝑦 𝑧)) → ((((invg𝐺)‘𝑥)(+g𝐺)𝑦)(+g𝐺)(((invg𝐺)‘𝑦)(+g𝐺)𝑧)) = (((invg𝐺)‘𝑥)(+g𝐺)(𝑦(+g𝐺)(((invg𝐺)‘𝑦)(+g𝐺)𝑧))))
42 eqid 2733 . . . . . . . . . 10 (0g𝐺) = (0g𝐺)
435, 8, 42, 7grprinv 18905 . . . . . . . . 9 ((𝐺 ∈ Grp ∧ 𝑦𝑋) → (𝑦(+g𝐺)((invg𝐺)‘𝑦)) = (0g𝐺))
4436, 38, 43syl2anc 584 . . . . . . . 8 ((𝑌 ∈ (SubGrp‘𝐺) ∧ (𝑥 𝑦𝑦 𝑧)) → (𝑦(+g𝐺)((invg𝐺)‘𝑦)) = (0g𝐺))
4544oveq1d 7367 . . . . . . 7 ((𝑌 ∈ (SubGrp‘𝐺) ∧ (𝑥 𝑦𝑦 𝑧)) → ((𝑦(+g𝐺)((invg𝐺)‘𝑦))(+g𝐺)𝑧) = ((0g𝐺)(+g𝐺)𝑧))
465, 8, 36, 38, 39, 35grpassd 18860 . . . . . . 7 ((𝑌 ∈ (SubGrp‘𝐺) ∧ (𝑥 𝑦𝑦 𝑧)) → ((𝑦(+g𝐺)((invg𝐺)‘𝑦))(+g𝐺)𝑧) = (𝑦(+g𝐺)(((invg𝐺)‘𝑦)(+g𝐺)𝑧)))
475, 8, 42, 36, 35grplidd 18884 . . . . . . 7 ((𝑌 ∈ (SubGrp‘𝐺) ∧ (𝑥 𝑦𝑦 𝑧)) → ((0g𝐺)(+g𝐺)𝑧) = 𝑧)
4845, 46, 473eqtr3d 2776 . . . . . 6 ((𝑌 ∈ (SubGrp‘𝐺) ∧ (𝑥 𝑦𝑦 𝑧)) → (𝑦(+g𝐺)(((invg𝐺)‘𝑦)(+g𝐺)𝑧)) = 𝑧)
4948oveq2d 7368 . . . . 5 ((𝑌 ∈ (SubGrp‘𝐺) ∧ (𝑥 𝑦𝑦 𝑧)) → (((invg𝐺)‘𝑥)(+g𝐺)(𝑦(+g𝐺)(((invg𝐺)‘𝑦)(+g𝐺)𝑧))) = (((invg𝐺)‘𝑥)(+g𝐺)𝑧))
5041, 49eqtrd 2768 . . . 4 ((𝑌 ∈ (SubGrp‘𝐺) ∧ (𝑥 𝑦𝑦 𝑧)) → ((((invg𝐺)‘𝑥)(+g𝐺)𝑦)(+g𝐺)(((invg𝐺)‘𝑦)(+g𝐺)𝑧)) = (((invg𝐺)‘𝑥)(+g𝐺)𝑧))
51 simpl 482 . . . . 5 ((𝑌 ∈ (SubGrp‘𝐺) ∧ (𝑥 𝑦𝑦 𝑧)) → 𝑌 ∈ (SubGrp‘𝐺))
5222adantrr 717 . . . . 5 ((𝑌 ∈ (SubGrp‘𝐺) ∧ (𝑥 𝑦𝑦 𝑧)) → (((invg𝐺)‘𝑥)(+g𝐺)𝑦) ∈ 𝑌)
5334simp3d 1144 . . . . 5 ((𝑌 ∈ (SubGrp‘𝐺) ∧ (𝑥 𝑦𝑦 𝑧)) → (((invg𝐺)‘𝑦)(+g𝐺)𝑧) ∈ 𝑌)
548subgcl 19051 . . . . 5 ((𝑌 ∈ (SubGrp‘𝐺) ∧ (((invg𝐺)‘𝑥)(+g𝐺)𝑦) ∈ 𝑌 ∧ (((invg𝐺)‘𝑦)(+g𝐺)𝑧) ∈ 𝑌) → ((((invg𝐺)‘𝑥)(+g𝐺)𝑦)(+g𝐺)(((invg𝐺)‘𝑦)(+g𝐺)𝑧)) ∈ 𝑌)
5551, 52, 53, 54syl3anc 1373 . . . 4 ((𝑌 ∈ (SubGrp‘𝐺) ∧ (𝑥 𝑦𝑦 𝑧)) → ((((invg𝐺)‘𝑥)(+g𝐺)𝑦)(+g𝐺)(((invg𝐺)‘𝑦)(+g𝐺)𝑧)) ∈ 𝑌)
5650, 55eqeltrrd 2834 . . 3 ((𝑌 ∈ (SubGrp‘𝐺) ∧ (𝑥 𝑦𝑦 𝑧)) → (((invg𝐺)‘𝑥)(+g𝐺)𝑧) ∈ 𝑌)
576adantr 480 . . . 4 ((𝑌 ∈ (SubGrp‘𝐺) ∧ (𝑥 𝑦𝑦 𝑧)) → 𝑌𝑋)
585, 7, 8, 1eqgval 19091 . . . 4 ((𝐺 ∈ Grp ∧ 𝑌𝑋) → (𝑥 𝑧 ↔ (𝑥𝑋𝑧𝑋 ∧ (((invg𝐺)‘𝑥)(+g𝐺)𝑧) ∈ 𝑌)))
5936, 57, 58syl2anc 584 . . 3 ((𝑌 ∈ (SubGrp‘𝐺) ∧ (𝑥 𝑦𝑦 𝑧)) → (𝑥 𝑧 ↔ (𝑥𝑋𝑧𝑋 ∧ (((invg𝐺)‘𝑥)(+g𝐺)𝑧) ∈ 𝑌)))
6030, 35, 56, 59mpbir3and 1343 . 2 ((𝑌 ∈ (SubGrp‘𝐺) ∧ (𝑥 𝑦𝑦 𝑧)) → 𝑥 𝑧)
615, 8, 42, 7grplinv 18904 . . . . . . 7 ((𝐺 ∈ Grp ∧ 𝑥𝑋) → (((invg𝐺)‘𝑥)(+g𝐺)𝑥) = (0g𝐺))
624, 61sylan 580 . . . . . 6 ((𝑌 ∈ (SubGrp‘𝐺) ∧ 𝑥𝑋) → (((invg𝐺)‘𝑥)(+g𝐺)𝑥) = (0g𝐺))
6342subg0cl 19049 . . . . . . 7 (𝑌 ∈ (SubGrp‘𝐺) → (0g𝐺) ∈ 𝑌)
6463adantr 480 . . . . . 6 ((𝑌 ∈ (SubGrp‘𝐺) ∧ 𝑥𝑋) → (0g𝐺) ∈ 𝑌)
6562, 64eqeltrd 2833 . . . . 5 ((𝑌 ∈ (SubGrp‘𝐺) ∧ 𝑥𝑋) → (((invg𝐺)‘𝑥)(+g𝐺)𝑥) ∈ 𝑌)
6665ex 412 . . . 4 (𝑌 ∈ (SubGrp‘𝐺) → (𝑥𝑋 → (((invg𝐺)‘𝑥)(+g𝐺)𝑥) ∈ 𝑌))
6766pm4.71rd 562 . . 3 (𝑌 ∈ (SubGrp‘𝐺) → (𝑥𝑋 ↔ ((((invg𝐺)‘𝑥)(+g𝐺)𝑥) ∈ 𝑌𝑥𝑋)))
685, 7, 8, 1eqgval 19091 . . . . 5 ((𝐺 ∈ Grp ∧ 𝑌𝑋) → (𝑥 𝑥 ↔ (𝑥𝑋𝑥𝑋 ∧ (((invg𝐺)‘𝑥)(+g𝐺)𝑥) ∈ 𝑌)))
694, 6, 68syl2anc 584 . . . 4 (𝑌 ∈ (SubGrp‘𝐺) → (𝑥 𝑥 ↔ (𝑥𝑋𝑥𝑋 ∧ (((invg𝐺)‘𝑥)(+g𝐺)𝑥) ∈ 𝑌)))
70 df-3an 1088 . . . . 5 ((𝑥𝑋𝑥𝑋 ∧ (((invg𝐺)‘𝑥)(+g𝐺)𝑥) ∈ 𝑌) ↔ ((𝑥𝑋𝑥𝑋) ∧ (((invg𝐺)‘𝑥)(+g𝐺)𝑥) ∈ 𝑌))
71 anidm 564 . . . . . 6 ((𝑥𝑋𝑥𝑋) ↔ 𝑥𝑋)
7271anbi2ci 625 . . . . 5 (((𝑥𝑋𝑥𝑋) ∧ (((invg𝐺)‘𝑥)(+g𝐺)𝑥) ∈ 𝑌) ↔ ((((invg𝐺)‘𝑥)(+g𝐺)𝑥) ∈ 𝑌𝑥𝑋))
7370, 72bitri 275 . . . 4 ((𝑥𝑋𝑥𝑋 ∧ (((invg𝐺)‘𝑥)(+g𝐺)𝑥) ∈ 𝑌) ↔ ((((invg𝐺)‘𝑥)(+g𝐺)𝑥) ∈ 𝑌𝑥𝑋))
7469, 73bitrdi 287 . . 3 (𝑌 ∈ (SubGrp‘𝐺) → (𝑥 𝑥 ↔ ((((invg𝐺)‘𝑥)(+g𝐺)𝑥) ∈ 𝑌𝑥𝑋)))
7567, 74bitr4d 282 . 2 (𝑌 ∈ (SubGrp‘𝐺) → (𝑥𝑋𝑥 𝑥))
763, 29, 60, 75iserd 8654 1 (𝑌 ∈ (SubGrp‘𝐺) → Er 𝑋)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 206  wa 395  w3a 1086   = wceq 1541  wcel 2113  wss 3898   class class class wbr 5093  Rel wrel 5624  cfv 6486  (class class class)co 7352   Er wer 8625  Basecbs 17122  +gcplusg 17163  0gc0g 17345  Grpcgrp 18848  invgcminusg 18849  SubGrpcsubg 19035   ~QG cqg 19037
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2115  ax-9 2123  ax-10 2146  ax-11 2162  ax-12 2182  ax-ext 2705  ax-sep 5236  ax-nul 5246  ax-pow 5305  ax-pr 5372  ax-un 7674  ax-cnex 11069  ax-resscn 11070  ax-1cn 11071  ax-icn 11072  ax-addcl 11073  ax-addrcl 11074  ax-mulcl 11075  ax-mulrcl 11076  ax-mulcom 11077  ax-addass 11078  ax-mulass 11079  ax-distr 11080  ax-i2m1 11081  ax-1ne0 11082  ax-1rid 11083  ax-rnegex 11084  ax-rrecex 11085  ax-cnre 11086  ax-pre-lttri 11087  ax-pre-lttrn 11088  ax-pre-ltadd 11089  ax-pre-mulgt0 11090
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2537  df-eu 2566  df-clab 2712  df-cleq 2725  df-clel 2808  df-nfc 2882  df-ne 2930  df-nel 3034  df-ral 3049  df-rex 3058  df-rmo 3347  df-reu 3348  df-rab 3397  df-v 3439  df-sbc 3738  df-csb 3847  df-dif 3901  df-un 3903  df-in 3905  df-ss 3915  df-pss 3918  df-nul 4283  df-if 4475  df-pw 4551  df-sn 4576  df-pr 4578  df-op 4582  df-uni 4859  df-iun 4943  df-br 5094  df-opab 5156  df-mpt 5175  df-tr 5201  df-id 5514  df-eprel 5519  df-po 5527  df-so 5528  df-fr 5572  df-we 5574  df-xp 5625  df-rel 5626  df-cnv 5627  df-co 5628  df-dm 5629  df-rn 5630  df-res 5631  df-ima 5632  df-pred 6253  df-ord 6314  df-on 6315  df-lim 6316  df-suc 6317  df-iota 6442  df-fun 6488  df-fn 6489  df-f 6490  df-f1 6491  df-fo 6492  df-f1o 6493  df-fv 6494  df-riota 7309  df-ov 7355  df-oprab 7356  df-mpo 7357  df-om 7803  df-1st 7927  df-2nd 7928  df-frecs 8217  df-wrecs 8248  df-recs 8297  df-rdg 8335  df-er 8628  df-en 8876  df-dom 8877  df-sdom 8878  df-pnf 11155  df-mnf 11156  df-xr 11157  df-ltxr 11158  df-le 11159  df-sub 11353  df-neg 11354  df-nn 12133  df-2 12195  df-sets 17077  df-slot 17095  df-ndx 17107  df-base 17123  df-ress 17144  df-plusg 17176  df-0g 17347  df-mgm 18550  df-sgrp 18629  df-mnd 18645  df-grp 18851  df-minusg 18852  df-subg 19038  df-eqg 19040
This theorem is referenced by:  eqg0el  19097  qusgrp  19100  qusadd  19102  lagsubg2  19108  lagsubg  19109  qus0subgadd  19113  ghmqusnsglem1  19194  ghmqusnsglem2  19195  ghmqusnsg  19196  ghmquskerlem1  19197  ghmquskerlem2  19199  ghmquskerlem3  19200  ghmqusker  19201  orbstafun  19225  orbstaval  19226  orbsta  19227  orbsta2  19228  sylow2blem1  19534  sylow2blem2  19535  sylow2blem3  19536  sylow3lem3  19543  sylow3lem4  19544  qusecsub  19749  2idlcpblrng  21210  qus2idrng  21212  qus1  21213  qusrhm  21215  qusmul2idl  21218  qusmulrng  21221  rhmqusnsg  21224  rngqipring1  21255  zndvds  21488  cldsubg  24027  qustgpopn  24036  qustgphaus  24039  tgptsmscls  24066  qusker  33321  qusvscpbl  33323  quslmod  33330  qusxpid  33335  qustrivr  33337  nsgqusf1olem3  33387  lmhmqusker  33389  rhmquskerlem  33397  qsidomlem1  33424  qsidomlem2  33425  qsnzr  33427  qsdrngilem  33466  qsdrnglem2  33468
  Copyright terms: Public domain W3C validator