pgpfac1lem2 - Metamath Proof Explorer

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

Theorem pgpfac1lem2 20063

Description: Lemma for pgpfac1 20068. (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.w	⊢ (𝜑 → 𝑊 ∈ (SubGrp‘𝐺))
pgpfac1.i	⊢ (𝜑 → (𝑆 ∩ 𝑊) = { 0 })
pgpfac1.ss	⊢ (𝜑 → (𝑆 ⊕ 𝑊) ⊆ 𝑈)
pgpfac1.2	⊢ (𝜑 → ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ (𝑆 ⊕ 𝑊) ⊊ 𝑤))
pgpfac1.c	⊢ (𝜑 → 𝐶 ∈ (𝑈 ∖ (𝑆 ⊕ 𝑊)))
pgpfac1.mg	⊢ · = (._g‘𝐺)

**Assertion**
Ref	Expression
pgpfac1lem2	⊢ (𝜑 → (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊))

Distinct variable groups: 𝑤,𝐴 𝑤, ⊕ 𝑤,𝑃 𝑤,𝐺 𝑤,𝑈 𝑤,𝐶 𝑤,𝑆 𝑤,𝑊 𝜑,𝑤 𝑤, · 𝑤,𝐾 Allowed substitution hints: 𝐵(𝑤) 𝐸(𝑤) 𝑂(𝑤) 0 (𝑤)

