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

Theorem pgpfac1lem5 19908
Description: Lemma for pgpfac1 19909. (Contributed by Mario Carneiro, 27-Apr-2016.)
Hypotheses
Ref Expression
pgpfac1.k 𝐾 = (mrCls‘(SubGrp‘𝐺))
pgpfac1.s 𝑆 = (𝐾‘{𝐴})
pgpfac1.b 𝐵 = (Base‘𝐺)
pgpfac1.o 𝑂 = (od‘𝐺)
pgpfac1.e 𝐸 = (gEx‘𝐺)
pgpfac1.z 0 = (0g𝐺)
pgpfac1.l = (LSSum‘𝐺)
pgpfac1.p (𝜑𝑃 pGrp 𝐺)
pgpfac1.g (𝜑𝐺 ∈ Abel)
pgpfac1.n (𝜑𝐵 ∈ Fin)
pgpfac1.oe (𝜑 → (𝑂𝐴) = 𝐸)
pgpfac1.u (𝜑𝑈 ∈ (SubGrp‘𝐺))
pgpfac1.au (𝜑𝐴𝑈)
pgpfac1.3 (𝜑 → ∀𝑠 ∈ (SubGrp‘𝐺)((𝑠𝑈𝐴𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆𝑡) = { 0 } ∧ (𝑆 𝑡) = 𝑠)))
Assertion
Ref Expression
pgpfac1lem5 (𝜑 → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆𝑡) = { 0 } ∧ (𝑆 𝑡) = 𝑈))
Distinct variable groups:   𝑡,𝑠, 0   𝐴,𝑠,𝑡   ,𝑠,𝑡   𝑃,𝑠,𝑡   𝐵,𝑠,𝑡   𝐺,𝑠,𝑡   𝑈,𝑠,𝑡   𝑆,𝑠,𝑡   𝜑,𝑠,𝑡   𝐾,𝑠,𝑡
Allowed substitution hints:   𝐸(𝑡,𝑠)   𝑂(𝑡,𝑠)

