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 19681

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 19389	. . 3 ⊢ (𝐺 ∈ Abel → 𝐺 ∈ Grp)
3		pgpfac1.b	. . . 4 ⊢ 𝐵 = (Base‘𝐺)
4	3	subgid 18755	. . 3 ⊢ (𝐺 ∈ Grp → 𝐵 ∈ (SubGrp‘𝐺))
5	1, 2, 4	3syl 18	. 2 ⊢ (𝜑 → 𝐵 ∈ (SubGrp‘𝐺))
6		pgpfac1.ab	. 2 ⊢ (𝜑 → 𝐴 ∈ 𝐵)
7		pgpfac1.n	. . 3 ⊢ (𝜑 → 𝐵 ∈ Fin)
8		eleq1 2828	. . . . . . 7 ⊢ (𝑠 = 𝑢 → (𝑠 ∈ (SubGrp‘𝐺) ↔ 𝑢 ∈ (SubGrp‘𝐺)))
9		eleq2 2829	. . . . . . 7 ⊢ (𝑠 = 𝑢 → (𝐴 ∈ 𝑠 ↔ 𝐴 ∈ 𝑢))
10	8, 9	anbi12d 631	. . . . . 6 ⊢ (𝑠 = 𝑢 → ((𝑠 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑠) ↔ (𝑢 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑢)))
11		eqeq2 2752	. . . . . . . 8 ⊢ (𝑠 = 𝑢 → ((𝑆 ⊕ 𝑡) = 𝑠 ↔ (𝑆 ⊕ 𝑡) = 𝑢))
12	11	anbi2d 629	. . . . . . 7 ⊢ (𝑠 = 𝑢 → (((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠) ↔ ((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑢)))
13	12	rexbidv 3228	. . . . . 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 2828	. . . . . . 7 ⊢ (𝑠 = 𝐵 → (𝑠 ∈ (SubGrp‘𝐺) ↔ 𝐵 ∈ (SubGrp‘𝐺)))
17		eleq2 2829	. . . . . . 7 ⊢ (𝑠 = 𝐵 → (𝐴 ∈ 𝑠 ↔ 𝐴 ∈ 𝐵))
18	16, 17	anbi12d 631	. . . . . 6 ⊢ (𝑠 = 𝐵 → ((𝑠 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑠) ↔ (𝐵 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝐵)))
19		eqeq2 2752	. . . . . . . 8 ⊢ (𝑠 = 𝐵 → ((𝑆 ⊕ 𝑡) = 𝑠 ↔ (𝑆 ⊕ 𝑡) = 𝐵))
20	19	anbi2d 629	. . . . . . 7 ⊢ (𝑠 = 𝐵 → (((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠) ↔ ((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝐵)))
21	20	rexbidv 3228	. . . . . 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 1826	. . . . . . 7 ⊢ (∀𝑠(𝑠 ⊊ 𝑢 → (𝜑 → ((𝑠 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)))) ↔ ∀𝑠(𝑠 ∈ (SubGrp‘𝐺) → (𝜑 → ((𝑠 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)))))
35		df-ral 3071	. . . . . . 7 ⊢ (∀𝑠 ∈ (SubGrp‘𝐺)(𝜑 → ((𝑠 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠))) ↔ ∀𝑠(𝑠 ∈ (SubGrp‘𝐺) → (𝜑 → ((𝑠 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)))))
36		r19.21v 3103	. . . . . . 7 ⊢ (∀𝑠 ∈ (SubGrp‘𝐺)(𝜑 → ((𝑠 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠))) ↔ (𝜑 → ∀𝑠 ∈ (SubGrp‘𝐺)((𝑠 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠))))
37	34, 35, 36	3bitr2i 299	. . . . . 6 ⊢ (∀𝑠(𝑠 ⊊ 𝑢 → (𝜑 → ((𝑠 ∈ (SubGrp‘𝐺) ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)))) ↔ (𝜑 → ∀𝑠 ∈ (SubGrp‘𝐺)((𝑠 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠))))
38		psseq1 4027	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑠 → (𝑥 ⊊ 𝑢 ↔ 𝑠 ⊊ 𝑢))
39		eleq2 2829	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑠 → (𝐴 ∈ 𝑥 ↔ 𝐴 ∈ 𝑠))
40	38, 39	anbi12d 631	. . . . . . . . . 10 ⊢ (𝑥 = 𝑠 → ((𝑥 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑥) ↔ (𝑠 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑠)))
41		ineq2 4146	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝑡 → (𝑆 ∩ 𝑦) = (𝑆 ∩ 𝑡))
42	41	eqeq1d 2742	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑡 → ((𝑆 ∩ 𝑦) = { 0 } ↔ (𝑆 ∩ 𝑡) = { 0 }))
43		oveq2 7279	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝑡 → (𝑆 ⊕ 𝑦) = (𝑆 ⊕ 𝑡))
44	43	eqeq1d 2742	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑡 → ((𝑆 ⊕ 𝑦) = 𝑥 ↔ (𝑆 ⊕ 𝑡) = 𝑥))
45	42, 44	anbi12d 631	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝑡 → (((𝑆 ∩ 𝑦) = { 0 } ∧ (𝑆 ⊕ 𝑦) = 𝑥) ↔ ((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑥)))
46	45	cbvrexvw 3382	. . . . . . . . . . 11 ⊢ (∃𝑦 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑦) = { 0 } ∧ (𝑆 ⊕ 𝑦) = 𝑥) ↔ ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑥))
47		eqeq2 2752	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑠 → ((𝑆 ⊕ 𝑡) = 𝑥 ↔ (𝑆 ⊕ 𝑡) = 𝑠))
48	47	anbi2d 629	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑠 → (((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑥) ↔ ((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)))
49	48	rexbidv 3228	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑠 → (∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑥) ↔ ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)))
50	46, 49	syl5bb 283	. . . . . . . . . 10 ⊢ (𝑥 = 𝑠 → (∃𝑦 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑦) = { 0 } ∧ (𝑆 ⊕ 𝑦) = 𝑥) ↔ ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠)))
51	40, 50	imbi12d 345	. . . . . . . . 9 ⊢ (𝑥 = 𝑠 → (((𝑥 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑥) → ∃𝑦 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑦) = { 0 } ∧ (𝑆 ⊕ 𝑦) = 𝑥)) ↔ ((𝑠 ⊊ 𝑢 ∧ 𝐴 ∈ 𝑠) → ∃𝑡 ∈ (SubGrp‘𝐺)((𝑆 ∩ 𝑡) = { 0 } ∧ (𝑆 ⊕ 𝑡) = 𝑠))))
52	51	cbvralvw 3381	. . . . . . . 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 19680	. . . . . . . . 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 9035	. . 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 1540 = wceq 1542 ∈ wcel 2110 ∀wral 3066 ∃wrex 3067 ∩ cin 3891 ⊊ wpss 3893 {csn 4567 class class class wbr 5079 ‘cfv 6432 (class class class)co 7271 Fincfn 8716 Basecbs 16910 0_gc0g 17148 mrClscmrc 17290 Grpcgrp 18575 SubGrpcsubg 18747 odcod 19130 gExcgex 19131 pGrp cpgp 19132 LSSumclsm 19237 Abelcabl 19385

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1802 ax-4 1816 ax-5 1917 ax-6 1975 ax-7 2015 ax-8 2112 ax-9 2120 ax-10 2141 ax-11 2158 ax-12 2175 ax-ext 2711 ax-rep 5214 ax-sep 5227 ax-nul 5234 ax-pow 5292 ax-pr 5356 ax-un 7582 ax-inf2 9377 ax-cnex 10928 ax-resscn 10929 ax-1cn 10930 ax-icn 10931 ax-addcl 10932 ax-addrcl 10933 ax-mulcl 10934 ax-mulrcl 10935 ax-mulcom 10936 ax-addass 10937 ax-mulass 10938 ax-distr 10939 ax-i2m1 10940 ax-1ne0 10941 ax-1rid 10942 ax-rnegex 10943 ax-rrecex 10944 ax-cnre 10945 ax-pre-lttri 10946 ax-pre-lttrn 10947 ax-pre-ltadd 10948 ax-pre-mulgt0 10949 ax-pre-sup 10950

This theorem depends on definitions: df-bi 206 df-an 397 df-or 845 df-3or 1087 df-3an 1088 df-tru 1545 df-fal 1555 df-ex 1787 df-nf 1791 df-sb 2072 df-mo 2542 df-eu 2571 df-clab 2718 df-cleq 2732 df-clel 2818 df-nfc 2891 df-ne 2946 df-nel 3052 df-ral 3071 df-rex 3072 df-reu 3073 df-rmo 3074 df-rab 3075 df-v 3433 df-sbc 3721 df-csb 3838 df-dif 3895 df-un 3897 df-in 3899 df-ss 3909 df-pss 3911 df-nul 4263 df-if 4466 df-pw 4541 df-sn 4568 df-pr 4570 df-op 4574 df-uni 4846 df-int 4886 df-iun 4932 df-iin 4933 df-disj 5045 df-br 5080 df-opab 5142 df-mpt 5163 df-tr 5197 df-id 5490 df-eprel 5496 df-po 5504 df-so 5505 df-fr 5545 df-se 5546 df-we 5547 df-xp 5596 df-rel 5597 df-cnv 5598 df-co 5599 df-dm 5600 df-rn 5601 df-res 5602 df-ima 5603 df-pred 6201 df-ord 6268 df-on 6269 df-lim 6270 df-suc 6271 df-iota 6390 df-fun 6434 df-fn 6435 df-f 6436 df-f1 6437 df-fo 6438 df-f1o 6439 df-fv 6440 df-isom 6441 df-riota 7228 df-ov 7274 df-oprab 7275 df-mpo 7276 df-rpss 7570 df-om 7707 df-1st 7824 df-2nd 7825 df-frecs 8088 df-wrecs 8119 df-recs 8193 df-rdg 8232 df-1o 8288 df-2o 8289 df-oadd 8292 df-omul 8293 df-er 8481 df-ec 8483 df-qs 8487 df-map 8600 df-en 8717 df-dom 8718 df-sdom 8719 df-fin 8720 df-sup 9179 df-inf 9180 df-oi 9247 df-dju 9660 df-card 9698 df-acn 9701 df-pnf 11012 df-mnf 11013 df-xr 11014 df-ltxr 11015 df-le 11016 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 12582 df-q 12688 df-rp 12730 df-fz 13239 df-fzo 13382 df-fl 13510 df-mod 13588 df-seq 13720 df-exp 13781 df-fac 13986 df-bc 14015 df-hash 14043 df-cj 14808 df-re 14809 df-im 14810 df-sqrt 14944 df-abs 14945 df-clim 15195 df-sum 15396 df-dvds 15962 df-gcd 16200 df-prm 16375 df-pc 16536 df-sets 16863 df-slot 16881 df-ndx 16893 df-base 16911 df-ress 16940 df-plusg 16973 df-0g 17150 df-mre 17293 df-mrc 17294 df-acs 17296 df-mgm 18324 df-sgrp 18373 df-mnd 18384 df-submnd 18429 df-grp 18578 df-minusg 18579 df-sbg 18580 df-mulg 18699 df-subg 18750 df-eqg 18752 df-ga 18894 df-cntz 18921 df-od 19134 df-gex 19135 df-pgp 19136 df-lsm 19239 df-cmn 19386 df-abl 19387

This theorem is referenced by: pgpfaclem3 19684

W3C validator