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 20016

Description: Lemma for pgpfac1 20021. (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 480	. . . . . 6 ⊢ ((𝜑 ∧ ¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊)) → 𝐶 ∈ 𝑈)
5		pgpfac1.u	. . . . . . . . . 10 ⊢ (𝜑 → 𝑈 ∈ (SubGrp‘𝐺))
6		pgpfac1.p	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑃 pGrp 𝐺)
7		pgpprm 19532	. . . . . . . . . . . 12 ⊢ (𝑃 pGrp 𝐺 → 𝑃 ∈ ℙ)
8	6, 7	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑃 ∈ ℙ)
9		prmz 16631	. . . . . . . . . . 11 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℤ)
10	8, 9	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝑃 ∈ ℤ)
11		pgpfac1.mg	. . . . . . . . . . 11 ⊢ · = (._g‘𝐺)
12	11	subgmulgcl 19078	. . . . . . . . . 10 ⊢ ((𝑈 ∈ (SubGrp‘𝐺) ∧ 𝑃 ∈ ℤ ∧ 𝐶 ∈ 𝑈) → (𝑃 · 𝐶) ∈ 𝑈)
13	5, 10, 3, 12	syl3anc 1369	. . . . . . . . 9 ⊢ (𝜑 → (𝑃 · 𝐶) ∈ 𝑈)
14	13	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ ¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊)) → (𝑃 · 𝐶) ∈ 𝑈)
15		simpr 484	. . . . . . . 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 20015	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑃 · 𝐶) ∈ (𝑈 ∖ (𝑆 ⊕ 𝑊))) → ((𝑆 ⊕ 𝑊) ⊕ (𝐾‘{(𝑃 · 𝐶)})) = 𝑈)
33	16, 32	syldan 590	. . . . . 6 ⊢ ((𝜑 ∧ ¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊)) → ((𝑆 ⊕ 𝑊) ⊕ (𝐾‘{(𝑃 · 𝐶)})) = 𝑈)
34	4, 33	eleqtrrd 2831	. . . . 5 ⊢ ((𝜑 ∧ ¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊)) → 𝐶 ∈ ((𝑆 ⊕ 𝑊) ⊕ (𝐾‘{(𝑃 · 𝐶)})))
35	34	ex 412	. . . 4 ⊢ (𝜑 → (¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊) → 𝐶 ∈ ((𝑆 ⊕ 𝑊) ⊕ (𝐾‘{(𝑃 · 𝐶)}))))
36		eqid 2727	. . . . . 6 ⊢ (-_g‘𝐺) = (-_g‘𝐺)
37		ablgrp 19724	. . . . . . . . . . . 12 ⊢ (𝐺 ∈ Abel → 𝐺 ∈ Grp)
38	24, 37	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐺 ∈ Grp)
39	19	subgacs 19100	. . . . . . . . . . 11 ⊢ (𝐺 ∈ Grp → (SubGrp‘𝐺) ∈ (ACS‘𝐵))
40	38, 39	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (SubGrp‘𝐺) ∈ (ACS‘𝐵))
41	40	acsmred 17621	. . . . . . . . 9 ⊢ (𝜑 → (SubGrp‘𝐺) ∈ (Moore‘𝐵))
42	19	subgss 19066	. . . . . . . . . . 11 ⊢ (𝑈 ∈ (SubGrp‘𝐺) → 𝑈 ⊆ 𝐵)
43	5, 42	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝑈 ⊆ 𝐵)
44	43, 27	sseldd 3979	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ 𝐵)
45	17	mrcsncl 17577	. . . . . . . . 9 ⊢ (((SubGrp‘𝐺) ∈ (Moore‘𝐵) ∧ 𝐴 ∈ 𝐵) → (𝐾‘{𝐴}) ∈ (SubGrp‘𝐺))
46	41, 44, 45	syl2anc 583	. . . . . . . 8 ⊢ (𝜑 → (𝐾‘{𝐴}) ∈ (SubGrp‘𝐺))
47	18, 46	eqeltrid 2832	. . . . . . 7 ⊢ (𝜑 → 𝑆 ∈ (SubGrp‘𝐺))
48	23	lsmsubg2 19798	. . . . . . 7 ⊢ ((𝐺 ∈ Abel ∧ 𝑆 ∈ (SubGrp‘𝐺) ∧ 𝑊 ∈ (SubGrp‘𝐺)) → (𝑆 ⊕ 𝑊) ∈ (SubGrp‘𝐺))
49	24, 47, 28, 48	syl3anc 1369	. . . . . 6 ⊢ (𝜑 → (𝑆 ⊕ 𝑊) ∈ (SubGrp‘𝐺))
50	43, 13	sseldd 3979	. . . . . . 7 ⊢ (𝜑 → (𝑃 · 𝐶) ∈ 𝐵)
51	17	mrcsncl 17577	. . . . . . 7 ⊢ (((SubGrp‘𝐺) ∈ (Moore‘𝐵) ∧ (𝑃 · 𝐶) ∈ 𝐵) → (𝐾‘{(𝑃 · 𝐶)}) ∈ (SubGrp‘𝐺))
52	41, 50, 51	syl2anc 583	. . . . . 6 ⊢ (𝜑 → (𝐾‘{(𝑃 · 𝐶)}) ∈ (SubGrp‘𝐺))
53	36, 23, 49, 52	lsmelvalm 19590	. . . . 5 ⊢ (𝜑 → (𝐶 ∈ ((𝑆 ⊕ 𝑊) ⊕ (𝐾‘{(𝑃 · 𝐶)})) ↔ ∃𝑠 ∈ (𝑆 ⊕ 𝑊)∃𝑡 ∈ (𝐾‘{(𝑃 · 𝐶)})𝐶 = (𝑠(-_g‘𝐺)𝑡)))
54		eqid 2727	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℤ ↦ (𝑘 · (𝑃 · 𝐶))) = (𝑘 ∈ ℤ ↦ (𝑘 · (𝑃 · 𝐶)))
55	19, 11, 54, 17	cycsubg2 19149	. . . . . . . . 9 ⊢ ((𝐺 ∈ Grp ∧ (𝑃 · 𝐶) ∈ 𝐵) → (𝐾‘{(𝑃 · 𝐶)}) = ran (𝑘 ∈ ℤ ↦ (𝑘 · (𝑃 · 𝐶))))
56	38, 50, 55	syl2anc 583	. . . . . . . 8 ⊢ (𝜑 → (𝐾‘{(𝑃 · 𝐶)}) = ran (𝑘 ∈ ℤ ↦ (𝑘 · (𝑃 · 𝐶))))
57	56	rexeqdv 3321	. . . . . . 7 ⊢ (𝜑 → (∃𝑡 ∈ (𝐾‘{(𝑃 · 𝐶)})𝐶 = (𝑠(-_g‘𝐺)𝑡) ↔ ∃𝑡 ∈ ran (𝑘 ∈ ℤ ↦ (𝑘 · (𝑃 · 𝐶)))𝐶 = (𝑠(-_g‘𝐺)𝑡)))
58		ovex 7447	. . . . . . . . 9 ⊢ (𝑘 · (𝑃 · 𝐶)) ∈ V
59	58	rgenw 3060	. . . . . . . 8 ⊢ ∀𝑘 ∈ ℤ (𝑘 · (𝑃 · 𝐶)) ∈ V
60		oveq2 7422	. . . . . . . . . 10 ⊢ (𝑡 = (𝑘 · (𝑃 · 𝐶)) → (𝑠(-_g‘𝐺)𝑡) = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))))
61	60	eqeq2d 2738	. . . . . . . . 9 ⊢ (𝑡 = (𝑘 · (𝑃 · 𝐶)) → (𝐶 = (𝑠(-_g‘𝐺)𝑡) ↔ 𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶)))))
62	54, 61	rexrnmptw 7099	. . . . . . . 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 3173	. . . . 5 ⊢ (𝜑 → (∃𝑠 ∈ (𝑆 ⊕ 𝑊)∃𝑡 ∈ (𝐾‘{(𝑃 · 𝐶)})𝐶 = (𝑠(-_g‘𝐺)𝑡) ↔ ∃𝑠 ∈ (𝑆 ⊕ 𝑊)∃𝑘 ∈ ℤ 𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶)))))
66		rexcom 3282	. . . . . 6 ⊢ (∃𝑠 ∈ (𝑆 ⊕ 𝑊)∃𝑘 ∈ ℤ 𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) ↔ ∃𝑘 ∈ ℤ ∃𝑠 ∈ (𝑆 ⊕ 𝑊)𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))))
67	38	ad2antrr 725	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → 𝐺 ∈ Grp)
68	30, 43	sstrd 3988	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑆 ⊕ 𝑊) ⊆ 𝐵)
69	68	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑆 ⊕ 𝑊) ⊆ 𝐵)
70	69	sselda 3978	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → 𝑠 ∈ 𝐵)
71		simplr 768	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → 𝑘 ∈ ℤ)
72	50	ad2antrr 725	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → (𝑃 · 𝐶) ∈ 𝐵)
73	19, 11	mulgcl 19030	. . . . . . . . . . . . 13 ⊢ ((𝐺 ∈ Grp ∧ 𝑘 ∈ ℤ ∧ (𝑃 · 𝐶) ∈ 𝐵) → (𝑘 · (𝑃 · 𝐶)) ∈ 𝐵)
74	67, 71, 72, 73	syl3anc 1369	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → (𝑘 · (𝑃 · 𝐶)) ∈ 𝐵)
75	43, 3	sseldd 3979	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐶 ∈ 𝐵)
76	75	ad2antrr 725	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → 𝐶 ∈ 𝐵)
77		eqid 2727	. . . . . . . . . . . . 13 ⊢ (+_g‘𝐺) = (+_g‘𝐺)
78	19, 77, 36	grpsubadd 18968	. . . . . . . . . . . 12 ⊢ ((𝐺 ∈ Grp ∧ (𝑠 ∈ 𝐵 ∧ (𝑘 · (𝑃 · 𝐶)) ∈ 𝐵 ∧ 𝐶 ∈ 𝐵)) → ((𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) = 𝐶 ↔ (𝐶(+_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) = 𝑠))
79	67, 70, 74, 76, 78	syl13anc 1370	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → ((𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) = 𝐶 ↔ (𝐶(+_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) = 𝑠))
80		1zzd 12609	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → 1 ∈ ℤ)
81	10	ad2antrr 725	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → 𝑃 ∈ ℤ)
82	71, 81	zmulcld 12688	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → (𝑘 · 𝑃) ∈ ℤ)
83	19, 11, 77	mulgdir 19045	. . . . . . . . . . . . . 14 ⊢ ((𝐺 ∈ Grp ∧ (1 ∈ ℤ ∧ (𝑘 · 𝑃) ∈ ℤ ∧ 𝐶 ∈ 𝐵)) → ((1 + (𝑘 · 𝑃)) · 𝐶) = ((1 · 𝐶)(+_g‘𝐺)((𝑘 · 𝑃) · 𝐶)))
84	67, 80, 82, 76, 83	syl13anc 1370	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → ((1 + (𝑘 · 𝑃)) · 𝐶) = ((1 · 𝐶)(+_g‘𝐺)((𝑘 · 𝑃) · 𝐶)))
85	19, 11	mulg1 19020	. . . . . . . . . . . . . . 15 ⊢ (𝐶 ∈ 𝐵 → (1 · 𝐶) = 𝐶)
86	76, 85	syl 17	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → (1 · 𝐶) = 𝐶)
87	19, 11	mulgass 19050	. . . . . . . . . . . . . . 15 ⊢ ((𝐺 ∈ Grp ∧ (𝑘 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ 𝐶 ∈ 𝐵)) → ((𝑘 · 𝑃) · 𝐶) = (𝑘 · (𝑃 · 𝐶)))
88	67, 71, 81, 76, 87	syl13anc 1370	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → ((𝑘 · 𝑃) · 𝐶) = (𝑘 · (𝑃 · 𝐶)))
89	86, 88	oveq12d 7432	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → ((1 · 𝐶)(+_g‘𝐺)((𝑘 · 𝑃) · 𝐶)) = (𝐶(+_g‘𝐺)(𝑘 · (𝑃 · 𝐶))))
90	84, 89	eqtrd 2767	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → ((1 + (𝑘 · 𝑃)) · 𝐶) = (𝐶(+_g‘𝐺)(𝑘 · (𝑃 · 𝐶))))
91	90	eqeq1d 2729	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → (((1 + (𝑘 · 𝑃)) · 𝐶) = 𝑠 ↔ (𝐶(+_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) = 𝑠))
92	79, 91	bitr4d 282	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → ((𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) = 𝐶 ↔ ((1 + (𝑘 · 𝑃)) · 𝐶) = 𝑠))
93		eqcom 2734	. . . . . . . . . 10 ⊢ (𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) ↔ (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) = 𝐶)
94		eqcom 2734	. . . . . . . . . 10 ⊢ (𝑠 = ((1 + (𝑘 · 𝑃)) · 𝐶) ↔ ((1 + (𝑘 · 𝑃)) · 𝐶) = 𝑠)
95	92, 93, 94	3bitr4g 314	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → (𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) ↔ 𝑠 = ((1 + (𝑘 · 𝑃)) · 𝐶)))
96	95	rexbidva 3171	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (∃𝑠 ∈ (𝑆 ⊕ 𝑊)𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) ↔ ∃𝑠 ∈ (𝑆 ⊕ 𝑊)𝑠 = ((1 + (𝑘 · 𝑃)) · 𝐶)))
97		risset 3225	. . . . . . . 8 ⊢ (((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) ↔ ∃𝑠 ∈ (𝑆 ⊕ 𝑊)𝑠 = ((1 + (𝑘 · 𝑃)) · 𝐶))
98	96, 97	bitr4di 289	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (∃𝑠 ∈ (𝑆 ⊕ 𝑊)𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) ↔ ((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊)))
99	98	rexbidva 3171	. . . . . 6 ⊢ (𝜑 → (∃𝑘 ∈ ℤ ∃𝑠 ∈ (𝑆 ⊕ 𝑊)𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) ↔ ∃𝑘 ∈ ℤ ((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊)))
100	66, 99	bitrid 283	. . . . 5 ⊢ (𝜑 → (∃𝑠 ∈ (𝑆 ⊕ 𝑊)∃𝑘 ∈ ℤ 𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) ↔ ∃𝑘 ∈ ℤ ((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊)))
101	53, 65, 100	3bitrd 305	. . . 4 ⊢ (𝜑 → (𝐶 ∈ ((𝑆 ⊕ 𝑊) ⊕ (𝐾‘{(𝑃 · 𝐶)})) ↔ ∃𝑘 ∈ ℤ ((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊)))
102	35, 101	sylibd 238	. . 3 ⊢ (𝜑 → (¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊) → ∃𝑘 ∈ ℤ ((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊)))
103	38	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → 𝐺 ∈ Grp)
104	75	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → 𝐶 ∈ 𝐵)
105		1z 12608	. . . . . . 7 ⊢ 1 ∈ ℤ
106		id 22	. . . . . . . 8 ⊢ (𝑘 ∈ ℤ → 𝑘 ∈ ℤ)
107		zmulcl 12627	. . . . . . . 8 ⊢ ((𝑘 ∈ ℤ ∧ 𝑃 ∈ ℤ) → (𝑘 · 𝑃) ∈ ℤ)
108	106, 10, 107	syl2anr 596	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑘 · 𝑃) ∈ ℤ)
109		zaddcl 12618	. . . . . . 7 ⊢ ((1 ∈ ℤ ∧ (𝑘 · 𝑃) ∈ ℤ) → (1 + (𝑘 · 𝑃)) ∈ ℤ)
110	105, 108, 109	sylancr 586	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (1 + (𝑘 · 𝑃)) ∈ ℤ)
111	19, 20	odcl 19475	. . . . . . . . 9 ⊢ (𝐶 ∈ 𝐵 → (𝑂‘𝐶) ∈ ℕ₀)
112	104, 111	syl 17	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑂‘𝐶) ∈ ℕ₀)
113	112	nn0zd 12600	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑂‘𝐶) ∈ ℤ)
114		hashcl 14333	. . . . . . . . . 10 ⊢ (𝐵 ∈ Fin → (♯‘𝐵) ∈ ℕ₀)
115	25, 114	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (♯‘𝐵) ∈ ℕ₀)
116	115	nn0zd 12600	. . . . . . . 8 ⊢ (𝜑 → (♯‘𝐵) ∈ ℤ)
117	116	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (♯‘𝐵) ∈ ℤ)
118	110, 117	gcdcomd 16474	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → ((1 + (𝑘 · 𝑃)) gcd (♯‘𝐵)) = ((♯‘𝐵) gcd (1 + (𝑘 · 𝑃))))
119	19	pgphash 19546	. . . . . . . . . . 11 ⊢ ((𝑃 pGrp 𝐺 ∧ 𝐵 ∈ Fin) → (♯‘𝐵) = (𝑃↑(𝑃 pCnt (♯‘𝐵))))
120	6, 25, 119	syl2anc 583	. . . . . . . . . 10 ⊢ (𝜑 → (♯‘𝐵) = (𝑃↑(𝑃 pCnt (♯‘𝐵))))
121	120	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (♯‘𝐵) = (𝑃↑(𝑃 pCnt (♯‘𝐵))))
122	121	oveq1d 7429	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → ((♯‘𝐵) gcd (1 + (𝑘 · 𝑃))) = ((𝑃↑(𝑃 pCnt (♯‘𝐵))) gcd (1 + (𝑘 · 𝑃))))
123		simpr 484	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → 𝑘 ∈ ℤ)
124	10	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → 𝑃 ∈ ℤ)
125		1zzd 12609	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → 1 ∈ ℤ)
126		gcdaddm 16485	. . . . . . . . . . 11 ⊢ ((𝑘 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ 1 ∈ ℤ) → (𝑃 gcd 1) = (𝑃 gcd (1 + (𝑘 · 𝑃))))
127	123, 124, 125, 126	syl3anc 1369	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑃 gcd 1) = (𝑃 gcd (1 + (𝑘 · 𝑃))))
128		gcd1 16488	. . . . . . . . . . 11 ⊢ (𝑃 ∈ ℤ → (𝑃 gcd 1) = 1)
129	124, 128	syl 17	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑃 gcd 1) = 1)
130	127, 129	eqtr3d 2769	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑃 gcd (1 + (𝑘 · 𝑃))) = 1)
131	19	grpbn0 18908	. . . . . . . . . . . . . 14 ⊢ (𝐺 ∈ Grp → 𝐵 ≠ ∅)
132	38, 131	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐵 ≠ ∅)
133		hashnncl 14343	. . . . . . . . . . . . . 14 ⊢ (𝐵 ∈ Fin → ((♯‘𝐵) ∈ ℕ ↔ 𝐵 ≠ ∅))
134	25, 133	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((♯‘𝐵) ∈ ℕ ↔ 𝐵 ≠ ∅))
135	132, 134	mpbird 257	. . . . . . . . . . . 12 ⊢ (𝜑 → (♯‘𝐵) ∈ ℕ)
136	8, 135	pccld 16804	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑃 pCnt (♯‘𝐵)) ∈ ℕ₀)
137	136	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑃 pCnt (♯‘𝐵)) ∈ ℕ₀)
138		rpexp1i 16680	. . . . . . . . . 10 ⊢ ((𝑃 ∈ ℤ ∧ (1 + (𝑘 · 𝑃)) ∈ ℤ ∧ (𝑃 pCnt (♯‘𝐵)) ∈ ℕ₀) → ((𝑃 gcd (1 + (𝑘 · 𝑃))) = 1 → ((𝑃↑(𝑃 pCnt (♯‘𝐵))) gcd (1 + (𝑘 · 𝑃))) = 1))
139	124, 110, 137, 138	syl3anc 1369	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → ((𝑃 gcd (1 + (𝑘 · 𝑃))) = 1 → ((𝑃↑(𝑃 pCnt (♯‘𝐵))) gcd (1 + (𝑘 · 𝑃))) = 1))
140	130, 139	mpd 15	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → ((𝑃↑(𝑃 pCnt (♯‘𝐵))) gcd (1 + (𝑘 · 𝑃))) = 1)
141	118, 122, 140	3eqtrd 2771	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → ((1 + (𝑘 · 𝑃)) gcd (♯‘𝐵)) = 1)
142	19, 20	oddvds2 19505	. . . . . . . . 9 ⊢ ((𝐺 ∈ Grp ∧ 𝐵 ∈ Fin ∧ 𝐶 ∈ 𝐵) → (𝑂‘𝐶) ∥ (♯‘𝐵))
143	38, 25, 75, 142	syl3anc 1369	. . . . . . . 8 ⊢ (𝜑 → (𝑂‘𝐶) ∥ (♯‘𝐵))
144	143	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑂‘𝐶) ∥ (♯‘𝐵))
145		rpdvds 16616	. . . . . . 7 ⊢ ((((1 + (𝑘 · 𝑃)) ∈ ℤ ∧ (𝑂‘𝐶) ∈ ℤ ∧ (♯‘𝐵) ∈ ℤ) ∧ (((1 + (𝑘 · 𝑃)) gcd (♯‘𝐵)) = 1 ∧ (𝑂‘𝐶) ∥ (♯‘𝐵))) → ((1 + (𝑘 · 𝑃)) gcd (𝑂‘𝐶)) = 1)
146	110, 113, 117, 141, 144, 145	syl32anc 1376	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → ((1 + (𝑘 · 𝑃)) gcd (𝑂‘𝐶)) = 1)
147	19, 20, 11	odbezout 19497	. . . . . 6 ⊢ (((𝐺 ∈ Grp ∧ 𝐶 ∈ 𝐵 ∧ (1 + (𝑘 · 𝑃)) ∈ ℤ) ∧ ((1 + (𝑘 · 𝑃)) gcd (𝑂‘𝐶)) = 1) → ∃𝑎 ∈ ℤ (𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) = 𝐶)
148	103, 104, 110, 146, 147	syl31anc 1371	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → ∃𝑎 ∈ ℤ (𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) = 𝐶)
149	49	ad2antrr 725	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑎 ∈ ℤ) → (𝑆 ⊕ 𝑊) ∈ (SubGrp‘𝐺))
150		simpr 484	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑎 ∈ ℤ) → 𝑎 ∈ ℤ)
151	11	subgmulgcl 19078	. . . . . . . . 9 ⊢ (((𝑆 ⊕ 𝑊) ∈ (SubGrp‘𝐺) ∧ 𝑎 ∈ ℤ ∧ ((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊)) → (𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) ∈ (𝑆 ⊕ 𝑊))
152	151	3expia 1119	. . . . . . . 8 ⊢ (((𝑆 ⊕ 𝑊) ∈ (SubGrp‘𝐺) ∧ 𝑎 ∈ ℤ) → (((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) → (𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) ∈ (𝑆 ⊕ 𝑊)))
153	149, 150, 152	syl2anc 583	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑎 ∈ ℤ) → (((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) → (𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) ∈ (𝑆 ⊕ 𝑊)))
154		eleq1 2816	. . . . . . . 8 ⊢ ((𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) = 𝐶 → ((𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) ∈ (𝑆 ⊕ 𝑊) ↔ 𝐶 ∈ (𝑆 ⊕ 𝑊)))
155	154	imbi2d 340	. . . . . . 7 ⊢ ((𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) = 𝐶 → ((((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) → (𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) ∈ (𝑆 ⊕ 𝑊)) ↔ (((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) → 𝐶 ∈ (𝑆 ⊕ 𝑊))))
156	153, 155	syl5ibcom 244	. . . . . 6 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑎 ∈ ℤ) → ((𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) = 𝐶 → (((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) → 𝐶 ∈ (𝑆 ⊕ 𝑊))))
157	156	rexlimdva 3150	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (∃𝑎 ∈ ℤ (𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) = 𝐶 → (((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) → 𝐶 ∈ (𝑆 ⊕ 𝑊))))
158	148, 157	mpd 15	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) → 𝐶 ∈ (𝑆 ⊕ 𝑊)))
159	158	rexlimdva 3150	. . 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 395 = wceq 1534 ∈ wcel 2099 ≠ wne 2935 ∀wral 3056 ∃wrex 3065 Vcvv 3469 ∖ cdif 3941 ∩ cin 3943 ⊆ wss 3944 ⊊ wpss 3945 ∅c0 4318 {csn 4624 class class class wbr 5142 ↦ cmpt 5225 ran crn 5673 ‘cfv 6542 (class class class)co 7414 Fincfn 8953 1c1 11125 + caddc 11127 · cmul 11129 ℕcn 12228 ℕ₀cn0 12488 ℤcz 12574 ↑cexp 14044 ♯chash 14307 ∥ cdvds 16216 gcd cgcd 16454 ℙcprime 16627 pCnt cpc 16790 Basecbs 17165 +_gcplusg 17218 0_gc0g 17406 Moorecmre 17547 mrClscmrc 17548 ACScacs 17550 Grpcgrp 18875 -_gcsg 18877 ._gcmg 19007 SubGrpcsubg 19059 odcod 19463 gExcgex 19464 pGrp cpgp 19465 LSSumclsm 19573 Abelcabl 19720

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1790 ax-4 1804 ax-5 1906 ax-6 1964 ax-7 2004 ax-8 2101 ax-9 2109 ax-10 2130 ax-11 2147 ax-12 2164 ax-ext 2698 ax-rep 5279 ax-sep 5293 ax-nul 5300 ax-pow 5359 ax-pr 5423 ax-un 7732 ax-inf2 9650 ax-cnex 11180 ax-resscn 11181 ax-1cn 11182 ax-icn 11183 ax-addcl 11184 ax-addrcl 11185 ax-mulcl 11186 ax-mulrcl 11187 ax-mulcom 11188 ax-addass 11189 ax-mulass 11190 ax-distr 11191 ax-i2m1 11192 ax-1ne0 11193 ax-1rid 11194 ax-rnegex 11195 ax-rrecex 11196 ax-cnre 11197 ax-pre-lttri 11198 ax-pre-lttrn 11199 ax-pre-ltadd 11200 ax-pre-mulgt0 11201 ax-pre-sup 11202

This theorem depends on definitions: df-bi 206 df-an 396 df-or 847 df-3or 1086 df-3an 1087 df-tru 1537 df-fal 1547 df-ex 1775 df-nf 1779 df-sb 2061 df-mo 2529 df-eu 2558 df-clab 2705 df-cleq 2719 df-clel 2805 df-nfc 2880 df-ne 2936 df-nel 3042 df-ral 3057 df-rex 3066 df-rmo 3371 df-reu 3372 df-rab 3428 df-v 3471 df-sbc 3775 df-csb 3890 df-dif 3947 df-un 3949 df-in 3951 df-ss 3961 df-pss 3963 df-nul 4319 df-if 4525 df-pw 4600 df-sn 4625 df-pr 4627 df-op 4631 df-uni 4904 df-int 4945 df-iun 4993 df-iin 4994 df-disj 5108 df-br 5143 df-opab 5205 df-mpt 5226 df-tr 5260 df-id 5570 df-eprel 5576 df-po 5584 df-so 5585 df-fr 5627 df-se 5628 df-we 5629 df-xp 5678 df-rel 5679 df-cnv 5680 df-co 5681 df-dm 5682 df-rn 5683 df-res 5684 df-ima 5685 df-pred 6299 df-ord 6366 df-on 6367 df-lim 6368 df-suc 6369 df-iota 6494 df-fun 6544 df-fn 6545 df-f 6546 df-f1 6547 df-fo 6548 df-f1o 6549 df-fv 6550 df-isom 6551 df-riota 7370 df-ov 7417 df-oprab 7418 df-mpo 7419 df-om 7863 df-1st 7985 df-2nd 7986 df-frecs 8278 df-wrecs 8309 df-recs 8383 df-rdg 8422 df-1o 8478 df-2o 8479 df-oadd 8482 df-omul 8483 df-er 8716 df-ec 8718 df-qs 8722 df-map 8836 df-en 8954 df-dom 8955 df-sdom 8956 df-fin 8957 df-sup 9451 df-inf 9452 df-oi 9519 df-dju 9910 df-card 9948 df-acn 9951 df-pnf 11266 df-mnf 11267 df-xr 11268 df-ltxr 11269 df-le 11270 df-sub 11462 df-neg 11463 df-div 11888 df-nn 12229 df-2 12291 df-3 12292 df-n0 12489 df-xnn0 12561 df-z 12575 df-uz 12839 df-q 12949 df-rp 12993 df-fz 13503 df-fzo 13646 df-fl 13775 df-mod 13853 df-seq 13985 df-exp 14045 df-fac 14251 df-bc 14280 df-hash 14308 df-cj 15064 df-re 15065 df-im 15066 df-sqrt 15200 df-abs 15201 df-clim 15450 df-sum 15651 df-dvds 16217 df-gcd 16455 df-prm 16628 df-pc 16791 df-sets 17118 df-slot 17136 df-ndx 17148 df-base 17166 df-ress 17195 df-plusg 17231 df-0g 17408 df-mre 17551 df-mrc 17552 df-acs 17554 df-mgm 18585 df-sgrp 18664 df-mnd 18680 df-submnd 18726 df-grp 18878 df-minusg 18879 df-sbg 18880 df-mulg 19008 df-subg 19062 df-eqg 19064 df-ga 19225 df-cntz 19252 df-od 19467 df-pgp 19469 df-lsm 19575 df-cmn 19721 df-abl 19722

This theorem is referenced by: pgpfac1lem4 20019

W3C validator