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 20049

Description: Lemma for pgpfac1 20054. (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 3957	. 2 ⊢ (𝜑 → ¬ 𝐶 ∈ (𝑆 ⊕ 𝑊))
3	1	eldifad 3956	. . . . . . 7 ⊢ (𝜑 → 𝐶 ∈ 𝑈)
4	3	adantr 479	. . . . . 6 ⊢ ((𝜑 ∧ ¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊)) → 𝐶 ∈ 𝑈)
5		pgpfac1.u	. . . . . . . . . 10 ⊢ (𝜑 → 𝑈 ∈ (SubGrp‘𝐺))
6		pgpfac1.p	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑃 pGrp 𝐺)
7		pgpprm 19565	. . . . . . . . . . . 12 ⊢ (𝑃 pGrp 𝐺 → 𝑃 ∈ ℙ)
8	6, 7	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑃 ∈ ℙ)
9		prmz 16654	. . . . . . . . . . 11 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℤ)
10	8, 9	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝑃 ∈ ℤ)
11		pgpfac1.mg	. . . . . . . . . . 11 ⊢ · = (._g‘𝐺)
12	11	subgmulgcl 19107	. . . . . . . . . 10 ⊢ ((𝑈 ∈ (SubGrp‘𝐺) ∧ 𝑃 ∈ ℤ ∧ 𝐶 ∈ 𝑈) → (𝑃 · 𝐶) ∈ 𝑈)
13	5, 10, 3, 12	syl3anc 1368	. . . . . . . . 9 ⊢ (𝜑 → (𝑃 · 𝐶) ∈ 𝑈)
14	13	adantr 479	. . . . . . . 8 ⊢ ((𝜑 ∧ ¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊)) → (𝑃 · 𝐶) ∈ 𝑈)
15		simpr 483	. . . . . . . 8 ⊢ ((𝜑 ∧ ¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊)) → ¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊))
16	14, 15	eldifd 3955	. . . . . . 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 20048	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑃 · 𝐶) ∈ (𝑈 ∖ (𝑆 ⊕ 𝑊))) → ((𝑆 ⊕ 𝑊) ⊕ (𝐾‘{(𝑃 · 𝐶)})) = 𝑈)
33	16, 32	syldan 589	. . . . . 6 ⊢ ((𝜑 ∧ ¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊)) → ((𝑆 ⊕ 𝑊) ⊕ (𝐾‘{(𝑃 · 𝐶)})) = 𝑈)
34	4, 33	eleqtrrd 2828	. . . . 5 ⊢ ((𝜑 ∧ ¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊)) → 𝐶 ∈ ((𝑆 ⊕ 𝑊) ⊕ (𝐾‘{(𝑃 · 𝐶)})))
35	34	ex 411	. . . 4 ⊢ (𝜑 → (¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊) → 𝐶 ∈ ((𝑆 ⊕ 𝑊) ⊕ (𝐾‘{(𝑃 · 𝐶)}))))
36		eqid 2725	. . . . . 6 ⊢ (-_g‘𝐺) = (-_g‘𝐺)
37		ablgrp 19757	. . . . . . . . . . . 12 ⊢ (𝐺 ∈ Abel → 𝐺 ∈ Grp)
38	24, 37	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐺 ∈ Grp)
39	19	subgacs 19129	. . . . . . . . . . 11 ⊢ (𝐺 ∈ Grp → (SubGrp‘𝐺) ∈ (ACS‘𝐵))
40	38, 39	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (SubGrp‘𝐺) ∈ (ACS‘𝐵))
41	40	acsmred 17644	. . . . . . . . 9 ⊢ (𝜑 → (SubGrp‘𝐺) ∈ (Moore‘𝐵))
42	19	subgss 19095	. . . . . . . . . . 11 ⊢ (𝑈 ∈ (SubGrp‘𝐺) → 𝑈 ⊆ 𝐵)
43	5, 42	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝑈 ⊆ 𝐵)
44	43, 27	sseldd 3977	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ 𝐵)
45	17	mrcsncl 17600	. . . . . . . . 9 ⊢ (((SubGrp‘𝐺) ∈ (Moore‘𝐵) ∧ 𝐴 ∈ 𝐵) → (𝐾‘{𝐴}) ∈ (SubGrp‘𝐺))
46	41, 44, 45	syl2anc 582	. . . . . . . 8 ⊢ (𝜑 → (𝐾‘{𝐴}) ∈ (SubGrp‘𝐺))
47	18, 46	eqeltrid 2829	. . . . . . 7 ⊢ (𝜑 → 𝑆 ∈ (SubGrp‘𝐺))
48	23	lsmsubg2 19831	. . . . . . 7 ⊢ ((𝐺 ∈ Abel ∧ 𝑆 ∈ (SubGrp‘𝐺) ∧ 𝑊 ∈ (SubGrp‘𝐺)) → (𝑆 ⊕ 𝑊) ∈ (SubGrp‘𝐺))
49	24, 47, 28, 48	syl3anc 1368	. . . . . 6 ⊢ (𝜑 → (𝑆 ⊕ 𝑊) ∈ (SubGrp‘𝐺))
50	43, 13	sseldd 3977	. . . . . . 7 ⊢ (𝜑 → (𝑃 · 𝐶) ∈ 𝐵)
51	17	mrcsncl 17600	. . . . . . 7 ⊢ (((SubGrp‘𝐺) ∈ (Moore‘𝐵) ∧ (𝑃 · 𝐶) ∈ 𝐵) → (𝐾‘{(𝑃 · 𝐶)}) ∈ (SubGrp‘𝐺))
52	41, 50, 51	syl2anc 582	. . . . . 6 ⊢ (𝜑 → (𝐾‘{(𝑃 · 𝐶)}) ∈ (SubGrp‘𝐺))
53	36, 23, 49, 52	lsmelvalm 19623	. . . . 5 ⊢ (𝜑 → (𝐶 ∈ ((𝑆 ⊕ 𝑊) ⊕ (𝐾‘{(𝑃 · 𝐶)})) ↔ ∃𝑠 ∈ (𝑆 ⊕ 𝑊)∃𝑡 ∈ (𝐾‘{(𝑃 · 𝐶)})𝐶 = (𝑠(-_g‘𝐺)𝑡)))
54		eqid 2725	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℤ ↦ (𝑘 · (𝑃 · 𝐶))) = (𝑘 ∈ ℤ ↦ (𝑘 · (𝑃 · 𝐶)))
55	19, 11, 54, 17	cycsubg2 19178	. . . . . . . . 9 ⊢ ((𝐺 ∈ Grp ∧ (𝑃 · 𝐶) ∈ 𝐵) → (𝐾‘{(𝑃 · 𝐶)}) = ran (𝑘 ∈ ℤ ↦ (𝑘 · (𝑃 · 𝐶))))
56	38, 50, 55	syl2anc 582	. . . . . . . 8 ⊢ (𝜑 → (𝐾‘{(𝑃 · 𝐶)}) = ran (𝑘 ∈ ℤ ↦ (𝑘 · (𝑃 · 𝐶))))
57	56	rexeqdv 3315	. . . . . . 7 ⊢ (𝜑 → (∃𝑡 ∈ (𝐾‘{(𝑃 · 𝐶)})𝐶 = (𝑠(-_g‘𝐺)𝑡) ↔ ∃𝑡 ∈ ran (𝑘 ∈ ℤ ↦ (𝑘 · (𝑃 · 𝐶)))𝐶 = (𝑠(-_g‘𝐺)𝑡)))
58		ovex 7452	. . . . . . . . 9 ⊢ (𝑘 · (𝑃 · 𝐶)) ∈ V
59	58	rgenw 3054	. . . . . . . 8 ⊢ ∀𝑘 ∈ ℤ (𝑘 · (𝑃 · 𝐶)) ∈ V
60		oveq2 7427	. . . . . . . . . 10 ⊢ (𝑡 = (𝑘 · (𝑃 · 𝐶)) → (𝑠(-_g‘𝐺)𝑡) = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))))
61	60	eqeq2d 2736	. . . . . . . . 9 ⊢ (𝑡 = (𝑘 · (𝑃 · 𝐶)) → (𝐶 = (𝑠(-_g‘𝐺)𝑡) ↔ 𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶)))))
62	54, 61	rexrnmptw 7104	. . . . . . . 8 ⊢ (∀𝑘 ∈ ℤ (𝑘 · (𝑃 · 𝐶)) ∈ V → (∃𝑡 ∈ ran (𝑘 ∈ ℤ ↦ (𝑘 · (𝑃 · 𝐶)))𝐶 = (𝑠(-_g‘𝐺)𝑡) ↔ ∃𝑘 ∈ ℤ 𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶)))))
63	59, 62	mp1i 13	. . . . . . 7 ⊢ (𝜑 → (∃𝑡 ∈ ran (𝑘 ∈ ℤ ↦ (𝑘 · (𝑃 · 𝐶)))𝐶 = (𝑠(-_g‘𝐺)𝑡) ↔ ∃𝑘 ∈ ℤ 𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶)))))
64	57, 63	bitrd 278	. . . . . 6 ⊢ (𝜑 → (∃𝑡 ∈ (𝐾‘{(𝑃 · 𝐶)})𝐶 = (𝑠(-_g‘𝐺)𝑡) ↔ ∃𝑘 ∈ ℤ 𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶)))))
65	64	rexbidv 3168	. . . . 5 ⊢ (𝜑 → (∃𝑠 ∈ (𝑆 ⊕ 𝑊)∃𝑡 ∈ (𝐾‘{(𝑃 · 𝐶)})𝐶 = (𝑠(-_g‘𝐺)𝑡) ↔ ∃𝑠 ∈ (𝑆 ⊕ 𝑊)∃𝑘 ∈ ℤ 𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶)))))
66		rexcom 3277	. . . . . 6 ⊢ (∃𝑠 ∈ (𝑆 ⊕ 𝑊)∃𝑘 ∈ ℤ 𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) ↔ ∃𝑘 ∈ ℤ ∃𝑠 ∈ (𝑆 ⊕ 𝑊)𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))))
67	38	ad2antrr 724	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → 𝐺 ∈ Grp)
68	30, 43	sstrd 3987	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑆 ⊕ 𝑊) ⊆ 𝐵)
69	68	adantr 479	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑆 ⊕ 𝑊) ⊆ 𝐵)
70	69	sselda 3976	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → 𝑠 ∈ 𝐵)
71		simplr 767	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → 𝑘 ∈ ℤ)
72	50	ad2antrr 724	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → (𝑃 · 𝐶) ∈ 𝐵)
73	19, 11	mulgcl 19059	. . . . . . . . . . . . 13 ⊢ ((𝐺 ∈ Grp ∧ 𝑘 ∈ ℤ ∧ (𝑃 · 𝐶) ∈ 𝐵) → (𝑘 · (𝑃 · 𝐶)) ∈ 𝐵)
74	67, 71, 72, 73	syl3anc 1368	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → (𝑘 · (𝑃 · 𝐶)) ∈ 𝐵)
75	43, 3	sseldd 3977	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐶 ∈ 𝐵)
76	75	ad2antrr 724	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → 𝐶 ∈ 𝐵)
77		eqid 2725	. . . . . . . . . . . . 13 ⊢ (+_g‘𝐺) = (+_g‘𝐺)
78	19, 77, 36	grpsubadd 18997	. . . . . . . . . . . 12 ⊢ ((𝐺 ∈ Grp ∧ (𝑠 ∈ 𝐵 ∧ (𝑘 · (𝑃 · 𝐶)) ∈ 𝐵 ∧ 𝐶 ∈ 𝐵)) → ((𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) = 𝐶 ↔ (𝐶(+_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) = 𝑠))
79	67, 70, 74, 76, 78	syl13anc 1369	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → ((𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) = 𝐶 ↔ (𝐶(+_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) = 𝑠))
80		1zzd 12631	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → 1 ∈ ℤ)
81	10	ad2antrr 724	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → 𝑃 ∈ ℤ)
82	71, 81	zmulcld 12710	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → (𝑘 · 𝑃) ∈ ℤ)
83	19, 11, 77	mulgdir 19074	. . . . . . . . . . . . . 14 ⊢ ((𝐺 ∈ Grp ∧ (1 ∈ ℤ ∧ (𝑘 · 𝑃) ∈ ℤ ∧ 𝐶 ∈ 𝐵)) → ((1 + (𝑘 · 𝑃)) · 𝐶) = ((1 · 𝐶)(+_g‘𝐺)((𝑘 · 𝑃) · 𝐶)))
84	67, 80, 82, 76, 83	syl13anc 1369	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → ((1 + (𝑘 · 𝑃)) · 𝐶) = ((1 · 𝐶)(+_g‘𝐺)((𝑘 · 𝑃) · 𝐶)))
85	19, 11	mulg1 19049	. . . . . . . . . . . . . . 15 ⊢ (𝐶 ∈ 𝐵 → (1 · 𝐶) = 𝐶)
86	76, 85	syl 17	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → (1 · 𝐶) = 𝐶)
87	19, 11	mulgass 19079	. . . . . . . . . . . . . . 15 ⊢ ((𝐺 ∈ Grp ∧ (𝑘 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ 𝐶 ∈ 𝐵)) → ((𝑘 · 𝑃) · 𝐶) = (𝑘 · (𝑃 · 𝐶)))
88	67, 71, 81, 76, 87	syl13anc 1369	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → ((𝑘 · 𝑃) · 𝐶) = (𝑘 · (𝑃 · 𝐶)))
89	86, 88	oveq12d 7437	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → ((1 · 𝐶)(+_g‘𝐺)((𝑘 · 𝑃) · 𝐶)) = (𝐶(+_g‘𝐺)(𝑘 · (𝑃 · 𝐶))))
90	84, 89	eqtrd 2765	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → ((1 + (𝑘 · 𝑃)) · 𝐶) = (𝐶(+_g‘𝐺)(𝑘 · (𝑃 · 𝐶))))
91	90	eqeq1d 2727	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → (((1 + (𝑘 · 𝑃)) · 𝐶) = 𝑠 ↔ (𝐶(+_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) = 𝑠))
92	79, 91	bitr4d 281	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → ((𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) = 𝐶 ↔ ((1 + (𝑘 · 𝑃)) · 𝐶) = 𝑠))
93		eqcom 2732	. . . . . . . . . 10 ⊢ (𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) ↔ (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) = 𝐶)
94		eqcom 2732	. . . . . . . . . 10 ⊢ (𝑠 = ((1 + (𝑘 · 𝑃)) · 𝐶) ↔ ((1 + (𝑘 · 𝑃)) · 𝐶) = 𝑠)
95	92, 93, 94	3bitr4g 313	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → (𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) ↔ 𝑠 = ((1 + (𝑘 · 𝑃)) · 𝐶)))
96	95	rexbidva 3166	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (∃𝑠 ∈ (𝑆 ⊕ 𝑊)𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) ↔ ∃𝑠 ∈ (𝑆 ⊕ 𝑊)𝑠 = ((1 + (𝑘 · 𝑃)) · 𝐶)))
97		risset 3220	. . . . . . . 8 ⊢ (((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) ↔ ∃𝑠 ∈ (𝑆 ⊕ 𝑊)𝑠 = ((1 + (𝑘 · 𝑃)) · 𝐶))
98	96, 97	bitr4di 288	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (∃𝑠 ∈ (𝑆 ⊕ 𝑊)𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) ↔ ((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊)))
99	98	rexbidva 3166	. . . . . 6 ⊢ (𝜑 → (∃𝑘 ∈ ℤ ∃𝑠 ∈ (𝑆 ⊕ 𝑊)𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) ↔ ∃𝑘 ∈ ℤ ((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊)))
100	66, 99	bitrid 282	. . . . 5 ⊢ (𝜑 → (∃𝑠 ∈ (𝑆 ⊕ 𝑊)∃𝑘 ∈ ℤ 𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) ↔ ∃𝑘 ∈ ℤ ((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊)))
101	53, 65, 100	3bitrd 304	. . . 4 ⊢ (𝜑 → (𝐶 ∈ ((𝑆 ⊕ 𝑊) ⊕ (𝐾‘{(𝑃 · 𝐶)})) ↔ ∃𝑘 ∈ ℤ ((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊)))
102	35, 101	sylibd 238	. . 3 ⊢ (𝜑 → (¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊) → ∃𝑘 ∈ ℤ ((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊)))
103	38	adantr 479	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → 𝐺 ∈ Grp)
104	75	adantr 479	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → 𝐶 ∈ 𝐵)
105		1z 12630	. . . . . . 7 ⊢ 1 ∈ ℤ
106		id 22	. . . . . . . 8 ⊢ (𝑘 ∈ ℤ → 𝑘 ∈ ℤ)
107		zmulcl 12649	. . . . . . . 8 ⊢ ((𝑘 ∈ ℤ ∧ 𝑃 ∈ ℤ) → (𝑘 · 𝑃) ∈ ℤ)
108	106, 10, 107	syl2anr 595	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑘 · 𝑃) ∈ ℤ)
109		zaddcl 12640	. . . . . . 7 ⊢ ((1 ∈ ℤ ∧ (𝑘 · 𝑃) ∈ ℤ) → (1 + (𝑘 · 𝑃)) ∈ ℤ)
110	105, 108, 109	sylancr 585	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (1 + (𝑘 · 𝑃)) ∈ ℤ)
111	19, 20	odcl 19508	. . . . . . . . 9 ⊢ (𝐶 ∈ 𝐵 → (𝑂‘𝐶) ∈ ℕ₀)
112	104, 111	syl 17	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑂‘𝐶) ∈ ℕ₀)
113	112	nn0zd 12622	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑂‘𝐶) ∈ ℤ)
114		hashcl 14356	. . . . . . . . . 10 ⊢ (𝐵 ∈ Fin → (♯‘𝐵) ∈ ℕ₀)
115	25, 114	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (♯‘𝐵) ∈ ℕ₀)
116	115	nn0zd 12622	. . . . . . . 8 ⊢ (𝜑 → (♯‘𝐵) ∈ ℤ)
117	116	adantr 479	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (♯‘𝐵) ∈ ℤ)
118	110, 117	gcdcomd 16497	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → ((1 + (𝑘 · 𝑃)) gcd (♯‘𝐵)) = ((♯‘𝐵) gcd (1 + (𝑘 · 𝑃))))
119	19	pgphash 19579	. . . . . . . . . . 11 ⊢ ((𝑃 pGrp 𝐺 ∧ 𝐵 ∈ Fin) → (♯‘𝐵) = (𝑃↑(𝑃 pCnt (♯‘𝐵))))
120	6, 25, 119	syl2anc 582	. . . . . . . . . 10 ⊢ (𝜑 → (♯‘𝐵) = (𝑃↑(𝑃 pCnt (♯‘𝐵))))
121	120	adantr 479	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (♯‘𝐵) = (𝑃↑(𝑃 pCnt (♯‘𝐵))))
122	121	oveq1d 7434	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → ((♯‘𝐵) gcd (1 + (𝑘 · 𝑃))) = ((𝑃↑(𝑃 pCnt (♯‘𝐵))) gcd (1 + (𝑘 · 𝑃))))
123		simpr 483	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → 𝑘 ∈ ℤ)
124	10	adantr 479	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → 𝑃 ∈ ℤ)
125		1zzd 12631	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → 1 ∈ ℤ)
126		gcdaddm 16508	. . . . . . . . . . 11 ⊢ ((𝑘 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ 1 ∈ ℤ) → (𝑃 gcd 1) = (𝑃 gcd (1 + (𝑘 · 𝑃))))
127	123, 124, 125, 126	syl3anc 1368	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑃 gcd 1) = (𝑃 gcd (1 + (𝑘 · 𝑃))))
128		gcd1 16511	. . . . . . . . . . 11 ⊢ (𝑃 ∈ ℤ → (𝑃 gcd 1) = 1)
129	124, 128	syl 17	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑃 gcd 1) = 1)
130	127, 129	eqtr3d 2767	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑃 gcd (1 + (𝑘 · 𝑃))) = 1)
131	19	grpbn0 18936	. . . . . . . . . . . . . 14 ⊢ (𝐺 ∈ Grp → 𝐵 ≠ ∅)
132	38, 131	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐵 ≠ ∅)
133		hashnncl 14366	. . . . . . . . . . . . . 14 ⊢ (𝐵 ∈ Fin → ((♯‘𝐵) ∈ ℕ ↔ 𝐵 ≠ ∅))
134	25, 133	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((♯‘𝐵) ∈ ℕ ↔ 𝐵 ≠ ∅))
135	132, 134	mpbird 256	. . . . . . . . . . . 12 ⊢ (𝜑 → (♯‘𝐵) ∈ ℕ)
136	8, 135	pccld 16827	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑃 pCnt (♯‘𝐵)) ∈ ℕ₀)
137	136	adantr 479	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑃 pCnt (♯‘𝐵)) ∈ ℕ₀)
138		rpexp1i 16703	. . . . . . . . . 10 ⊢ ((𝑃 ∈ ℤ ∧ (1 + (𝑘 · 𝑃)) ∈ ℤ ∧ (𝑃 pCnt (♯‘𝐵)) ∈ ℕ₀) → ((𝑃 gcd (1 + (𝑘 · 𝑃))) = 1 → ((𝑃↑(𝑃 pCnt (♯‘𝐵))) gcd (1 + (𝑘 · 𝑃))) = 1))
139	124, 110, 137, 138	syl3anc 1368	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → ((𝑃 gcd (1 + (𝑘 · 𝑃))) = 1 → ((𝑃↑(𝑃 pCnt (♯‘𝐵))) gcd (1 + (𝑘 · 𝑃))) = 1))
140	130, 139	mpd 15	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → ((𝑃↑(𝑃 pCnt (♯‘𝐵))) gcd (1 + (𝑘 · 𝑃))) = 1)
141	118, 122, 140	3eqtrd 2769	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → ((1 + (𝑘 · 𝑃)) gcd (♯‘𝐵)) = 1)
142	19, 20	oddvds2 19538	. . . . . . . . 9 ⊢ ((𝐺 ∈ Grp ∧ 𝐵 ∈ Fin ∧ 𝐶 ∈ 𝐵) → (𝑂‘𝐶) ∥ (♯‘𝐵))
143	38, 25, 75, 142	syl3anc 1368	. . . . . . . 8 ⊢ (𝜑 → (𝑂‘𝐶) ∥ (♯‘𝐵))
144	143	adantr 479	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑂‘𝐶) ∥ (♯‘𝐵))
145		rpdvds 16639	. . . . . . 7 ⊢ ((((1 + (𝑘 · 𝑃)) ∈ ℤ ∧ (𝑂‘𝐶) ∈ ℤ ∧ (♯‘𝐵) ∈ ℤ) ∧ (((1 + (𝑘 · 𝑃)) gcd (♯‘𝐵)) = 1 ∧ (𝑂‘𝐶) ∥ (♯‘𝐵))) → ((1 + (𝑘 · 𝑃)) gcd (𝑂‘𝐶)) = 1)
146	110, 113, 117, 141, 144, 145	syl32anc 1375	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → ((1 + (𝑘 · 𝑃)) gcd (𝑂‘𝐶)) = 1)
147	19, 20, 11	odbezout 19530	. . . . . 6 ⊢ (((𝐺 ∈ Grp ∧ 𝐶 ∈ 𝐵 ∧ (1 + (𝑘 · 𝑃)) ∈ ℤ) ∧ ((1 + (𝑘 · 𝑃)) gcd (𝑂‘𝐶)) = 1) → ∃𝑎 ∈ ℤ (𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) = 𝐶)
148	103, 104, 110, 146, 147	syl31anc 1370	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → ∃𝑎 ∈ ℤ (𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) = 𝐶)
149	49	ad2antrr 724	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑎 ∈ ℤ) → (𝑆 ⊕ 𝑊) ∈ (SubGrp‘𝐺))
150		simpr 483	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑎 ∈ ℤ) → 𝑎 ∈ ℤ)
151	11	subgmulgcl 19107	. . . . . . . . 9 ⊢ (((𝑆 ⊕ 𝑊) ∈ (SubGrp‘𝐺) ∧ 𝑎 ∈ ℤ ∧ ((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊)) → (𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) ∈ (𝑆 ⊕ 𝑊))
152	151	3expia 1118	. . . . . . . 8 ⊢ (((𝑆 ⊕ 𝑊) ∈ (SubGrp‘𝐺) ∧ 𝑎 ∈ ℤ) → (((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) → (𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) ∈ (𝑆 ⊕ 𝑊)))
153	149, 150, 152	syl2anc 582	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑎 ∈ ℤ) → (((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) → (𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) ∈ (𝑆 ⊕ 𝑊)))
154		eleq1 2813	. . . . . . . 8 ⊢ ((𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) = 𝐶 → ((𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) ∈ (𝑆 ⊕ 𝑊) ↔ 𝐶 ∈ (𝑆 ⊕ 𝑊)))
155	154	imbi2d 339	. . . . . . 7 ⊢ ((𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) = 𝐶 → ((((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) → (𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) ∈ (𝑆 ⊕ 𝑊)) ↔ (((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) → 𝐶 ∈ (𝑆 ⊕ 𝑊))))
156	153, 155	syl5ibcom 244	. . . . . 6 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑎 ∈ ℤ) → ((𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) = 𝐶 → (((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) → 𝐶 ∈ (𝑆 ⊕ 𝑊))))
157	156	rexlimdva 3144	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (∃𝑎 ∈ ℤ (𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) = 𝐶 → (((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) → 𝐶 ∈ (𝑆 ⊕ 𝑊))))
158	148, 157	mpd 15	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) → 𝐶 ∈ (𝑆 ⊕ 𝑊)))
159	158	rexlimdva 3144	. . 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 205 ∧ wa 394 = wceq 1533 ∈ wcel 2098 ≠ wne 2929 ∀wral 3050 ∃wrex 3059 Vcvv 3461 ∖ cdif 3941 ∩ cin 3943 ⊆ wss 3944 ⊊ wpss 3945 ∅c0 4322 {csn 4630 class class class wbr 5149 ↦ cmpt 5232 ran crn 5679 ‘cfv 6549 (class class class)co 7419 Fincfn 8964 1c1 11146 + caddc 11148 · cmul 11150 ℕcn 12250 ℕ₀cn0 12510 ℤcz 12596 ↑cexp 14067 ♯chash 14330 ∥ cdvds 16239 gcd cgcd 16477 ℙcprime 16650 pCnt cpc 16813 Basecbs 17188 +_gcplusg 17241 0_gc0g 17429 Moorecmre 17570 mrClscmrc 17571 ACScacs 17573 Grpcgrp 18903 -_gcsg 18905 ._gcmg 19036 SubGrpcsubg 19088 odcod 19496 gExcgex 19497 pGrp cpgp 19498 LSSumclsm 19606 Abelcabl 19753

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1789 ax-4 1803 ax-5 1905 ax-6 1963 ax-7 2003 ax-8 2100 ax-9 2108 ax-10 2129 ax-11 2146 ax-12 2166 ax-ext 2696 ax-rep 5286 ax-sep 5300 ax-nul 5307 ax-pow 5365 ax-pr 5429 ax-un 7741 ax-inf2 9671 ax-cnex 11201 ax-resscn 11202 ax-1cn 11203 ax-icn 11204 ax-addcl 11205 ax-addrcl 11206 ax-mulcl 11207 ax-mulrcl 11208 ax-mulcom 11209 ax-addass 11210 ax-mulass 11211 ax-distr 11212 ax-i2m1 11213 ax-1ne0 11214 ax-1rid 11215 ax-rnegex 11216 ax-rrecex 11217 ax-cnre 11218 ax-pre-lttri 11219 ax-pre-lttrn 11220 ax-pre-ltadd 11221 ax-pre-mulgt0 11222 ax-pre-sup 11223

This theorem depends on definitions: df-bi 206 df-an 395 df-or 846 df-3or 1085 df-3an 1086 df-tru 1536 df-fal 1546 df-ex 1774 df-nf 1778 df-sb 2060 df-mo 2528 df-eu 2557 df-clab 2703 df-cleq 2717 df-clel 2802 df-nfc 2877 df-ne 2930 df-nel 3036 df-ral 3051 df-rex 3060 df-rmo 3363 df-reu 3364 df-rab 3419 df-v 3463 df-sbc 3774 df-csb 3890 df-dif 3947 df-un 3949 df-in 3951 df-ss 3961 df-pss 3964 df-nul 4323 df-if 4531 df-pw 4606 df-sn 4631 df-pr 4633 df-op 4637 df-uni 4910 df-int 4951 df-iun 4999 df-iin 5000 df-disj 5115 df-br 5150 df-opab 5212 df-mpt 5233 df-tr 5267 df-id 5576 df-eprel 5582 df-po 5590 df-so 5591 df-fr 5633 df-se 5634 df-we 5635 df-xp 5684 df-rel 5685 df-cnv 5686 df-co 5687 df-dm 5688 df-rn 5689 df-res 5690 df-ima 5691 df-pred 6307 df-ord 6374 df-on 6375 df-lim 6376 df-suc 6377 df-iota 6501 df-fun 6551 df-fn 6552 df-f 6553 df-f1 6554 df-fo 6555 df-f1o 6556 df-fv 6557 df-isom 6558 df-riota 7375 df-ov 7422 df-oprab 7423 df-mpo 7424 df-om 7872 df-1st 7994 df-2nd 7995 df-frecs 8287 df-wrecs 8318 df-recs 8392 df-rdg 8431 df-1o 8487 df-2o 8488 df-oadd 8491 df-omul 8492 df-er 8725 df-ec 8727 df-qs 8731 df-map 8847 df-en 8965 df-dom 8966 df-sdom 8967 df-fin 8968 df-sup 9472 df-inf 9473 df-oi 9540 df-dju 9931 df-card 9969 df-acn 9972 df-pnf 11287 df-mnf 11288 df-xr 11289 df-ltxr 11290 df-le 11291 df-sub 11483 df-neg 11484 df-div 11909 df-nn 12251 df-2 12313 df-3 12314 df-n0 12511 df-xnn0 12583 df-z 12597 df-uz 12861 df-q 12971 df-rp 13015 df-fz 13525 df-fzo 13668 df-fl 13798 df-mod 13876 df-seq 14008 df-exp 14068 df-fac 14274 df-bc 14303 df-hash 14331 df-cj 15087 df-re 15088 df-im 15089 df-sqrt 15223 df-abs 15224 df-clim 15473 df-sum 15674 df-dvds 16240 df-gcd 16478 df-prm 16651 df-pc 16814 df-sets 17141 df-slot 17159 df-ndx 17171 df-base 17189 df-ress 17218 df-plusg 17254 df-0g 17431 df-mre 17574 df-mrc 17575 df-acs 17577 df-mgm 18608 df-sgrp 18687 df-mnd 18703 df-submnd 18749 df-grp 18906 df-minusg 18907 df-sbg 18908 df-mulg 19037 df-subg 19091 df-eqg 19093 df-ga 19258 df-cntz 19285 df-od 19500 df-pgp 19502 df-lsm 19608 df-cmn 19754 df-abl 19755

This theorem is referenced by: pgpfac1lem4 20052

W3C validator