pgpfac1lem5 - Metamath Proof Explorer

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

Theorem pgpfac1lem5 19597

Description: Lemma for pgpfac1 19598. (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 = (0_g‘𝐺)
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.

Step	Hyp	Ref	Expression
1		pgpfac1.n	. . . . . . . . . 10 ⊢ (𝜑 → 𝐵 ∈ Fin)
2		pwfi 8923	. . . . . . . . . 10 ⊢ (𝐵 ∈ Fin ↔ 𝒫 𝐵 ∈ Fin)
3	1, 2	sylib 217	. . . . . . . . 9 ⊢ (𝜑 → 𝒫 𝐵 ∈ Fin)
4	3	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑆 ⊊ 𝑈) → 𝒫 𝐵 ∈ Fin)
5		pgpfac1.b	. . . . . . . . . . . 12 ⊢ 𝐵 = (Base‘𝐺)
6	5	subgss 18671	. . . . . . . . . . 11 ⊢ (𝑣 ∈ (SubGrp‘𝐺) → 𝑣 ⊆ 𝐵)
7	6	3ad2ant2 1132	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑆 ⊊ 𝑈) ∧ 𝑣 ∈ (SubGrp‘𝐺) ∧ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)) → 𝑣 ⊆ 𝐵)
8		velpw 4535	. . . . . . . . . 10 ⊢ (𝑣 ∈ 𝒫 𝐵 ↔ 𝑣 ⊆ 𝐵)
9	7, 8	sylibr 233	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑆 ⊊ 𝑈) ∧ 𝑣 ∈ (SubGrp‘𝐺) ∧ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)) → 𝑣 ∈ 𝒫 𝐵)
10	9	rabssdv 4004	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑆 ⊊ 𝑈) → {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)} ⊆ 𝒫 𝐵)
11	4, 10	ssfid 8971	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑆 ⊊ 𝑈) → {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)} ∈ Fin)
12		finnum 9637	. . . . . . 7 ⊢ ({𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)} ∈ Fin → {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)} ∈ dom card)
13	11, 12	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ 𝑆 ⊊ 𝑈) → {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)} ∈ dom card)
14		pgpfac1.s	. . . . . . . . . 10 ⊢ 𝑆 = (𝐾‘{𝐴})
15		pgpfac1.g	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐺 ∈ Abel)
16		ablgrp 19306	. . . . . . . . . . . . 13 ⊢ (𝐺 ∈ Abel → 𝐺 ∈ Grp)
17	15, 16	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐺 ∈ Grp)
18	5	subgacs 18704	. . . . . . . . . . . 12 ⊢ (𝐺 ∈ Grp → (SubGrp‘𝐺) ∈ (ACS‘𝐵))
19		acsmre 17278	. . . . . . . . . . . 12 ⊢ ((SubGrp‘𝐺) ∈ (ACS‘𝐵) → (SubGrp‘𝐺) ∈ (Moore‘𝐵))
20	17, 18, 19	3syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → (SubGrp‘𝐺) ∈ (Moore‘𝐵))
21		pgpfac1.u	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑈 ∈ (SubGrp‘𝐺))
22	5	subgss 18671	. . . . . . . . . . . . 13 ⊢ (𝑈 ∈ (SubGrp‘𝐺) → 𝑈 ⊆ 𝐵)
23	21, 22	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑈 ⊆ 𝐵)
24		pgpfac1.au	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐴 ∈ 𝑈)
25	23, 24	sseldd 3918	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐴 ∈ 𝐵)
26		pgpfac1.k	. . . . . . . . . . . 12 ⊢ 𝐾 = (mrCls‘(SubGrp‘𝐺))
27	26	mrcsncl 17238	. . . . . . . . . . 11 ⊢ (((SubGrp‘𝐺) ∈ (Moore‘𝐵) ∧ 𝐴 ∈ 𝐵) → (𝐾‘{𝐴}) ∈ (SubGrp‘𝐺))
28	20, 25, 27	syl2anc 583	. . . . . . . . . 10 ⊢ (𝜑 → (𝐾‘{𝐴}) ∈ (SubGrp‘𝐺))
29	14, 28	eqeltrid 2843	. . . . . . . . 9 ⊢ (𝜑 → 𝑆 ∈ (SubGrp‘𝐺))
30	29	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑆 ⊊ 𝑈) → 𝑆 ∈ (SubGrp‘𝐺))
31		simpr 484	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑆 ⊊ 𝑈) → 𝑆 ⊊ 𝑈)
32	24	snssd 4739	. . . . . . . . . . . . 13 ⊢ (𝜑 → {𝐴} ⊆ 𝑈)
33	32, 23	sstrd 3927	. . . . . . . . . . . 12 ⊢ (𝜑 → {𝐴} ⊆ 𝐵)
34	20, 26, 33	mrcssidd 17251	. . . . . . . . . . 11 ⊢ (𝜑 → {𝐴} ⊆ (𝐾‘{𝐴}))
35	34, 14	sseqtrrdi 3968	. . . . . . . . . 10 ⊢ (𝜑 → {𝐴} ⊆ 𝑆)
36		snssg 4715	. . . . . . . . . . 11 ⊢ (𝐴 ∈ 𝐵 → (𝐴 ∈ 𝑆 ↔ {𝐴} ⊆ 𝑆))
37	25, 36	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (𝐴 ∈ 𝑆 ↔ {𝐴} ⊆ 𝑆))
38	35, 37	mpbird 256	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ 𝑆)
39	38	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑆 ⊊ 𝑈) → 𝐴 ∈ 𝑆)
40		psseq1 4018	. . . . . . . . . 10 ⊢ (𝑣 = 𝑆 → (𝑣 ⊊ 𝑈 ↔ 𝑆 ⊊ 𝑈))
41		eleq2 2827	. . . . . . . . . 10 ⊢ (𝑣 = 𝑆 → (𝐴 ∈ 𝑣 ↔ 𝐴 ∈ 𝑆))
42	40, 41	anbi12d 630	. . . . . . . . 9 ⊢ (𝑣 = 𝑆 → ((𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣) ↔ (𝑆 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑆)))
43	42	rspcev 3552	. . . . . . . 8 ⊢ ((𝑆 ∈ (SubGrp‘𝐺) ∧ (𝑆 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑆)) → ∃𝑣 ∈ (SubGrp‘𝐺)(𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣))
44	30, 31, 39, 43	syl12anc 833	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑆 ⊊ 𝑈) → ∃𝑣 ∈ (SubGrp‘𝐺)(𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣))
45		rabn0 4316	. . . . . . 7 ⊢ ({𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)} ≠ ∅ ↔ ∃𝑣 ∈ (SubGrp‘𝐺)(𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣))
46	44, 45	sylibr 233	. . . . . 6 ⊢ ((𝜑 ∧ 𝑆 ⊊ 𝑈) → {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)} ≠ ∅)
47		simpr1 1192	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑆 ⊊ 𝑈) ∧ (𝑢 ⊆ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)} ∧ 𝑢 ≠ ∅ ∧ [⊊] Or 𝑢)) → 𝑢 ⊆ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)})
48		simpr2 1193	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑆 ⊊ 𝑈) ∧ (𝑢 ⊆ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)} ∧ 𝑢 ≠ ∅ ∧ [⊊] Or 𝑢)) → 𝑢 ≠ ∅)
49	11	adantr 480	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑆 ⊊ 𝑈) ∧ (𝑢 ⊆ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)} ∧ 𝑢 ≠ ∅ ∧ [⊊] Or 𝑢)) → {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)} ∈ Fin)
50	49, 47	ssfid 8971	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑆 ⊊ 𝑈) ∧ (𝑢 ⊆ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)} ∧ 𝑢 ≠ ∅ ∧ [⊊] Or 𝑢)) → 𝑢 ∈ Fin)
51		simpr3 1194	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑆 ⊊ 𝑈) ∧ (𝑢 ⊆ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)} ∧ 𝑢 ≠ ∅ ∧ [⊊] Or 𝑢)) → [⊊] Or 𝑢)
52		fin1a2lem10 10096	. . . . . . . . . 10 ⊢ ((𝑢 ≠ ∅ ∧ 𝑢 ∈ Fin ∧ [⊊] Or 𝑢) → ∪ 𝑢 ∈ 𝑢)
53	48, 50, 51, 52	syl3anc 1369	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑆 ⊊ 𝑈) ∧ (𝑢 ⊆ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)} ∧ 𝑢 ≠ ∅ ∧ [⊊] Or 𝑢)) → ∪ 𝑢 ∈ 𝑢)
54	47, 53	sseldd 3918	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑆 ⊊ 𝑈) ∧ (𝑢 ⊆ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)} ∧ 𝑢 ≠ ∅ ∧ [⊊] Or 𝑢)) → ∪ 𝑢 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)})
55	54	ex 412	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑆 ⊊ 𝑈) → ((𝑢 ⊆ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)} ∧ 𝑢 ≠ ∅ ∧ [⊊] Or 𝑢) → ∪ 𝑢 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)}))
56	55	alrimiv 1931	. . . . . 6 ⊢ ((𝜑 ∧ 𝑆 ⊊ 𝑈) → ∀𝑢((𝑢 ⊆ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)} ∧ 𝑢 ≠ ∅ ∧ [⊊] Or 𝑢) → ∪ 𝑢 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)}))
57		zornn0g 10192	. . . . . 6 ⊢ (({𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)} ∈ dom card ∧ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)} ≠ ∅ ∧ ∀𝑢((𝑢 ⊆ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)} ∧ 𝑢 ≠ ∅ ∧ [⊊] Or 𝑢) → ∪ 𝑢 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)})) → ∃𝑠 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)}∀𝑤 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)} ¬ 𝑠 ⊊ 𝑤)
58	13, 46, 56, 57	syl3anc 1369	. . . . 5 ⊢ ((𝜑 ∧ 𝑆 ⊊ 𝑈) → ∃𝑠 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)}∀𝑤 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)} ¬ 𝑠 ⊊ 𝑤)
59		psseq1 4018	. . . . . . . 8 ⊢ (𝑣 = 𝑤 → (𝑣 ⊊ 𝑈 ↔ 𝑤 ⊊ 𝑈))
60		eleq2 2827	. . . . . . . 8 ⊢ (𝑣 = 𝑤 → (𝐴 ∈ 𝑣 ↔ 𝐴 ∈ 𝑤))
61	59, 60	anbi12d 630	. . . . . . 7 ⊢ (𝑣 = 𝑤 → ((𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣) ↔ (𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤)))
62	61	ralrab 3623	. . . . . 6 ⊢ (∀𝑤 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)} ¬ 𝑠 ⊊ 𝑤 ↔ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤))
63	62	rexbii 3177	. . . . 5 ⊢ (∃𝑠 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)}∀𝑤 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)} ¬ 𝑠 ⊊ 𝑤 ↔ ∃𝑠 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)}∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤))
64	58, 63	sylib 217	. . . 4 ⊢ ((𝜑 ∧ 𝑆 ⊊ 𝑈) → ∃𝑠 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)}∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤))
65	64	ex 412	. . 3 ⊢ (𝜑 → (𝑆 ⊊ 𝑈 → ∃𝑠 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)}∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤)))
66		pgpfac1.3	. . . . 5 ⊢ (𝜑 → ∀𝑠 ∈ (SubGrp‘𝐺)((𝑠 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)))
67		psseq1 4018	. . . . . . 7 ⊢ (𝑣 = 𝑠 → (𝑣 ⊊ 𝑈 ↔ 𝑠 ⊊ 𝑈))
68		eleq2 2827	. . . . . . 7 ⊢ (𝑣 = 𝑠 → (𝐴 ∈ 𝑣 ↔ 𝐴 ∈ 𝑠))
69	67, 68	anbi12d 630	. . . . . 6 ⊢ (𝑣 = 𝑠 → ((𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣) ↔ (𝑠 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑠)))
70	69	ralrab 3623	. . . . 5 ⊢ (∀𝑠 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)}∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠) ↔ ∀𝑠 ∈ (SubGrp‘𝐺)((𝑠 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)))
71	66, 70	sylibr 233	. . . 4 ⊢ (𝜑 → ∀𝑠 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)}∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠))
72		r19.29 3183	. . . . 5 ⊢ ((∀𝑠 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)}∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠) ∧ ∃𝑠 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)}∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤)) → ∃𝑠 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)} (∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠) ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤)))
73	69	elrab 3617	. . . . . . 7 ⊢ (𝑠 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)} ↔ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑠)))
74		ineq2 4137	. . . . . . . . . . . 12 ⊢ (𝑡 = 𝑣 → (𝑆 ∩ 𝑡) = (𝑆 ∩ 𝑣))
75	74	eqeq1d 2740	. . . . . . . . . . 11 ⊢ (𝑡 = 𝑣 → ((𝑆 ∩ 𝑡) = { 0 } ↔ (𝑆 ∩ 𝑣) = { 0 }))
76		oveq2 7263	. . . . . . . . . . . 12 ⊢ (𝑡 = 𝑣 → (𝑆 ⊕ 𝑡) = (𝑆 ⊕ 𝑣))
77	76	eqeq1d 2740	. . . . . . . . . . 11 ⊢ (𝑡 = 𝑣 → ((𝑆 ⊕ 𝑡) = 𝑠 ↔ (𝑆 ⊕ 𝑣) = 𝑠))
78	75, 77	anbi12d 630	. . . . . . . . . 10 ⊢ (𝑡 = 𝑣 → (((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠) ↔ ((𝑆 ∩ 𝑣) = { 0 } ∧ (𝑆 ⊕ 𝑣) = 𝑠)))
79	78	cbvrexvw 3373	. . . . . . . . 9 ⊢ (∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠) ↔ ∃𝑣 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑣) = { 0 } ∧ (𝑆 ⊕ 𝑣) = 𝑠))
80		simprrl 777	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑠))) → 𝑠 ⊊ 𝑈)
81	80	ad2antrr 722	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ ((𝑆 ∩ 𝑣) = { 0 } ∧ (𝑆 ⊕ 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤))) → 𝑠 ⊊ 𝑈)
82		simpr2 1193	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ ((𝑆 ∩ 𝑣) = { 0 } ∧ (𝑆 ⊕ 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤))) → (𝑆 ⊕ 𝑣) = 𝑠)
83	82	psseq1d 4023	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ ((𝑆 ∩ 𝑣) = { 0 } ∧ (𝑆 ⊕ 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤))) → ((𝑆 ⊕ 𝑣) ⊊ 𝑈 ↔ 𝑠 ⊊ 𝑈))
84	81, 83	mpbird 256	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ ((𝑆 ∩ 𝑣) = { 0 } ∧ (𝑆 ⊕ 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤))) → (𝑆 ⊕ 𝑣) ⊊ 𝑈)
85		pssdif 4297	. . . . . . . . . . . . . . 15 ⊢ ((𝑆 ⊕ 𝑣) ⊊ 𝑈 → (𝑈 ∖ (𝑆 ⊕ 𝑣)) ≠ ∅)
86		n0 4277	. . . . . . . . . . . . . . 15 ⊢ ((𝑈 ∖ (𝑆 ⊕ 𝑣)) ≠ ∅ ↔ ∃𝑏 𝑏 ∈ (𝑈 ∖ (𝑆 ⊕ 𝑣)))
87	85, 86	sylib 217	. . . . . . . . . . . . . 14 ⊢ ((𝑆 ⊕ 𝑣) ⊊ 𝑈 → ∃𝑏 𝑏 ∈ (𝑈 ∖ (𝑆 ⊕ 𝑣)))
88	84, 87	syl 17	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ ((𝑆 ∩ 𝑣) = { 0 } ∧ (𝑆 ⊕ 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤))) → ∃𝑏 𝑏 ∈ (𝑈 ∖ (𝑆 ⊕ 𝑣)))
89		pgpfac1.o	. . . . . . . . . . . . . . . 16 ⊢ 𝑂 = (od‘𝐺)
90		pgpfac1.e	. . . . . . . . . . . . . . . 16 ⊢ 𝐸 = (gEx‘𝐺)
91		pgpfac1.z	. . . . . . . . . . . . . . . 16 ⊢ 0 = (0_g‘𝐺)
92		pgpfac1.l	. . . . . . . . . . . . . . . 16 ⊢ ⊕ = (LSSum‘𝐺)
93		pgpfac1.p	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝑃 pGrp 𝐺)
94	93	ad3antrrr 726	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ (((𝑆 ∩ 𝑣) = { 0 } ∧ (𝑆 ⊕ 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤)) ∧ 𝑏 ∈ (𝑈 ∖ (𝑆 ⊕ 𝑣)))) → 𝑃 pGrp 𝐺)
95	15	ad3antrrr 726	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ (((𝑆 ∩ 𝑣) = { 0 } ∧ (𝑆 ⊕ 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤)) ∧ 𝑏 ∈ (𝑈 ∖ (𝑆 ⊕ 𝑣)))) → 𝐺 ∈ Abel)
96	1	ad3antrrr 726	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ (((𝑆 ∩ 𝑣) = { 0 } ∧ (𝑆 ⊕ 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤)) ∧ 𝑏 ∈ (𝑈 ∖ (𝑆 ⊕ 𝑣)))) → 𝐵 ∈ Fin)
97		pgpfac1.oe	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝑂‘𝐴) = 𝐸)
98	97	ad3antrrr 726	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ (((𝑆 ∩ 𝑣) = { 0 } ∧ (𝑆 ⊕ 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤)) ∧ 𝑏 ∈ (𝑈 ∖ (𝑆 ⊕ 𝑣)))) → (𝑂‘𝐴) = 𝐸)
99	21	ad3antrrr 726	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ (((𝑆 ∩ 𝑣) = { 0 } ∧ (𝑆 ⊕ 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤)) ∧ 𝑏 ∈ (𝑈 ∖ (𝑆 ⊕ 𝑣)))) → 𝑈 ∈ (SubGrp‘𝐺))
100	24	ad3antrrr 726	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ (((𝑆 ∩ 𝑣) = { 0 } ∧ (𝑆 ⊕ 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤)) ∧ 𝑏 ∈ (𝑈 ∖ (𝑆 ⊕ 𝑣)))) → 𝐴 ∈ 𝑈)
101		simplr 765	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ (((𝑆 ∩ 𝑣) = { 0 } ∧ (𝑆 ⊕ 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤)) ∧ 𝑏 ∈ (𝑈 ∖ (𝑆 ⊕ 𝑣)))) → 𝑣 ∈ (SubGrp‘𝐺))
102		simprl1 1216	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ (((𝑆 ∩ 𝑣) = { 0 } ∧ (𝑆 ⊕ 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤)) ∧ 𝑏 ∈ (𝑈 ∖ (𝑆 ⊕ 𝑣)))) → (𝑆 ∩ 𝑣) = { 0 })
103	84	adantrr 713	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ (((𝑆 ∩ 𝑣) = { 0 } ∧ (𝑆 ⊕ 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤)) ∧ 𝑏 ∈ (𝑈 ∖ (𝑆 ⊕ 𝑣)))) → (𝑆 ⊕ 𝑣) ⊊ 𝑈)
104	103	pssssd 4028	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ (((𝑆 ∩ 𝑣) = { 0 } ∧ (𝑆 ⊕ 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤)) ∧ 𝑏 ∈ (𝑈 ∖ (𝑆 ⊕ 𝑣)))) → (𝑆 ⊕ 𝑣) ⊆ 𝑈)
105		simprl3 1218	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ (((𝑆 ∩ 𝑣) = { 0 } ∧ (𝑆 ⊕ 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤)) ∧ 𝑏 ∈ (𝑈 ∖ (𝑆 ⊕ 𝑣)))) → ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤))
106	82	adantrr 713	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ (((𝑆 ∩ 𝑣) = { 0 } ∧ (𝑆 ⊕ 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤)) ∧ 𝑏 ∈ (𝑈 ∖ (𝑆 ⊕ 𝑣)))) → (𝑆 ⊕ 𝑣) = 𝑠)
107		psseq1 4018	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑆 ⊕ 𝑣) = 𝑠 → ((𝑆 ⊕ 𝑣) ⊊ 𝑦 ↔ 𝑠 ⊊ 𝑦))
108	107	notbid 317	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑆 ⊕ 𝑣) = 𝑠 → (¬ (𝑆 ⊕ 𝑣) ⊊ 𝑦 ↔ ¬ 𝑠 ⊊ 𝑦))
109	108	imbi2d 340	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑆 ⊕ 𝑣) = 𝑠 → (((𝑦 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑦) → ¬ (𝑆 ⊕ 𝑣) ⊊ 𝑦) ↔ ((𝑦 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑦) → ¬ 𝑠 ⊊ 𝑦)))
110	109	ralbidv 3120	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑆 ⊕ 𝑣) = 𝑠 → (∀𝑦 ∈ (SubGrp‘𝐺)((𝑦 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑦) → ¬ (𝑆 ⊕ 𝑣) ⊊ 𝑦) ↔ ∀𝑦 ∈ (SubGrp‘𝐺)((𝑦 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑦) → ¬ 𝑠 ⊊ 𝑦)))
111		psseq1 4018	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑦 = 𝑤 → (𝑦 ⊊ 𝑈 ↔ 𝑤 ⊊ 𝑈))
112		eleq2 2827	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑦 = 𝑤 → (𝐴 ∈ 𝑦 ↔ 𝐴 ∈ 𝑤))
113	111, 112	anbi12d 630	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑦 = 𝑤 → ((𝑦 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑦) ↔ (𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤)))
114		psseq2 4019	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑦 = 𝑤 → (𝑠 ⊊ 𝑦 ↔ 𝑠 ⊊ 𝑤))
115	114	notbid 317	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑦 = 𝑤 → (¬ 𝑠 ⊊ 𝑦 ↔ ¬ 𝑠 ⊊ 𝑤))
116	113, 115	imbi12d 344	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑦 = 𝑤 → (((𝑦 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑦) → ¬ 𝑠 ⊊ 𝑦) ↔ ((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤)))
117	116	cbvralvw 3372	. . . . . . . . . . . . . . . . . . 19 ⊢ (∀𝑦 ∈ (SubGrp‘𝐺)((𝑦 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑦) → ¬ 𝑠 ⊊ 𝑦) ↔ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤))
118	110, 117	bitrdi 286	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑆 ⊕ 𝑣) = 𝑠 → (∀𝑦 ∈ (SubGrp‘𝐺)((𝑦 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑦) → ¬ (𝑆 ⊕ 𝑣) ⊊ 𝑦) ↔ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤)))
119	106, 118	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ (((𝑆 ∩ 𝑣) = { 0 } ∧ (𝑆 ⊕ 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤)) ∧ 𝑏 ∈ (𝑈 ∖ (𝑆 ⊕ 𝑣)))) → (∀𝑦 ∈ (SubGrp‘𝐺)((𝑦 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑦) → ¬ (𝑆 ⊕ 𝑣) ⊊ 𝑦) ↔ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤)))
120	105, 119	mpbird 256	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ (((𝑆 ∩ 𝑣) = { 0 } ∧ (𝑆 ⊕ 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤)) ∧ 𝑏 ∈ (𝑈 ∖ (𝑆 ⊕ 𝑣)))) → ∀𝑦 ∈ (SubGrp‘𝐺)((𝑦 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑦) → ¬ (𝑆 ⊕ 𝑣) ⊊ 𝑦))
121		simprr 769	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ (((𝑆 ∩ 𝑣) = { 0 } ∧ (𝑆 ⊕ 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤)) ∧ 𝑏 ∈ (𝑈 ∖ (𝑆 ⊕ 𝑣)))) → 𝑏 ∈ (𝑈 ∖ (𝑆 ⊕ 𝑣)))
122		eqid 2738	. . . . . . . . . . . . . . . 16 ⊢ (._g‘𝐺) = (._g‘𝐺)
123	26, 14, 5, 89, 90, 91, 92, 94, 95, 96, 98, 99, 100, 101, 102, 104, 120, 121, 122	pgpfac1lem4 19596	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ (((𝑆 ∩ 𝑣) = { 0 } ∧ (𝑆 ⊕ 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤)) ∧ 𝑏 ∈ (𝑈 ∖ (𝑆 ⊕ 𝑣)))) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑈))
124	123	expr 456	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ ((𝑆 ∩ 𝑣) = { 0 } ∧ (𝑆 ⊕ 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤))) → (𝑏 ∈ (𝑈 ∖ (𝑆 ⊕ 𝑣)) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑈)))
125	124	exlimdv 1937	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ ((𝑆 ∩ 𝑣) = { 0 } ∧ (𝑆 ⊕ 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤))) → (∃𝑏 𝑏 ∈ (𝑈 ∖ (𝑆 ⊕ 𝑣)) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑈)))
126	88, 125	mpd 15	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) ∧ ((𝑆 ∩ 𝑣) = { 0 } ∧ (𝑆 ⊕ 𝑣) = 𝑠 ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤))) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑈))
127	126	3exp2 1352	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) → ((𝑆 ∩ 𝑣) = { 0 } → ((𝑆 ⊕ 𝑣) = 𝑠 → (∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑈)))))
128	127	impd 410	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑠))) ∧ 𝑣 ∈ (SubGrp‘𝐺)) → (((𝑆 ∩ 𝑣) = { 0 } ∧ (𝑆 ⊕ 𝑣) = 𝑠) → (∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑈))))
129	128	rexlimdva 3212	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑠))) → (∃𝑣 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑣) = { 0 } ∧ (𝑆 ⊕ 𝑣) = 𝑠) → (∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑈))))
130	79, 129	syl5bi 241	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑠))) → (∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠) → (∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑈))))
131	130	impd 410	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑠 ∈ (SubGrp‘𝐺) ∧ (𝑠 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑠))) → ((∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠) ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤)) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑈)))
132	73, 131	sylan2b 593	. . . . . 6 ⊢ ((𝜑 ∧ 𝑠 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)}) → ((∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠) ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤)) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑈)))
133	132	rexlimdva 3212	. . . . 5 ⊢ (𝜑 → (∃𝑠 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)} (∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠) ∧ ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤)) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑈)))
134	72, 133	syl5 34	. . . 4 ⊢ (𝜑 → ((∀𝑠 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)}∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠) ∧ ∃𝑠 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)}∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤)) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑈)))
135	71, 134	mpand 691	. . 3 ⊢ (𝜑 → (∃𝑠 ∈ {𝑣 ∈ (SubGrp‘𝐺) ∣ (𝑣 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑣)}∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ 𝑠 ⊊ 𝑤) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑈)))
136	65, 135	syld 47	. 2 ⊢ (𝜑 → (𝑆 ⊊ 𝑈 → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑈)))
137	91	0subg 18695	. . . . . 6 ⊢ (𝐺 ∈ Grp → { 0 } ∈ (SubGrp‘𝐺))
138	17, 137	syl 17	. . . . 5 ⊢ (𝜑 → { 0 } ∈ (SubGrp‘𝐺))
139	138	adantr 480	. . . 4 ⊢ ((𝜑 ∧ 𝑆 = 𝑈) → { 0 } ∈ (SubGrp‘𝐺))
140	91	subg0cl 18678	. . . . . . . 8 ⊢ (𝑆 ∈ (SubGrp‘𝐺) → 0 ∈ 𝑆)
141	29, 140	syl 17	. . . . . . 7 ⊢ (𝜑 → 0 ∈ 𝑆)
142	141	snssd 4739	. . . . . 6 ⊢ (𝜑 → { 0 } ⊆ 𝑆)
143	142	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ 𝑆 = 𝑈) → { 0 } ⊆ 𝑆)
144		sseqin2 4146	. . . . 5 ⊢ ({ 0 } ⊆ 𝑆 ↔ (𝑆 ∩ { 0 }) = { 0 })
145	143, 144	sylib 217	. . . 4 ⊢ ((𝜑 ∧ 𝑆 = 𝑈) → (𝑆 ∩ { 0 }) = { 0 })
146	92	lsmss2 19188	. . . . . . 7 ⊢ ((𝑆 ∈ (SubGrp‘𝐺) ∧ { 0 } ∈ (SubGrp‘𝐺) ∧ { 0 } ⊆ 𝑆) → (𝑆 ⊕ { 0 }) = 𝑆)
147	29, 138, 142, 146	syl3anc 1369	. . . . . 6 ⊢ (𝜑 → (𝑆 ⊕ { 0 }) = 𝑆)
148	147	eqeq1d 2740	. . . . 5 ⊢ (𝜑 → ((𝑆 ⊕ { 0 }) = 𝑈 ↔ 𝑆 = 𝑈))
149	148	biimpar 477	. . . 4 ⊢ ((𝜑 ∧ 𝑆 = 𝑈) → (𝑆 ⊕ { 0 }) = 𝑈)
150		ineq2 4137	. . . . . . 7 ⊢ (𝑡 = { 0 } → (𝑆 ∩ 𝑡) = (𝑆 ∩ { 0 }))
151	150	eqeq1d 2740	. . . . . 6 ⊢ (𝑡 = { 0 } → ((𝑆 ∩ 𝑡) = { 0 } ↔ (𝑆 ∩ { 0 }) = { 0 }))
152		oveq2 7263	. . . . . . 7 ⊢ (𝑡 = { 0 } → (𝑆 ⊕ 𝑡) = (𝑆 ⊕ { 0 }))
153	152	eqeq1d 2740	. . . . . 6 ⊢ (𝑡 = { 0 } → ((𝑆 ⊕ 𝑡) = 𝑈 ↔ (𝑆 ⊕ { 0 }) = 𝑈))
154	151, 153	anbi12d 630	. . . . 5 ⊢ (𝑡 = { 0 } → (((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑈) ↔ ((𝑆 ∩ { 0 }) = { 0 } ∧ (𝑆 ⊕ { 0 }) = 𝑈)))
155	154	rspcev 3552	. . . 4 ⊢ (({ 0 } ∈ (SubGrp‘𝐺) ∧ ((𝑆 ∩ { 0 }) = { 0 } ∧ (𝑆 ⊕ { 0 }) = 𝑈)) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑈))
156	139, 145, 149, 155	syl12anc 833	. . 3 ⊢ ((𝜑 ∧ 𝑆 = 𝑈) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑈))
157	156	ex 412	. 2 ⊢ (𝜑 → (𝑆 = 𝑈 → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑈)))
158	26	mrcsscl 17246	. . . . 5 ⊢ (((SubGrp‘𝐺) ∈ (Moore‘𝐵) ∧ {𝐴} ⊆ 𝑈 ∧ 𝑈 ∈ (SubGrp‘𝐺)) → (𝐾‘{𝐴}) ⊆ 𝑈)
159	20, 32, 21, 158	syl3anc 1369	. . . 4 ⊢ (𝜑 → (𝐾‘{𝐴}) ⊆ 𝑈)
160	14, 159	eqsstrid 3965	. . 3 ⊢ (𝜑 → 𝑆 ⊆ 𝑈)
161		sspss 4030	. . 3 ⊢ (𝑆 ⊆ 𝑈 ↔ (𝑆 ⊊ 𝑈 ∨ 𝑆 = 𝑈))
162	160, 161	sylib 217	. 2 ⊢ (𝜑 → (𝑆 ⊊ 𝑈 ∨ 𝑆 = 𝑈))
163	136, 157, 162	mpjaod 856	1 ⊢ (𝜑 → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑈))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 205 ∧ wa 395 ∨ wo 843 ∧ w3a 1085 ∀wal 1537 = wceq 1539 ∃wex 1783 ∈ wcel 2108 ≠ wne 2942 ∀wral 3063 ∃wrex 3064 {crab 3067 ∖ cdif 3880 ∩ cin 3882 ⊆ wss 3883 ⊊ wpss 3884 ∅c0 4253 𝒫 cpw 4530 {csn 4558 ∪ cuni 4836 class class class wbr 5070 Or wor 5493 dom cdm 5580 ‘cfv 6418 (class class class)co 7255 [⊊] crpss 7553 Fincfn 8691 cardccrd 9624 Basecbs 16840 0_gc0g 17067 Moorecmre 17208 mrClscmrc 17209 ACScacs 17211 Grpcgrp 18492 ._gcmg 18615 SubGrpcsubg 18664 odcod 19047 gExcgex 19048 pGrp cpgp 19049 LSSumclsm 19154 Abelcabl 19302

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1799 ax-4 1813 ax-5 1914 ax-6 1972 ax-7 2012 ax-8 2110 ax-9 2118 ax-10 2139 ax-11 2156 ax-12 2173 ax-ext 2709 ax-rep 5205 ax-sep 5218 ax-nul 5225 ax-pow 5283 ax-pr 5347 ax-un 7566 ax-inf2 9329 ax-cnex 10858 ax-resscn 10859 ax-1cn 10860 ax-icn 10861 ax-addcl 10862 ax-addrcl 10863 ax-mulcl 10864 ax-mulrcl 10865 ax-mulcom 10866 ax-addass 10867 ax-mulass 10868 ax-distr 10869 ax-i2m1 10870 ax-1ne0 10871 ax-1rid 10872 ax-rnegex 10873 ax-rrecex 10874 ax-cnre 10875 ax-pre-lttri 10876 ax-pre-lttrn 10877 ax-pre-ltadd 10878 ax-pre-mulgt0 10879 ax-pre-sup 10880

This theorem depends on definitions: df-bi 206 df-an 396 df-or 844 df-3or 1086 df-3an 1087 df-tru 1542 df-fal 1552 df-ex 1784 df-nf 1788 df-sb 2069 df-mo 2540 df-eu 2569 df-clab 2716 df-cleq 2730 df-clel 2817 df-nfc 2888 df-ne 2943 df-nel 3049 df-ral 3068 df-rex 3069 df-reu 3070 df-rmo 3071 df-rab 3072 df-v 3424 df-sbc 3712 df-csb 3829 df-dif 3886 df-un 3888 df-in 3890 df-ss 3900 df-pss 3902 df-nul 4254 df-if 4457 df-pw 4532 df-sn 4559 df-pr 4561 df-tp 4563 df-op 4565 df-uni 4837 df-int 4877 df-iun 4923 df-iin 4924 df-disj 5036 df-br 5071 df-opab 5133 df-mpt 5154 df-tr 5188 df-id 5480 df-eprel 5486 df-po 5494 df-so 5495 df-fr 5535 df-se 5536 df-we 5537 df-xp 5586 df-rel 5587 df-cnv 5588 df-co 5589 df-dm 5590 df-rn 5591 df-res 5592 df-ima 5593 df-pred 6191 df-ord 6254 df-on 6255 df-lim 6256 df-suc 6257 df-iota 6376 df-fun 6420 df-fn 6421 df-f 6422 df-f1 6423 df-fo 6424 df-f1o 6425 df-fv 6426 df-isom 6427 df-riota 7212 df-ov 7258 df-oprab 7259 df-mpo 7260 df-rpss 7554 df-om 7688 df-1st 7804 df-2nd 7805 df-frecs 8068 df-wrecs 8099 df-recs 8173 df-rdg 8212 df-1o 8267 df-2o 8268 df-oadd 8271 df-omul 8272 df-er 8456 df-ec 8458 df-qs 8462 df-map 8575 df-en 8692 df-dom 8693 df-sdom 8694 df-fin 8695 df-sup 9131 df-inf 9132 df-oi 9199 df-dju 9590 df-card 9628 df-acn 9631 df-pnf 10942 df-mnf 10943 df-xr 10944 df-ltxr 10945 df-le 10946 df-sub 11137 df-neg 11138 df-div 11563 df-nn 11904 df-2 11966 df-3 11967 df-n0 12164 df-xnn0 12236 df-z 12250 df-uz 12512 df-q 12618 df-rp 12660 df-fz 13169 df-fzo 13312 df-fl 13440 df-mod 13518 df-seq 13650 df-exp 13711 df-fac 13916 df-bc 13945 df-hash 13973 df-cj 14738 df-re 14739 df-im 14740 df-sqrt 14874 df-abs 14875 df-clim 15125 df-sum 15326 df-dvds 15892 df-gcd 16130 df-prm 16305 df-pc 16466 df-sets 16793 df-slot 16811 df-ndx 16823 df-base 16841 df-ress 16868 df-plusg 16901 df-0g 17069 df-mre 17212 df-mrc 17213 df-acs 17215 df-mgm 18241 df-sgrp 18290 df-mnd 18301 df-submnd 18346 df-grp 18495 df-minusg 18496 df-sbg 18497 df-mulg 18616 df-subg 18667 df-eqg 18669 df-ga 18811 df-cntz 18838 df-od 19051 df-gex 19052 df-pgp 19053 df-lsm 19156 df-cmn 19303 df-abl 19304

This theorem is referenced by: pgpfac1 19598

W3C validator