pgpfaclem2 - Metamath Proof Explorer

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

Theorem pgpfaclem2 19600

Description: Lemma for pgpfac 19602. (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 𝑠) = 𝑡)))
pgpfac.h	⊢ 𝐻 = (𝐺 ↾_s 𝑈)
pgpfac.k	⊢ 𝐾 = (mrCls‘(SubGrp‘𝐻))
pgpfac.o	⊢ 𝑂 = (od‘𝐻)
pgpfac.e	⊢ 𝐸 = (gEx‘𝐻)
pgpfac.0	⊢ 0 = (0_g‘𝐻)
pgpfac.l	⊢ ⊕ = (LSSum‘𝐻)
pgpfac.1	⊢ (𝜑 → 𝐸 ≠ 1)
pgpfac.x	⊢ (𝜑 → 𝑋 ∈ 𝑈)
pgpfac.oe	⊢ (𝜑 → (𝑂‘𝑋) = 𝐸)
pgpfac.w	⊢ (𝜑 → 𝑊 ∈ (SubGrp‘𝐻))
pgpfac.i	⊢ (𝜑 → ((𝐾‘{𝑋}) ∩ 𝑊) = { 0 })
pgpfac.s	⊢ (𝜑 → ((𝐾‘{𝑋}) ⊕ 𝑊) = 𝑈)

**Assertion**
Ref	Expression
pgpfaclem2	⊢ (𝜑 → ∃𝑠 ∈ Word 𝐶(𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝑈))

Distinct variable groups: 𝑡,𝑠,𝐶 𝑠,𝑟,𝑡,𝐺 𝐾,𝑟,𝑠 𝜑,𝑡 𝐵,𝑠,𝑡 𝑈,𝑟,𝑠,𝑡 𝑊,𝑠,𝑡 𝑋,𝑟,𝑠 Allowed substitution hints: 𝜑(𝑠,𝑟) 𝐵(𝑟) 𝐶(𝑟) 𝑃(𝑡,𝑠,𝑟) ⊕ (𝑡,𝑠,𝑟) 𝐸(𝑡,𝑠,𝑟) 𝐻(𝑡,𝑠,𝑟) 𝐾(𝑡) 𝑂(𝑡,𝑠,𝑟) 𝑊(𝑟) 𝑋(𝑡) 0 (𝑡,𝑠,𝑟)

