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 19991

Description: Lemma for pgpfac1 19996. (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 3911	. 2 ⊢ (𝜑 → ¬ 𝐶 ∈ (𝑆 ⊕ 𝑊))
3	1	eldifad 3910	. . . . . . 7 ⊢ (𝜑 → 𝐶 ∈ 𝑈)
4	3	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ ¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊)) → 𝐶 ∈ 𝑈)
5		pgpfac1.u	. . . . . . . . . 10 ⊢ (𝜑 → 𝑈 ∈ (SubGrp‘𝐺))
6		pgpfac1.p	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑃 pGrp 𝐺)
7		pgpprm 19507	. . . . . . . . . . . 12 ⊢ (𝑃 pGrp 𝐺 → 𝑃 ∈ ℙ)
8	6, 7	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑃 ∈ ℙ)
9		prmz 16588	. . . . . . . . . . 11 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℤ)
10	8, 9	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝑃 ∈ ℤ)
11		pgpfac1.mg	. . . . . . . . . . 11 ⊢ · = (._g‘𝐺)
12	11	subgmulgcl 19054	. . . . . . . . . 10 ⊢ ((𝑈 ∈ (SubGrp‘𝐺) ∧ 𝑃 ∈ ℤ ∧ 𝐶 ∈ 𝑈) → (𝑃 · 𝐶) ∈ 𝑈)
13	5, 10, 3, 12	syl3anc 1373	. . . . . . . . 9 ⊢ (𝜑 → (𝑃 · 𝐶) ∈ 𝑈)
14	13	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ ¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊)) → (𝑃 · 𝐶) ∈ 𝑈)
15		simpr 484	. . . . . . . 8 ⊢ ((𝜑 ∧ ¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊)) → ¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊))
16	14, 15	eldifd 3909	. . . . . . 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 19990	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑃 · 𝐶) ∈ (𝑈 ∖ (𝑆 ⊕ 𝑊))) → ((𝑆 ⊕ 𝑊) ⊕ (𝐾‘{(𝑃 · 𝐶)})) = 𝑈)
33	16, 32	syldan 591	. . . . . 6 ⊢ ((𝜑 ∧ ¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊)) → ((𝑆 ⊕ 𝑊) ⊕ (𝐾‘{(𝑃 · 𝐶)})) = 𝑈)
34	4, 33	eleqtrrd 2836	. . . . 5 ⊢ ((𝜑 ∧ ¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊)) → 𝐶 ∈ ((𝑆 ⊕ 𝑊) ⊕ (𝐾‘{(𝑃 · 𝐶)})))
35	34	ex 412	. . . 4 ⊢ (𝜑 → (¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊) → 𝐶 ∈ ((𝑆 ⊕ 𝑊) ⊕ (𝐾‘{(𝑃 · 𝐶)}))))
36		eqid 2733	. . . . . 6 ⊢ (-_g‘𝐺) = (-_g‘𝐺)
37		ablgrp 19699	. . . . . . . . . . . 12 ⊢ (𝐺 ∈ Abel → 𝐺 ∈ Grp)
38	24, 37	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐺 ∈ Grp)
39	19	subgacs 19075	. . . . . . . . . . 11 ⊢ (𝐺 ∈ Grp → (SubGrp‘𝐺) ∈ (ACS‘𝐵))
40	38, 39	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (SubGrp‘𝐺) ∈ (ACS‘𝐵))
41	40	acsmred 17564	. . . . . . . . 9 ⊢ (𝜑 → (SubGrp‘𝐺) ∈ (Moore‘𝐵))
42	19	subgss 19042	. . . . . . . . . . 11 ⊢ (𝑈 ∈ (SubGrp‘𝐺) → 𝑈 ⊆ 𝐵)
43	5, 42	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝑈 ⊆ 𝐵)
44	43, 27	sseldd 3931	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ 𝐵)
45	17	mrcsncl 17520	. . . . . . . . 9 ⊢ (((SubGrp‘𝐺) ∈ (Moore‘𝐵) ∧ 𝐴 ∈ 𝐵) → (𝐾‘{𝐴}) ∈ (SubGrp‘𝐺))
46	41, 44, 45	syl2anc 584	. . . . . . . 8 ⊢ (𝜑 → (𝐾‘{𝐴}) ∈ (SubGrp‘𝐺))
47	18, 46	eqeltrid 2837	. . . . . . 7 ⊢ (𝜑 → 𝑆 ∈ (SubGrp‘𝐺))
48	23	lsmsubg2 19773	. . . . . . 7 ⊢ ((𝐺 ∈ Abel ∧ 𝑆 ∈ (SubGrp‘𝐺) ∧ 𝑊 ∈ (SubGrp‘𝐺)) → (𝑆 ⊕ 𝑊) ∈ (SubGrp‘𝐺))
49	24, 47, 28, 48	syl3anc 1373	. . . . . 6 ⊢ (𝜑 → (𝑆 ⊕ 𝑊) ∈ (SubGrp‘𝐺))
50	43, 13	sseldd 3931	. . . . . . 7 ⊢ (𝜑 → (𝑃 · 𝐶) ∈ 𝐵)
51	17	mrcsncl 17520	. . . . . . 7 ⊢ (((SubGrp‘𝐺) ∈ (Moore‘𝐵) ∧ (𝑃 · 𝐶) ∈ 𝐵) → (𝐾‘{(𝑃 · 𝐶)}) ∈ (SubGrp‘𝐺))
52	41, 50, 51	syl2anc 584	. . . . . 6 ⊢ (𝜑 → (𝐾‘{(𝑃 · 𝐶)}) ∈ (SubGrp‘𝐺))
53	36, 23, 49, 52	lsmelvalm 19565	. . . . 5 ⊢ (𝜑 → (𝐶 ∈ ((𝑆 ⊕ 𝑊) ⊕ (𝐾‘{(𝑃 · 𝐶)})) ↔ ∃𝑠 ∈ (𝑆 ⊕ 𝑊)∃𝑡 ∈ (𝐾‘{(𝑃 · 𝐶)})𝐶 = (𝑠(-_g‘𝐺)𝑡)))
54		eqid 2733	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℤ ↦ (𝑘 · (𝑃 · 𝐶))) = (𝑘 ∈ ℤ ↦ (𝑘 · (𝑃 · 𝐶)))
55	19, 11, 54, 17	cycsubg2 19124	. . . . . . . . 9 ⊢ ((𝐺 ∈ Grp ∧ (𝑃 · 𝐶) ∈ 𝐵) → (𝐾‘{(𝑃 · 𝐶)}) = ran (𝑘 ∈ ℤ ↦ (𝑘 · (𝑃 · 𝐶))))
56	38, 50, 55	syl2anc 584	. . . . . . . 8 ⊢ (𝜑 → (𝐾‘{(𝑃 · 𝐶)}) = ran (𝑘 ∈ ℤ ↦ (𝑘 · (𝑃 · 𝐶))))
57	56	rexeqdv 3294	. . . . . . 7 ⊢ (𝜑 → (∃𝑡 ∈ (𝐾‘{(𝑃 · 𝐶)})𝐶 = (𝑠(-_g‘𝐺)𝑡) ↔ ∃𝑡 ∈ ran (𝑘 ∈ ℤ ↦ (𝑘 · (𝑃 · 𝐶)))𝐶 = (𝑠(-_g‘𝐺)𝑡)))
58		ovex 7385	. . . . . . . . 9 ⊢ (𝑘 · (𝑃 · 𝐶)) ∈ V
59	58	rgenw 3052	. . . . . . . 8 ⊢ ∀𝑘 ∈ ℤ (𝑘 · (𝑃 · 𝐶)) ∈ V
60		oveq2 7360	. . . . . . . . . 10 ⊢ (𝑡 = (𝑘 · (𝑃 · 𝐶)) → (𝑠(-_g‘𝐺)𝑡) = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))))
61	60	eqeq2d 2744	. . . . . . . . 9 ⊢ (𝑡 = (𝑘 · (𝑃 · 𝐶)) → (𝐶 = (𝑠(-_g‘𝐺)𝑡) ↔ 𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶)))))
62	54, 61	rexrnmptw 7034	. . . . . . . 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 3157	. . . . 5 ⊢ (𝜑 → (∃𝑠 ∈ (𝑆 ⊕ 𝑊)∃𝑡 ∈ (𝐾‘{(𝑃 · 𝐶)})𝐶 = (𝑠(-_g‘𝐺)𝑡) ↔ ∃𝑠 ∈ (𝑆 ⊕ 𝑊)∃𝑘 ∈ ℤ 𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶)))))
66		rexcom 3262	. . . . . 6 ⊢ (∃𝑠 ∈ (𝑆 ⊕ 𝑊)∃𝑘 ∈ ℤ 𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) ↔ ∃𝑘 ∈ ℤ ∃𝑠 ∈ (𝑆 ⊕ 𝑊)𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))))
67	38	ad2antrr 726	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → 𝐺 ∈ Grp)
68	30, 43	sstrd 3941	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑆 ⊕ 𝑊) ⊆ 𝐵)
69	68	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑆 ⊕ 𝑊) ⊆ 𝐵)
70	69	sselda 3930	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → 𝑠 ∈ 𝐵)
71		simplr 768	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → 𝑘 ∈ ℤ)
72	50	ad2antrr 726	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → (𝑃 · 𝐶) ∈ 𝐵)
73	19, 11	mulgcl 19006	. . . . . . . . . . . . 13 ⊢ ((𝐺 ∈ Grp ∧ 𝑘 ∈ ℤ ∧ (𝑃 · 𝐶) ∈ 𝐵) → (𝑘 · (𝑃 · 𝐶)) ∈ 𝐵)
74	67, 71, 72, 73	syl3anc 1373	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → (𝑘 · (𝑃 · 𝐶)) ∈ 𝐵)
75	43, 3	sseldd 3931	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐶 ∈ 𝐵)
76	75	ad2antrr 726	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → 𝐶 ∈ 𝐵)
77		eqid 2733	. . . . . . . . . . . . 13 ⊢ (+_g‘𝐺) = (+_g‘𝐺)
78	19, 77, 36	grpsubadd 18943	. . . . . . . . . . . 12 ⊢ ((𝐺 ∈ Grp ∧ (𝑠 ∈ 𝐵 ∧ (𝑘 · (𝑃 · 𝐶)) ∈ 𝐵 ∧ 𝐶 ∈ 𝐵)) → ((𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) = 𝐶 ↔ (𝐶(+_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) = 𝑠))
79	67, 70, 74, 76, 78	syl13anc 1374	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → ((𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) = 𝐶 ↔ (𝐶(+_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) = 𝑠))
80		1zzd 12509	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → 1 ∈ ℤ)
81	10	ad2antrr 726	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → 𝑃 ∈ ℤ)
82	71, 81	zmulcld 12589	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → (𝑘 · 𝑃) ∈ ℤ)
83	19, 11, 77	mulgdir 19021	. . . . . . . . . . . . . 14 ⊢ ((𝐺 ∈ Grp ∧ (1 ∈ ℤ ∧ (𝑘 · 𝑃) ∈ ℤ ∧ 𝐶 ∈ 𝐵)) → ((1 + (𝑘 · 𝑃)) · 𝐶) = ((1 · 𝐶)(+_g‘𝐺)((𝑘 · 𝑃) · 𝐶)))
84	67, 80, 82, 76, 83	syl13anc 1374	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → ((1 + (𝑘 · 𝑃)) · 𝐶) = ((1 · 𝐶)(+_g‘𝐺)((𝑘 · 𝑃) · 𝐶)))
85	19, 11	mulg1 18996	. . . . . . . . . . . . . . 15 ⊢ (𝐶 ∈ 𝐵 → (1 · 𝐶) = 𝐶)
86	76, 85	syl 17	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → (1 · 𝐶) = 𝐶)
87	19, 11	mulgass 19026	. . . . . . . . . . . . . . 15 ⊢ ((𝐺 ∈ Grp ∧ (𝑘 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ 𝐶 ∈ 𝐵)) → ((𝑘 · 𝑃) · 𝐶) = (𝑘 · (𝑃 · 𝐶)))
88	67, 71, 81, 76, 87	syl13anc 1374	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → ((𝑘 · 𝑃) · 𝐶) = (𝑘 · (𝑃 · 𝐶)))
89	86, 88	oveq12d 7370	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → ((1 · 𝐶)(+_g‘𝐺)((𝑘 · 𝑃) · 𝐶)) = (𝐶(+_g‘𝐺)(𝑘 · (𝑃 · 𝐶))))
90	84, 89	eqtrd 2768	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → ((1 + (𝑘 · 𝑃)) · 𝐶) = (𝐶(+_g‘𝐺)(𝑘 · (𝑃 · 𝐶))))
91	90	eqeq1d 2735	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → (((1 + (𝑘 · 𝑃)) · 𝐶) = 𝑠 ↔ (𝐶(+_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) = 𝑠))
92	79, 91	bitr4d 282	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → ((𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) = 𝐶 ↔ ((1 + (𝑘 · 𝑃)) · 𝐶) = 𝑠))
93		eqcom 2740	. . . . . . . . . 10 ⊢ (𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) ↔ (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) = 𝐶)
94		eqcom 2740	. . . . . . . . . 10 ⊢ (𝑠 = ((1 + (𝑘 · 𝑃)) · 𝐶) ↔ ((1 + (𝑘 · 𝑃)) · 𝐶) = 𝑠)
95	92, 93, 94	3bitr4g 314	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → (𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) ↔ 𝑠 = ((1 + (𝑘 · 𝑃)) · 𝐶)))
96	95	rexbidva 3155	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (∃𝑠 ∈ (𝑆 ⊕ 𝑊)𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) ↔ ∃𝑠 ∈ (𝑆 ⊕ 𝑊)𝑠 = ((1 + (𝑘 · 𝑃)) · 𝐶)))
97		risset 3208	. . . . . . . 8 ⊢ (((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) ↔ ∃𝑠 ∈ (𝑆 ⊕ 𝑊)𝑠 = ((1 + (𝑘 · 𝑃)) · 𝐶))
98	96, 97	bitr4di 289	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (∃𝑠 ∈ (𝑆 ⊕ 𝑊)𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) ↔ ((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊)))
99	98	rexbidva 3155	. . . . . 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 12508	. . . . . . 7 ⊢ 1 ∈ ℤ
106		id 22	. . . . . . . 8 ⊢ (𝑘 ∈ ℤ → 𝑘 ∈ ℤ)
107		zmulcl 12527	. . . . . . . 8 ⊢ ((𝑘 ∈ ℤ ∧ 𝑃 ∈ ℤ) → (𝑘 · 𝑃) ∈ ℤ)
108	106, 10, 107	syl2anr 597	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑘 · 𝑃) ∈ ℤ)
109		zaddcl 12518	. . . . . . 7 ⊢ ((1 ∈ ℤ ∧ (𝑘 · 𝑃) ∈ ℤ) → (1 + (𝑘 · 𝑃)) ∈ ℤ)
110	105, 108, 109	sylancr 587	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (1 + (𝑘 · 𝑃)) ∈ ℤ)
111	19, 20	odcl 19450	. . . . . . . . 9 ⊢ (𝐶 ∈ 𝐵 → (𝑂‘𝐶) ∈ ℕ₀)
112	104, 111	syl 17	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑂‘𝐶) ∈ ℕ₀)
113	112	nn0zd 12500	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑂‘𝐶) ∈ ℤ)
114		hashcl 14265	. . . . . . . . . 10 ⊢ (𝐵 ∈ Fin → (♯‘𝐵) ∈ ℕ₀)
115	25, 114	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (♯‘𝐵) ∈ ℕ₀)
116	115	nn0zd 12500	. . . . . . . 8 ⊢ (𝜑 → (♯‘𝐵) ∈ ℤ)
117	116	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (♯‘𝐵) ∈ ℤ)
118	110, 117	gcdcomd 16427	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → ((1 + (𝑘 · 𝑃)) gcd (♯‘𝐵)) = ((♯‘𝐵) gcd (1 + (𝑘 · 𝑃))))
119	19	pgphash 19521	. . . . . . . . . . 11 ⊢ ((𝑃 pGrp 𝐺 ∧ 𝐵 ∈ Fin) → (♯‘𝐵) = (𝑃↑(𝑃 pCnt (♯‘𝐵))))
120	6, 25, 119	syl2anc 584	. . . . . . . . . 10 ⊢ (𝜑 → (♯‘𝐵) = (𝑃↑(𝑃 pCnt (♯‘𝐵))))
121	120	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (♯‘𝐵) = (𝑃↑(𝑃 pCnt (♯‘𝐵))))
122	121	oveq1d 7367	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → ((♯‘𝐵) gcd (1 + (𝑘 · 𝑃))) = ((𝑃↑(𝑃 pCnt (♯‘𝐵))) gcd (1 + (𝑘 · 𝑃))))
123		simpr 484	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → 𝑘 ∈ ℤ)
124	10	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → 𝑃 ∈ ℤ)
125		1zzd 12509	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → 1 ∈ ℤ)
126		gcdaddm 16438	. . . . . . . . . . 11 ⊢ ((𝑘 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ 1 ∈ ℤ) → (𝑃 gcd 1) = (𝑃 gcd (1 + (𝑘 · 𝑃))))
127	123, 124, 125, 126	syl3anc 1373	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑃 gcd 1) = (𝑃 gcd (1 + (𝑘 · 𝑃))))
128		gcd1 16441	. . . . . . . . . . 11 ⊢ (𝑃 ∈ ℤ → (𝑃 gcd 1) = 1)
129	124, 128	syl 17	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑃 gcd 1) = 1)
130	127, 129	eqtr3d 2770	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑃 gcd (1 + (𝑘 · 𝑃))) = 1)
131	19	grpbn0 18881	. . . . . . . . . . . . . 14 ⊢ (𝐺 ∈ Grp → 𝐵 ≠ ∅)
132	38, 131	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐵 ≠ ∅)
133		hashnncl 14275	. . . . . . . . . . . . . 14 ⊢ (𝐵 ∈ Fin → ((♯‘𝐵) ∈ ℕ ↔ 𝐵 ≠ ∅))
134	25, 133	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((♯‘𝐵) ∈ ℕ ↔ 𝐵 ≠ ∅))
135	132, 134	mpbird 257	. . . . . . . . . . . 12 ⊢ (𝜑 → (♯‘𝐵) ∈ ℕ)
136	8, 135	pccld 16764	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑃 pCnt (♯‘𝐵)) ∈ ℕ₀)
137	136	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑃 pCnt (♯‘𝐵)) ∈ ℕ₀)
138		rpexp1i 16636	. . . . . . . . . 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 2772	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → ((1 + (𝑘 · 𝑃)) gcd (♯‘𝐵)) = 1)
142	19, 20	oddvds2 19480	. . . . . . . . 9 ⊢ ((𝐺 ∈ Grp ∧ 𝐵 ∈ Fin ∧ 𝐶 ∈ 𝐵) → (𝑂‘𝐶) ∥ (♯‘𝐵))
143	38, 25, 75, 142	syl3anc 1373	. . . . . . . 8 ⊢ (𝜑 → (𝑂‘𝐶) ∥ (♯‘𝐵))
144	143	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑂‘𝐶) ∥ (♯‘𝐵))
145		rpdvds 16573	. . . . . . 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 19472	. . . . . 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 19054	. . . . . . . . 9 ⊢ (((𝑆 ⊕ 𝑊) ∈ (SubGrp‘𝐺) ∧ 𝑎 ∈ ℤ ∧ ((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊)) → (𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) ∈ (𝑆 ⊕ 𝑊))
152	151	3expia 1121	. . . . . . . 8 ⊢ (((𝑆 ⊕ 𝑊) ∈ (SubGrp‘𝐺) ∧ 𝑎 ∈ ℤ) → (((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) → (𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) ∈ (𝑆 ⊕ 𝑊)))
153	149, 150, 152	syl2anc 584	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑎 ∈ ℤ) → (((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) → (𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) ∈ (𝑆 ⊕ 𝑊)))
154		eleq1 2821	. . . . . . . 8 ⊢ ((𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) = 𝐶 → ((𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) ∈ (𝑆 ⊕ 𝑊) ↔ 𝐶 ∈ (𝑆 ⊕ 𝑊)))
155	154	imbi2d 340	. . . . . . 7 ⊢ ((𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) = 𝐶 → ((((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) → (𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) ∈ (𝑆 ⊕ 𝑊)) ↔ (((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) → 𝐶 ∈ (𝑆 ⊕ 𝑊))))
156	153, 155	syl5ibcom 245	. . . . . 6 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑎 ∈ ℤ) → ((𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) = 𝐶 → (((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) → 𝐶 ∈ (𝑆 ⊕ 𝑊))))
157	156	rexlimdva 3134	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (∃𝑎 ∈ ℤ (𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) = 𝐶 → (((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) → 𝐶 ∈ (𝑆 ⊕ 𝑊))))
158	148, 157	mpd 15	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) → 𝐶 ∈ (𝑆 ⊕ 𝑊)))
159	158	rexlimdva 3134	. . 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 1541 ∈ wcel 2113 ≠ wne 2929 ∀wral 3048 ∃wrex 3057 Vcvv 3437 ∖ cdif 3895 ∩ cin 3897 ⊆ wss 3898 ⊊ wpss 3899 ∅c0 4282 {csn 4575 class class class wbr 5093 ↦ cmpt 5174 ran crn 5620 ‘cfv 6486 (class class class)co 7352 Fincfn 8875 1c1 11014 + caddc 11016 · cmul 11018 ℕcn 12132 ℕ₀cn0 12388 ℤcz 12475 ↑cexp 13970 ♯chash 14239 ∥ cdvds 16165 gcd cgcd 16407 ℙcprime 16584 pCnt cpc 16750 Basecbs 17122 +_gcplusg 17163 0_gc0g 17345 Moorecmre 17486 mrClscmrc 17487 ACScacs 17489 Grpcgrp 18848 -_gcsg 18850 ._gcmg 18982 SubGrpcsubg 19035 odcod 19438 gExcgex 19439 pGrp cpgp 19440 LSSumclsm 19548 Abelcabl 19695

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1796 ax-4 1810 ax-5 1911 ax-6 1968 ax-7 2009 ax-8 2115 ax-9 2123 ax-10 2146 ax-11 2162 ax-12 2182 ax-ext 2705 ax-rep 5219 ax-sep 5236 ax-nul 5246 ax-pow 5305 ax-pr 5372 ax-un 7674 ax-inf2 9538 ax-cnex 11069 ax-resscn 11070 ax-1cn 11071 ax-icn 11072 ax-addcl 11073 ax-addrcl 11074 ax-mulcl 11075 ax-mulrcl 11076 ax-mulcom 11077 ax-addass 11078 ax-mulass 11079 ax-distr 11080 ax-i2m1 11081 ax-1ne0 11082 ax-1rid 11083 ax-rnegex 11084 ax-rrecex 11085 ax-cnre 11086 ax-pre-lttri 11087 ax-pre-lttrn 11088 ax-pre-ltadd 11089 ax-pre-mulgt0 11090 ax-pre-sup 11091

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1544 df-fal 1554 df-ex 1781 df-nf 1785 df-sb 2068 df-mo 2537 df-eu 2566 df-clab 2712 df-cleq 2725 df-clel 2808 df-nfc 2882 df-ne 2930 df-nel 3034 df-ral 3049 df-rex 3058 df-rmo 3347 df-reu 3348 df-rab 3397 df-v 3439 df-sbc 3738 df-csb 3847 df-dif 3901 df-un 3903 df-in 3905 df-ss 3915 df-pss 3918 df-nul 4283 df-if 4475 df-pw 4551 df-sn 4576 df-pr 4578 df-op 4582 df-uni 4859 df-int 4898 df-iun 4943 df-iin 4944 df-disj 5061 df-br 5094 df-opab 5156 df-mpt 5175 df-tr 5201 df-id 5514 df-eprel 5519 df-po 5527 df-so 5528 df-fr 5572 df-se 5573 df-we 5574 df-xp 5625 df-rel 5626 df-cnv 5627 df-co 5628 df-dm 5629 df-rn 5630 df-res 5631 df-ima 5632 df-pred 6253 df-ord 6314 df-on 6315 df-lim 6316 df-suc 6317 df-iota 6442 df-fun 6488 df-fn 6489 df-f 6490 df-f1 6491 df-fo 6492 df-f1o 6493 df-fv 6494 df-isom 6495 df-riota 7309 df-ov 7355 df-oprab 7356 df-mpo 7357 df-om 7803 df-1st 7927 df-2nd 7928 df-frecs 8217 df-wrecs 8248 df-recs 8297 df-rdg 8335 df-1o 8391 df-2o 8392 df-oadd 8395 df-omul 8396 df-er 8628 df-ec 8630 df-qs 8634 df-map 8758 df-en 8876 df-dom 8877 df-sdom 8878 df-fin 8879 df-sup 9333 df-inf 9334 df-oi 9403 df-dju 9801 df-card 9839 df-acn 9842 df-pnf 11155 df-mnf 11156 df-xr 11157 df-ltxr 11158 df-le 11159 df-sub 11353 df-neg 11354 df-div 11782 df-nn 12133 df-2 12195 df-3 12196 df-n0 12389 df-xnn0 12462 df-z 12476 df-uz 12739 df-q 12849 df-rp 12893 df-fz 13410 df-fzo 13557 df-fl 13698 df-mod 13776 df-seq 13911 df-exp 13971 df-fac 14183 df-bc 14212 df-hash 14240 df-cj 15008 df-re 15009 df-im 15010 df-sqrt 15144 df-abs 15145 df-clim 15397 df-sum 15596 df-dvds 16166 df-gcd 16408 df-prm 16585 df-pc 16751 df-sets 17077 df-slot 17095 df-ndx 17107 df-base 17123 df-ress 17144 df-plusg 17176 df-0g 17347 df-mre 17490 df-mrc 17491 df-acs 17493 df-mgm 18550 df-sgrp 18629 df-mnd 18645 df-submnd 18694 df-grp 18851 df-minusg 18852 df-sbg 18853 df-mulg 18983 df-subg 19038 df-eqg 19040 df-ga 19204 df-cntz 19231 df-od 19442 df-pgp 19444 df-lsm 19550 df-cmn 19696 df-abl 19697

This theorem is referenced by: pgpfac1lem4 19994

W3C validator