Proof of Theorem pgpfac1lem5
Dummy variables 𝑏 𝑢 𝑣 𝑦 𝑤 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 pgpfac1.n . . . . . . . . . 10 (𝜑𝐵 ∈ Fin)
2 pwfi 9161 . . . . . . . . . 10 (𝐵 ∈ Fin ↔ 𝒫 𝐵 ∈ Fin)
31, 2sylib 217 . . . . . . . . 9 (𝜑 → 𝒫 𝐵 ∈ Fin)
43adantr 481 . . . . . . . 8 ((𝜑𝑆𝑈) → 𝒫 𝐵 ∈ Fin)
5 pgpfac1.b . . . . . . . . . . . 12 𝐵 = (Base‘𝐺)
65subgss 18979 . . . . . . . . . . 11 (𝑣 ∈ (SubGrp‘𝐺) → 𝑣𝐵)
763ad2ant2 1134 . . . . . . . . . 10 (((𝜑𝑆𝑈) ∧ 𝑣 ∈ (SubGrp‘𝐺) ∧ (𝑣𝑈𝐴𝑣)) → 𝑣𝐵)
8 velpw 4601 . . . . . . . . . 10 (𝑣 ∈ 𝒫 𝐵𝑣𝐵)
97, 8sylibr 233 . . . . . . . . 9 (((𝜑𝑆𝑈) ∧ 𝑣 ∈ (SubGrp‘𝐺) ∧ (𝑣𝑈𝐴𝑣)) → 𝑣 ∈ 𝒫 𝐵)
109rabssdv 4068 . . . . . . . 8 ((𝜑𝑆𝑈) → {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)} ⊆ 𝒫 𝐵)
114, 10ssfid 9250 . . . . . . 7 ((𝜑𝑆𝑈) → {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)} ∈ Fin)
12 finnum 9925 . . . . . . 7 ({𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)} ∈ Fin → {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)} ∈ dom card)
1311, 12syl 17 . . . . . 6 ((𝜑𝑆𝑈) → {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)} ∈ dom card)
14 pgpfac1.s . . . . . . . . . 10 𝑆 = (𝐾‘{𝐴})
15 pgpfac1.g . . . . . . . . . . . . 13 (𝜑𝐺 ∈ Abel)
16 ablgrp 19617 . . . . . . . . . . . . 13 (𝐺 ∈ Abel → 𝐺 ∈ Grp)
1715, 16syl 17 . . . . . . . . . . . 12 (𝜑𝐺 ∈ Grp)
185subgacs 19013 . . . . . . . . . . . 12 (𝐺 ∈ Grp → (SubGrp‘𝐺) ∈ (ACS‘𝐵))
19 acsmre 17578 . . . . . . . . . . . 12 ((SubGrp‘𝐺) ∈ (ACS‘𝐵) → (SubGrp‘𝐺) ∈ (Moore‘𝐵))
2017, 18, 193syl 18 . . . . . . . . . . 11 (𝜑 → (SubGrp‘𝐺) ∈ (Moore‘𝐵))
21 pgpfac1.u . . . . . . . . . . . . 13 (𝜑𝑈 ∈ (SubGrp‘𝐺))
225subgss 18979 . . . . . . . . . . . . 13 (𝑈 ∈ (SubGrp‘𝐺) → 𝑈𝐵)
2321, 22syl 17 . . . . . . . . . . . 12 (𝜑𝑈𝐵)
24 pgpfac1.au . . . . . . . . . . . 12 (𝜑𝐴𝑈)
2523, 24sseldd 3979 . . . . . . . . . . 11 (𝜑𝐴𝐵)
26 pgpfac1.k . . . . . . . . . . . 12 𝐾 = (mrCls‘(SubGrp‘𝐺))
2726mrcsncl 17538 . . . . . . . . . . 11 (((SubGrp‘𝐺) ∈ (Moore‘𝐵) ∧ 𝐴𝐵) → (𝐾‘{𝐴}) ∈ (SubGrp‘𝐺))
2820, 25, 27syl2anc 584 . . . . . . . . . 10 (𝜑 → (𝐾‘{𝐴}) ∈ (SubGrp‘𝐺))
2914, 28eqeltrid 2836 . . . . . . . . 9 (𝜑𝑆 ∈ (SubGrp‘𝐺))
3029adantr 481 . . . . . . . 8 ((𝜑𝑆𝑈) → 𝑆 ∈ (SubGrp‘𝐺))
31 simpr 485 . . . . . . . 8 ((𝜑𝑆𝑈) → 𝑆𝑈)
3224snssd 4805 . . . . . . . . . . . . 13 (𝜑 → {𝐴} ⊆ 𝑈)
3332, 23sstrd 3988 . . . . . . . . . . . 12 (𝜑 → {𝐴} ⊆ 𝐵)
3420, 26, 33mrcssidd 17551 . . . . . . . . . . 11 (𝜑 → {𝐴} ⊆ (𝐾‘{𝐴}))
3534, 14sseqtrrdi 4029 . . . . . . . . . 10 (𝜑 → {𝐴} ⊆ 𝑆)
36 snssg 4780 . . . . . . . . . . 11 (𝐴𝐵 → (𝐴𝑆 ↔ {𝐴} ⊆ 𝑆))
3725, 36syl 17 . . . . . . . . . 10 (𝜑 → (𝐴𝑆 ↔ {𝐴} ⊆ 𝑆))
3835, 37mpbird 256 . . . . . . . . 9 (𝜑𝐴𝑆)
3938adantr 481 . . . . . . . 8 ((𝜑𝑆𝑈) → 𝐴𝑆)
40 psseq1 4083 . . . . . . . . . 10 (𝑣 = 𝑆 → (𝑣𝑈𝑆𝑈))
41 eleq2 2821 . . . . . . . . . 10 (𝑣 = 𝑆 → (𝐴𝑣𝐴𝑆))
4240, 41anbi12d 631 . . . . . . . . 9 (𝑣 = 𝑆 → ((𝑣𝑈𝐴𝑣) ↔ (𝑆𝑈𝐴𝑆)))
4342rspcev 3609 . . . . . . . 8 ((𝑆 ∈ (SubGrp‘𝐺) ∧ (𝑆𝑈𝐴𝑆)) → ∃𝑣 ∈ (SubGrp‘𝐺)(𝑣𝑈𝐴𝑣))
4430, 31, 39, 43syl12anc 835 . . . . . . 7 ((𝜑𝑆𝑈) → ∃𝑣 ∈ (SubGrp‘𝐺)(𝑣𝑈𝐴𝑣))
45 rabn0 4381 . . . . . . 7 ({𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)} ≠ ∅ ↔ ∃𝑣 ∈ (SubGrp‘𝐺)(𝑣𝑈𝐴𝑣))
4644, 45sylibr 233 . . . . . 6 ((𝜑𝑆𝑈) → {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)} ≠ ∅)
47 simpr1 1194 . . . . . . . . 9 (((𝜑𝑆𝑈) ∧ (𝑢 ⊆ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)} ∧ 𝑢 ≠ ∅ ∧ [] Or 𝑢)) → 𝑢 ⊆ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)})
48 simpr2 1195 . . . . . . . . . 10 (((𝜑𝑆𝑈) ∧ (𝑢 ⊆ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)} ∧ 𝑢 ≠ ∅ ∧ [] Or 𝑢)) → 𝑢 ≠ ∅)
4911adantr 481 . . . . . . . . . . 11 (((𝜑𝑆𝑈) ∧ (𝑢 ⊆ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)} ∧ 𝑢 ≠ ∅ ∧ [] Or 𝑢)) → {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)} ∈ Fin)
5049, 47ssfid 9250 . . . . . . . . . 10 (((𝜑𝑆𝑈) ∧ (𝑢 ⊆ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)} ∧ 𝑢 ≠ ∅ ∧ [] Or 𝑢)) → 𝑢 ∈ Fin)
51 simpr3 1196 . . . . . . . . . 10 (((𝜑𝑆𝑈) ∧ (𝑢 ⊆ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)} ∧ 𝑢 ≠ ∅ ∧ [] Or 𝑢)) → [] Or 𝑢)
52 fin1a2lem10 10386 . . . . . . . . . 10 ((𝑢 ≠ ∅ ∧ 𝑢 ∈ Fin ∧ [] Or 𝑢) → 𝑢𝑢)
5348, 50, 51, 52syl3anc 1371 . . . . . . . . 9 (((𝜑𝑆𝑈) ∧ (𝑢 ⊆ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)} ∧ 𝑢 ≠ ∅ ∧ [] Or 𝑢)) → 𝑢𝑢)
5447, 53sseldd 3979 . . . . . . . 8 (((𝜑𝑆𝑈) ∧ (𝑢 ⊆ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)} ∧ 𝑢 ≠ ∅ ∧ [] Or 𝑢)) → 𝑢 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)})
5554ex 413 . . . . . . 7 ((𝜑𝑆𝑈) → ((𝑢 ⊆ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)} ∧ 𝑢 ≠ ∅ ∧ [] Or 𝑢) → 𝑢 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)}))
5655alrimiv 1930 . . . . . 6 ((𝜑𝑆𝑈) → ∀𝑢((𝑢 ⊆ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)} ∧ 𝑢 ≠ ∅ ∧ [] Or 𝑢) → 𝑢 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)}))
57 zornn0g 10482 . . . . . 6 (({𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)} ∈ dom card ∧ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)} ≠ ∅ ∧ ∀𝑢((𝑢 ⊆ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)} ∧ 𝑢 ≠ ∅ ∧ [] Or 𝑢) → 𝑢 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)})) → ∃𝑠 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)}∀𝑤 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)} ¬ 𝑠𝑤)
5813, 46, 56, 57syl3anc 1371 . . . . 5 ((𝜑𝑆𝑈) → ∃𝑠 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)}∀𝑤 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)} ¬ 𝑠𝑤)
59 psseq1 4083 . . . . . . . 8 (𝑣 = 𝑤 → (𝑣𝑈𝑤𝑈))
60 eleq2 2821 . . . . . . . 8 (𝑣 = 𝑤 → (𝐴𝑣𝐴𝑤))
6159, 60anbi12d 631 . . . . . . 7 (𝑣 = 𝑤 → ((𝑣𝑈𝐴𝑣) ↔ (𝑤𝑈𝐴𝑤)))
6261ralrab 3685 . . . . . 6 (∀𝑤 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)} ¬ 𝑠𝑤 ↔ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤))
6362rexbii 3093 . . . . 5 (∃𝑠 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)}∀𝑤 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)} ¬ 𝑠𝑤 ↔ ∃𝑠 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)}∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤))
6458, 63sylib 217 . . . 4 ((𝜑𝑆𝑈) → ∃𝑠 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)}∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤))
6564ex 413 . . 3 (𝜑 → (𝑆𝑈 → ∃𝑠 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)}∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤)))
66 pgpfac1.3 . . . . 5 (𝜑 → ∀𝑠 ∈ (SubGrp‘𝐺)((𝑠𝑈𝐴𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆𝑡) = { 0 } ∧ (𝑆 𝑡) = 𝑠)))
67 psseq1 4083 . . . . . . 7 (𝑣 = 𝑠 → (𝑣𝑈𝑠𝑈))
68 eleq2 2821 . . . . . . 7 (𝑣 = 𝑠 → (𝐴𝑣𝐴𝑠))
6967, 68anbi12d 631 . . . . . 6 (𝑣 = 𝑠 → ((𝑣𝑈𝐴𝑣) ↔ (𝑠𝑈𝐴𝑠)))
7069ralrab 3685 . . . . 5 (∀𝑠 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)}∃𝑡 ∈ (SubGrp‘𝐺)((𝑆𝑡) = { 0 } ∧ (𝑆 𝑡) = 𝑠) ↔ ∀𝑠 ∈ (SubGrp‘𝐺)((𝑠𝑈𝐴𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆𝑡) = { 0 } ∧ (𝑆 𝑡) = 𝑠)))
7166, 70sylibr 233 . . . 4 (𝜑 → ∀𝑠 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)}∃𝑡 ∈ (SubGrp‘𝐺)((𝑆𝑡) = { 0 } ∧ (𝑆 𝑡) = 𝑠))
72 r19.29 3113 . . . . 5 ((∀𝑠 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)}∃𝑡 ∈ (SubGrp‘𝐺)((𝑆𝑡) = { 0 } ∧ (𝑆 𝑡) = 𝑠) ∧ ∃𝑠 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)}∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤)) → ∃𝑠 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)} (∃𝑡 ∈ (SubGrp‘𝐺)((𝑆𝑡) = { 0 } ∧ (𝑆 𝑡) = 𝑠) ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤)))
7369elrab 3679 . . . . . . 7 (𝑠 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)} ↔ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠𝑈𝐴𝑠)))
74 ineq2 4202 . . . . . . . . . . . 12 (𝑡 = 𝑣 → (𝑆𝑡) = (𝑆𝑣))
7574eqeq1d 2733 . . . . . . . . . . 11 (𝑡 = 𝑣 → ((𝑆𝑡) = { 0 } ↔ (𝑆𝑣) = { 0 }))
76 oveq2 7401 . . . . . . . . . . . 12 (𝑡 = 𝑣 → (𝑆 𝑡) = (𝑆 𝑣))
7776eqeq1d 2733 . . . . . . . . . . 11 (𝑡 = 𝑣 → ((𝑆 𝑡) = 𝑠 ↔ (𝑆 𝑣) = 𝑠))
7875, 77anbi12d 631 . . . . . . . . . 10 (𝑡 = 𝑣 → (((𝑆𝑡) = { 0 } ∧ (𝑆 𝑡) = 𝑠) ↔ ((𝑆𝑣) = { 0 } ∧ (𝑆 𝑣) = 𝑠)))
7978cbvrexvw 3234 . . . . . . . . 9 (∃𝑡 ∈ (SubGrp‘𝐺)((𝑆𝑡) = { 0 } ∧ (𝑆 𝑡) = 𝑠) ↔ ∃𝑣 ∈ (SubGrp‘𝐺)((𝑆𝑣) = { 0 } ∧ (𝑆 𝑣) = 𝑠))
80 simprrl 779 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠𝑈𝐴𝑠))) → 𝑠𝑈)
8180ad2antrr 724 . . . . . . . . . . . . . . 15 ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠𝑈𝐴𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ ((𝑆𝑣) = { 0 } ∧ (𝑆 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤))) → 𝑠𝑈)
82 simpr2 1195 . . . . . . . . . . . . . . . 16 ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠𝑈𝐴𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ ((𝑆𝑣) = { 0 } ∧ (𝑆 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤))) → (𝑆 𝑣) = 𝑠)
8382psseq1d 4088 . . . . . . . . . . . . . . 15 ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠𝑈𝐴𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ ((𝑆𝑣) = { 0 } ∧ (𝑆 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤))) → ((𝑆 𝑣) ⊊ 𝑈𝑠𝑈))
8481, 83mpbird 256 . . . . . . . . . . . . . 14 ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠𝑈𝐴𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ ((𝑆𝑣) = { 0 } ∧ (𝑆 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤))) → (𝑆 𝑣) ⊊ 𝑈)
85 pssdif 4362 . . . . . . . . . . . . . . 15 ((𝑆 𝑣) ⊊ 𝑈 → (𝑈 ∖ (𝑆 𝑣)) ≠ ∅)
86 n0 4342 . . . . . . . . . . . . . . 15 ((𝑈 ∖ (𝑆 𝑣)) ≠ ∅ ↔ ∃𝑏 𝑏 ∈ (𝑈 ∖ (𝑆 𝑣)))
8785, 86sylib 217 . . . . . . . . . . . . . 14 ((𝑆 𝑣) ⊊ 𝑈 → ∃𝑏 𝑏 ∈ (𝑈 ∖ (𝑆 𝑣)))
8884, 87syl 17 . . . . . . . . . . . . 13 ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠𝑈𝐴𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ ((𝑆𝑣) = { 0 } ∧ (𝑆 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤))) → ∃𝑏 𝑏 ∈ (𝑈 ∖ (𝑆 𝑣)))
89 pgpfac1.o . . . . . . . . . . . . . . . 16 𝑂 = (od‘𝐺)
90 pgpfac1.e . . . . . . . . . . . . . . . 16 𝐸 = (gEx‘𝐺)
91 pgpfac1.z . . . . . . . . . . . . . . . 16 0 = (0g𝐺)
92 pgpfac1.l . . . . . . . . . . . . . . . 16 = (LSSum‘𝐺)
93 pgpfac1.p . . . . . . . . . . . . . . . . 17 (𝜑𝑃 pGrp 𝐺)
9493ad3antrrr 728 . . . . . . . . . . . . . . . 16 ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠𝑈𝐴𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ (((𝑆𝑣) = { 0 } ∧ (𝑆 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤)) ∧ 𝑏 ∈ (𝑈 ∖ (𝑆 𝑣)))) → 𝑃 pGrp 𝐺)
9515ad3antrrr 728 . . . . . . . . . . . . . . . 16 ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠𝑈𝐴𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ (((𝑆𝑣) = { 0 } ∧ (𝑆 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤)) ∧ 𝑏 ∈ (𝑈 ∖ (𝑆 𝑣)))) → 𝐺 ∈ Abel)
961ad3antrrr 728 . . . . . . . . . . . . . . . 16 ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠𝑈𝐴𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ (((𝑆𝑣) = { 0 } ∧ (𝑆 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤)) ∧ 𝑏 ∈ (𝑈 ∖ (𝑆 𝑣)))) → 𝐵 ∈ Fin)
97 pgpfac1.oe . . . . . . . . . . . . . . . . 17 (𝜑 → (𝑂𝐴) = 𝐸)
9897ad3antrrr 728 . . . . . . . . . . . . . . . 16 ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠𝑈𝐴𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ (((𝑆𝑣) = { 0 } ∧ (𝑆 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤)) ∧ 𝑏 ∈ (𝑈 ∖ (𝑆 𝑣)))) → (𝑂𝐴) = 𝐸)
9921ad3antrrr 728 . . . . . . . . . . . . . . . 16 ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠𝑈𝐴𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ (((𝑆𝑣) = { 0 } ∧ (𝑆 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤)) ∧ 𝑏 ∈ (𝑈 ∖ (𝑆 𝑣)))) → 𝑈 ∈ (SubGrp‘𝐺))
10024ad3antrrr 728 . . . . . . . . . . . . . . . 16 ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠𝑈𝐴𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ (((𝑆𝑣) = { 0 } ∧ (𝑆 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤)) ∧ 𝑏 ∈ (𝑈 ∖ (𝑆 𝑣)))) → 𝐴𝑈)
101 simplr 767 . . . . . . . . . . . . . . . 16 ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠𝑈𝐴𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ (((𝑆𝑣) = { 0 } ∧ (𝑆 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤)) ∧ 𝑏 ∈ (𝑈 ∖ (𝑆 𝑣)))) → 𝑣 ∈ (SubGrp‘𝐺))
102 simprl1 1218 . . . . . . . . . . . . . . . 16 ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠𝑈𝐴𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ (((𝑆𝑣) = { 0 } ∧ (𝑆 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤)) ∧ 𝑏 ∈ (𝑈 ∖ (𝑆 𝑣)))) → (𝑆𝑣) = { 0 })
10384adantrr 715 . . . . . . . . . . . . . . . . 17 ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠𝑈𝐴𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ (((𝑆𝑣) = { 0 } ∧ (𝑆 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤)) ∧ 𝑏 ∈ (𝑈 ∖ (𝑆 𝑣)))) → (𝑆 𝑣) ⊊ 𝑈)
104103pssssd 4093 . . . . . . . . . . . . . . . 16 ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠𝑈𝐴𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ (((𝑆𝑣) = { 0 } ∧ (𝑆 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤)) ∧ 𝑏 ∈ (𝑈 ∖ (𝑆 𝑣)))) → (𝑆 𝑣) ⊆ 𝑈)
105 simprl3 1220 . . . . . . . . . . . . . . . . 17 ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠𝑈𝐴𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ (((𝑆𝑣) = { 0 } ∧ (𝑆 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤)) ∧ 𝑏 ∈ (𝑈 ∖ (𝑆 𝑣)))) → ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤))
10682adantrr 715 . . . . . . . . . . . . . . . . . 18 ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠𝑈𝐴𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ (((𝑆𝑣) = { 0 } ∧ (𝑆 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤)) ∧ 𝑏 ∈ (𝑈 ∖ (𝑆 𝑣)))) → (𝑆 𝑣) = 𝑠)
107 psseq1 4083 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑆 𝑣) = 𝑠 → ((𝑆 𝑣) ⊊ 𝑦𝑠𝑦))
108107notbid 317 . . . . . . . . . . . . . . . . . . . . 21 ((𝑆 𝑣) = 𝑠 → (¬ (𝑆 𝑣) ⊊ 𝑦 ↔ ¬ 𝑠𝑦))
109108imbi2d 340 . . . . . . . . . . . . . . . . . . . 20 ((𝑆 𝑣) = 𝑠 → (((𝑦𝑈𝐴𝑦) → ¬ (𝑆 𝑣) ⊊ 𝑦) ↔ ((𝑦𝑈𝐴𝑦) → ¬ 𝑠𝑦)))
110109ralbidv 3176 . . . . . . . . . . . . . . . . . . 19 ((𝑆 𝑣) = 𝑠 → (∀𝑦 ∈ (SubGrp‘𝐺)((𝑦𝑈𝐴𝑦) → ¬ (𝑆 𝑣) ⊊ 𝑦) ↔ ∀𝑦 ∈ (SubGrp‘𝐺)((𝑦𝑈𝐴𝑦) → ¬ 𝑠𝑦)))
111 psseq1 4083 . . . . . . . . . . . . . . . . . . . . . 22 (𝑦 = 𝑤 → (𝑦𝑈𝑤𝑈))
112 eleq2 2821 . . . . . . . . . . . . . . . . . . . . . 22 (𝑦 = 𝑤 → (𝐴𝑦𝐴𝑤))
113111, 112anbi12d 631 . . . . . . . . . . . . . . . . . . . . 21 (𝑦 = 𝑤 → ((𝑦𝑈𝐴𝑦) ↔ (𝑤𝑈𝐴𝑤)))
114 psseq2 4084 . . . . . . . . . . . . . . . . . . . . . 22 (𝑦 = 𝑤 → (𝑠𝑦𝑠𝑤))
115114notbid 317 . . . . . . . . . . . . . . . . . . . . 21 (𝑦 = 𝑤 → (¬ 𝑠𝑦 ↔ ¬ 𝑠𝑤))
116113, 115imbi12d 344 . . . . . . . . . . . . . . . . . . . 20 (𝑦 = 𝑤 → (((𝑦𝑈𝐴𝑦) → ¬ 𝑠𝑦) ↔ ((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤)))
117116cbvralvw 3233 . . . . . . . . . . . . . . . . . . 19 (∀𝑦 ∈ (SubGrp‘𝐺)((𝑦𝑈𝐴𝑦) → ¬ 𝑠𝑦) ↔ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤))
118110, 117bitrdi 286 . . . . . . . . . . . . . . . . . 18 ((𝑆 𝑣) = 𝑠 → (∀𝑦 ∈ (SubGrp‘𝐺)((𝑦𝑈𝐴𝑦) → ¬ (𝑆 𝑣) ⊊ 𝑦) ↔ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤)))
119106, 118syl 17 . . . . . . . . . . . . . . . . 17 ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠𝑈𝐴𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ (((𝑆𝑣) = { 0 } ∧ (𝑆 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤)) ∧ 𝑏 ∈ (𝑈 ∖ (𝑆 𝑣)))) → (∀𝑦 ∈ (SubGrp‘𝐺)((𝑦𝑈𝐴𝑦) → ¬ (𝑆 𝑣) ⊊ 𝑦) ↔ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤)))
120105, 119mpbird 256 . . . . . . . . . . . . . . . 16 ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠𝑈𝐴𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ (((𝑆𝑣) = { 0 } ∧ (𝑆 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤)) ∧ 𝑏 ∈ (𝑈 ∖ (𝑆 𝑣)))) → ∀𝑦 ∈ (SubGrp‘𝐺)((𝑦𝑈𝐴𝑦) → ¬ (𝑆 𝑣) ⊊ 𝑦))
121 simprr 771 . . . . . . . . . . . . . . . 16 ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠𝑈𝐴𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ (((𝑆𝑣) = { 0 } ∧ (𝑆 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤)) ∧ 𝑏 ∈ (𝑈 ∖ (𝑆 𝑣)))) → 𝑏 ∈ (𝑈 ∖ (𝑆 𝑣)))
122 eqid 2731 . . . . . . . . . . . . . . . 16 (.g𝐺) = (.g𝐺)
12326, 14, 5, 89, 90, 91, 92, 94, 95, 96, 98, 99, 100, 101, 102, 104, 120, 121, 122pgpfac1lem4 19907 . . . . . . . . . . . . . . 15 ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠𝑈𝐴𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ (((𝑆𝑣) = { 0 } ∧ (𝑆 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤)) ∧ 𝑏 ∈ (𝑈 ∖ (𝑆 𝑣)))) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆𝑡) = { 0 } ∧ (𝑆 𝑡) = 𝑈))
124123expr 457 . . . . . . . . . . . . . 14 ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠𝑈𝐴𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ ((𝑆𝑣) = { 0 } ∧ (𝑆 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤))) → (𝑏 ∈ (𝑈 ∖ (𝑆 𝑣)) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆𝑡) = { 0 } ∧ (𝑆 𝑡) = 𝑈)))
125124exlimdv 1936 . . . . . . . . . . . . 13 ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠𝑈𝐴𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ ((𝑆𝑣) = { 0 } ∧ (𝑆 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤))) → (∃𝑏 𝑏 ∈ (𝑈 ∖ (𝑆 𝑣)) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆𝑡) = { 0 } ∧ (𝑆 𝑡) = 𝑈)))
12688, 125mpd 15 . . . . . . . . . . . 12 ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠𝑈𝐴𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ ((𝑆𝑣) = { 0 } ∧ (𝑆 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤))) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆𝑡) = { 0 } ∧ (𝑆 𝑡) = 𝑈))
1271263exp2 1354 . . . . . . . . . . 11 (((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠𝑈𝐴𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) → ((𝑆𝑣) = { 0 } → ((𝑆 𝑣) = 𝑠 → (∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆𝑡) = { 0 } ∧ (𝑆 𝑡) = 𝑈)))))
128127impd 411 . . . . . . . . . 10 (((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠𝑈𝐴𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) → (((𝑆𝑣) = { 0 } ∧ (𝑆 𝑣) = 𝑠) → (∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆𝑡) = { 0 } ∧ (𝑆 𝑡) = 𝑈))))
129128rexlimdva 3154 . . . . . . . . 9 ((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠𝑈𝐴𝑠))) → (∃𝑣 ∈ (SubGrp‘𝐺)((𝑆𝑣) = { 0 } ∧ (𝑆 𝑣) = 𝑠) → (∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆𝑡) = { 0 } ∧ (𝑆 𝑡) = 𝑈))))
13079, 129biimtrid 241 . . . . . . . 8 ((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠𝑈𝐴𝑠))) → (∃𝑡 ∈ (SubGrp‘𝐺)((𝑆𝑡) = { 0 } ∧ (𝑆 𝑡) = 𝑠) → (∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆𝑡) = { 0 } ∧ (𝑆 𝑡) = 𝑈))))
131130impd 411 . . . . . . 7 ((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠𝑈𝐴𝑠))) → ((∃𝑡 ∈ (SubGrp‘𝐺)((𝑆𝑡) = { 0 } ∧ (𝑆 𝑡) = 𝑠) ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤)) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆𝑡) = { 0 } ∧ (𝑆 𝑡) = 𝑈)))
13273, 131sylan2b 594 . . . . . 6 ((𝜑𝑠 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)}) → ((∃𝑡 ∈ (SubGrp‘𝐺)((𝑆𝑡) = { 0 } ∧ (𝑆 𝑡) = 𝑠) ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤)) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆𝑡) = { 0 } ∧ (𝑆 𝑡) = 𝑈)))
133132rexlimdva 3154 . . . . 5 (𝜑 → (∃𝑠 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)} (∃𝑡 ∈ (SubGrp‘𝐺)((𝑆𝑡) = { 0 } ∧ (𝑆 𝑡) = 𝑠) ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤)) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆𝑡) = { 0 } ∧ (𝑆 𝑡) = 𝑈)))
13472, 133syl5 34 . . . 4 (𝜑 → ((∀𝑠 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)}∃𝑡 ∈ (SubGrp‘𝐺)((𝑆𝑡) = { 0 } ∧ (𝑆 𝑡) = 𝑠) ∧ ∃𝑠 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)}∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤)) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆𝑡) = { 0 } ∧ (𝑆 𝑡) = 𝑈)))
13571, 134mpand 693 . . 3 (𝜑 → (∃𝑠 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣𝑈𝐴𝑣)}∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ 𝑠𝑤) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆𝑡) = { 0 } ∧ (𝑆 𝑡) = 𝑈)))
13665, 135syld 47 . 2 (𝜑 → (𝑆𝑈 → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆𝑡) = { 0 } ∧ (𝑆 𝑡) = 𝑈)))
137910subg 19003 . . . . . 6 (𝐺 ∈ Grp → { 0 } ∈ (SubGrp‘𝐺))
13817, 137syl 17 . . . . 5 (𝜑 → { 0 } ∈ (SubGrp‘𝐺))
139138adantr 481 . . . 4 ((𝜑𝑆 = 𝑈) → { 0 } ∈ (SubGrp‘𝐺))
14091subg0cl 18986 . . . . . . . 8 (𝑆 ∈ (SubGrp‘𝐺) → 0𝑆)
14129, 140syl 17 . . . . . . 7 (𝜑0𝑆)
142141snssd 4805 . . . . . 6 (𝜑 → { 0 } ⊆ 𝑆)
143142adantr 481 . . . . 5 ((𝜑𝑆 = 𝑈) → { 0 } ⊆ 𝑆)
144 sseqin2 4211 . . . . 5 ({ 0 } ⊆ 𝑆 ↔ (𝑆 ∩ { 0 }) = { 0 })
145143, 144sylib 217 . . . 4 ((𝜑𝑆 = 𝑈) → (𝑆 ∩ { 0 }) = { 0 })
14692lsmss2 19499 . . . . . . 7 ((𝑆 ∈ (SubGrp‘𝐺) ∧ { 0 } ∈ (SubGrp‘𝐺) ∧ { 0 } ⊆ 𝑆) → (𝑆 { 0 }) = 𝑆)
14729, 138, 142, 146syl3anc 1371 . . . . . 6 (𝜑 → (𝑆 { 0 }) = 𝑆)
148147eqeq1d 2733 . . . . 5 (𝜑 → ((𝑆 { 0 }) = 𝑈𝑆 = 𝑈))
149148biimpar 478 . . . 4 ((𝜑𝑆 = 𝑈) → (𝑆 { 0 }) = 𝑈)
150 ineq2 4202 . . . . . . 7 (𝑡 = { 0 } → (𝑆𝑡) = (𝑆 ∩ { 0 }))
151150eqeq1d 2733 . . . . . 6 (𝑡 = { 0 } → ((𝑆𝑡) = { 0 } ↔ (𝑆 ∩ { 0 }) = { 0 }))
152 oveq2 7401 . . . . . . 7 (𝑡 = { 0 } → (𝑆 𝑡) = (𝑆 { 0 }))
153152eqeq1d 2733 . . . . . 6 (𝑡 = { 0 } → ((𝑆 𝑡) = 𝑈 ↔ (𝑆 { 0 }) = 𝑈))
154151, 153anbi12d 631 . . . . 5 (𝑡 = { 0 } → (((𝑆𝑡) = { 0 } ∧ (𝑆 𝑡) = 𝑈) ↔ ((𝑆 ∩ { 0 }) = { 0 } ∧ (𝑆 { 0 }) = 𝑈)))
155154rspcev 3609 . . . 4 (({ 0 } ∈ (SubGrp‘𝐺) ∧ ((𝑆 ∩ { 0 }) = { 0 } ∧ (𝑆 { 0 }) = 𝑈)) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆𝑡) = { 0 } ∧ (𝑆 𝑡) = 𝑈))
156139, 145, 149, 155syl12anc 835 . . 3 ((𝜑𝑆 = 𝑈) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆𝑡) = { 0 } ∧ (𝑆 𝑡) = 𝑈))
157156ex 413 . 2 (𝜑 → (𝑆 = 𝑈 → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆𝑡) = { 0 } ∧ (𝑆 𝑡) = 𝑈)))
15826mrcsscl 17546 . . . . 5 (((SubGrp‘𝐺) ∈ (Moore‘𝐵) ∧ {𝐴} ⊆ 𝑈𝑈 ∈ (SubGrp‘𝐺)) → (𝐾‘{𝐴}) ⊆ 𝑈)
15920, 32, 21, 158syl3anc 1371 . . . 4 (𝜑 → (𝐾‘{𝐴}) ⊆ 𝑈)
16014, 159eqsstrid 4026 . . 3 (𝜑𝑆𝑈)
161 sspss 4095 . . 3 (𝑆𝑈 ↔ (𝑆𝑈𝑆 = 𝑈))
162160, 161sylib 217 . 2 (𝜑 → (𝑆𝑈𝑆 = 𝑈))
163136, 157, 162mpjaod 858 1 (𝜑 → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆𝑡) = { 0 } ∧ (𝑆 𝑡) = 𝑈))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 396  wo 845  w3a 1087  wal 1539   = wceq 1541  wex 1781  wcel 2106  wne 2939  wral 3060  wrex 3069  {crab 3431  cdif 3941  cin 3943  wss 3944  wpss 3945  c0 4318  𝒫 cpw 4596  {csn 4622   cuni 4901   class class class wbr 5141   Or wor 5580  dom cdm 5669  cfv 6532  (class class class)co 7393   [] crpss 7695  Fincfn 8922  cardccrd 9912  Basecbs 17126  0gc0g 17367  Moorecmre 17508  mrClscmrc 17509  ACScacs 17511  Grpcgrp 18794  .gcmg 18922  SubGrpcsubg 18972  odcod 19356  gExcgex 19357   pGrp cpgp 19358  LSSumclsm 19466  Abelcabl 19613
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 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2702  ax-rep 5278  ax-sep 5292  ax-nul 5299  ax-pow 5356  ax-pr 5420  ax-un 7708  ax-inf2 9618  ax-cnex 11148  ax-resscn 11149  ax-1cn 11150  ax-icn 11151  ax-addcl 11152  ax-addrcl 11153  ax-mulcl 11154  ax-mulrcl 11155  ax-mulcom 11156  ax-addass 11157  ax-mulass 11158  ax-distr 11159  ax-i2m1 11160  ax-1ne0 11161  ax-1rid 11162  ax-rnegex 11163  ax-rrecex 11164  ax-cnre 11165  ax-pre-lttri 11166  ax-pre-lttrn 11167  ax-pre-ltadd 11168  ax-pre-mulgt0 11169  ax-pre-sup 11170
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2533  df-eu 2562  df-clab 2709  df-cleq 2723  df-clel 2809  df-nfc 2884  df-ne 2940  df-nel 3046  df-ral 3061  df-rex 3070  df-rmo 3375  df-reu 3376  df-rab 3432  df-v 3475  df-sbc 3774  df-csb 3890  df-dif 3947  df-un 3949  df-in 3951  df-ss 3961  df-pss 3963  df-nul 4319  df-if 4523  df-pw 4598  df-sn 4623  df-pr 4625  df-op 4629  df-uni 4902  df-int 4944  df-iun 4992  df-iin 4993  df-disj 5107  df-br 5142  df-opab 5204  df-mpt 5225  df-tr 5259  df-id 5567  df-eprel 5573  df-po 5581  df-so 5582  df-fr 5624  df-se 5625  df-we 5626  df-xp 5675  df-rel 5676  df-cnv 5677  df-co 5678  df-dm 5679  df-rn 5680  df-res 5681  df-ima 5682  df-pred 6289  df-ord 6356  df-on 6357  df-lim 6358  df-suc 6359  df-iota 6484  df-fun 6534  df-fn 6535  df-f 6536  df-f1 6537  df-fo 6538  df-f1o 6539  df-fv 6540  df-isom 6541  df-riota 7349  df-ov 7396  df-oprab 7397  df-mpo 7398  df-rpss 7696  df-om 7839  df-1st 7957  df-2nd 7958  df-frecs 8248  df-wrecs 8279  df-recs 8353  df-rdg 8392  df-1o 8448  df-2o 8449  df-oadd 8452  df-omul 8453  df-er 8686  df-ec 8688  df-qs 8692  df-map 8805  df-en 8923  df-dom 8924  df-sdom 8925  df-fin 8926  df-sup 9419  df-inf 9420  df-oi 9487  df-dju 9878  df-card 9916  df-acn 9919  df-pnf 11232  df-mnf 11233  df-xr 11234  df-ltxr 11235  df-le 11236  df-sub 11428  df-neg 11429  df-div 11854  df-nn 12195  df-2 12257  df-3 12258  df-n0 12455  df-xnn0 12527  df-z 12541  df-uz 12805  df-q 12915  df-rp 12957  df-fz 13467  df-fzo 13610  df-fl 13739  df-mod 13817  df-seq 13949  df-exp 14010  df-fac 14216  df-bc 14245  df-hash 14273  df-cj 15028  df-re 15029  df-im 15030  df-sqrt 15164  df-abs 15165  df-clim 15414  df-sum 15615  df-dvds 16180  df-gcd 16418  df-prm 16591  df-pc 16752  df-sets 17079  df-slot 17097  df-ndx 17109  df-base 17127  df-ress 17156  df-plusg 17192  df-0g 17369  df-mre 17512  df-mrc 17513  df-acs 17515  df-mgm 18543  df-sgrp 18592  df-mnd 18603  df-submnd 18648  df-grp 18797  df-minusg 18798  df-sbg 18799  df-mulg 18923  df-subg 18975  df-eqg 18977  df-ga 19120  df-cntz 19147  df-od 19360  df-gex 19361  df-pgp 19362  df-lsm 19468  df-cmn 19614  df-abl 19615
This theorem is referenced by:  pgpfac1  19909
  Copyright terms: Public domain W3C validator