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

Theorem pgpfaclem3 18922
Description: Lemma for pgpfac 18923. (Contributed by Mario Carneiro, 27-Apr-2016.) (Revised by Mario Carneiro, 3-May-2016.)
Hypotheses
Ref Expression
pgpfac.b 𝐵 = (Base‘𝐺)
pgpfac.c 𝐶 = {𝑟 ∈ (SubGrp‘𝐺) ∣ (𝐺s 𝑟) ∈ (CycGrp ∩ ran pGrp )}
pgpfac.g (𝜑𝐺 ∈ Abel)
pgpfac.p (𝜑𝑃 pGrp 𝐺)
pgpfac.f (𝜑𝐵 ∈ Fin)
pgpfac.u (𝜑𝑈 ∈ (SubGrp‘𝐺))
pgpfac.a (𝜑 → ∀𝑡 ∈ (SubGrp‘𝐺)(𝑡𝑈 → ∃𝑠 ∈ Word 𝐶(𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝑡)))
Assertion
Ref Expression
pgpfaclem3 (𝜑 → ∃𝑠 ∈ Word 𝐶(𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝑈))
Distinct variable groups:   𝑡,𝑠,𝐶   𝑠,𝑟,𝑡,𝐺   𝜑,𝑡   𝐵,𝑠,𝑡   𝑈,𝑟,𝑠,𝑡
Allowed substitution hints:   𝜑(𝑠,𝑟)   𝐵(𝑟)   𝐶(𝑟)   𝑃(𝑡,𝑠,𝑟)