Proof of Theorem pgpfac1lem2 Dummy variables 𝑘 𝑠 𝑡 𝑎 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		pgpfac1.c	. . 3 ⊢ (𝜑 → 𝐶 ∈ (𝑈 ∖ (𝑆 ⊕ 𝑊)))
2	1	eldifbd 3944	. 2 ⊢ (𝜑 → ¬ 𝐶 ∈ (𝑆 ⊕ 𝑊))
3	1	eldifad 3943	. . . . . . 7 ⊢ (𝜑 → 𝐶 ∈ 𝑈)
4	3	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ ¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊)) → 𝐶 ∈ 𝑈)
5		pgpfac1.u	. . . . . . . . . 10 ⊢ (𝜑 → 𝑈 ∈ (SubGrp‘𝐺))
6		pgpfac1.p	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑃 pGrp 𝐺)
7		pgpprm 19579	. . . . . . . . . . . 12 ⊢ (𝑃 pGrp 𝐺 → 𝑃 ∈ ℙ)
8	6, 7	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑃 ∈ ℙ)
9		prmz 16699	. . . . . . . . . . 11 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℤ)
10	8, 9	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝑃 ∈ ℤ)
11		pgpfac1.mg	. . . . . . . . . . 11 ⊢ · = (._g‘𝐺)
12	11	subgmulgcl 19127	. . . . . . . . . 10 ⊢ ((𝑈 ∈ (SubGrp‘𝐺) ∧ 𝑃 ∈ ℤ ∧ 𝐶 ∈ 𝑈) → (𝑃 · 𝐶) ∈ 𝑈)
13	5, 10, 3, 12	syl3anc 1373	. . . . . . . . 9 ⊢ (𝜑 → (𝑃 · 𝐶) ∈ 𝑈)
14	13	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ ¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊)) → (𝑃 · 𝐶) ∈ 𝑈)
15		simpr 484	. . . . . . . 8 ⊢ ((𝜑 ∧ ¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊)) → ¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊))
16	14, 15	eldifd 3942	. . . . . . 7 ⊢ ((𝜑 ∧ ¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊)) → (𝑃 · 𝐶) ∈ (𝑈 ∖ (𝑆 ⊕ 𝑊)))
17		pgpfac1.k	. . . . . . . 8 ⊢ 𝐾 = (mrCls‘(SubGrp‘𝐺))
18		pgpfac1.s	. . . . . . . 8 ⊢ 𝑆 = (𝐾‘{𝐴})
19		pgpfac1.b	. . . . . . . 8 ⊢ 𝐵 = (Base‘𝐺)
20		pgpfac1.o	. . . . . . . 8 ⊢ 𝑂 = (od‘𝐺)
21		pgpfac1.e	. . . . . . . 8 ⊢ 𝐸 = (gEx‘𝐺)
22		pgpfac1.z	. . . . . . . 8 ⊢ 0 = (0_g‘𝐺)
23		pgpfac1.l	. . . . . . . 8 ⊢ ⊕ = (LSSum‘𝐺)
24		pgpfac1.g	. . . . . . . 8 ⊢ (𝜑 → 𝐺 ∈ Abel)
25		pgpfac1.n	. . . . . . . 8 ⊢ (𝜑 → 𝐵 ∈ Fin)
26		pgpfac1.oe	. . . . . . . 8 ⊢ (𝜑 → (𝑂‘𝐴) = 𝐸)
27		pgpfac1.au	. . . . . . . 8 ⊢ (𝜑 → 𝐴 ∈ 𝑈)
28		pgpfac1.w	. . . . . . . 8 ⊢ (𝜑 → 𝑊 ∈ (SubGrp‘𝐺))
29		pgpfac1.i	. . . . . . . 8 ⊢ (𝜑 → (𝑆 ∩ 𝑊) = { 0 })
30		pgpfac1.ss	. . . . . . . 8 ⊢ (𝜑 → (𝑆 ⊕ 𝑊) ⊆ 𝑈)
31		pgpfac1.2	. . . . . . . 8 ⊢ (𝜑 → ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤 ⊊ 𝑈 ∧ 𝐴 ∈ 𝑤) → ¬ (𝑆 ⊕ 𝑊) ⊊ 𝑤))
32	17, 18, 19, 20, 21, 22, 23, 6, 24, 25, 26, 5, 27, 28, 29, 30, 31	pgpfac1lem1 20062	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑃 · 𝐶) ∈ (𝑈 ∖ (𝑆 ⊕ 𝑊))) → ((𝑆 ⊕ 𝑊) ⊕ (𝐾‘{(𝑃 · 𝐶)})) = 𝑈)
33	16, 32	syldan 591	. . . . . 6 ⊢ ((𝜑 ∧ ¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊)) → ((𝑆 ⊕ 𝑊) ⊕ (𝐾‘{(𝑃 · 𝐶)})) = 𝑈)
34	4, 33	eleqtrrd 2838	. . . . 5 ⊢ ((𝜑 ∧ ¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊)) → 𝐶 ∈ ((𝑆 ⊕ 𝑊) ⊕ (𝐾‘{(𝑃 · 𝐶)})))
35	34	ex 412	. . . 4 ⊢ (𝜑 → (¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊) → 𝐶 ∈ ((𝑆 ⊕ 𝑊) ⊕ (𝐾‘{(𝑃 · 𝐶)}))))
36		eqid 2736	. . . . . 6 ⊢ (-_g‘𝐺) = (-_g‘𝐺)
37		ablgrp 19771	. . . . . . . . . . . 12 ⊢ (𝐺 ∈ Abel → 𝐺 ∈ Grp)
38	24, 37	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐺 ∈ Grp)
39	19	subgacs 19149	. . . . . . . . . . 11 ⊢ (𝐺 ∈ Grp → (SubGrp‘𝐺) ∈ (ACS‘𝐵))
40	38, 39	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (SubGrp‘𝐺) ∈ (ACS‘𝐵))
41	40	acsmred 17673	. . . . . . . . 9 ⊢ (𝜑 → (SubGrp‘𝐺) ∈ (Moore‘𝐵))
42	19	subgss 19115	. . . . . . . . . . 11 ⊢ (𝑈 ∈ (SubGrp‘𝐺) → 𝑈 ⊆ 𝐵)
43	5, 42	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝑈 ⊆ 𝐵)
44	43, 27	sseldd 3964	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ 𝐵)
45	17	mrcsncl 17629	. . . . . . . . 9 ⊢ (((SubGrp‘𝐺) ∈ (Moore‘𝐵) ∧ 𝐴 ∈ 𝐵) → (𝐾‘{𝐴}) ∈ (SubGrp‘𝐺))
46	41, 44, 45	syl2anc 584	. . . . . . . 8 ⊢ (𝜑 → (𝐾‘{𝐴}) ∈ (SubGrp‘𝐺))
47	18, 46	eqeltrid 2839	. . . . . . 7 ⊢ (𝜑 → 𝑆 ∈ (SubGrp‘𝐺))
48	23	lsmsubg2 19845	. . . . . . 7 ⊢ ((𝐺 ∈ Abel ∧ 𝑆 ∈ (SubGrp‘𝐺) ∧ 𝑊 ∈ (SubGrp‘𝐺)) → (𝑆 ⊕ 𝑊) ∈ (SubGrp‘𝐺))
49	24, 47, 28, 48	syl3anc 1373	. . . . . 6 ⊢ (𝜑 → (𝑆 ⊕ 𝑊) ∈ (SubGrp‘𝐺))
50	43, 13	sseldd 3964	. . . . . . 7 ⊢ (𝜑 → (𝑃 · 𝐶) ∈ 𝐵)
51	17	mrcsncl 17629	. . . . . . 7 ⊢ (((SubGrp‘𝐺) ∈ (Moore‘𝐵) ∧ (𝑃 · 𝐶) ∈ 𝐵) → (𝐾‘{(𝑃 · 𝐶)}) ∈ (SubGrp‘𝐺))
52	41, 50, 51	syl2anc 584	. . . . . 6 ⊢ (𝜑 → (𝐾‘{(𝑃 · 𝐶)}) ∈ (SubGrp‘𝐺))
53	36, 23, 49, 52	lsmelvalm 19637	. . . . 5 ⊢ (𝜑 → (𝐶 ∈ ((𝑆 ⊕ 𝑊) ⊕ (𝐾‘{(𝑃 · 𝐶)})) ↔ ∃𝑠 ∈ (𝑆 ⊕ 𝑊)∃𝑡 ∈ (𝐾‘{(𝑃 · 𝐶)})𝐶 = (𝑠(-_g‘𝐺)𝑡)))
54		eqid 2736	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℤ ↦ (𝑘 · (𝑃 · 𝐶))) = (𝑘 ∈ ℤ ↦ (𝑘 · (𝑃 · 𝐶)))
55	19, 11, 54, 17	cycsubg2 19198	. . . . . . . . 9 ⊢ ((𝐺 ∈ Grp ∧ (𝑃 · 𝐶) ∈ 𝐵) → (𝐾‘{(𝑃 · 𝐶)}) = ran (𝑘 ∈ ℤ ↦ (𝑘 · (𝑃 · 𝐶))))
56	38, 50, 55	syl2anc 584	. . . . . . . 8 ⊢ (𝜑 → (𝐾‘{(𝑃 · 𝐶)}) = ran (𝑘 ∈ ℤ ↦ (𝑘 · (𝑃 · 𝐶))))
57	56	rexeqdv 3310	. . . . . . 7 ⊢ (𝜑 → (∃𝑡 ∈ (𝐾‘{(𝑃 · 𝐶)})𝐶 = (𝑠(-_g‘𝐺)𝑡) ↔ ∃𝑡 ∈ ran (𝑘 ∈ ℤ ↦ (𝑘 · (𝑃 · 𝐶)))𝐶 = (𝑠(-_g‘𝐺)𝑡)))
58		ovex 7443	. . . . . . . . 9 ⊢ (𝑘 · (𝑃 · 𝐶)) ∈ V
59	58	rgenw 3056	. . . . . . . 8 ⊢ ∀𝑘 ∈ ℤ (𝑘 · (𝑃 · 𝐶)) ∈ V
60		oveq2 7418	. . . . . . . . . 10 ⊢ (𝑡 = (𝑘 · (𝑃 · 𝐶)) → (𝑠(-_g‘𝐺)𝑡) = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))))
61	60	eqeq2d 2747	. . . . . . . . 9 ⊢ (𝑡 = (𝑘 · (𝑃 · 𝐶)) → (𝐶 = (𝑠(-_g‘𝐺)𝑡) ↔ 𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶)))))
62	54, 61	rexrnmptw 7090	. . . . . . . 8 ⊢ (∀𝑘 ∈ ℤ (𝑘 · (𝑃 · 𝐶)) ∈ V → (∃𝑡 ∈ ran (𝑘 ∈ ℤ ↦ (𝑘 · (𝑃 · 𝐶)))𝐶 = (𝑠(-_g‘𝐺)𝑡) ↔ ∃𝑘 ∈ ℤ 𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶)))))
63	59, 62	mp1i 13	. . . . . . 7 ⊢ (𝜑 → (∃𝑡 ∈ ran (𝑘 ∈ ℤ ↦ (𝑘 · (𝑃 · 𝐶)))𝐶 = (𝑠(-_g‘𝐺)𝑡) ↔ ∃𝑘 ∈ ℤ 𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶)))))
64	57, 63	bitrd 279	. . . . . 6 ⊢ (𝜑 → (∃𝑡 ∈ (𝐾‘{(𝑃 · 𝐶)})𝐶 = (𝑠(-_g‘𝐺)𝑡) ↔ ∃𝑘 ∈ ℤ 𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶)))))
65	64	rexbidv 3165	. . . . 5 ⊢ (𝜑 → (∃𝑠 ∈ (𝑆 ⊕ 𝑊)∃𝑡 ∈ (𝐾‘{(𝑃 · 𝐶)})𝐶 = (𝑠(-_g‘𝐺)𝑡) ↔ ∃𝑠 ∈ (𝑆 ⊕ 𝑊)∃𝑘 ∈ ℤ 𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶)))))
66		rexcom 3275	. . . . . 6 ⊢ (∃𝑠 ∈ (𝑆 ⊕ 𝑊)∃𝑘 ∈ ℤ 𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) ↔ ∃𝑘 ∈ ℤ ∃𝑠 ∈ (𝑆 ⊕ 𝑊)𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))))
67	38	ad2antrr 726	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → 𝐺 ∈ Grp)
68	30, 43	sstrd 3974	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑆 ⊕ 𝑊) ⊆ 𝐵)
69	68	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑆 ⊕ 𝑊) ⊆ 𝐵)
70	69	sselda 3963	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → 𝑠 ∈ 𝐵)
71		simplr 768	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → 𝑘 ∈ ℤ)
72	50	ad2antrr 726	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → (𝑃 · 𝐶) ∈ 𝐵)
73	19, 11	mulgcl 19079	. . . . . . . . . . . . 13 ⊢ ((𝐺 ∈ Grp ∧ 𝑘 ∈ ℤ ∧ (𝑃 · 𝐶) ∈ 𝐵) → (𝑘 · (𝑃 · 𝐶)) ∈ 𝐵)
74	67, 71, 72, 73	syl3anc 1373	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → (𝑘 · (𝑃 · 𝐶)) ∈ 𝐵)
75	43, 3	sseldd 3964	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐶 ∈ 𝐵)
76	75	ad2antrr 726	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → 𝐶 ∈ 𝐵)
77		eqid 2736	. . . . . . . . . . . . 13 ⊢ (+_g‘𝐺) = (+_g‘𝐺)
78	19, 77, 36	grpsubadd 19016	. . . . . . . . . . . 12 ⊢ ((𝐺 ∈ Grp ∧ (𝑠 ∈ 𝐵 ∧ (𝑘 · (𝑃 · 𝐶)) ∈ 𝐵 ∧ 𝐶 ∈ 𝐵)) → ((𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) = 𝐶 ↔ (𝐶(+_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) = 𝑠))
79	67, 70, 74, 76, 78	syl13anc 1374	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → ((𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) = 𝐶 ↔ (𝐶(+_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) = 𝑠))
80		1zzd 12628	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → 1 ∈ ℤ)
81	10	ad2antrr 726	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → 𝑃 ∈ ℤ)
82	71, 81	zmulcld 12708	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → (𝑘 · 𝑃) ∈ ℤ)
83	19, 11, 77	mulgdir 19094	. . . . . . . . . . . . . 14 ⊢ ((𝐺 ∈ Grp ∧ (1 ∈ ℤ ∧ (𝑘 · 𝑃) ∈ ℤ ∧ 𝐶 ∈ 𝐵)) → ((1 + (𝑘 · 𝑃)) · 𝐶) = ((1 · 𝐶)(+_g‘𝐺)((𝑘 · 𝑃) · 𝐶)))
84	67, 80, 82, 76, 83	syl13anc 1374	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → ((1 + (𝑘 · 𝑃)) · 𝐶) = ((1 · 𝐶)(+_g‘𝐺)((𝑘 · 𝑃) · 𝐶)))
85	19, 11	mulg1 19069	. . . . . . . . . . . . . . 15 ⊢ (𝐶 ∈ 𝐵 → (1 · 𝐶) = 𝐶)
86	76, 85	syl 17	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → (1 · 𝐶) = 𝐶)
87	19, 11	mulgass 19099	. . . . . . . . . . . . . . 15 ⊢ ((𝐺 ∈ Grp ∧ (𝑘 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ 𝐶 ∈ 𝐵)) → ((𝑘 · 𝑃) · 𝐶) = (𝑘 · (𝑃 · 𝐶)))
88	67, 71, 81, 76, 87	syl13anc 1374	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → ((𝑘 · 𝑃) · 𝐶) = (𝑘 · (𝑃 · 𝐶)))
89	86, 88	oveq12d 7428	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → ((1 · 𝐶)(+_g‘𝐺)((𝑘 · 𝑃) · 𝐶)) = (𝐶(+_g‘𝐺)(𝑘 · (𝑃 · 𝐶))))
90	84, 89	eqtrd 2771	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → ((1 + (𝑘 · 𝑃)) · 𝐶) = (𝐶(+_g‘𝐺)(𝑘 · (𝑃 · 𝐶))))
91	90	eqeq1d 2738	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → (((1 + (𝑘 · 𝑃)) · 𝐶) = 𝑠 ↔ (𝐶(+_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) = 𝑠))
92	79, 91	bitr4d 282	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → ((𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) = 𝐶 ↔ ((1 + (𝑘 · 𝑃)) · 𝐶) = 𝑠))
93		eqcom 2743	. . . . . . . . . 10 ⊢ (𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) ↔ (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) = 𝐶)
94		eqcom 2743	. . . . . . . . . 10 ⊢ (𝑠 = ((1 + (𝑘 · 𝑃)) · 𝐶) ↔ ((1 + (𝑘 · 𝑃)) · 𝐶) = 𝑠)
95	92, 93, 94	3bitr4g 314	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → (𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) ↔ 𝑠 = ((1 + (𝑘 · 𝑃)) · 𝐶)))
96	95	rexbidva 3163	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (∃𝑠 ∈ (𝑆 ⊕ 𝑊)𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) ↔ ∃𝑠 ∈ (𝑆 ⊕ 𝑊)𝑠 = ((1 + (𝑘 · 𝑃)) · 𝐶)))
97		risset 3221	. . . . . . . 8 ⊢ (((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) ↔ ∃𝑠 ∈ (𝑆 ⊕ 𝑊)𝑠 = ((1 + (𝑘 · 𝑃)) · 𝐶))
98	96, 97	bitr4di 289	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (∃𝑠 ∈ (𝑆 ⊕ 𝑊)𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) ↔ ((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊)))
99	98	rexbidva 3163	. . . . . 6 ⊢ (𝜑 → (∃𝑘 ∈ ℤ ∃𝑠 ∈ (𝑆 ⊕ 𝑊)𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) ↔ ∃𝑘 ∈ ℤ ((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊)))
100	66, 99	bitrid 283	. . . . 5 ⊢ (𝜑 → (∃𝑠 ∈ (𝑆 ⊕ 𝑊)∃𝑘 ∈ ℤ 𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) ↔ ∃𝑘 ∈ ℤ ((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊)))
101	53, 65, 100	3bitrd 305	. . . 4 ⊢ (𝜑 → (𝐶 ∈ ((𝑆 ⊕ 𝑊) ⊕ (𝐾‘{(𝑃 · 𝐶)})) ↔ ∃𝑘 ∈ ℤ ((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊)))
102	35, 101	sylibd 239	. . 3 ⊢ (𝜑 → (¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊) → ∃𝑘 ∈ ℤ ((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊)))
103	38	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → 𝐺 ∈ Grp)
104	75	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → 𝐶 ∈ 𝐵)
105		1z 12627	. . . . . . 7 ⊢ 1 ∈ ℤ
106		id 22	. . . . . . . 8 ⊢ (𝑘 ∈ ℤ → 𝑘 ∈ ℤ)
107		zmulcl 12646	. . . . . . . 8 ⊢ ((𝑘 ∈ ℤ ∧ 𝑃 ∈ ℤ) → (𝑘 · 𝑃) ∈ ℤ)
108	106, 10, 107	syl2anr 597	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑘 · 𝑃) ∈ ℤ)
109		zaddcl 12637	. . . . . . 7 ⊢ ((1 ∈ ℤ ∧ (𝑘 · 𝑃) ∈ ℤ) → (1 + (𝑘 · 𝑃)) ∈ ℤ)
110	105, 108, 109	sylancr 587	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (1 + (𝑘 · 𝑃)) ∈ ℤ)
111	19, 20	odcl 19522	. . . . . . . . 9 ⊢ (𝐶 ∈ 𝐵 → (𝑂‘𝐶) ∈ ℕ₀)
112	104, 111	syl 17	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑂‘𝐶) ∈ ℕ₀)
113	112	nn0zd 12619	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑂‘𝐶) ∈ ℤ)
114		hashcl 14379	. . . . . . . . . 10 ⊢ (𝐵 ∈ Fin → (♯‘𝐵) ∈ ℕ₀)
115	25, 114	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (♯‘𝐵) ∈ ℕ₀)
116	115	nn0zd 12619	. . . . . . . 8 ⊢ (𝜑 → (♯‘𝐵) ∈ ℤ)
117	116	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (♯‘𝐵) ∈ ℤ)
118	110, 117	gcdcomd 16538	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → ((1 + (𝑘 · 𝑃)) gcd (♯‘𝐵)) = ((♯‘𝐵) gcd (1 + (𝑘 · 𝑃))))
119	19	pgphash 19593	. . . . . . . . . . 11 ⊢ ((𝑃 pGrp 𝐺 ∧ 𝐵 ∈ Fin) → (♯‘𝐵) = (𝑃↑(𝑃 pCnt (♯‘𝐵))))
120	6, 25, 119	syl2anc 584	. . . . . . . . . 10 ⊢ (𝜑 → (♯‘𝐵) = (𝑃↑(𝑃 pCnt (♯‘𝐵))))
121	120	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (♯‘𝐵) = (𝑃↑(𝑃 pCnt (♯‘𝐵))))
122	121	oveq1d 7425	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → ((♯‘𝐵) gcd (1 + (𝑘 · 𝑃))) = ((𝑃↑(𝑃 pCnt (♯‘𝐵))) gcd (1 + (𝑘 · 𝑃))))
123		simpr 484	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → 𝑘 ∈ ℤ)
124	10	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → 𝑃 ∈ ℤ)
125		1zzd 12628	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → 1 ∈ ℤ)
126		gcdaddm 16549	. . . . . . . . . . 11 ⊢ ((𝑘 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ 1 ∈ ℤ) → (𝑃 gcd 1) = (𝑃 gcd (1 + (𝑘 · 𝑃))))
127	123, 124, 125, 126	syl3anc 1373	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑃 gcd 1) = (𝑃 gcd (1 + (𝑘 · 𝑃))))
128		gcd1 16552	. . . . . . . . . . 11 ⊢ (𝑃 ∈ ℤ → (𝑃 gcd 1) = 1)
129	124, 128	syl 17	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑃 gcd 1) = 1)
130	127, 129	eqtr3d 2773	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑃 gcd (1 + (𝑘 · 𝑃))) = 1)
131	19	grpbn0 18954	. . . . . . . . . . . . . 14 ⊢ (𝐺 ∈ Grp → 𝐵 ≠ ∅)
132	38, 131	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐵 ≠ ∅)
133		hashnncl 14389	. . . . . . . . . . . . . 14 ⊢ (𝐵 ∈ Fin → ((♯‘𝐵) ∈ ℕ ↔ 𝐵 ≠ ∅))
134	25, 133	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((♯‘𝐵) ∈ ℕ ↔ 𝐵 ≠ ∅))
135	132, 134	mpbird 257	. . . . . . . . . . . 12 ⊢ (𝜑 → (♯‘𝐵) ∈ ℕ)
136	8, 135	pccld 16875	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑃 pCnt (♯‘𝐵)) ∈ ℕ₀)
137	136	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑃 pCnt (♯‘𝐵)) ∈ ℕ₀)
138		rpexp1i 16747	. . . . . . . . . 10 ⊢ ((𝑃 ∈ ℤ ∧ (1 + (𝑘 · 𝑃)) ∈ ℤ ∧ (𝑃 pCnt (♯‘𝐵)) ∈ ℕ₀) → ((𝑃 gcd (1 + (𝑘 · 𝑃))) = 1 → ((𝑃↑(𝑃 pCnt (♯‘𝐵))) gcd (1 + (𝑘 · 𝑃))) = 1))
139	124, 110, 137, 138	syl3anc 1373	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → ((𝑃 gcd (1 + (𝑘 · 𝑃))) = 1 → ((𝑃↑(𝑃 pCnt (♯‘𝐵))) gcd (1 + (𝑘 · 𝑃))) = 1))
140	130, 139	mpd 15	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → ((𝑃↑(𝑃 pCnt (♯‘𝐵))) gcd (1 + (𝑘 · 𝑃))) = 1)
141	118, 122, 140	3eqtrd 2775	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → ((1 + (𝑘 · 𝑃)) gcd (♯‘𝐵)) = 1)
142	19, 20	oddvds2 19552	. . . . . . . . 9 ⊢ ((𝐺 ∈ Grp ∧ 𝐵 ∈ Fin ∧ 𝐶 ∈ 𝐵) → (𝑂‘𝐶) ∥ (♯‘𝐵))
143	38, 25, 75, 142	syl3anc 1373	. . . . . . . 8 ⊢ (𝜑 → (𝑂‘𝐶) ∥ (♯‘𝐵))
144	143	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑂‘𝐶) ∥ (♯‘𝐵))
145		rpdvds 16684	. . . . . . 7 ⊢ ((((1 + (𝑘 · 𝑃)) ∈ ℤ ∧ (𝑂‘𝐶) ∈ ℤ ∧ (♯‘𝐵) ∈ ℤ) ∧ (((1 + (𝑘 · 𝑃)) gcd (♯‘𝐵)) = 1 ∧ (𝑂‘𝐶) ∥ (♯‘𝐵))) → ((1 + (𝑘 · 𝑃)) gcd (𝑂‘𝐶)) = 1)
146	110, 113, 117, 141, 144, 145	syl32anc 1380	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → ((1 + (𝑘 · 𝑃)) gcd (𝑂‘𝐶)) = 1)
147	19, 20, 11	odbezout 19544	. . . . . 6 ⊢ (((𝐺 ∈ Grp ∧ 𝐶 ∈ 𝐵 ∧ (1 + (𝑘 · 𝑃)) ∈ ℤ) ∧ ((1 + (𝑘 · 𝑃)) gcd (𝑂‘𝐶)) = 1) → ∃𝑎 ∈ ℤ (𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) = 𝐶)
148	103, 104, 110, 146, 147	syl31anc 1375	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → ∃𝑎 ∈ ℤ (𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) = 𝐶)
149	49	ad2antrr 726	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑎 ∈ ℤ) → (𝑆 ⊕ 𝑊) ∈ (SubGrp‘𝐺))
150		simpr 484	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑎 ∈ ℤ) → 𝑎 ∈ ℤ)
151	11	subgmulgcl 19127	. . . . . . . . 9 ⊢ (((𝑆 ⊕ 𝑊) ∈ (SubGrp‘𝐺) ∧ 𝑎 ∈ ℤ ∧ ((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊)) → (𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) ∈ (𝑆 ⊕ 𝑊))
152	151	3expia 1121	. . . . . . . 8 ⊢ (((𝑆 ⊕ 𝑊) ∈ (SubGrp‘𝐺) ∧ 𝑎 ∈ ℤ) → (((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) → (𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) ∈ (𝑆 ⊕ 𝑊)))
153	149, 150, 152	syl2anc 584	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑎 ∈ ℤ) → (((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) → (𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) ∈ (𝑆 ⊕ 𝑊)))
154		eleq1 2823	. . . . . . . 8 ⊢ ((𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) = 𝐶 → ((𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) ∈ (𝑆 ⊕ 𝑊) ↔ 𝐶 ∈ (𝑆 ⊕ 𝑊)))
155	154	imbi2d 340	. . . . . . 7 ⊢ ((𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) = 𝐶 → ((((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) → (𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) ∈ (𝑆 ⊕ 𝑊)) ↔ (((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) → 𝐶 ∈ (𝑆 ⊕ 𝑊))))
156	153, 155	syl5ibcom 245	. . . . . 6 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑎 ∈ ℤ) → ((𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) = 𝐶 → (((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) → 𝐶 ∈ (𝑆 ⊕ 𝑊))))
157	156	rexlimdva 3142	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (∃𝑎 ∈ ℤ (𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) = 𝐶 → (((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) → 𝐶 ∈ (𝑆 ⊕ 𝑊))))
158	148, 157	mpd 15	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) → 𝐶 ∈ (𝑆 ⊕ 𝑊)))
159	158	rexlimdva 3142	. . 3 ⊢ (𝜑 → (∃𝑘 ∈ ℤ ((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) → 𝐶 ∈ (𝑆 ⊕ 𝑊)))
160	102, 159	syld 47	. 2 ⊢ (𝜑 → (¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊) → 𝐶 ∈ (𝑆 ⊕ 𝑊)))
161	2, 160	mt3d 148	1 ⊢ (𝜑 → (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 206 ∧ wa 395 = wceq 1540 ∈ wcel 2109 ≠ wne 2933 ∀wral 3052 ∃wrex 3061 Vcvv 3464 ∖ cdif 3928 ∩ cin 3930 ⊆ wss 3931 ⊊ wpss 3932 ∅c0 4313 {csn 4606 class class class wbr 5124 ↦ cmpt 5206 ran crn 5660 ‘cfv 6536 (class class class)co 7410 Fincfn 8964 1c1 11135 + caddc 11137 · cmul 11139 ℕcn 12245 ℕ₀cn0 12506 ℤcz 12593 ↑cexp 14084 ♯chash 14353 ∥ cdvds 16277 gcd cgcd 16518 ℙcprime 16695 pCnt cpc 16861 Basecbs 17233 +_gcplusg 17276 0_gc0g 17458 Moorecmre 17599 mrClscmrc 17600 ACScacs 17602 Grpcgrp 18921 -_gcsg 18923 ._gcmg 19055 SubGrpcsubg 19108 odcod 19510 gExcgex 19511 pGrp cpgp 19512 LSSumclsm 19620 Abelcabl 19767

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1795 ax-4 1809 ax-5 1910 ax-6 1967 ax-7 2008 ax-8 2111 ax-9 2119 ax-10 2142 ax-11 2158 ax-12 2178 ax-ext 2708 ax-rep 5254 ax-sep 5271 ax-nul 5281 ax-pow 5340 ax-pr 5407 ax-un 7734 ax-inf2 9660 ax-cnex 11190 ax-resscn 11191 ax-1cn 11192 ax-icn 11193 ax-addcl 11194 ax-addrcl 11195 ax-mulcl 11196 ax-mulrcl 11197 ax-mulcom 11198 ax-addass 11199 ax-mulass 11200 ax-distr 11201 ax-i2m1 11202 ax-1ne0 11203 ax-1rid 11204 ax-rnegex 11205 ax-rrecex 11206 ax-cnre 11207 ax-pre-lttri 11208 ax-pre-lttrn 11209 ax-pre-ltadd 11210 ax-pre-mulgt0 11211 ax-pre-sup 11212

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1543 df-fal 1553 df-ex 1780 df-nf 1784 df-sb 2066 df-mo 2540 df-eu 2569 df-clab 2715 df-cleq 2728 df-clel 2810 df-nfc 2886 df-ne 2934 df-nel 3038 df-ral 3053 df-rex 3062 df-rmo 3364 df-reu 3365 df-rab 3421 df-v 3466 df-sbc 3771 df-csb 3880 df-dif 3934 df-un 3936 df-in 3938 df-ss 3948 df-pss 3951 df-nul 4314 df-if 4506 df-pw 4582 df-sn 4607 df-pr 4609 df-op 4613 df-uni 4889 df-int 4928 df-iun 4974 df-iin 4975 df-disj 5092 df-br 5125 df-opab 5187 df-mpt 5207 df-tr 5235 df-id 5553 df-eprel 5558 df-po 5566 df-so 5567 df-fr 5611 df-se 5612 df-we 5613 df-xp 5665 df-rel 5666 df-cnv 5667 df-co 5668 df-dm 5669 df-rn 5670 df-res 5671 df-ima 5672 df-pred 6295 df-ord 6360 df-on 6361 df-lim 6362 df-suc 6363 df-iota 6489 df-fun 6538 df-fn 6539 df-f 6540 df-f1 6541 df-fo 6542 df-f1o 6543 df-fv 6544 df-isom 6545 df-riota 7367 df-ov 7413 df-oprab 7414 df-mpo 7415 df-om 7867 df-1st 7993 df-2nd 7994 df-frecs 8285 df-wrecs 8316 df-recs 8390 df-rdg 8429 df-1o 8485 df-2o 8486 df-oadd 8489 df-omul 8490 df-er 8724 df-ec 8726 df-qs 8730 df-map 8847 df-en 8965 df-dom 8966 df-sdom 8967 df-fin 8968 df-sup 9459 df-inf 9460 df-oi 9529 df-dju 9920 df-card 9958 df-acn 9961 df-pnf 11276 df-mnf 11277 df-xr 11278 df-ltxr 11279 df-le 11280 df-sub 11473 df-neg 11474 df-div 11900 df-nn 12246 df-2 12308 df-3 12309 df-n0 12507 df-xnn0 12580 df-z 12594 df-uz 12858 df-q 12970 df-rp 13014 df-fz 13530 df-fzo 13677 df-fl 13814 df-mod 13892 df-seq 14025 df-exp 14085 df-fac 14297 df-bc 14326 df-hash 14354 df-cj 15123 df-re 15124 df-im 15125 df-sqrt 15259 df-abs 15260 df-clim 15509 df-sum 15708 df-dvds 16278 df-gcd 16519 df-prm 16696 df-pc 16862 df-sets 17188 df-slot 17206 df-ndx 17218 df-base 17234 df-ress 17257 df-plusg 17289 df-0g 17460 df-mre 17603 df-mrc 17604 df-acs 17606 df-mgm 18623 df-sgrp 18702 df-mnd 18718 df-submnd 18767 df-grp 18924 df-minusg 18925 df-sbg 18926 df-mulg 19056 df-subg 19111 df-eqg 19113 df-ga 19278 df-cntz 19305 df-od 19514 df-pgp 19516 df-lsm 19622 df-cmn 19768 df-abl 19769

This theorem is referenced by: pgpfac1lem4 20066

W3C validator