Proof of Theorem pgpfaclem2 Dummy variable 𝑎 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		pgpfac.w	. . . . . . 7 ⊢ (𝜑 → 𝑊 ∈ (SubGrp‘𝐻))
2		pgpfac.u	. . . . . . . 8 ⊢ (𝜑 → 𝑈 ∈ (SubGrp‘𝐺))
3		pgpfac.h	. . . . . . . . 9 ⊢ 𝐻 = (𝐺 ↾_s 𝑈)
4	3	subsubg 18693	. . . . . . . 8 ⊢ (𝑈 ∈ (SubGrp‘𝐺) → (𝑊 ∈ (SubGrp‘𝐻) ↔ (𝑊 ∈ (SubGrp‘𝐺) ∧ 𝑊 ⊆ 𝑈)))
5	2, 4	syl 17	. . . . . . 7 ⊢ (𝜑 → (𝑊 ∈ (SubGrp‘𝐻) ↔ (𝑊 ∈ (SubGrp‘𝐺) ∧ 𝑊 ⊆ 𝑈)))
6	1, 5	mpbid 231	. . . . . 6 ⊢ (𝜑 → (𝑊 ∈ (SubGrp‘𝐺) ∧ 𝑊 ⊆ 𝑈))
7	6	simprd 495	. . . . 5 ⊢ (𝜑 → 𝑊 ⊆ 𝑈)
8		pgpfac.f	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐵 ∈ Fin)
9		pgpfac.b	. . . . . . . . . . . . 13 ⊢ 𝐵 = (Base‘𝐺)
10	9	subgss 18671	. . . . . . . . . . . 12 ⊢ (𝑈 ∈ (SubGrp‘𝐺) → 𝑈 ⊆ 𝐵)
11	2, 10	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑈 ⊆ 𝐵)
12	8, 11	ssfid 8971	. . . . . . . . . 10 ⊢ (𝜑 → 𝑈 ∈ Fin)
13	12, 7	ssfid 8971	. . . . . . . . 9 ⊢ (𝜑 → 𝑊 ∈ Fin)
14		hashcl 13999	. . . . . . . . 9 ⊢ (𝑊 ∈ Fin → (♯‘𝑊) ∈ ℕ₀)
15	13, 14	syl 17	. . . . . . . 8 ⊢ (𝜑 → (♯‘𝑊) ∈ ℕ₀)
16	15	nn0red 12224	. . . . . . 7 ⊢ (𝜑 → (♯‘𝑊) ∈ ℝ)
17		pgpfac.0	. . . . . . . . . . . 12 ⊢ 0 = (0_g‘𝐻)
18	17	fvexi 6770	. . . . . . . . . . 11 ⊢ 0 ∈ V
19		hashsng 14012	. . . . . . . . . . 11 ⊢ ( 0 ∈ V → (♯‘{ 0 }) = 1)
20	18, 19	ax-mp 5	. . . . . . . . . 10 ⊢ (♯‘{ 0 }) = 1
21		subgrcl 18675	. . . . . . . . . . . . . . . 16 ⊢ (𝑊 ∈ (SubGrp‘𝐻) → 𝐻 ∈ Grp)
22		eqid 2738	. . . . . . . . . . . . . . . . 17 ⊢ (Base‘𝐻) = (Base‘𝐻)
23	22	subgacs 18704	. . . . . . . . . . . . . . . 16 ⊢ (𝐻 ∈ Grp → (SubGrp‘𝐻) ∈ (ACS‘(Base‘𝐻)))
24		acsmre 17278	. . . . . . . . . . . . . . . 16 ⊢ ((SubGrp‘𝐻) ∈ (ACS‘(Base‘𝐻)) → (SubGrp‘𝐻) ∈ (Moore‘(Base‘𝐻)))
25	1, 21, 23, 24	4syl 19	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (SubGrp‘𝐻) ∈ (Moore‘(Base‘𝐻)))
26		pgpfac.k	. . . . . . . . . . . . . . 15 ⊢ 𝐾 = (mrCls‘(SubGrp‘𝐻))
27	25, 26	mrcssvd 17249	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐾‘{𝑋}) ⊆ (Base‘𝐻))
28	3	subgbas 18674	. . . . . . . . . . . . . . 15 ⊢ (𝑈 ∈ (SubGrp‘𝐺) → 𝑈 = (Base‘𝐻))
29	2, 28	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑈 = (Base‘𝐻))
30	27, 29	sseqtrrd 3958	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐾‘{𝑋}) ⊆ 𝑈)
31	12, 30	ssfid 8971	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐾‘{𝑋}) ∈ Fin)
32		pgpfac.x	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝑋 ∈ 𝑈)
33	32, 29	eleqtrd 2841	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑋 ∈ (Base‘𝐻))
34	26	mrcsncl 17238	. . . . . . . . . . . . . . . 16 ⊢ (((SubGrp‘𝐻) ∈ (Moore‘(Base‘𝐻)) ∧ 𝑋 ∈ (Base‘𝐻)) → (𝐾‘{𝑋}) ∈ (SubGrp‘𝐻))
35	25, 33, 34	syl2anc 583	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐾‘{𝑋}) ∈ (SubGrp‘𝐻))
36	17	subg0cl 18678	. . . . . . . . . . . . . . 15 ⊢ ((𝐾‘{𝑋}) ∈ (SubGrp‘𝐻) → 0 ∈ (𝐾‘{𝑋}))
37	35, 36	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 0 ∈ (𝐾‘{𝑋}))
38	37	snssd 4739	. . . . . . . . . . . . 13 ⊢ (𝜑 → { 0 } ⊆ (𝐾‘{𝑋}))
39	33	snssd 4739	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → {𝑋} ⊆ (Base‘𝐻))
40	25, 26, 39	mrcssidd 17251	. . . . . . . . . . . . . 14 ⊢ (𝜑 → {𝑋} ⊆ (𝐾‘{𝑋}))
41		snssg 4715	. . . . . . . . . . . . . . 15 ⊢ (𝑋 ∈ 𝑈 → (𝑋 ∈ (𝐾‘{𝑋}) ↔ {𝑋} ⊆ (𝐾‘{𝑋})))
42	32, 41	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑋 ∈ (𝐾‘{𝑋}) ↔ {𝑋} ⊆ (𝐾‘{𝑋})))
43	40, 42	mpbird 256	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑋 ∈ (𝐾‘{𝑋}))
44		pgpfac.oe	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑂‘𝑋) = 𝐸)
45		pgpfac.1	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐸 ≠ 1)
46	44, 45	eqnetrd 3010	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑂‘𝑋) ≠ 1)
47		pgpfac.o	. . . . . . . . . . . . . . . . . 18 ⊢ 𝑂 = (od‘𝐻)
48	47, 17	od1 19081	. . . . . . . . . . . . . . . . 17 ⊢ (𝐻 ∈ Grp → (𝑂‘ 0 ) = 1)
49	1, 21, 48	3syl 18	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝑂‘ 0 ) = 1)
50		elsni 4575	. . . . . . . . . . . . . . . . 17 ⊢ (𝑋 ∈ { 0 } → 𝑋 = 0 )
51	50	fveqeq2d 6764	. . . . . . . . . . . . . . . 16 ⊢ (𝑋 ∈ { 0 } → ((𝑂‘𝑋) = 1 ↔ (𝑂‘ 0 ) = 1))
52	49, 51	syl5ibrcom 246	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑋 ∈ { 0 } → (𝑂‘𝑋) = 1))
53	52	necon3ad 2955	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝑂‘𝑋) ≠ 1 → ¬ 𝑋 ∈ { 0 }))
54	46, 53	mpd 15	. . . . . . . . . . . . 13 ⊢ (𝜑 → ¬ 𝑋 ∈ { 0 })
55	38, 43, 54	ssnelpssd 4043	. . . . . . . . . . . 12 ⊢ (𝜑 → { 0 } ⊊ (𝐾‘{𝑋}))
56		php3 8899	. . . . . . . . . . . 12 ⊢ (((𝐾‘{𝑋}) ∈ Fin ∧ { 0 } ⊊ (𝐾‘{𝑋})) → { 0 } ≺ (𝐾‘{𝑋}))
57	31, 55, 56	syl2anc 583	. . . . . . . . . . 11 ⊢ (𝜑 → { 0 } ≺ (𝐾‘{𝑋}))
58		snfi 8788	. . . . . . . . . . . 12 ⊢ { 0 } ∈ Fin
59		hashsdom 14024	. . . . . . . . . . . 12 ⊢ (({ 0 } ∈ Fin ∧ (𝐾‘{𝑋}) ∈ Fin) → ((♯‘{ 0 }) < (♯‘(𝐾‘{𝑋})) ↔ { 0 } ≺ (𝐾‘{𝑋})))
60	58, 31, 59	sylancr 586	. . . . . . . . . . 11 ⊢ (𝜑 → ((♯‘{ 0 }) < (♯‘(𝐾‘{𝑋})) ↔ { 0 } ≺ (𝐾‘{𝑋})))
61	57, 60	mpbird 256	. . . . . . . . . 10 ⊢ (𝜑 → (♯‘{ 0 }) < (♯‘(𝐾‘{𝑋})))
62	20, 61	eqbrtrrid 5106	. . . . . . . . 9 ⊢ (𝜑 → 1 < (♯‘(𝐾‘{𝑋})))
63		1red 10907	. . . . . . . . . 10 ⊢ (𝜑 → 1 ∈ ℝ)
64		hashcl 13999	. . . . . . . . . . . 12 ⊢ ((𝐾‘{𝑋}) ∈ Fin → (♯‘(𝐾‘{𝑋})) ∈ ℕ₀)
65	31, 64	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → (♯‘(𝐾‘{𝑋})) ∈ ℕ₀)
66	65	nn0red 12224	. . . . . . . . . 10 ⊢ (𝜑 → (♯‘(𝐾‘{𝑋})) ∈ ℝ)
67	17	subg0cl 18678	. . . . . . . . . . . . 13 ⊢ (𝑊 ∈ (SubGrp‘𝐻) → 0 ∈ 𝑊)
68		ne0i 4265	. . . . . . . . . . . . 13 ⊢ ( 0 ∈ 𝑊 → 𝑊 ≠ ∅)
69	1, 67, 68	3syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑊 ≠ ∅)
70		hashnncl 14009	. . . . . . . . . . . . 13 ⊢ (𝑊 ∈ Fin → ((♯‘𝑊) ∈ ℕ ↔ 𝑊 ≠ ∅))
71	13, 70	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → ((♯‘𝑊) ∈ ℕ ↔ 𝑊 ≠ ∅))
72	69, 71	mpbird 256	. . . . . . . . . . 11 ⊢ (𝜑 → (♯‘𝑊) ∈ ℕ)
73	72	nngt0d 11952	. . . . . . . . . 10 ⊢ (𝜑 → 0 < (♯‘𝑊))
74		ltmul1 11755	. . . . . . . . . 10 ⊢ ((1 ∈ ℝ ∧ (♯‘(𝐾‘{𝑋})) ∈ ℝ ∧ ((♯‘𝑊) ∈ ℝ ∧ 0 < (♯‘𝑊))) → (1 < (♯‘(𝐾‘{𝑋})) ↔ (1 · (♯‘𝑊)) < ((♯‘(𝐾‘{𝑋})) · (♯‘𝑊))))
75	63, 66, 16, 73, 74	syl112anc 1372	. . . . . . . . 9 ⊢ (𝜑 → (1 < (♯‘(𝐾‘{𝑋})) ↔ (1 · (♯‘𝑊)) < ((♯‘(𝐾‘{𝑋})) · (♯‘𝑊))))
76	62, 75	mpbid 231	. . . . . . . 8 ⊢ (𝜑 → (1 · (♯‘𝑊)) < ((♯‘(𝐾‘{𝑋})) · (♯‘𝑊)))
77	16	recnd 10934	. . . . . . . . 9 ⊢ (𝜑 → (♯‘𝑊) ∈ ℂ)
78	77	mulid2d 10924	. . . . . . . 8 ⊢ (𝜑 → (1 · (♯‘𝑊)) = (♯‘𝑊))
79		pgpfac.l	. . . . . . . . . 10 ⊢ ⊕ = (LSSum‘𝐻)
80		eqid 2738	. . . . . . . . . 10 ⊢ (Cntz‘𝐻) = (Cntz‘𝐻)
81		pgpfac.i	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐾‘{𝑋}) ∩ 𝑊) = { 0 })
82		pgpfac.g	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐺 ∈ Abel)
83	3	subgabl 19352	. . . . . . . . . . . 12 ⊢ ((𝐺 ∈ Abel ∧ 𝑈 ∈ (SubGrp‘𝐺)) → 𝐻 ∈ Abel)
84	82, 2, 83	syl2anc 583	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐻 ∈ Abel)
85	80, 84, 35, 1	ablcntzd 19373	. . . . . . . . . 10 ⊢ (𝜑 → (𝐾‘{𝑋}) ⊆ ((Cntz‘𝐻)‘𝑊))
86	79, 17, 80, 35, 1, 81, 85, 31, 13	lsmhash 19226	. . . . . . . . 9 ⊢ (𝜑 → (♯‘((𝐾‘{𝑋}) ⊕ 𝑊)) = ((♯‘(𝐾‘{𝑋})) · (♯‘𝑊)))
87		pgpfac.s	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐾‘{𝑋}) ⊕ 𝑊) = 𝑈)
88	87	fveq2d 6760	. . . . . . . . 9 ⊢ (𝜑 → (♯‘((𝐾‘{𝑋}) ⊕ 𝑊)) = (♯‘𝑈))
89	86, 88	eqtr3d 2780	. . . . . . . 8 ⊢ (𝜑 → ((♯‘(𝐾‘{𝑋})) · (♯‘𝑊)) = (♯‘𝑈))
90	76, 78, 89	3brtr3d 5101	. . . . . . 7 ⊢ (𝜑 → (♯‘𝑊) < (♯‘𝑈))
91	16, 90	ltned 11041	. . . . . 6 ⊢ (𝜑 → (♯‘𝑊) ≠ (♯‘𝑈))
92		fveq2 6756	. . . . . . 7 ⊢ (𝑊 = 𝑈 → (♯‘𝑊) = (♯‘𝑈))
93	92	necon3i 2975	. . . . . 6 ⊢ ((♯‘𝑊) ≠ (♯‘𝑈) → 𝑊 ≠ 𝑈)
94	91, 93	syl 17	. . . . 5 ⊢ (𝜑 → 𝑊 ≠ 𝑈)
95		df-pss 3902	. . . . 5 ⊢ (𝑊 ⊊ 𝑈 ↔ (𝑊 ⊆ 𝑈 ∧ 𝑊 ≠ 𝑈))
96	7, 94, 95	sylanbrc 582	. . . 4 ⊢ (𝜑 → 𝑊 ⊊ 𝑈)
97		psseq1 4018	. . . . . 6 ⊢ (𝑡 = 𝑊 → (𝑡 ⊊ 𝑈 ↔ 𝑊 ⊊ 𝑈))
98		eqeq2 2750	. . . . . . . 8 ⊢ (𝑡 = 𝑊 → ((𝐺 DProd 𝑠) = 𝑡 ↔ (𝐺 DProd 𝑠) = 𝑊))
99	98	anbi2d 628	. . . . . . 7 ⊢ (𝑡 = 𝑊 → ((𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝑡) ↔ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝑊)))
100	99	rexbidv 3225	. . . . . 6 ⊢ (𝑡 = 𝑊 → (∃𝑠 ∈ Word 𝐶(𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝑡) ↔ ∃𝑠 ∈ Word 𝐶(𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝑊)))
101	97, 100	imbi12d 344	. . . . 5 ⊢ (𝑡 = 𝑊 → ((𝑡 ⊊ 𝑈 → ∃𝑠 ∈ Word 𝐶(𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝑡)) ↔ (𝑊 ⊊ 𝑈 → ∃𝑠 ∈ Word 𝐶(𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝑊))))
102		pgpfac.a	. . . . 5 ⊢ (𝜑 → ∀𝑡 ∈ (SubGrp‘𝐺)(𝑡 ⊊ 𝑈 → ∃𝑠 ∈ Word 𝐶(𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝑡)))
103	6	simpld 494	. . . . 5 ⊢ (𝜑 → 𝑊 ∈ (SubGrp‘𝐺))
104	101, 102, 103	rspcdva 3554	. . . 4 ⊢ (𝜑 → (𝑊 ⊊ 𝑈 → ∃𝑠 ∈ Word 𝐶(𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝑊)))
105	96, 104	mpd 15	. . 3 ⊢ (𝜑 → ∃𝑠 ∈ Word 𝐶(𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝑊))
106		breq2 5074	. . . . 5 ⊢ (𝑠 = 𝑎 → (𝐺dom DProd 𝑠 ↔ 𝐺dom DProd 𝑎))
107		oveq2 7263	. . . . . 6 ⊢ (𝑠 = 𝑎 → (𝐺 DProd 𝑠) = (𝐺 DProd 𝑎))
108	107	eqeq1d 2740	. . . . 5 ⊢ (𝑠 = 𝑎 → ((𝐺 DProd 𝑠) = 𝑊 ↔ (𝐺 DProd 𝑎) = 𝑊))
109	106, 108	anbi12d 630	. . . 4 ⊢ (𝑠 = 𝑎 → ((𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝑊) ↔ (𝐺dom DProd 𝑎 ∧ (𝐺 DProd 𝑎) = 𝑊)))
110	109	cbvrexvw 3373	. . 3 ⊢ (∃𝑠 ∈ Word 𝐶(𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝑊) ↔ ∃𝑎 ∈ Word 𝐶(𝐺dom DProd 𝑎 ∧ (𝐺 DProd 𝑎) = 𝑊))
111	105, 110	sylib 217	. 2 ⊢ (𝜑 → ∃𝑎 ∈ Word 𝐶(𝐺dom DProd 𝑎 ∧ (𝐺 DProd 𝑎) = 𝑊))
112		pgpfac.c	. . 3 ⊢ 𝐶 = {𝑟 ∈ (SubGrp‘𝐺) ∣ (𝐺 ↾_s 𝑟) ∈ (CycGrp ∩ ran pGrp )}
113	82	adantr 480	. . 3 ⊢ ((𝜑 ∧ (𝑎 ∈ Word 𝐶 ∧ (𝐺dom DProd 𝑎 ∧ (𝐺 DProd 𝑎) = 𝑊))) → 𝐺 ∈ Abel)
114		pgpfac.p	. . . 4 ⊢ (𝜑 → 𝑃 pGrp 𝐺)
115	114	adantr 480	. . 3 ⊢ ((𝜑 ∧ (𝑎 ∈ Word 𝐶 ∧ (𝐺dom DProd 𝑎 ∧ (𝐺 DProd 𝑎) = 𝑊))) → 𝑃 pGrp 𝐺)
116	8	adantr 480	. . 3 ⊢ ((𝜑 ∧ (𝑎 ∈ Word 𝐶 ∧ (𝐺dom DProd 𝑎 ∧ (𝐺 DProd 𝑎) = 𝑊))) → 𝐵 ∈ Fin)
117	2	adantr 480	. . 3 ⊢ ((𝜑 ∧ (𝑎 ∈ Word 𝐶 ∧ (𝐺dom DProd 𝑎 ∧ (𝐺 DProd 𝑎) = 𝑊))) → 𝑈 ∈ (SubGrp‘𝐺))
118	102	adantr 480	. . 3 ⊢ ((𝜑 ∧ (𝑎 ∈ Word 𝐶 ∧ (𝐺dom DProd 𝑎 ∧ (𝐺 DProd 𝑎) = 𝑊))) → ∀𝑡 ∈ (SubGrp‘𝐺)(𝑡 ⊊ 𝑈 → ∃𝑠 ∈ Word 𝐶(𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝑡)))
119		pgpfac.e	. . 3 ⊢ 𝐸 = (gEx‘𝐻)
120	45	adantr 480	. . 3 ⊢ ((𝜑 ∧ (𝑎 ∈ Word 𝐶 ∧ (𝐺dom DProd 𝑎 ∧ (𝐺 DProd 𝑎) = 𝑊))) → 𝐸 ≠ 1)
121	32	adantr 480	. . 3 ⊢ ((𝜑 ∧ (𝑎 ∈ Word 𝐶 ∧ (𝐺dom DProd 𝑎 ∧ (𝐺 DProd 𝑎) = 𝑊))) → 𝑋 ∈ 𝑈)
122	44	adantr 480	. . 3 ⊢ ((𝜑 ∧ (𝑎 ∈ Word 𝐶 ∧ (𝐺dom DProd 𝑎 ∧ (𝐺 DProd 𝑎) = 𝑊))) → (𝑂‘𝑋) = 𝐸)
123	1	adantr 480	. . 3 ⊢ ((𝜑 ∧ (𝑎 ∈ Word 𝐶 ∧ (𝐺dom DProd 𝑎 ∧ (𝐺 DProd 𝑎) = 𝑊))) → 𝑊 ∈ (SubGrp‘𝐻))
124	81	adantr 480	. . 3 ⊢ ((𝜑 ∧ (𝑎 ∈ Word 𝐶 ∧ (𝐺dom DProd 𝑎 ∧ (𝐺 DProd 𝑎) = 𝑊))) → ((𝐾‘{𝑋}) ∩ 𝑊) = { 0 })
125	87	adantr 480	. . 3 ⊢ ((𝜑 ∧ (𝑎 ∈ Word 𝐶 ∧ (𝐺dom DProd 𝑎 ∧ (𝐺 DProd 𝑎) = 𝑊))) → ((𝐾‘{𝑋}) ⊕ 𝑊) = 𝑈)
126		simprl 767	. . 3 ⊢ ((𝜑 ∧ (𝑎 ∈ Word 𝐶 ∧ (𝐺dom DProd 𝑎 ∧ (𝐺 DProd 𝑎) = 𝑊))) → 𝑎 ∈ Word 𝐶)
127		simprrl 777	. . 3 ⊢ ((𝜑 ∧ (𝑎 ∈ Word 𝐶 ∧ (𝐺dom DProd 𝑎 ∧ (𝐺 DProd 𝑎) = 𝑊))) → 𝐺dom DProd 𝑎)
128		simprrr 778	. . 3 ⊢ ((𝜑 ∧ (𝑎 ∈ Word 𝐶 ∧ (𝐺dom DProd 𝑎 ∧ (𝐺 DProd 𝑎) = 𝑊))) → (𝐺 DProd 𝑎) = 𝑊)
129		eqid 2738	. . 3 ⊢ (𝑎 ++ ⟨“(𝐾‘{𝑋})”⟩) = (𝑎 ++ ⟨“(𝐾‘{𝑋})”⟩)
130	9, 112, 113, 115, 116, 117, 118, 3, 26, 47, 119, 17, 79, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129	pgpfaclem1 19599	. 2 ⊢ ((𝜑 ∧ (𝑎 ∈ Word 𝐶 ∧ (𝐺dom DProd 𝑎 ∧ (𝐺 DProd 𝑎) = 𝑊))) → ∃𝑠 ∈ Word 𝐶(𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝑈))
131	111, 130	rexlimddv 3219	1 ⊢ (𝜑 → ∃𝑠 ∈ Word 𝐶(𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝑈))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 205 ∧ wa 395 = wceq 1539 ∈ wcel 2108 ≠ wne 2942 ∀wral 3063 ∃wrex 3064 {crab 3067 Vcvv 3422 ∩ cin 3882 ⊆ wss 3883 ⊊ wpss 3884 ∅c0 4253 {csn 4558 class class class wbr 5070 dom cdm 5580 ran crn 5581 ‘cfv 6418 (class class class)co 7255 ≺ csdm 8690 Fincfn 8691 ℝcr 10801 0cc0 10802 1c1 10803 · cmul 10807 < clt 10940 ℕcn 11903 ℕ₀cn0 12163 ♯chash 13972 Word cword 14145 ++ cconcat 14201 ⟨“cs1 14228 Basecbs 16840 ↾_s cress 16867 0_gc0g 17067 Moorecmre 17208 mrClscmrc 17209 ACScacs 17211 Grpcgrp 18492 SubGrpcsubg 18664 Cntzccntz 18836 odcod 19047 gExcgex 19048 pGrp cpgp 19049 LSSumclsm 19154 Abelcabl 19302 CycGrpccyg 19392 DProd cdprd 19511

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-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

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-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-of 7511 df-om 7688 df-1st 7804 df-2nd 7805 df-supp 7949 df-tpos 8013 df-frecs 8068 df-wrecs 8099 df-recs 8173 df-rdg 8212 df-1o 8267 df-oadd 8271 df-er 8456 df-map 8575 df-ixp 8644 df-en 8692 df-dom 8693 df-sdom 8694 df-fin 8695 df-fsupp 9059 df-sup 9131 df-inf 9132 df-oi 9199 df-dju 9590 df-card 9628 df-pnf 10942 df-mnf 10943 df-xr 10944 df-ltxr 10945 df-le 10946 df-sub 11137 df-neg 11138 df-nn 11904 df-2 11966 df-n0 12164 df-xnn0 12236 df-z 12250 df-uz 12512 df-fz 13169 df-fzo 13312 df-seq 13650 df-hash 13973 df-word 14146 df-concat 14202 df-s1 14229 df-sets 16793 df-slot 16811 df-ndx 16823 df-base 16841 df-ress 16868 df-plusg 16901 df-0g 17069 df-gsum 17070 df-mre 17212 df-mrc 17213 df-acs 17215 df-mgm 18241 df-sgrp 18290 df-mnd 18301 df-mhm 18345 df-submnd 18346 df-grp 18495 df-minusg 18496 df-sbg 18497 df-mulg 18616 df-subg 18667 df-ghm 18747 df-gim 18790 df-cntz 18838 df-oppg 18865 df-od 19051 df-pgp 19053 df-lsm 19156 df-pj1 19157 df-cmn 19303 df-abl 19304 df-cyg 19393 df-dprd 19513

This theorem is referenced by: pgpfaclem3 19601

W3C validator