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 19939

Description: Lemma for pgpfac1 19944. (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 3960	. 2 ⊢ (𝜑 → ¬ 𝐶 ∈ (𝑆 ⊕ 𝑊))
3	1	eldifad 3959	. . . . . . 7 ⊢ (𝜑 → 𝐶 ∈ 𝑈)
4	3	adantr 481	. . . . . 6 ⊢ ((𝜑 ∧ ¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊)) → 𝐶 ∈ 𝑈)
5		pgpfac1.u	. . . . . . . . . 10 ⊢ (𝜑 → 𝑈 ∈ (SubGrp‘𝐺))
6		pgpfac1.p	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑃 pGrp 𝐺)
7		pgpprm 19455	. . . . . . . . . . . 12 ⊢ (𝑃 pGrp 𝐺 → 𝑃 ∈ ℙ)
8	6, 7	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑃 ∈ ℙ)
9		prmz 16608	. . . . . . . . . . 11 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℤ)
10	8, 9	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝑃 ∈ ℤ)
11		pgpfac1.mg	. . . . . . . . . . 11 ⊢ · = (._g‘𝐺)
12	11	subgmulgcl 19013	. . . . . . . . . 10 ⊢ ((𝑈 ∈ (SubGrp‘𝐺) ∧ 𝑃 ∈ ℤ ∧ 𝐶 ∈ 𝑈) → (𝑃 · 𝐶) ∈ 𝑈)
13	5, 10, 3, 12	syl3anc 1371	. . . . . . . . 9 ⊢ (𝜑 → (𝑃 · 𝐶) ∈ 𝑈)
14	13	adantr 481	. . . . . . . 8 ⊢ ((𝜑 ∧ ¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊)) → (𝑃 · 𝐶) ∈ 𝑈)
15		simpr 485	. . . . . . . 8 ⊢ ((𝜑 ∧ ¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊)) → ¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊))
16	14, 15	eldifd 3958	. . . . . . 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 19938	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑃 · 𝐶) ∈ (𝑈 ∖ (𝑆 ⊕ 𝑊))) → ((𝑆 ⊕ 𝑊) ⊕ (𝐾‘{(𝑃 · 𝐶)})) = 𝑈)
33	16, 32	syldan 591	. . . . . 6 ⊢ ((𝜑 ∧ ¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊)) → ((𝑆 ⊕ 𝑊) ⊕ (𝐾‘{(𝑃 · 𝐶)})) = 𝑈)
34	4, 33	eleqtrrd 2836	. . . . 5 ⊢ ((𝜑 ∧ ¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊)) → 𝐶 ∈ ((𝑆 ⊕ 𝑊) ⊕ (𝐾‘{(𝑃 · 𝐶)})))
35	34	ex 413	. . . 4 ⊢ (𝜑 → (¬ (𝑃 · 𝐶) ∈ (𝑆 ⊕ 𝑊) → 𝐶 ∈ ((𝑆 ⊕ 𝑊) ⊕ (𝐾‘{(𝑃 · 𝐶)}))))
36		eqid 2732	. . . . . 6 ⊢ (-_g‘𝐺) = (-_g‘𝐺)
37		ablgrp 19647	. . . . . . . . . . . 12 ⊢ (𝐺 ∈ Abel → 𝐺 ∈ Grp)
38	24, 37	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐺 ∈ Grp)
39	19	subgacs 19035	. . . . . . . . . . 11 ⊢ (𝐺 ∈ Grp → (SubGrp‘𝐺) ∈ (ACS‘𝐵))
40	38, 39	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (SubGrp‘𝐺) ∈ (ACS‘𝐵))
41	40	acsmred 17596	. . . . . . . . 9 ⊢ (𝜑 → (SubGrp‘𝐺) ∈ (Moore‘𝐵))
42	19	subgss 19001	. . . . . . . . . . 11 ⊢ (𝑈 ∈ (SubGrp‘𝐺) → 𝑈 ⊆ 𝐵)
43	5, 42	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝑈 ⊆ 𝐵)
44	43, 27	sseldd 3982	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ 𝐵)
45	17	mrcsncl 17552	. . . . . . . . 9 ⊢ (((SubGrp‘𝐺) ∈ (Moore‘𝐵) ∧ 𝐴 ∈ 𝐵) → (𝐾‘{𝐴}) ∈ (SubGrp‘𝐺))
46	41, 44, 45	syl2anc 584	. . . . . . . 8 ⊢ (𝜑 → (𝐾‘{𝐴}) ∈ (SubGrp‘𝐺))
47	18, 46	eqeltrid 2837	. . . . . . 7 ⊢ (𝜑 → 𝑆 ∈ (SubGrp‘𝐺))
48	23	lsmsubg2 19721	. . . . . . 7 ⊢ ((𝐺 ∈ Abel ∧ 𝑆 ∈ (SubGrp‘𝐺) ∧ 𝑊 ∈ (SubGrp‘𝐺)) → (𝑆 ⊕ 𝑊) ∈ (SubGrp‘𝐺))
49	24, 47, 28, 48	syl3anc 1371	. . . . . 6 ⊢ (𝜑 → (𝑆 ⊕ 𝑊) ∈ (SubGrp‘𝐺))
50	43, 13	sseldd 3982	. . . . . . 7 ⊢ (𝜑 → (𝑃 · 𝐶) ∈ 𝐵)
51	17	mrcsncl 17552	. . . . . . 7 ⊢ (((SubGrp‘𝐺) ∈ (Moore‘𝐵) ∧ (𝑃 · 𝐶) ∈ 𝐵) → (𝐾‘{(𝑃 · 𝐶)}) ∈ (SubGrp‘𝐺))
52	41, 50, 51	syl2anc 584	. . . . . 6 ⊢ (𝜑 → (𝐾‘{(𝑃 · 𝐶)}) ∈ (SubGrp‘𝐺))
53	36, 23, 49, 52	lsmelvalm 19513	. . . . 5 ⊢ (𝜑 → (𝐶 ∈ ((𝑆 ⊕ 𝑊) ⊕ (𝐾‘{(𝑃 · 𝐶)})) ↔ ∃𝑠 ∈ (𝑆 ⊕ 𝑊)∃𝑡 ∈ (𝐾‘{(𝑃 · 𝐶)})𝐶 = (𝑠(-_g‘𝐺)𝑡)))
54		eqid 2732	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℤ ↦ (𝑘 · (𝑃 · 𝐶))) = (𝑘 ∈ ℤ ↦ (𝑘 · (𝑃 · 𝐶)))
55	19, 11, 54, 17	cycsubg2 19081	. . . . . . . . 9 ⊢ ((𝐺 ∈ Grp ∧ (𝑃 · 𝐶) ∈ 𝐵) → (𝐾‘{(𝑃 · 𝐶)}) = ran (𝑘 ∈ ℤ ↦ (𝑘 · (𝑃 · 𝐶))))
56	38, 50, 55	syl2anc 584	. . . . . . . 8 ⊢ (𝜑 → (𝐾‘{(𝑃 · 𝐶)}) = ran (𝑘 ∈ ℤ ↦ (𝑘 · (𝑃 · 𝐶))))
57	56	rexeqdv 3326	. . . . . . 7 ⊢ (𝜑 → (∃𝑡 ∈ (𝐾‘{(𝑃 · 𝐶)})𝐶 = (𝑠(-_g‘𝐺)𝑡) ↔ ∃𝑡 ∈ ran (𝑘 ∈ ℤ ↦ (𝑘 · (𝑃 · 𝐶)))𝐶 = (𝑠(-_g‘𝐺)𝑡)))
58		ovex 7438	. . . . . . . . 9 ⊢ (𝑘 · (𝑃 · 𝐶)) ∈ V
59	58	rgenw 3065	. . . . . . . 8 ⊢ ∀𝑘 ∈ ℤ (𝑘 · (𝑃 · 𝐶)) ∈ V
60		oveq2 7413	. . . . . . . . . 10 ⊢ (𝑡 = (𝑘 · (𝑃 · 𝐶)) → (𝑠(-_g‘𝐺)𝑡) = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))))
61	60	eqeq2d 2743	. . . . . . . . 9 ⊢ (𝑡 = (𝑘 · (𝑃 · 𝐶)) → (𝐶 = (𝑠(-_g‘𝐺)𝑡) ↔ 𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶)))))
62	54, 61	rexrnmptw 7093	. . . . . . . 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 3178	. . . . 5 ⊢ (𝜑 → (∃𝑠 ∈ (𝑆 ⊕ 𝑊)∃𝑡 ∈ (𝐾‘{(𝑃 · 𝐶)})𝐶 = (𝑠(-_g‘𝐺)𝑡) ↔ ∃𝑠 ∈ (𝑆 ⊕ 𝑊)∃𝑘 ∈ ℤ 𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶)))))
66		rexcom 3287	. . . . . 6 ⊢ (∃𝑠 ∈ (𝑆 ⊕ 𝑊)∃𝑘 ∈ ℤ 𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) ↔ ∃𝑘 ∈ ℤ ∃𝑠 ∈ (𝑆 ⊕ 𝑊)𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))))
67	38	ad2antrr 724	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → 𝐺 ∈ Grp)
68	30, 43	sstrd 3991	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑆 ⊕ 𝑊) ⊆ 𝐵)
69	68	adantr 481	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑆 ⊕ 𝑊) ⊆ 𝐵)
70	69	sselda 3981	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → 𝑠 ∈ 𝐵)
71		simplr 767	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → 𝑘 ∈ ℤ)
72	50	ad2antrr 724	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → (𝑃 · 𝐶) ∈ 𝐵)
73	19, 11	mulgcl 18965	. . . . . . . . . . . . 13 ⊢ ((𝐺 ∈ Grp ∧ 𝑘 ∈ ℤ ∧ (𝑃 · 𝐶) ∈ 𝐵) → (𝑘 · (𝑃 · 𝐶)) ∈ 𝐵)
74	67, 71, 72, 73	syl3anc 1371	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → (𝑘 · (𝑃 · 𝐶)) ∈ 𝐵)
75	43, 3	sseldd 3982	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐶 ∈ 𝐵)
76	75	ad2antrr 724	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → 𝐶 ∈ 𝐵)
77		eqid 2732	. . . . . . . . . . . . 13 ⊢ (+_g‘𝐺) = (+_g‘𝐺)
78	19, 77, 36	grpsubadd 18907	. . . . . . . . . . . 12 ⊢ ((𝐺 ∈ Grp ∧ (𝑠 ∈ 𝐵 ∧ (𝑘 · (𝑃 · 𝐶)) ∈ 𝐵 ∧ 𝐶 ∈ 𝐵)) → ((𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) = 𝐶 ↔ (𝐶(+_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) = 𝑠))
79	67, 70, 74, 76, 78	syl13anc 1372	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → ((𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) = 𝐶 ↔ (𝐶(+_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) = 𝑠))
80		1zzd 12589	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → 1 ∈ ℤ)
81	10	ad2antrr 724	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → 𝑃 ∈ ℤ)
82	71, 81	zmulcld 12668	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → (𝑘 · 𝑃) ∈ ℤ)
83	19, 11, 77	mulgdir 18980	. . . . . . . . . . . . . 14 ⊢ ((𝐺 ∈ Grp ∧ (1 ∈ ℤ ∧ (𝑘 · 𝑃) ∈ ℤ ∧ 𝐶 ∈ 𝐵)) → ((1 + (𝑘 · 𝑃)) · 𝐶) = ((1 · 𝐶)(+_g‘𝐺)((𝑘 · 𝑃) · 𝐶)))
84	67, 80, 82, 76, 83	syl13anc 1372	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → ((1 + (𝑘 · 𝑃)) · 𝐶) = ((1 · 𝐶)(+_g‘𝐺)((𝑘 · 𝑃) · 𝐶)))
85	19, 11	mulg1 18955	. . . . . . . . . . . . . . 15 ⊢ (𝐶 ∈ 𝐵 → (1 · 𝐶) = 𝐶)
86	76, 85	syl 17	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → (1 · 𝐶) = 𝐶)
87	19, 11	mulgass 18985	. . . . . . . . . . . . . . 15 ⊢ ((𝐺 ∈ Grp ∧ (𝑘 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ 𝐶 ∈ 𝐵)) → ((𝑘 · 𝑃) · 𝐶) = (𝑘 · (𝑃 · 𝐶)))
88	67, 71, 81, 76, 87	syl13anc 1372	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → ((𝑘 · 𝑃) · 𝐶) = (𝑘 · (𝑃 · 𝐶)))
89	86, 88	oveq12d 7423	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → ((1 · 𝐶)(+_g‘𝐺)((𝑘 · 𝑃) · 𝐶)) = (𝐶(+_g‘𝐺)(𝑘 · (𝑃 · 𝐶))))
90	84, 89	eqtrd 2772	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → ((1 + (𝑘 · 𝑃)) · 𝐶) = (𝐶(+_g‘𝐺)(𝑘 · (𝑃 · 𝐶))))
91	90	eqeq1d 2734	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → (((1 + (𝑘 · 𝑃)) · 𝐶) = 𝑠 ↔ (𝐶(+_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) = 𝑠))
92	79, 91	bitr4d 281	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → ((𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) = 𝐶 ↔ ((1 + (𝑘 · 𝑃)) · 𝐶) = 𝑠))
93		eqcom 2739	. . . . . . . . . 10 ⊢ (𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) ↔ (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) = 𝐶)
94		eqcom 2739	. . . . . . . . . 10 ⊢ (𝑠 = ((1 + (𝑘 · 𝑃)) · 𝐶) ↔ ((1 + (𝑘 · 𝑃)) · 𝐶) = 𝑠)
95	92, 93, 94	3bitr4g 313	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑠 ∈ (𝑆 ⊕ 𝑊)) → (𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) ↔ 𝑠 = ((1 + (𝑘 · 𝑃)) · 𝐶)))
96	95	rexbidva 3176	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (∃𝑠 ∈ (𝑆 ⊕ 𝑊)𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) ↔ ∃𝑠 ∈ (𝑆 ⊕ 𝑊)𝑠 = ((1 + (𝑘 · 𝑃)) · 𝐶)))
97		risset 3230	. . . . . . . 8 ⊢ (((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) ↔ ∃𝑠 ∈ (𝑆 ⊕ 𝑊)𝑠 = ((1 + (𝑘 · 𝑃)) · 𝐶))
98	96, 97	bitr4di 288	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (∃𝑠 ∈ (𝑆 ⊕ 𝑊)𝐶 = (𝑠(-_g‘𝐺)(𝑘 · (𝑃 · 𝐶))) ↔ ((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊)))
99	98	rexbidva 3176	. . . . . 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 481	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → 𝐺 ∈ Grp)
104	75	adantr 481	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → 𝐶 ∈ 𝐵)
105		1z 12588	. . . . . . 7 ⊢ 1 ∈ ℤ
106		id 22	. . . . . . . 8 ⊢ (𝑘 ∈ ℤ → 𝑘 ∈ ℤ)
107		zmulcl 12607	. . . . . . . 8 ⊢ ((𝑘 ∈ ℤ ∧ 𝑃 ∈ ℤ) → (𝑘 · 𝑃) ∈ ℤ)
108	106, 10, 107	syl2anr 597	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑘 · 𝑃) ∈ ℤ)
109		zaddcl 12598	. . . . . . 7 ⊢ ((1 ∈ ℤ ∧ (𝑘 · 𝑃) ∈ ℤ) → (1 + (𝑘 · 𝑃)) ∈ ℤ)
110	105, 108, 109	sylancr 587	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (1 + (𝑘 · 𝑃)) ∈ ℤ)
111	19, 20	odcl 19398	. . . . . . . . 9 ⊢ (𝐶 ∈ 𝐵 → (𝑂‘𝐶) ∈ ℕ₀)
112	104, 111	syl 17	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑂‘𝐶) ∈ ℕ₀)
113	112	nn0zd 12580	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑂‘𝐶) ∈ ℤ)
114		hashcl 14312	. . . . . . . . . 10 ⊢ (𝐵 ∈ Fin → (♯‘𝐵) ∈ ℕ₀)
115	25, 114	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (♯‘𝐵) ∈ ℕ₀)
116	115	nn0zd 12580	. . . . . . . 8 ⊢ (𝜑 → (♯‘𝐵) ∈ ℤ)
117	116	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (♯‘𝐵) ∈ ℤ)
118	110, 117	gcdcomd 16451	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → ((1 + (𝑘 · 𝑃)) gcd (♯‘𝐵)) = ((♯‘𝐵) gcd (1 + (𝑘 · 𝑃))))
119	19	pgphash 19469	. . . . . . . . . . 11 ⊢ ((𝑃 pGrp 𝐺 ∧ 𝐵 ∈ Fin) → (♯‘𝐵) = (𝑃↑(𝑃 pCnt (♯‘𝐵))))
120	6, 25, 119	syl2anc 584	. . . . . . . . . 10 ⊢ (𝜑 → (♯‘𝐵) = (𝑃↑(𝑃 pCnt (♯‘𝐵))))
121	120	adantr 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (♯‘𝐵) = (𝑃↑(𝑃 pCnt (♯‘𝐵))))
122	121	oveq1d 7420	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → ((♯‘𝐵) gcd (1 + (𝑘 · 𝑃))) = ((𝑃↑(𝑃 pCnt (♯‘𝐵))) gcd (1 + (𝑘 · 𝑃))))
123		simpr 485	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → 𝑘 ∈ ℤ)
124	10	adantr 481	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → 𝑃 ∈ ℤ)
125		1zzd 12589	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → 1 ∈ ℤ)
126		gcdaddm 16462	. . . . . . . . . . 11 ⊢ ((𝑘 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ 1 ∈ ℤ) → (𝑃 gcd 1) = (𝑃 gcd (1 + (𝑘 · 𝑃))))
127	123, 124, 125, 126	syl3anc 1371	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑃 gcd 1) = (𝑃 gcd (1 + (𝑘 · 𝑃))))
128		gcd1 16465	. . . . . . . . . . 11 ⊢ (𝑃 ∈ ℤ → (𝑃 gcd 1) = 1)
129	124, 128	syl 17	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑃 gcd 1) = 1)
130	127, 129	eqtr3d 2774	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑃 gcd (1 + (𝑘 · 𝑃))) = 1)
131	19	grpbn0 18847	. . . . . . . . . . . . . 14 ⊢ (𝐺 ∈ Grp → 𝐵 ≠ ∅)
132	38, 131	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐵 ≠ ∅)
133		hashnncl 14322	. . . . . . . . . . . . . 14 ⊢ (𝐵 ∈ Fin → ((♯‘𝐵) ∈ ℕ ↔ 𝐵 ≠ ∅))
134	25, 133	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((♯‘𝐵) ∈ ℕ ↔ 𝐵 ≠ ∅))
135	132, 134	mpbird 256	. . . . . . . . . . . 12 ⊢ (𝜑 → (♯‘𝐵) ∈ ℕ)
136	8, 135	pccld 16779	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑃 pCnt (♯‘𝐵)) ∈ ℕ₀)
137	136	adantr 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑃 pCnt (♯‘𝐵)) ∈ ℕ₀)
138		rpexp1i 16656	. . . . . . . . . 10 ⊢ ((𝑃 ∈ ℤ ∧ (1 + (𝑘 · 𝑃)) ∈ ℤ ∧ (𝑃 pCnt (♯‘𝐵)) ∈ ℕ₀) → ((𝑃 gcd (1 + (𝑘 · 𝑃))) = 1 → ((𝑃↑(𝑃 pCnt (♯‘𝐵))) gcd (1 + (𝑘 · 𝑃))) = 1))
139	124, 110, 137, 138	syl3anc 1371	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → ((𝑃 gcd (1 + (𝑘 · 𝑃))) = 1 → ((𝑃↑(𝑃 pCnt (♯‘𝐵))) gcd (1 + (𝑘 · 𝑃))) = 1))
140	130, 139	mpd 15	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → ((𝑃↑(𝑃 pCnt (♯‘𝐵))) gcd (1 + (𝑘 · 𝑃))) = 1)
141	118, 122, 140	3eqtrd 2776	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → ((1 + (𝑘 · 𝑃)) gcd (♯‘𝐵)) = 1)
142	19, 20	oddvds2 19428	. . . . . . . . 9 ⊢ ((𝐺 ∈ Grp ∧ 𝐵 ∈ Fin ∧ 𝐶 ∈ 𝐵) → (𝑂‘𝐶) ∥ (♯‘𝐵))
143	38, 25, 75, 142	syl3anc 1371	. . . . . . . 8 ⊢ (𝜑 → (𝑂‘𝐶) ∥ (♯‘𝐵))
144	143	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (𝑂‘𝐶) ∥ (♯‘𝐵))
145		rpdvds 16593	. . . . . . 7 ⊢ ((((1 + (𝑘 · 𝑃)) ∈ ℤ ∧ (𝑂‘𝐶) ∈ ℤ ∧ (♯‘𝐵) ∈ ℤ) ∧ (((1 + (𝑘 · 𝑃)) gcd (♯‘𝐵)) = 1 ∧ (𝑂‘𝐶) ∥ (♯‘𝐵))) → ((1 + (𝑘 · 𝑃)) gcd (𝑂‘𝐶)) = 1)
146	110, 113, 117, 141, 144, 145	syl32anc 1378	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → ((1 + (𝑘 · 𝑃)) gcd (𝑂‘𝐶)) = 1)
147	19, 20, 11	odbezout 19420	. . . . . 6 ⊢ (((𝐺 ∈ Grp ∧ 𝐶 ∈ 𝐵 ∧ (1 + (𝑘 · 𝑃)) ∈ ℤ) ∧ ((1 + (𝑘 · 𝑃)) gcd (𝑂‘𝐶)) = 1) → ∃𝑎 ∈ ℤ (𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) = 𝐶)
148	103, 104, 110, 146, 147	syl31anc 1373	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → ∃𝑎 ∈ ℤ (𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) = 𝐶)
149	49	ad2antrr 724	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑎 ∈ ℤ) → (𝑆 ⊕ 𝑊) ∈ (SubGrp‘𝐺))
150		simpr 485	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑎 ∈ ℤ) → 𝑎 ∈ ℤ)
151	11	subgmulgcl 19013	. . . . . . . . 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 244	. . . . . 6 ⊢ (((𝜑 ∧ 𝑘 ∈ ℤ) ∧ 𝑎 ∈ ℤ) → ((𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) = 𝐶 → (((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) → 𝐶 ∈ (𝑆 ⊕ 𝑊))))
157	156	rexlimdva 3155	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (∃𝑎 ∈ ℤ (𝑎 · ((1 + (𝑘 · 𝑃)) · 𝐶)) = 𝐶 → (((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) → 𝐶 ∈ (𝑆 ⊕ 𝑊))))
158	148, 157	mpd 15	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (((1 + (𝑘 · 𝑃)) · 𝐶) ∈ (𝑆 ⊕ 𝑊) → 𝐶 ∈ (𝑆 ⊕ 𝑊)))
159	158	rexlimdva 3155	. . 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 396 = wceq 1541 ∈ wcel 2106 ≠ wne 2940 ∀wral 3061 ∃wrex 3070 Vcvv 3474 ∖ cdif 3944 ∩ cin 3946 ⊆ wss 3947 ⊊ wpss 3948 ∅c0 4321 {csn 4627 class class class wbr 5147 ↦ cmpt 5230 ran crn 5676 ‘cfv 6540 (class class class)co 7405 Fincfn 8935 1c1 11107 + caddc 11109 · cmul 11111 ℕcn 12208 ℕ₀cn0 12468 ℤcz 12554 ↑cexp 14023 ♯chash 14286 ∥ cdvds 16193 gcd cgcd 16431 ℙcprime 16604 pCnt cpc 16765 Basecbs 17140 +_gcplusg 17193 0_gc0g 17381 Moorecmre 17522 mrClscmrc 17523 ACScacs 17525 Grpcgrp 18815 -_gcsg 18817 ._gcmg 18944 SubGrpcsubg 18994 odcod 19386 gExcgex 19387 pGrp cpgp 19388 LSSumclsm 19496 Abelcabl 19643

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1797 ax-4 1811 ax-5 1913 ax-6 1971 ax-7 2011 ax-8 2108 ax-9 2116 ax-10 2137 ax-11 2154 ax-12 2171 ax-ext 2703 ax-rep 5284 ax-sep 5298 ax-nul 5305 ax-pow 5362 ax-pr 5426 ax-un 7721 ax-inf2 9632 ax-cnex 11162 ax-resscn 11163 ax-1cn 11164 ax-icn 11165 ax-addcl 11166 ax-addrcl 11167 ax-mulcl 11168 ax-mulrcl 11169 ax-mulcom 11170 ax-addass 11171 ax-mulass 11172 ax-distr 11173 ax-i2m1 11174 ax-1ne0 11175 ax-1rid 11176 ax-rnegex 11177 ax-rrecex 11178 ax-cnre 11179 ax-pre-lttri 11180 ax-pre-lttrn 11181 ax-pre-ltadd 11182 ax-pre-mulgt0 11183 ax-pre-sup 11184

This theorem depends on definitions: df-bi 206 df-an 397 df-or 846 df-3or 1088 df-3an 1089 df-tru 1544 df-fal 1554 df-ex 1782 df-nf 1786 df-sb 2068 df-mo 2534 df-eu 2563 df-clab 2710 df-cleq 2724 df-clel 2810 df-nfc 2885 df-ne 2941 df-nel 3047 df-ral 3062 df-rex 3071 df-rmo 3376 df-reu 3377 df-rab 3433 df-v 3476 df-sbc 3777 df-csb 3893 df-dif 3950 df-un 3952 df-in 3954 df-ss 3964 df-pss 3966 df-nul 4322 df-if 4528 df-pw 4603 df-sn 4628 df-pr 4630 df-op 4634 df-uni 4908 df-int 4950 df-iun 4998 df-iin 4999 df-disj 5113 df-br 5148 df-opab 5210 df-mpt 5231 df-tr 5265 df-id 5573 df-eprel 5579 df-po 5587 df-so 5588 df-fr 5630 df-se 5631 df-we 5632 df-xp 5681 df-rel 5682 df-cnv 5683 df-co 5684 df-dm 5685 df-rn 5686 df-res 5687 df-ima 5688 df-pred 6297 df-ord 6364 df-on 6365 df-lim 6366 df-suc 6367 df-iota 6492 df-fun 6542 df-fn 6543 df-f 6544 df-f1 6545 df-fo 6546 df-f1o 6547 df-fv 6548 df-isom 6549 df-riota 7361 df-ov 7408 df-oprab 7409 df-mpo 7410 df-om 7852 df-1st 7971 df-2nd 7972 df-frecs 8262 df-wrecs 8293 df-recs 8367 df-rdg 8406 df-1o 8462 df-2o 8463 df-oadd 8466 df-omul 8467 df-er 8699 df-ec 8701 df-qs 8705 df-map 8818 df-en 8936 df-dom 8937 df-sdom 8938 df-fin 8939 df-sup 9433 df-inf 9434 df-oi 9501 df-dju 9892 df-card 9930 df-acn 9933 df-pnf 11246 df-mnf 11247 df-xr 11248 df-ltxr 11249 df-le 11250 df-sub 11442 df-neg 11443 df-div 11868 df-nn 12209 df-2 12271 df-3 12272 df-n0 12469 df-xnn0 12541 df-z 12555 df-uz 12819 df-q 12929 df-rp 12971 df-fz 13481 df-fzo 13624 df-fl 13753 df-mod 13831 df-seq 13963 df-exp 14024 df-fac 14230 df-bc 14259 df-hash 14287 df-cj 15042 df-re 15043 df-im 15044 df-sqrt 15178 df-abs 15179 df-clim 15428 df-sum 15629 df-dvds 16194 df-gcd 16432 df-prm 16605 df-pc 16766 df-sets 17093 df-slot 17111 df-ndx 17123 df-base 17141 df-ress 17170 df-plusg 17206 df-0g 17383 df-mre 17526 df-mrc 17527 df-acs 17529 df-mgm 18557 df-sgrp 18606 df-mnd 18622 df-submnd 18668 df-grp 18818 df-minusg 18819 df-sbg 18820 df-mulg 18945 df-subg 18997 df-eqg 18999 df-ga 19148 df-cntz 19175 df-od 19390 df-pgp 19392 df-lsm 19498 df-cmn 19644 df-abl 19645

This theorem is referenced by: pgpfac1lem4 19942

W3C validator