Proof of Theorem pgpfaclem3
Dummy variables 𝑤 𝑥 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 wrd0 13735 . . 3 ∅ ∈ Word 𝐶
2 pgpfac.g . . . . . 6 (𝜑𝐺 ∈ Abel)
3 ablgrp 18638 . . . . . 6 (𝐺 ∈ Abel → 𝐺 ∈ Grp)
4 eqid 2794 . . . . . . 7 (0g𝐺) = (0g𝐺)
54dprd0 18870 . . . . . 6 (𝐺 ∈ Grp → (𝐺dom DProd ∅ ∧ (𝐺 DProd ∅) = {(0g𝐺)}))
62, 3, 53syl 18 . . . . 5 (𝜑 → (𝐺dom DProd ∅ ∧ (𝐺 DProd ∅) = {(0g𝐺)}))
76adantr 481 . . . 4 ((𝜑 ∧ (gEx‘(𝐺s 𝑈)) = 1) → (𝐺dom DProd ∅ ∧ (𝐺 DProd ∅) = {(0g𝐺)}))
8 pgpfac.u . . . . . . . . 9 (𝜑𝑈 ∈ (SubGrp‘𝐺))
94subg0cl 18041 . . . . . . . . 9 (𝑈 ∈ (SubGrp‘𝐺) → (0g𝐺) ∈ 𝑈)
108, 9syl 17 . . . . . . . 8 (𝜑 → (0g𝐺) ∈ 𝑈)
1110adantr 481 . . . . . . 7 ((𝜑 ∧ (gEx‘(𝐺s 𝑈)) = 1) → (0g𝐺) ∈ 𝑈)
12 eqid 2794 . . . . . . . . . . 11 (𝐺s 𝑈) = (𝐺s 𝑈)
1312subgbas 18037 . . . . . . . . . 10 (𝑈 ∈ (SubGrp‘𝐺) → 𝑈 = (Base‘(𝐺s 𝑈)))
148, 13syl 17 . . . . . . . . 9 (𝜑𝑈 = (Base‘(𝐺s 𝑈)))
1514adantr 481 . . . . . . . 8 ((𝜑 ∧ (gEx‘(𝐺s 𝑈)) = 1) → 𝑈 = (Base‘(𝐺s 𝑈)))
1612subggrp 18036 . . . . . . . . . . 11 (𝑈 ∈ (SubGrp‘𝐺) → (𝐺s 𝑈) ∈ Grp)
178, 16syl 17 . . . . . . . . . 10 (𝜑 → (𝐺s 𝑈) ∈ Grp)
18 grpmnd 17868 . . . . . . . . . 10 ((𝐺s 𝑈) ∈ Grp → (𝐺s 𝑈) ∈ Mnd)
19 eqid 2794 . . . . . . . . . . 11 (Base‘(𝐺s 𝑈)) = (Base‘(𝐺s 𝑈))
20 eqid 2794 . . . . . . . . . . 11 (gEx‘(𝐺s 𝑈)) = (gEx‘(𝐺s 𝑈))
2119, 20gex1 18446 . . . . . . . . . 10 ((𝐺s 𝑈) ∈ Mnd → ((gEx‘(𝐺s 𝑈)) = 1 ↔ (Base‘(𝐺s 𝑈)) ≈ 1o))
2217, 18, 213syl 18 . . . . . . . . 9 (𝜑 → ((gEx‘(𝐺s 𝑈)) = 1 ↔ (Base‘(𝐺s 𝑈)) ≈ 1o))
2322biimpa 477 . . . . . . . 8 ((𝜑 ∧ (gEx‘(𝐺s 𝑈)) = 1) → (Base‘(𝐺s 𝑈)) ≈ 1o)
2415, 23eqbrtrd 4986 . . . . . . 7 ((𝜑 ∧ (gEx‘(𝐺s 𝑈)) = 1) → 𝑈 ≈ 1o)
25 en1eqsn 8597 . . . . . . 7 (((0g𝐺) ∈ 𝑈𝑈 ≈ 1o) → 𝑈 = {(0g𝐺)})
2611, 24, 25syl2anc 584 . . . . . 6 ((𝜑 ∧ (gEx‘(𝐺s 𝑈)) = 1) → 𝑈 = {(0g𝐺)})
2726eqeq2d 2804 . . . . 5 ((𝜑 ∧ (gEx‘(𝐺s 𝑈)) = 1) → ((𝐺 DProd ∅) = 𝑈 ↔ (𝐺 DProd ∅) = {(0g𝐺)}))
2827anbi2d 628 . . . 4 ((𝜑 ∧ (gEx‘(𝐺s 𝑈)) = 1) → ((𝐺dom DProd ∅ ∧ (𝐺 DProd ∅) = 𝑈) ↔ (𝐺dom DProd ∅ ∧ (𝐺 DProd ∅) = {(0g𝐺)})))
297, 28mpbird 258 . . 3 ((𝜑 ∧ (gEx‘(𝐺s 𝑈)) = 1) → (𝐺dom DProd ∅ ∧ (𝐺 DProd ∅) = 𝑈))
30 breq2 4968 . . . . 5 (𝑠 = ∅ → (𝐺dom DProd 𝑠𝐺dom DProd ∅))
31 oveq2 7027 . . . . . 6 (𝑠 = ∅ → (𝐺 DProd 𝑠) = (𝐺 DProd ∅))
3231eqeq1d 2796 . . . . 5 (𝑠 = ∅ → ((𝐺 DProd 𝑠) = 𝑈 ↔ (𝐺 DProd ∅) = 𝑈))
3330, 32anbi12d 630 . . . 4 (𝑠 = ∅ → ((𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝑈) ↔ (𝐺dom DProd ∅ ∧ (𝐺 DProd ∅) = 𝑈)))
3433rspcev 3557 . . 3 ((∅ ∈ Word 𝐶 ∧ (𝐺dom DProd ∅ ∧ (𝐺 DProd ∅) = 𝑈)) → ∃𝑠 ∈ Word 𝐶(𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝑈))
351, 29, 34sylancr 587 . 2 ((𝜑 ∧ (gEx‘(𝐺s 𝑈)) = 1) → ∃𝑠 ∈ Word 𝐶(𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝑈))
3612subgabl 18681 . . . . . 6 ((𝐺 ∈ Abel ∧ 𝑈 ∈ (SubGrp‘𝐺)) → (𝐺s 𝑈) ∈ Abel)
372, 8, 36syl2anc 584 . . . . 5 (𝜑 → (𝐺s 𝑈) ∈ Abel)
38 pgpfac.f . . . . . . . 8 (𝜑𝐵 ∈ Fin)
39 pgpfac.b . . . . . . . . . 10 𝐵 = (Base‘𝐺)
4039subgss 18034 . . . . . . . . 9 (𝑈 ∈ (SubGrp‘𝐺) → 𝑈𝐵)
418, 40syl 17 . . . . . . . 8 (𝜑𝑈𝐵)
4238, 41ssfid 8590 . . . . . . 7 (𝜑𝑈 ∈ Fin)
4314, 42eqeltrrd 2883 . . . . . 6 (𝜑 → (Base‘(𝐺s 𝑈)) ∈ Fin)
4419, 20gexcl2 18444 . . . . . 6 (((𝐺s 𝑈) ∈ Grp ∧ (Base‘(𝐺s 𝑈)) ∈ Fin) → (gEx‘(𝐺s 𝑈)) ∈ ℕ)
4517, 43, 44syl2anc 584 . . . . 5 (𝜑 → (gEx‘(𝐺s 𝑈)) ∈ ℕ)
46 eqid 2794 . . . . . 6 (od‘(𝐺s 𝑈)) = (od‘(𝐺s 𝑈))
4719, 20, 46gexex 18696 . . . . 5 (((𝐺s 𝑈) ∈ Abel ∧ (gEx‘(𝐺s 𝑈)) ∈ ℕ) → ∃𝑥 ∈ (Base‘(𝐺s 𝑈))((od‘(𝐺s 𝑈))‘𝑥) = (gEx‘(𝐺s 𝑈)))
4837, 45, 47syl2anc 584 . . . 4 (𝜑 → ∃𝑥 ∈ (Base‘(𝐺s 𝑈))((od‘(𝐺s 𝑈))‘𝑥) = (gEx‘(𝐺s 𝑈)))
4948adantr 481 . . 3 ((𝜑 ∧ (gEx‘(𝐺s 𝑈)) ≠ 1) → ∃𝑥 ∈ (Base‘(𝐺s 𝑈))((od‘(𝐺s 𝑈))‘𝑥) = (gEx‘(𝐺s 𝑈)))
50 eqid 2794 . . . . 5 (mrCls‘(SubGrp‘(𝐺s 𝑈))) = (mrCls‘(SubGrp‘(𝐺s 𝑈)))
51 eqid 2794 . . . . 5 ((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥}) = ((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥})
52 eqid 2794 . . . . 5 (0g‘(𝐺s 𝑈)) = (0g‘(𝐺s 𝑈))
53 eqid 2794 . . . . 5 (LSSum‘(𝐺s 𝑈)) = (LSSum‘(𝐺s 𝑈))
54 pgpfac.p . . . . . . 7 (𝜑𝑃 pGrp 𝐺)
55 subgpgp 18452 . . . . . . 7 ((𝑃 pGrp 𝐺𝑈 ∈ (SubGrp‘𝐺)) → 𝑃 pGrp (𝐺s 𝑈))
5654, 8, 55syl2anc 584 . . . . . 6 (𝜑𝑃 pGrp (𝐺s 𝑈))
5756ad2antrr 722 . . . . 5 (((𝜑 ∧ (gEx‘(𝐺s 𝑈)) ≠ 1) ∧ (𝑥 ∈ (Base‘(𝐺s 𝑈)) ∧ ((od‘(𝐺s 𝑈))‘𝑥) = (gEx‘(𝐺s 𝑈)))) → 𝑃 pGrp (𝐺s 𝑈))
5837ad2antrr 722 . . . . 5 (((𝜑 ∧ (gEx‘(𝐺s 𝑈)) ≠ 1) ∧ (𝑥 ∈ (Base‘(𝐺s 𝑈)) ∧ ((od‘(𝐺s 𝑈))‘𝑥) = (gEx‘(𝐺s 𝑈)))) → (𝐺s 𝑈) ∈ Abel)
5943ad2antrr 722 . . . . 5 (((𝜑 ∧ (gEx‘(𝐺s 𝑈)) ≠ 1) ∧ (𝑥 ∈ (Base‘(𝐺s 𝑈)) ∧ ((od‘(𝐺s 𝑈))‘𝑥) = (gEx‘(𝐺s 𝑈)))) → (Base‘(𝐺s 𝑈)) ∈ Fin)
60 simprr 769 . . . . 5 (((𝜑 ∧ (gEx‘(𝐺s 𝑈)) ≠ 1) ∧ (𝑥 ∈ (Base‘(𝐺s 𝑈)) ∧ ((od‘(𝐺s 𝑈))‘𝑥) = (gEx‘(𝐺s 𝑈)))) → ((od‘(𝐺s 𝑈))‘𝑥) = (gEx‘(𝐺s 𝑈)))
61 simprl 767 . . . . 5 (((𝜑 ∧ (gEx‘(𝐺s 𝑈)) ≠ 1) ∧ (𝑥 ∈ (Base‘(𝐺s 𝑈)) ∧ ((od‘(𝐺s 𝑈))‘𝑥) = (gEx‘(𝐺s 𝑈)))) → 𝑥 ∈ (Base‘(𝐺s 𝑈)))
6250, 51, 19, 46, 20, 52, 53, 57, 58, 59, 60, 61pgpfac1 18919 . . . 4 (((𝜑 ∧ (gEx‘(𝐺s 𝑈)) ≠ 1) ∧ (𝑥 ∈ (Base‘(𝐺s 𝑈)) ∧ ((od‘(𝐺s 𝑈))‘𝑥) = (gEx‘(𝐺s 𝑈)))) → ∃𝑤 ∈ (SubGrp‘(𝐺s 𝑈))((((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥}) ∩ 𝑤) = {(0g‘(𝐺s 𝑈))} ∧ (((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥})(LSSum‘(𝐺s 𝑈))𝑤) = (Base‘(𝐺s 𝑈))))
63 pgpfac.c . . . . 5 𝐶 = {𝑟 ∈ (SubGrp‘𝐺) ∣ (𝐺s 𝑟) ∈ (CycGrp ∩ ran pGrp )}
642ad3antrrr 726 . . . . 5 ((((𝜑 ∧ (gEx‘(𝐺s 𝑈)) ≠ 1) ∧ (𝑥 ∈ (Base‘(𝐺s 𝑈)) ∧ ((od‘(𝐺s 𝑈))‘𝑥) = (gEx‘(𝐺s 𝑈)))) ∧ (𝑤 ∈ (SubGrp‘(𝐺s 𝑈)) ∧ ((((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥}) ∩ 𝑤) = {(0g‘(𝐺s 𝑈))} ∧ (((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥})(LSSum‘(𝐺s 𝑈))𝑤) = (Base‘(𝐺s 𝑈))))) → 𝐺 ∈ Abel)
6554ad3antrrr 726 . . . . 5 ((((𝜑 ∧ (gEx‘(𝐺s 𝑈)) ≠ 1) ∧ (𝑥 ∈ (Base‘(𝐺s 𝑈)) ∧ ((od‘(𝐺s 𝑈))‘𝑥) = (gEx‘(𝐺s 𝑈)))) ∧ (𝑤 ∈ (SubGrp‘(𝐺s 𝑈)) ∧ ((((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥}) ∩ 𝑤) = {(0g‘(𝐺s 𝑈))} ∧ (((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥})(LSSum‘(𝐺s 𝑈))𝑤) = (Base‘(𝐺s 𝑈))))) → 𝑃 pGrp 𝐺)
6638ad3antrrr 726 . . . . 5 ((((𝜑 ∧ (gEx‘(𝐺s 𝑈)) ≠ 1) ∧ (𝑥 ∈ (Base‘(𝐺s 𝑈)) ∧ ((od‘(𝐺s 𝑈))‘𝑥) = (gEx‘(𝐺s 𝑈)))) ∧ (𝑤 ∈ (SubGrp‘(𝐺s 𝑈)) ∧ ((((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥}) ∩ 𝑤) = {(0g‘(𝐺s 𝑈))} ∧ (((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥})(LSSum‘(𝐺s 𝑈))𝑤) = (Base‘(𝐺s 𝑈))))) → 𝐵 ∈ Fin)
678ad3antrrr 726 . . . . 5 ((((𝜑 ∧ (gEx‘(𝐺s 𝑈)) ≠ 1) ∧ (𝑥 ∈ (Base‘(𝐺s 𝑈)) ∧ ((od‘(𝐺s 𝑈))‘𝑥) = (gEx‘(𝐺s 𝑈)))) ∧ (𝑤 ∈ (SubGrp‘(𝐺s 𝑈)) ∧ ((((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥}) ∩ 𝑤) = {(0g‘(𝐺s 𝑈))} ∧ (((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥})(LSSum‘(𝐺s 𝑈))𝑤) = (Base‘(𝐺s 𝑈))))) → 𝑈 ∈ (SubGrp‘𝐺))
68 pgpfac.a . . . . . 6 (𝜑 → ∀𝑡 ∈ (SubGrp‘𝐺)(𝑡𝑈 → ∃𝑠 ∈ Word 𝐶(𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝑡)))
6968ad3antrrr 726 . . . . 5 ((((𝜑 ∧ (gEx‘(𝐺s 𝑈)) ≠ 1) ∧ (𝑥 ∈ (Base‘(𝐺s 𝑈)) ∧ ((od‘(𝐺s 𝑈))‘𝑥) = (gEx‘(𝐺s 𝑈)))) ∧ (𝑤 ∈ (SubGrp‘(𝐺s 𝑈)) ∧ ((((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥}) ∩ 𝑤) = {(0g‘(𝐺s 𝑈))} ∧ (((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥})(LSSum‘(𝐺s 𝑈))𝑤) = (Base‘(𝐺s 𝑈))))) → ∀𝑡 ∈ (SubGrp‘𝐺)(𝑡𝑈 → ∃𝑠 ∈ Word 𝐶(𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝑡)))
70 simpllr 772 . . . . 5 ((((𝜑 ∧ (gEx‘(𝐺s 𝑈)) ≠ 1) ∧ (𝑥 ∈ (Base‘(𝐺s 𝑈)) ∧ ((od‘(𝐺s 𝑈))‘𝑥) = (gEx‘(𝐺s 𝑈)))) ∧ (𝑤 ∈ (SubGrp‘(𝐺s 𝑈)) ∧ ((((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥}) ∩ 𝑤) = {(0g‘(𝐺s 𝑈))} ∧ (((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥})(LSSum‘(𝐺s 𝑈))𝑤) = (Base‘(𝐺s 𝑈))))) → (gEx‘(𝐺s 𝑈)) ≠ 1)
71 simplrl 773 . . . . . 6 ((((𝜑 ∧ (gEx‘(𝐺s 𝑈)) ≠ 1) ∧ (𝑥 ∈ (Base‘(𝐺s 𝑈)) ∧ ((od‘(𝐺s 𝑈))‘𝑥) = (gEx‘(𝐺s 𝑈)))) ∧ (𝑤 ∈ (SubGrp‘(𝐺s 𝑈)) ∧ ((((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥}) ∩ 𝑤) = {(0g‘(𝐺s 𝑈))} ∧ (((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥})(LSSum‘(𝐺s 𝑈))𝑤) = (Base‘(𝐺s 𝑈))))) → 𝑥 ∈ (Base‘(𝐺s 𝑈)))
7267, 13syl 17 . . . . . 6 ((((𝜑 ∧ (gEx‘(𝐺s 𝑈)) ≠ 1) ∧ (𝑥 ∈ (Base‘(𝐺s 𝑈)) ∧ ((od‘(𝐺s 𝑈))‘𝑥) = (gEx‘(𝐺s 𝑈)))) ∧ (𝑤 ∈ (SubGrp‘(𝐺s 𝑈)) ∧ ((((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥}) ∩ 𝑤) = {(0g‘(𝐺s 𝑈))} ∧ (((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥})(LSSum‘(𝐺s 𝑈))𝑤) = (Base‘(𝐺s 𝑈))))) → 𝑈 = (Base‘(𝐺s 𝑈)))
7371, 72eleqtrrd 2885 . . . . 5 ((((𝜑 ∧ (gEx‘(𝐺s 𝑈)) ≠ 1) ∧ (𝑥 ∈ (Base‘(𝐺s 𝑈)) ∧ ((od‘(𝐺s 𝑈))‘𝑥) = (gEx‘(𝐺s 𝑈)))) ∧ (𝑤 ∈ (SubGrp‘(𝐺s 𝑈)) ∧ ((((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥}) ∩ 𝑤) = {(0g‘(𝐺s 𝑈))} ∧ (((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥})(LSSum‘(𝐺s 𝑈))𝑤) = (Base‘(𝐺s 𝑈))))) → 𝑥𝑈)
74 simplrr 774 . . . . 5 ((((𝜑 ∧ (gEx‘(𝐺s 𝑈)) ≠ 1) ∧ (𝑥 ∈ (Base‘(𝐺s 𝑈)) ∧ ((od‘(𝐺s 𝑈))‘𝑥) = (gEx‘(𝐺s 𝑈)))) ∧ (𝑤 ∈ (SubGrp‘(𝐺s 𝑈)) ∧ ((((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥}) ∩ 𝑤) = {(0g‘(𝐺s 𝑈))} ∧ (((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥})(LSSum‘(𝐺s 𝑈))𝑤) = (Base‘(𝐺s 𝑈))))) → ((od‘(𝐺s 𝑈))‘𝑥) = (gEx‘(𝐺s 𝑈)))
75 simprl 767 . . . . 5 ((((𝜑 ∧ (gEx‘(𝐺s 𝑈)) ≠ 1) ∧ (𝑥 ∈ (Base‘(𝐺s 𝑈)) ∧ ((od‘(𝐺s 𝑈))‘𝑥) = (gEx‘(𝐺s 𝑈)))) ∧ (𝑤 ∈ (SubGrp‘(𝐺s 𝑈)) ∧ ((((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥}) ∩ 𝑤) = {(0g‘(𝐺s 𝑈))} ∧ (((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥})(LSSum‘(𝐺s 𝑈))𝑤) = (Base‘(𝐺s 𝑈))))) → 𝑤 ∈ (SubGrp‘(𝐺s 𝑈)))
76 simprrl 777 . . . . 5 ((((𝜑 ∧ (gEx‘(𝐺s 𝑈)) ≠ 1) ∧ (𝑥 ∈ (Base‘(𝐺s 𝑈)) ∧ ((od‘(𝐺s 𝑈))‘𝑥) = (gEx‘(𝐺s 𝑈)))) ∧ (𝑤 ∈ (SubGrp‘(𝐺s 𝑈)) ∧ ((((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥}) ∩ 𝑤) = {(0g‘(𝐺s 𝑈))} ∧ (((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥})(LSSum‘(𝐺s 𝑈))𝑤) = (Base‘(𝐺s 𝑈))))) → (((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥}) ∩ 𝑤) = {(0g‘(𝐺s 𝑈))})
77 simprrr 778 . . . . . 6 ((((𝜑 ∧ (gEx‘(𝐺s 𝑈)) ≠ 1) ∧ (𝑥 ∈ (Base‘(𝐺s 𝑈)) ∧ ((od‘(𝐺s 𝑈))‘𝑥) = (gEx‘(𝐺s 𝑈)))) ∧ (𝑤 ∈ (SubGrp‘(𝐺s 𝑈)) ∧ ((((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥}) ∩ 𝑤) = {(0g‘(𝐺s 𝑈))} ∧ (((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥})(LSSum‘(𝐺s 𝑈))𝑤) = (Base‘(𝐺s 𝑈))))) → (((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥})(LSSum‘(𝐺s 𝑈))𝑤) = (Base‘(𝐺s 𝑈)))
7877, 72eqtr4d 2833 . . . . 5 ((((𝜑 ∧ (gEx‘(𝐺s 𝑈)) ≠ 1) ∧ (𝑥 ∈ (Base‘(𝐺s 𝑈)) ∧ ((od‘(𝐺s 𝑈))‘𝑥) = (gEx‘(𝐺s 𝑈)))) ∧ (𝑤 ∈ (SubGrp‘(𝐺s 𝑈)) ∧ ((((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥}) ∩ 𝑤) = {(0g‘(𝐺s 𝑈))} ∧ (((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥})(LSSum‘(𝐺s 𝑈))𝑤) = (Base‘(𝐺s 𝑈))))) → (((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥})(LSSum‘(𝐺s 𝑈))𝑤) = 𝑈)
7939, 63, 64, 65, 66, 67, 69, 12, 50, 46, 20, 52, 53, 70, 73, 74, 75, 76, 78pgpfaclem2 18921 . . . 4 ((((𝜑 ∧ (gEx‘(𝐺s 𝑈)) ≠ 1) ∧ (𝑥 ∈ (Base‘(𝐺s 𝑈)) ∧ ((od‘(𝐺s 𝑈))‘𝑥) = (gEx‘(𝐺s 𝑈)))) ∧ (𝑤 ∈ (SubGrp‘(𝐺s 𝑈)) ∧ ((((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥}) ∩ 𝑤) = {(0g‘(𝐺s 𝑈))} ∧ (((mrCls‘(SubGrp‘(𝐺s 𝑈)))‘{𝑥})(LSSum‘(𝐺s 𝑈))𝑤) = (Base‘(𝐺s 𝑈))))) → ∃𝑠 ∈ Word 𝐶(𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝑈))
8062, 79rexlimddv 3253 . . 3 (((𝜑 ∧ (gEx‘(𝐺s 𝑈)) ≠ 1) ∧ (𝑥 ∈ (Base‘(𝐺s 𝑈)) ∧ ((od‘(𝐺s 𝑈))‘𝑥) = (gEx‘(𝐺s 𝑈)))) → ∃𝑠 ∈ Word 𝐶(𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝑈))
8149, 80rexlimddv 3253 . 2 ((𝜑 ∧ (gEx‘(𝐺s 𝑈)) ≠ 1) → ∃𝑠 ∈ Word 𝐶(𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝑈))
8235, 81pm2.61dane 3071 1 (𝜑 → ∃𝑠 ∈ Word 𝐶(𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝑈))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 207  wa 396   = wceq 1522  wcel 2080  wne 2983  wral 3104  wrex 3105  {crab 3108  cin 3860  wss 3861  wpss 3862  c0 4213  {csn 4474   class class class wbr 4964  dom cdm 5446  ran crn 5447  cfv 6228  (class class class)co 7019  1oc1o 7949  cen 8357  Fincfn 8360  1c1 10387  cn 11488  Word cword 13707  Basecbs 16312  s cress 16313  0gc0g 16542  mrClscmrc 16683  Mndcmnd 17733  Grpcgrp 17861  SubGrpcsubg 18027  odcod 18383  gExcgex 18384   pGrp cpgp 18385  LSSumclsm 18489  Abelcabl 18634  CycGrpccyg 18719   DProd cdprd 18832
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1778  ax-4 1792  ax-5 1889  ax-6 1948  ax-7 1993  ax-8 2082  ax-9 2090  ax-10 2111  ax-11 2125  ax-12 2140  ax-13 2343  ax-ext 2768  ax-rep 5084  ax-sep 5097  ax-nul 5104  ax-pow 5160  ax-pr 5224  ax-un 7322  ax-inf2 8953  ax-cnex 10442  ax-resscn 10443  ax-1cn 10444  ax-icn 10445  ax-addcl 10446  ax-addrcl 10447  ax-mulcl 10448  ax-mulrcl 10449  ax-mulcom 10450  ax-addass 10451  ax-mulass 10452  ax-distr 10453  ax-i2m1 10454  ax-1ne0 10455  ax-1rid 10456  ax-rnegex 10457  ax-rrecex 10458  ax-cnre 10459  ax-pre-lttri 10460  ax-pre-lttrn 10461  ax-pre-ltadd 10462  ax-pre-mulgt0 10463  ax-pre-sup 10464
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 843  df-3or 1081  df-3an 1082  df-tru 1525  df-fal 1535  df-ex 1763  df-nf 1767  df-sb 2042  df-mo 2575  df-eu 2611  df-clab 2775  df-cleq 2787  df-clel 2862  df-nfc 2934  df-ne 2984  df-nel 3090  df-ral 3109  df-rex 3110  df-reu 3111  df-rmo 3112  df-rab 3113  df-v 3438  df-sbc 3708  df-csb 3814  df-dif 3864  df-un 3866  df-in 3868  df-ss 3876  df-pss 3878  df-nul 4214  df-if 4384  df-pw 4457  df-sn 4475  df-pr 4477  df-tp 4479  df-op 4481  df-uni 4748  df-int 4785  df-iun 4829  df-iin 4830  df-disj 4933  df-br 4965  df-opab 5027  df-mpt 5044  df-tr 5067  df-id 5351  df-eprel 5356  df-po 5365  df-so 5366  df-fr 5405  df-se 5406  df-we 5407  df-xp 5452  df-rel 5453  df-cnv 5454  df-co 5455  df-dm 5456  df-rn 5457  df-res 5458  df-ima 5459  df-pred 6026  df-ord 6072  df-on 6073  df-lim 6074  df-suc 6075  df-iota 6192  df-fun 6230  df-fn 6231  df-f 6232  df-f1 6233  df-fo 6234  df-f1o 6235  df-fv 6236  df-isom 6237  df-riota 6980  df-ov 7022  df-oprab 7023  df-mpo 7024  df-of 7270  df-rpss 7310  df-om 7440  df-1st 7548  df-2nd 7549  df-supp 7685  df-tpos 7746  df-wrecs 7801  df-recs 7863  df-rdg 7901  df-1o 7956  df-2o 7957  df-oadd 7960  df-omul 7961  df-er 8142  df-ec 8144  df-qs 8148  df-map 8261  df-ixp 8314  df-en 8361  df-dom 8362  df-sdom 8363  df-fin 8364  df-fsupp 8683  df-sup 8755  df-inf 8756  df-oi 8823  df-dju 9179  df-card 9217  df-acn 9220  df-pnf 10526  df-mnf 10527  df-xr 10528  df-ltxr 10529  df-le 10530  df-sub 10721  df-neg 10722  df-div 11148  df-nn 11489  df-2 11550  df-3 11551  df-n0 11748  df-xnn0 11818  df-z 11832  df-uz 12094  df-q 12198  df-rp 12240  df-fz 12743  df-fzo 12884  df-fl 13012  df-mod 13088  df-seq 13220  df-exp 13280  df-fac 13484  df-bc 13513  df-hash 13541  df-word 13708  df-concat 13769  df-s1 13794  df-cj 14292  df-re 14293  df-im 14294  df-sqrt 14428  df-abs 14429  df-clim 14679  df-sum 14877  df-dvds 15441  df-gcd 15677  df-prm 15845  df-pc 16003  df-ndx 16315  df-slot 16316  df-base 16318  df-sets 16319  df-ress 16320  df-plusg 16407  df-0g 16544  df-gsum 16545  df-mre 16686  df-mrc 16687  df-acs 16689  df-mgm 17681  df-sgrp 17723  df-mnd 17734  df-mhm 17774  df-submnd 17775  df-grp 17864  df-minusg 17865  df-sbg 17866  df-mulg 17982  df-subg 18030  df-eqg 18032  df-ghm 18097  df-gim 18140  df-ga 18161  df-cntz 18188  df-oppg 18215  df-od 18387  df-gex 18388  df-pgp 18389  df-lsm 18491  df-pj1 18492  df-cmn 18635  df-abl 18636  df-cyg 18720  df-dprd 18834
This theorem is referenced by:  pgpfac  18923
  Copyright terms: Public domain W3C validator