pgpfac1 - Metamath Proof Explorer

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

Theorem pgpfac1 19683

Description: Factorization of a finite abelian p-group. There is a direct product decomposition of any abelian group of prime-power order where one of the factors is cyclic and generated by an element of maximal order. (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.ab	⊢ (𝜑 → 𝐴 ∈ 𝐵)

**Assertion**
Ref	Expression
pgpfac1	⊢ (𝜑 → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝐵))

Distinct variable groups: 𝑡, 0 𝑡,𝐴 𝑡, ⊕ 𝑡,𝑃 𝑡,𝐵 𝑡,𝐺 𝑡,𝑆 𝜑,𝑡 𝑡,𝐾 Allowed substitution hints: 𝐸(𝑡) 𝑂(𝑡)

Proof of Theorem pgpfac1 Dummy variables 𝑠 𝑢 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		pgpfac1.g	. . 3 ⊢ (𝜑 → 𝐺 ∈ Abel)
2		ablgrp 19391	. . 3 ⊢ (𝐺 ∈ Abel → 𝐺 ∈ Grp)
3		pgpfac1.b	. . . 4 ⊢ 𝐵 = (Base‘𝐺)
4	3	subgid 18757	. . 3 ⊢ (𝐺 ∈ Grp → 𝐵 ∈ (SubGrp‘𝐺))
5	1, 2, 4	3syl 18	. 2 ⊢ (𝜑 → 𝐵 ∈ (SubGrp‘𝐺))
6		pgpfac1.ab	. 2 ⊢ (𝜑 → 𝐴 ∈ 𝐵)
7		pgpfac1.n	. . 3 ⊢ (𝜑 → 𝐵 ∈ Fin)
8		eleq1 2826	. . . . . . 7 ⊢ (𝑠 = 𝑢 → (𝑠 ∈ (SubGrp‘𝐺) ↔ 𝑢 ∈ (SubGrp‘𝐺)))
9		eleq2 2827	. . . . . . 7 ⊢ (𝑠 = 𝑢 → (𝐴 ∈ 𝑠 ↔ 𝐴 ∈ 𝑢))
10	8, 9	anbi12d 631	. . . . . 6 ⊢ (𝑠 = 𝑢 → ((𝑠 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑠) ↔ (𝑢 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑢)))
11		eqeq2 2750	. . . . . . . 8 ⊢ (𝑠 = 𝑢 → ((𝑆 ⊕ 𝑡) = 𝑠 ↔ (𝑆 ⊕ 𝑡) = 𝑢))
12	11	anbi2d 629	. . . . . . 7 ⊢ (𝑠 = 𝑢 → (((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠) ↔ ((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑢)))
13	12	rexbidv 3226	. . . . . 6 ⊢ (𝑠 = 𝑢 → (∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠) ↔ ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑢)))
14	10, 13	imbi12d 345	. . . . 5 ⊢ (𝑠 = 𝑢 → (((𝑠 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)) ↔ ((𝑢 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑢) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑢))))
15	14	imbi2d 341	. . . 4 ⊢ (𝑠 = 𝑢 → ((𝜑 → ((𝑠 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠))) ↔ (𝜑 → ((𝑢 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑢) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑢)))))
16		eleq1 2826	. . . . . . 7 ⊢ (𝑠 = 𝐵 → (𝑠 ∈ (SubGrp‘𝐺) ↔ 𝐵 ∈ (SubGrp‘𝐺)))
17		eleq2 2827	. . . . . . 7 ⊢ (𝑠 = 𝐵 → (𝐴 ∈ 𝑠 ↔ 𝐴 ∈ 𝐵))
18	16, 17	anbi12d 631	. . . . . 6 ⊢ (𝑠 = 𝐵 → ((𝑠 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑠) ↔ (𝐵 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝐵)))
19		eqeq2 2750	. . . . . . . 8 ⊢ (𝑠 = 𝐵 → ((𝑆 ⊕ 𝑡) = 𝑠 ↔ (𝑆 ⊕ 𝑡) = 𝐵))
20	19	anbi2d 629	. . . . . . 7 ⊢ (𝑠 = 𝐵 → (((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠) ↔ ((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝐵)))
21	20	rexbidv 3226	. . . . . 6 ⊢ (𝑠 = 𝐵 → (∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠) ↔ ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝐵)))
22	18, 21	imbi12d 345	. . . . 5 ⊢ (𝑠 = 𝐵 → (((𝑠 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)) ↔ ((𝐵 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝐵) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝐵))))
23	22	imbi2d 341	. . . 4 ⊢ (𝑠 = 𝐵 → ((𝜑 → ((𝑠 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠))) ↔ (𝜑 → ((𝐵 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝐵) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝐵)))))
24		bi2.04 389	. . . . . . . . . . 11 ⊢ ((𝑠 ⊊ 𝑢 → (𝑠 ∈ (SubGrp‘𝐺) → (𝐴 ∈ 𝑠 → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)))) ↔ (𝑠 ∈ (SubGrp‘𝐺) → (𝑠 ⊊ 𝑢 → (𝐴 ∈ 𝑠 → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)))))
25		impexp 451	. . . . . . . . . . . 12 ⊢ (((𝑠 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)) ↔ (𝑠 ∈ (SubGrp‘𝐺) → (𝐴 ∈ 𝑠 → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠))))
26	25	imbi2i 336	. . . . . . . . . . 11 ⊢ ((𝑠 ⊊ 𝑢 → ((𝑠 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠))) ↔ (𝑠 ⊊ 𝑢 → (𝑠 ∈ (SubGrp‘𝐺) → (𝐴 ∈ 𝑠 → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)))))
27		impexp 451	. . . . . . . . . . . 12 ⊢ (((𝑠 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)) ↔ (𝑠 ⊊ 𝑢 → (𝐴 ∈ 𝑠 → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠))))
28	27	imbi2i 336	. . . . . . . . . . 11 ⊢ ((𝑠 ∈ (SubGrp‘𝐺) → ((𝑠 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠))) ↔ (𝑠 ∈ (SubGrp‘𝐺) → (𝑠 ⊊ 𝑢 → (𝐴 ∈ 𝑠 → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)))))
29	24, 26, 28	3bitr4i 303	. . . . . . . . . 10 ⊢ ((𝑠 ⊊ 𝑢 → ((𝑠 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠))) ↔ (𝑠 ∈ (SubGrp‘𝐺) → ((𝑠 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠))))
30	29	imbi2i 336	. . . . . . . . 9 ⊢ ((𝜑 → (𝑠 ⊊ 𝑢 → ((𝑠 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)))) ↔ (𝜑 → (𝑠 ∈ (SubGrp‘𝐺) → ((𝑠 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)))))
31		bi2.04 389	. . . . . . . . 9 ⊢ ((𝑠 ⊊ 𝑢 → (𝜑 → ((𝑠 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)))) ↔ (𝜑 → (𝑠 ⊊ 𝑢 → ((𝑠 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)))))
32		bi2.04 389	. . . . . . . . 9 ⊢ ((𝑠 ∈ (SubGrp‘𝐺) → (𝜑 → ((𝑠 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)))) ↔ (𝜑 → (𝑠 ∈ (SubGrp‘𝐺) → ((𝑠 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)))))
33	30, 31, 32	3bitr4i 303	. . . . . . . 8 ⊢ ((𝑠 ⊊ 𝑢 → (𝜑 → ((𝑠 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)))) ↔ (𝑠 ∈ (SubGrp‘𝐺) → (𝜑 → ((𝑠 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)))))
34	33	albii 1822	. . . . . . 7 ⊢ (∀𝑠(𝑠 ⊊ 𝑢 → (𝜑 → ((𝑠 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)))) ↔ ∀𝑠(𝑠 ∈ (SubGrp‘𝐺) → (𝜑 → ((𝑠 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)))))
35		df-ral 3069	. . . . . . 7 ⊢ (∀𝑠 ∈ (SubGrp‘𝐺)(𝜑 → ((𝑠 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠))) ↔ ∀𝑠(𝑠 ∈ (SubGrp‘𝐺) → (𝜑 → ((𝑠 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)))))
36		r19.21v 3113	. . . . . . 7 ⊢ (∀𝑠 ∈ (SubGrp‘𝐺)(𝜑 → ((𝑠 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠))) ↔ (𝜑 → ∀𝑠 ∈ (SubGrp‘𝐺)((𝑠 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠))))
37	34, 35, 36	3bitr2i 299	. . . . . 6 ⊢ (∀𝑠(𝑠 ⊊ 𝑢 → (𝜑 → ((𝑠 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)))) ↔ (𝜑 → ∀𝑠 ∈ (SubGrp‘𝐺)((𝑠 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠))))
38		psseq1 4022	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑠 → (𝑥 ⊊ 𝑢 ↔ 𝑠 ⊊ 𝑢))
39		eleq2 2827	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑠 → (𝐴 ∈ 𝑥 ↔ 𝐴 ∈ 𝑠))
40	38, 39	anbi12d 631	. . . . . . . . . 10 ⊢ (𝑥 = 𝑠 → ((𝑥 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑥) ↔ (𝑠 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑠)))
41		ineq2 4140	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝑡 → (𝑆 ∩ 𝑦) = (𝑆 ∩ 𝑡))
42	41	eqeq1d 2740	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑡 → ((𝑆 ∩ 𝑦) = { 0 } ↔ (𝑆 ∩ 𝑡) = { 0 }))
43		oveq2 7283	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝑡 → (𝑆 ⊕ 𝑦) = (𝑆 ⊕ 𝑡))
44	43	eqeq1d 2740	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑡 → ((𝑆 ⊕ 𝑦) = 𝑥 ↔ (𝑆 ⊕ 𝑡) = 𝑥))
45	42, 44	anbi12d 631	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝑡 → (((𝑆 ∩ 𝑦) = { 0 } ∧ (𝑆 ⊕ 𝑦) = 𝑥) ↔ ((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑥)))
46	45	cbvrexvw 3384	. . . . . . . . . . 11 ⊢ (∃𝑦 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑦) = { 0 } ∧ (𝑆 ⊕ 𝑦) = 𝑥) ↔ ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑥))
47		eqeq2 2750	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑠 → ((𝑆 ⊕ 𝑡) = 𝑥 ↔ (𝑆 ⊕ 𝑡) = 𝑠))
48	47	anbi2d 629	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑠 → (((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑥) ↔ ((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)))
49	48	rexbidv 3226	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑠 → (∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑥) ↔ ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)))
50	46, 49	bitrid 282	. . . . . . . . . 10 ⊢ (𝑥 = 𝑠 → (∃𝑦 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑦) = { 0 } ∧ (𝑆 ⊕ 𝑦) = 𝑥) ↔ ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)))
51	40, 50	imbi12d 345	. . . . . . . . 9 ⊢ (𝑥 = 𝑠 → (((𝑥 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑥) → ∃𝑦 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑦) = { 0 } ∧ (𝑆 ⊕ 𝑦) = 𝑥)) ↔ ((𝑠 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠))))
52	51	cbvralvw 3383	. . . . . . . 8 ⊢ (∀𝑥 ∈ (SubGrp‘𝐺)((𝑥 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑥) → ∃𝑦 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑦) = { 0 } ∧ (𝑆 ⊕ 𝑦) = 𝑥)) ↔ ∀𝑠 ∈ (SubGrp‘𝐺)((𝑠 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)))
53		pgpfac1.k	. . . . . . . . . 10 ⊢ 𝐾 = (mrCls‘(SubGrp‘𝐺))
54		pgpfac1.s	. . . . . . . . . 10 ⊢ 𝑆 = (𝐾‘{𝐴})
55		pgpfac1.o	. . . . . . . . . 10 ⊢ 𝑂 = (od‘𝐺)
56		pgpfac1.e	. . . . . . . . . 10 ⊢ 𝐸 = (gEx‘𝐺)
57		pgpfac1.z	. . . . . . . . . 10 ⊢ 0 = (0_g‘𝐺)
58		pgpfac1.l	. . . . . . . . . 10 ⊢ ⊕ = (LSSum‘𝐺)
59		pgpfac1.p	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑃 pGrp 𝐺)
60	59	adantr 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (∀𝑥 ∈ (SubGrp‘𝐺)((𝑥 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑥) → ∃𝑦 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑦) = { 0 } ∧ (𝑆 ⊕ 𝑦) = 𝑥)) ∧ (𝑢 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑢))) → 𝑃 pGrp 𝐺)
61	1	adantr 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (∀𝑥 ∈ (SubGrp‘𝐺)((𝑥 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑥) → ∃𝑦 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑦) = { 0 } ∧ (𝑆 ⊕ 𝑦) = 𝑥)) ∧ (𝑢 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑢))) → 𝐺 ∈ Abel)
62	7	adantr 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (∀𝑥 ∈ (SubGrp‘𝐺)((𝑥 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑥) → ∃𝑦 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑦) = { 0 } ∧ (𝑆 ⊕ 𝑦) = 𝑥)) ∧ (𝑢 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑢))) → 𝐵 ∈ Fin)
63		pgpfac1.oe	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑂‘𝐴) = 𝐸)
64	63	adantr 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (∀𝑥 ∈ (SubGrp‘𝐺)((𝑥 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑥) → ∃𝑦 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑦) = { 0 } ∧ (𝑆 ⊕ 𝑦) = 𝑥)) ∧ (𝑢 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑢))) → (𝑂‘𝐴) = 𝐸)
65		simprrl 778	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (∀𝑥 ∈ (SubGrp‘𝐺)((𝑥 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑥) → ∃𝑦 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑦) = { 0 } ∧ (𝑆 ⊕ 𝑦) = 𝑥)) ∧ (𝑢 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑢))) → 𝑢 ∈ (SubGrp‘𝐺))
66		simprrr 779	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (∀𝑥 ∈ (SubGrp‘𝐺)((𝑥 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑥) → ∃𝑦 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑦) = { 0 } ∧ (𝑆 ⊕ 𝑦) = 𝑥)) ∧ (𝑢 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑢))) → 𝐴 ∈ 𝑢)
67		simprl 768	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (∀𝑥 ∈ (SubGrp‘𝐺)((𝑥 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑥) → ∃𝑦 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑦) = { 0 } ∧ (𝑆 ⊕ 𝑦) = 𝑥)) ∧ (𝑢 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑢))) → ∀𝑥 ∈ (SubGrp‘𝐺)((𝑥 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑥) → ∃𝑦 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑦) = { 0 } ∧ (𝑆 ⊕ 𝑦) = 𝑥)))
68	67, 52	sylib 217	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (∀𝑥 ∈ (SubGrp‘𝐺)((𝑥 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑥) → ∃𝑦 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑦) = { 0 } ∧ (𝑆 ⊕ 𝑦) = 𝑥)) ∧ (𝑢 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑢))) → ∀𝑠 ∈ (SubGrp‘𝐺)((𝑠 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)))
69	53, 54, 3, 55, 56, 57, 58, 60, 61, 62, 64, 65, 66, 68	pgpfac1lem5 19682	. . . . . . . . 9 ⊢ ((𝜑 ∧ (∀𝑥 ∈ (SubGrp‘𝐺)((𝑥 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑥) → ∃𝑦 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑦) = { 0 } ∧ (𝑆 ⊕ 𝑦) = 𝑥)) ∧ (𝑢 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑢))) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑢))
70	69	exp32 421	. . . . . . . 8 ⊢ (𝜑 → (∀𝑥 ∈ (SubGrp‘𝐺)((𝑥 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑥) → ∃𝑦 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑦) = { 0 } ∧ (𝑆 ⊕ 𝑦) = 𝑥)) → ((𝑢 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑢) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑢))))
71	52, 70	syl5bir 242	. . . . . . 7 ⊢ (𝜑 → (∀𝑠 ∈ (SubGrp‘𝐺)((𝑠 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)) → ((𝑢 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑢) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑢))))
72	71	a2i 14	. . . . . 6 ⊢ ((𝜑 → ∀𝑠 ∈ (SubGrp‘𝐺)((𝑠 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠))) → (𝜑 → ((𝑢 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑢) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑢))))
73	37, 72	sylbi 216	. . . . 5 ⊢ (∀𝑠(𝑠 ⊊ 𝑢 → (𝜑 → ((𝑠 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)))) → (𝜑 → ((𝑢 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑢) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑢))))
74	73	a1i 11	. . . 4 ⊢ (𝑢 ∈ Fin → (∀𝑠(𝑠 ⊊ 𝑢 → (𝜑 → ((𝑠 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)))) → (𝜑 → ((𝑢 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑢) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑢)))))
75	15, 23, 74	findcard3 9057	. . 3 ⊢ (𝐵 ∈ Fin → (𝜑 → ((𝐵 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝐵) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝐵))))
76	7, 75	mpcom 38	. 2 ⊢ (𝜑 → ((𝐵 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝐵) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝐵)))
77	5, 6, 76	mp2and 696	1 ⊢ (𝜑 → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝐵))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 396 ∀wal 1537 = wceq 1539 ∈ wcel 2106 ∀wral 3064 ∃wrex 3065 ∩ cin 3886 ⊊ wpss 3888 {csn 4561 class class class wbr 5074 ‘cfv 6433 (class class class)co 7275 Fincfn 8733 Basecbs 16912 0_gc0g 17150 mrClscmrc 17292 Grpcgrp 18577 SubGrpcsubg 18749 odcod 19132 gExcgex 19133 pGrp cpgp 19134 LSSumclsm 19239 Abelcabl 19387

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1798 ax-4 1812 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 2709 ax-rep 5209 ax-sep 5223 ax-nul 5230 ax-pow 5288 ax-pr 5352 ax-un 7588 ax-inf2 9399 ax-cnex 10927 ax-resscn 10928 ax-1cn 10929 ax-icn 10930 ax-addcl 10931 ax-addrcl 10932 ax-mulcl 10933 ax-mulrcl 10934 ax-mulcom 10935 ax-addass 10936 ax-mulass 10937 ax-distr 10938 ax-i2m1 10939 ax-1ne0 10940 ax-1rid 10941 ax-rnegex 10942 ax-rrecex 10943 ax-cnre 10944 ax-pre-lttri 10945 ax-pre-lttrn 10946 ax-pre-ltadd 10947 ax-pre-mulgt0 10948 ax-pre-sup 10949

This theorem depends on definitions: df-bi 206 df-an 397 df-or 845 df-3or 1087 df-3an 1088 df-tru 1542 df-fal 1552 df-ex 1783 df-nf 1787 df-sb 2068 df-mo 2540 df-eu 2569 df-clab 2716 df-cleq 2730 df-clel 2816 df-nfc 2889 df-ne 2944 df-nel 3050 df-ral 3069 df-rex 3070 df-rmo 3071 df-reu 3072 df-rab 3073 df-v 3434 df-sbc 3717 df-csb 3833 df-dif 3890 df-un 3892 df-in 3894 df-ss 3904 df-pss 3906 df-nul 4257 df-if 4460 df-pw 4535 df-sn 4562 df-pr 4564 df-op 4568 df-uni 4840 df-int 4880 df-iun 4926 df-iin 4927 df-disj 5040 df-br 5075 df-opab 5137 df-mpt 5158 df-tr 5192 df-id 5489 df-eprel 5495 df-po 5503 df-so 5504 df-fr 5544 df-se 5545 df-we 5546 df-xp 5595 df-rel 5596 df-cnv 5597 df-co 5598 df-dm 5599 df-rn 5600 df-res 5601 df-ima 5602 df-pred 6202 df-ord 6269 df-on 6270 df-lim 6271 df-suc 6272 df-iota 6391 df-fun 6435 df-fn 6436 df-f 6437 df-f1 6438 df-fo 6439 df-f1o 6440 df-fv 6441 df-isom 6442 df-riota 7232 df-ov 7278 df-oprab 7279 df-mpo 7280 df-rpss 7576 df-om 7713 df-1st 7831 df-2nd 7832 df-frecs 8097 df-wrecs 8128 df-recs 8202 df-rdg 8241 df-1o 8297 df-2o 8298 df-oadd 8301 df-omul 8302 df-er 8498 df-ec 8500 df-qs 8504 df-map 8617 df-en 8734 df-dom 8735 df-sdom 8736 df-fin 8737 df-sup 9201 df-inf 9202 df-oi 9269 df-dju 9659 df-card 9697 df-acn 9700 df-pnf 11011 df-mnf 11012 df-xr 11013 df-ltxr 11014 df-le 11015 df-sub 11207 df-neg 11208 df-div 11633 df-nn 11974 df-2 12036 df-3 12037 df-n0 12234 df-xnn0 12306 df-z 12320 df-uz 12583 df-q 12689 df-rp 12731 df-fz 13240 df-fzo 13383 df-fl 13512 df-mod 13590 df-seq 13722 df-exp 13783 df-fac 13988 df-bc 14017 df-hash 14045 df-cj 14810 df-re 14811 df-im 14812 df-sqrt 14946 df-abs 14947 df-clim 15197 df-sum 15398 df-dvds 15964 df-gcd 16202 df-prm 16377 df-pc 16538 df-sets 16865 df-slot 16883 df-ndx 16895 df-base 16913 df-ress 16942 df-plusg 16975 df-0g 17152 df-mre 17295 df-mrc 17296 df-acs 17298 df-mgm 18326 df-sgrp 18375 df-mnd 18386 df-submnd 18431 df-grp 18580 df-minusg 18581 df-sbg 18582 df-mulg 18701 df-subg 18752 df-eqg 18754 df-ga 18896 df-cntz 18923 df-od 19136 df-gex 19137 df-pgp 19138 df-lsm 19241 df-cmn 19388 df-abl 19389

This theorem is referenced by: pgpfaclem3 19686

W3C validator