pgpfac1lem3a - Metamath Proof Explorer

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

Theorem pgpfac1lem3a 19987

Description: Lemma for pgpfac1 19991. (Contributed by Mario Carneiro, 4-Jun-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‘𝐺)
pgpfac1.m	⊢ (𝜑 → 𝑀 ∈ ℤ)
pgpfac1.mw	⊢ (𝜑 → ((𝑃 · 𝐶)(+_g‘𝐺)(𝑀 · 𝐴)) ∈ 𝑊)

**Assertion**
Ref	Expression
pgpfac1lem3a	⊢ (𝜑 → (𝑃 ∥ 𝐸 ∧ 𝑃 ∥ 𝑀))

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

Proof of Theorem pgpfac1lem3a Dummy variable 𝑘 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		pgpfac1.c	. . . 4 ⊢ (𝜑 → 𝐶 ∈ (𝑈 ∖ (𝑆 ⊕ 𝑊)))
2	1	eldifbd 3960	. . 3 ⊢ (𝜑 → ¬ 𝐶 ∈ (𝑆 ⊕ 𝑊))
3		pgpfac1.p	. . . . . . . 8 ⊢ (𝜑 → 𝑃 pGrp 𝐺)
4		pgpprm 19502	. . . . . . . 8 ⊢ (𝑃 pGrp 𝐺 → 𝑃 ∈ ℙ)
5	3, 4	syl 17	. . . . . . 7 ⊢ (𝜑 → 𝑃 ∈ ℙ)
6		pgpfac1.g	. . . . . . . . 9 ⊢ (𝜑 → 𝐺 ∈ Abel)
7		ablgrp 19694	. . . . . . . . 9 ⊢ (𝐺 ∈ Abel → 𝐺 ∈ Grp)
8	6, 7	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝐺 ∈ Grp)
9		pgpfac1.n	. . . . . . . 8 ⊢ (𝜑 → 𝐵 ∈ Fin)
10		pgpfac1.b	. . . . . . . . 9 ⊢ 𝐵 = (Base‘𝐺)
11		pgpfac1.e	. . . . . . . . 9 ⊢ 𝐸 = (gEx‘𝐺)
12	10, 11	gexcl2 19498	. . . . . . . 8 ⊢ ((𝐺 ∈ Grp ∧ 𝐵 ∈ Fin) → 𝐸 ∈ ℕ)
13	8, 9, 12	syl2anc 582	. . . . . . 7 ⊢ (𝜑 → 𝐸 ∈ ℕ)
14		pceq0 16808	. . . . . . 7 ⊢ ((𝑃 ∈ ℙ ∧ 𝐸 ∈ ℕ) → ((𝑃 pCnt 𝐸) = 0 ↔ ¬ 𝑃 ∥ 𝐸))
15	5, 13, 14	syl2anc 582	. . . . . 6 ⊢ (𝜑 → ((𝑃 pCnt 𝐸) = 0 ↔ ¬ 𝑃 ∥ 𝐸))
16		oveq2 7419	. . . . . 6 ⊢ ((𝑃 pCnt 𝐸) = 0 → (𝑃↑(𝑃 pCnt 𝐸)) = (𝑃↑0))
17	15, 16	syl6bir 253	. . . . 5 ⊢ (𝜑 → (¬ 𝑃 ∥ 𝐸 → (𝑃↑(𝑃 pCnt 𝐸)) = (𝑃↑0)))
18	10	grpbn0 18887	. . . . . . . . . . . . 13 ⊢ (𝐺 ∈ Grp → 𝐵 ≠ ∅)
19	8, 18	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐵 ≠ ∅)
20		hashnncl 14330	. . . . . . . . . . . . 13 ⊢ (𝐵 ∈ Fin → ((♯‘𝐵) ∈ ℕ ↔ 𝐵 ≠ ∅))
21	9, 20	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → ((♯‘𝐵) ∈ ℕ ↔ 𝐵 ≠ ∅))
22	19, 21	mpbird 256	. . . . . . . . . . 11 ⊢ (𝜑 → (♯‘𝐵) ∈ ℕ)
23	5, 22	pccld 16787	. . . . . . . . . 10 ⊢ (𝜑 → (𝑃 pCnt (♯‘𝐵)) ∈ ℕ₀)
24	10, 11	gexdvds3 19499	. . . . . . . . . . . 12 ⊢ ((𝐺 ∈ Grp ∧ 𝐵 ∈ Fin) → 𝐸 ∥ (♯‘𝐵))
25	8, 9, 24	syl2anc 582	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐸 ∥ (♯‘𝐵))
26	10	pgphash 19516	. . . . . . . . . . . 12 ⊢ ((𝑃 pGrp 𝐺 ∧ 𝐵 ∈ Fin) → (♯‘𝐵) = (𝑃↑(𝑃 pCnt (♯‘𝐵))))
27	3, 9, 26	syl2anc 582	. . . . . . . . . . 11 ⊢ (𝜑 → (♯‘𝐵) = (𝑃↑(𝑃 pCnt (♯‘𝐵))))
28	25, 27	breqtrd 5173	. . . . . . . . . 10 ⊢ (𝜑 → 𝐸 ∥ (𝑃↑(𝑃 pCnt (♯‘𝐵))))
29		oveq2 7419	. . . . . . . . . . . 12 ⊢ (𝑘 = (𝑃 pCnt (♯‘𝐵)) → (𝑃↑𝑘) = (𝑃↑(𝑃 pCnt (♯‘𝐵))))
30	29	breq2d 5159	. . . . . . . . . . 11 ⊢ (𝑘 = (𝑃 pCnt (♯‘𝐵)) → (𝐸 ∥ (𝑃↑𝑘) ↔ 𝐸 ∥ (𝑃↑(𝑃 pCnt (♯‘𝐵)))))
31	30	rspcev 3611	. . . . . . . . . 10 ⊢ (((𝑃 pCnt (♯‘𝐵)) ∈ ℕ₀ ∧ 𝐸 ∥ (𝑃↑(𝑃 pCnt (♯‘𝐵)))) → ∃𝑘 ∈ ℕ₀ 𝐸 ∥ (𝑃↑𝑘))
32	23, 28, 31	syl2anc 582	. . . . . . . . 9 ⊢ (𝜑 → ∃𝑘 ∈ ℕ₀ 𝐸 ∥ (𝑃↑𝑘))
33		pcprmpw2 16819	. . . . . . . . . 10 ⊢ ((𝑃 ∈ ℙ ∧ 𝐸 ∈ ℕ) → (∃𝑘 ∈ ℕ₀ 𝐸 ∥ (𝑃↑𝑘) ↔ 𝐸 = (𝑃↑(𝑃 pCnt 𝐸))))
34	5, 13, 33	syl2anc 582	. . . . . . . . 9 ⊢ (𝜑 → (∃𝑘 ∈ ℕ₀ 𝐸 ∥ (𝑃↑𝑘) ↔ 𝐸 = (𝑃↑(𝑃 pCnt 𝐸))))
35	32, 34	mpbid 231	. . . . . . . 8 ⊢ (𝜑 → 𝐸 = (𝑃↑(𝑃 pCnt 𝐸)))
36	35	eqcomd 2736	. . . . . . 7 ⊢ (𝜑 → (𝑃↑(𝑃 pCnt 𝐸)) = 𝐸)
37		prmnn 16615	. . . . . . . . . 10 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
38	5, 37	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 𝑃 ∈ ℕ)
39	38	nncnd 12232	. . . . . . . 8 ⊢ (𝜑 → 𝑃 ∈ ℂ)
40	39	exp0d 14109	. . . . . . 7 ⊢ (𝜑 → (𝑃↑0) = 1)
41	36, 40	eqeq12d 2746	. . . . . 6 ⊢ (𝜑 → ((𝑃↑(𝑃 pCnt 𝐸)) = (𝑃↑0) ↔ 𝐸 = 1))
42	8	grpmndd 18868	. . . . . . 7 ⊢ (𝜑 → 𝐺 ∈ Mnd)
43	10, 11	gex1 19500	. . . . . . 7 ⊢ (𝐺 ∈ Mnd → (𝐸 = 1 ↔ 𝐵 ≈ 1_o))
44	42, 43	syl 17	. . . . . 6 ⊢ (𝜑 → (𝐸 = 1 ↔ 𝐵 ≈ 1_o))
45	41, 44	bitrd 278	. . . . 5 ⊢ (𝜑 → ((𝑃↑(𝑃 pCnt 𝐸)) = (𝑃↑0) ↔ 𝐵 ≈ 1_o))
46	17, 45	sylibd 238	. . . 4 ⊢ (𝜑 → (¬ 𝑃 ∥ 𝐸 → 𝐵 ≈ 1_o))
47		pgpfac1.s	. . . . . . . . . . 11 ⊢ 𝑆 = (𝐾‘{𝐴})
48	10	subgacs 19077	. . . . . . . . . . . . . 14 ⊢ (𝐺 ∈ Grp → (SubGrp‘𝐺) ∈ (ACS‘𝐵))
49	8, 48	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → (SubGrp‘𝐺) ∈ (ACS‘𝐵))
50	49	acsmred 17604	. . . . . . . . . . . 12 ⊢ (𝜑 → (SubGrp‘𝐺) ∈ (Moore‘𝐵))
51		pgpfac1.u	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑈 ∈ (SubGrp‘𝐺))
52	10	subgss 19043	. . . . . . . . . . . . . 14 ⊢ (𝑈 ∈ (SubGrp‘𝐺) → 𝑈 ⊆ 𝐵)
53	51, 52	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑈 ⊆ 𝐵)
54		pgpfac1.au	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐴 ∈ 𝑈)
55	53, 54	sseldd 3982	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐴 ∈ 𝐵)
56		pgpfac1.k	. . . . . . . . . . . . 13 ⊢ 𝐾 = (mrCls‘(SubGrp‘𝐺))
57	56	mrcsncl 17560	. . . . . . . . . . . 12 ⊢ (((SubGrp‘𝐺) ∈ (Moore‘𝐵) ∧ 𝐴 ∈ 𝐵) → (𝐾‘{𝐴}) ∈ (SubGrp‘𝐺))
58	50, 55, 57	syl2anc 582	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐾‘{𝐴}) ∈ (SubGrp‘𝐺))
59	47, 58	eqeltrid 2835	. . . . . . . . . 10 ⊢ (𝜑 → 𝑆 ∈ (SubGrp‘𝐺))
60		pgpfac1.w	. . . . . . . . . 10 ⊢ (𝜑 → 𝑊 ∈ (SubGrp‘𝐺))
61		pgpfac1.l	. . . . . . . . . . 11 ⊢ ⊕ = (LSSum‘𝐺)
62	61	lsmsubg2 19768	. . . . . . . . . 10 ⊢ ((𝐺 ∈ Abel ∧ 𝑆 ∈ (SubGrp‘𝐺) ∧ 𝑊 ∈ (SubGrp‘𝐺)) → (𝑆 ⊕ 𝑊) ∈ (SubGrp‘𝐺))
63	6, 59, 60, 62	syl3anc 1369	. . . . . . . . 9 ⊢ (𝜑 → (𝑆 ⊕ 𝑊) ∈ (SubGrp‘𝐺))
64		pgpfac1.z	. . . . . . . . . 10 ⊢ 0 = (0_g‘𝐺)
65	64	subg0cl 19050	. . . . . . . . 9 ⊢ ((𝑆 ⊕ 𝑊) ∈ (SubGrp‘𝐺) → 0 ∈ (𝑆 ⊕ 𝑊))
66	63, 65	syl 17	. . . . . . . 8 ⊢ (𝜑 → 0 ∈ (𝑆 ⊕ 𝑊))
67	66	snssd 4811	. . . . . . 7 ⊢ (𝜑 → { 0 } ⊆ (𝑆 ⊕ 𝑊))
68	67	adantr 479	. . . . . 6 ⊢ ((𝜑 ∧ 𝐵 ≈ 1_o) → { 0 } ⊆ (𝑆 ⊕ 𝑊))
69	1	eldifad 3959	. . . . . . . . 9 ⊢ (𝜑 → 𝐶 ∈ 𝑈)
70	53, 69	sseldd 3982	. . . . . . . 8 ⊢ (𝜑 → 𝐶 ∈ 𝐵)
71	70	adantr 479	. . . . . . 7 ⊢ ((𝜑 ∧ 𝐵 ≈ 1_o) → 𝐶 ∈ 𝐵)
72	10, 64	grpidcl 18886	. . . . . . . . 9 ⊢ (𝐺 ∈ Grp → 0 ∈ 𝐵)
73	8, 72	syl 17	. . . . . . . 8 ⊢ (𝜑 → 0 ∈ 𝐵)
74		en1eqsn 9276	. . . . . . . 8 ⊢ (( 0 ∈ 𝐵 ∧ 𝐵 ≈ 1_o) → 𝐵 = { 0 })
75	73, 74	sylan 578	. . . . . . 7 ⊢ ((𝜑 ∧ 𝐵 ≈ 1_o) → 𝐵 = { 0 })
76	71, 75	eleqtrd 2833	. . . . . 6 ⊢ ((𝜑 ∧ 𝐵 ≈ 1_o) → 𝐶 ∈ { 0 })
77	68, 76	sseldd 3982	. . . . 5 ⊢ ((𝜑 ∧ 𝐵 ≈ 1_o) → 𝐶 ∈ (𝑆 ⊕ 𝑊))
78	77	ex 411	. . . 4 ⊢ (𝜑 → (𝐵 ≈ 1_o → 𝐶 ∈ (𝑆 ⊕ 𝑊)))
79	46, 78	syld 47	. . 3 ⊢ (𝜑 → (¬ 𝑃 ∥ 𝐸 → 𝐶 ∈ (𝑆 ⊕ 𝑊)))
80	2, 79	mt3d 148	. 2 ⊢ (𝜑 → 𝑃 ∥ 𝐸)
81		pgpfac1.oe	. . . . 5 ⊢ (𝜑 → (𝑂‘𝐴) = 𝐸)
82	13	nncnd 12232	. . . . . 6 ⊢ (𝜑 → 𝐸 ∈ ℂ)
83	38	nnne0d 12266	. . . . . 6 ⊢ (𝜑 → 𝑃 ≠ 0)
84	82, 39, 83	divcan1d 11995	. . . . 5 ⊢ (𝜑 → ((𝐸 / 𝑃) · 𝑃) = 𝐸)
85	81, 84	eqtr4d 2773	. . . 4 ⊢ (𝜑 → (𝑂‘𝐴) = ((𝐸 / 𝑃) · 𝑃))
86		nndivdvds 16210	. . . . . . . . . . . . 13 ⊢ ((𝐸 ∈ ℕ ∧ 𝑃 ∈ ℕ) → (𝑃 ∥ 𝐸 ↔ (𝐸 / 𝑃) ∈ ℕ))
87	13, 38, 86	syl2anc 582	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑃 ∥ 𝐸 ↔ (𝐸 / 𝑃) ∈ ℕ))
88	80, 87	mpbid 231	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐸 / 𝑃) ∈ ℕ)
89	88	nnzd 12589	. . . . . . . . . 10 ⊢ (𝜑 → (𝐸 / 𝑃) ∈ ℤ)
90		pgpfac1.m	. . . . . . . . . 10 ⊢ (𝜑 → 𝑀 ∈ ℤ)
91	89, 90	zmulcld 12676	. . . . . . . . 9 ⊢ (𝜑 → ((𝐸 / 𝑃) · 𝑀) ∈ ℤ)
92	55	snssd 4811	. . . . . . . . . . . 12 ⊢ (𝜑 → {𝐴} ⊆ 𝐵)
93	50, 56, 92	mrcssidd 17573	. . . . . . . . . . 11 ⊢ (𝜑 → {𝐴} ⊆ (𝐾‘{𝐴}))
94	93, 47	sseqtrrdi 4032	. . . . . . . . . 10 ⊢ (𝜑 → {𝐴} ⊆ 𝑆)
95		snssg 4786	. . . . . . . . . . 11 ⊢ (𝐴 ∈ 𝑈 → (𝐴 ∈ 𝑆 ↔ {𝐴} ⊆ 𝑆))
96	54, 95	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (𝐴 ∈ 𝑆 ↔ {𝐴} ⊆ 𝑆))
97	94, 96	mpbird 256	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ 𝑆)
98		pgpfac1.mg	. . . . . . . . . 10 ⊢ · = (._g‘𝐺)
99	98	subgmulgcl 19055	. . . . . . . . 9 ⊢ ((𝑆 ∈ (SubGrp‘𝐺) ∧ ((𝐸 / 𝑃) · 𝑀) ∈ ℤ ∧ 𝐴 ∈ 𝑆) → (((𝐸 / 𝑃) · 𝑀) · 𝐴) ∈ 𝑆)
100	59, 91, 97, 99	syl3anc 1369	. . . . . . . 8 ⊢ (𝜑 → (((𝐸 / 𝑃) · 𝑀) · 𝐴) ∈ 𝑆)
101		prmz 16616	. . . . . . . . . . . . 13 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℤ)
102	5, 101	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑃 ∈ ℤ)
103	10, 98	mulgcl 19007	. . . . . . . . . . . 12 ⊢ ((𝐺 ∈ Grp ∧ 𝑃 ∈ ℤ ∧ 𝐶 ∈ 𝐵) → (𝑃 · 𝐶) ∈ 𝐵)
104	8, 102, 70, 103	syl3anc 1369	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑃 · 𝐶) ∈ 𝐵)
105	10, 98	mulgcl 19007	. . . . . . . . . . . 12 ⊢ ((𝐺 ∈ Grp ∧ 𝑀 ∈ ℤ ∧ 𝐴 ∈ 𝐵) → (𝑀 · 𝐴) ∈ 𝐵)
106	8, 90, 55, 105	syl3anc 1369	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑀 · 𝐴) ∈ 𝐵)
107		eqid 2730	. . . . . . . . . . . 12 ⊢ (+_g‘𝐺) = (+_g‘𝐺)
108	10, 98, 107	mulgdi 19735	. . . . . . . . . . 11 ⊢ ((𝐺 ∈ Abel ∧ ((𝐸 / 𝑃) ∈ ℤ ∧ (𝑃 · 𝐶) ∈ 𝐵 ∧ (𝑀 · 𝐴) ∈ 𝐵)) → ((𝐸 / 𝑃) · ((𝑃 · 𝐶)(+_g‘𝐺)(𝑀 · 𝐴))) = (((𝐸 / 𝑃) · (𝑃 · 𝐶))(+_g‘𝐺)((𝐸 / 𝑃) · (𝑀 · 𝐴))))
109	6, 89, 104, 106, 108	syl13anc 1370	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐸 / 𝑃) · ((𝑃 · 𝐶)(+_g‘𝐺)(𝑀 · 𝐴))) = (((𝐸 / 𝑃) · (𝑃 · 𝐶))(+_g‘𝐺)((𝐸 / 𝑃) · (𝑀 · 𝐴))))
110	84	oveq1d 7426	. . . . . . . . . . . 12 ⊢ (𝜑 → (((𝐸 / 𝑃) · 𝑃) · 𝐶) = (𝐸 · 𝐶))
111	10, 98	mulgass 19027	. . . . . . . . . . . . 13 ⊢ ((𝐺 ∈ Grp ∧ ((𝐸 / 𝑃) ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ 𝐶 ∈ 𝐵)) → (((𝐸 / 𝑃) · 𝑃) · 𝐶) = ((𝐸 / 𝑃) · (𝑃 · 𝐶)))
112	8, 89, 102, 70, 111	syl13anc 1370	. . . . . . . . . . . 12 ⊢ (𝜑 → (((𝐸 / 𝑃) · 𝑃) · 𝐶) = ((𝐸 / 𝑃) · (𝑃 · 𝐶)))
113	10, 11, 98, 64	gexid 19490	. . . . . . . . . . . . 13 ⊢ (𝐶 ∈ 𝐵 → (𝐸 · 𝐶) = 0 )
114	70, 113	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐸 · 𝐶) = 0 )
115	110, 112, 114	3eqtr3rd 2779	. . . . . . . . . . 11 ⊢ (𝜑 → 0 = ((𝐸 / 𝑃) · (𝑃 · 𝐶)))
116	10, 98	mulgass 19027	. . . . . . . . . . . 12 ⊢ ((𝐺 ∈ Grp ∧ ((𝐸 / 𝑃) ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝐴 ∈ 𝐵)) → (((𝐸 / 𝑃) · 𝑀) · 𝐴) = ((𝐸 / 𝑃) · (𝑀 · 𝐴)))
117	8, 89, 90, 55, 116	syl13anc 1370	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐸 / 𝑃) · 𝑀) · 𝐴) = ((𝐸 / 𝑃) · (𝑀 · 𝐴)))
118	115, 117	oveq12d 7429	. . . . . . . . . 10 ⊢ (𝜑 → ( 0 (+_g‘𝐺)(((𝐸 / 𝑃) · 𝑀) · 𝐴)) = (((𝐸 / 𝑃) · (𝑃 · 𝐶))(+_g‘𝐺)((𝐸 / 𝑃) · (𝑀 · 𝐴))))
119	10	subgss 19043	. . . . . . . . . . . . 13 ⊢ (𝑆 ∈ (SubGrp‘𝐺) → 𝑆 ⊆ 𝐵)
120	59, 119	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑆 ⊆ 𝐵)
121	120, 100	sseldd 3982	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐸 / 𝑃) · 𝑀) · 𝐴) ∈ 𝐵)
122	10, 107, 64	grplid 18888	. . . . . . . . . . 11 ⊢ ((𝐺 ∈ Grp ∧ (((𝐸 / 𝑃) · 𝑀) · 𝐴) ∈ 𝐵) → ( 0 (+_g‘𝐺)(((𝐸 / 𝑃) · 𝑀) · 𝐴)) = (((𝐸 / 𝑃) · 𝑀) · 𝐴))
123	8, 121, 122	syl2anc 582	. . . . . . . . . 10 ⊢ (𝜑 → ( 0 (+_g‘𝐺)(((𝐸 / 𝑃) · 𝑀) · 𝐴)) = (((𝐸 / 𝑃) · 𝑀) · 𝐴))
124	109, 118, 123	3eqtr2d 2776	. . . . . . . . 9 ⊢ (𝜑 → ((𝐸 / 𝑃) · ((𝑃 · 𝐶)(+_g‘𝐺)(𝑀 · 𝐴))) = (((𝐸 / 𝑃) · 𝑀) · 𝐴))
125		pgpfac1.mw	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑃 · 𝐶)(+_g‘𝐺)(𝑀 · 𝐴)) ∈ 𝑊)
126	98	subgmulgcl 19055	. . . . . . . . . 10 ⊢ ((𝑊 ∈ (SubGrp‘𝐺) ∧ (𝐸 / 𝑃) ∈ ℤ ∧ ((𝑃 · 𝐶)(+_g‘𝐺)(𝑀 · 𝐴)) ∈ 𝑊) → ((𝐸 / 𝑃) · ((𝑃 · 𝐶)(+_g‘𝐺)(𝑀 · 𝐴))) ∈ 𝑊)
127	60, 89, 125, 126	syl3anc 1369	. . . . . . . . 9 ⊢ (𝜑 → ((𝐸 / 𝑃) · ((𝑃 · 𝐶)(+_g‘𝐺)(𝑀 · 𝐴))) ∈ 𝑊)
128	124, 127	eqeltrrd 2832	. . . . . . . 8 ⊢ (𝜑 → (((𝐸 / 𝑃) · 𝑀) · 𝐴) ∈ 𝑊)
129	100, 128	elind 4193	. . . . . . 7 ⊢ (𝜑 → (((𝐸 / 𝑃) · 𝑀) · 𝐴) ∈ (𝑆 ∩ 𝑊))
130		pgpfac1.i	. . . . . . 7 ⊢ (𝜑 → (𝑆 ∩ 𝑊) = { 0 })
131	129, 130	eleqtrd 2833	. . . . . 6 ⊢ (𝜑 → (((𝐸 / 𝑃) · 𝑀) · 𝐴) ∈ { 0 })
132		elsni 4644	. . . . . 6 ⊢ ((((𝐸 / 𝑃) · 𝑀) · 𝐴) ∈ { 0 } → (((𝐸 / 𝑃) · 𝑀) · 𝐴) = 0 )
133	131, 132	syl 17	. . . . 5 ⊢ (𝜑 → (((𝐸 / 𝑃) · 𝑀) · 𝐴) = 0 )
134		pgpfac1.o	. . . . . . 7 ⊢ 𝑂 = (od‘𝐺)
135	10, 134, 98, 64	oddvds 19456	. . . . . 6 ⊢ ((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝐵 ∧ ((𝐸 / 𝑃) · 𝑀) ∈ ℤ) → ((𝑂‘𝐴) ∥ ((𝐸 / 𝑃) · 𝑀) ↔ (((𝐸 / 𝑃) · 𝑀) · 𝐴) = 0 ))
136	8, 55, 91, 135	syl3anc 1369	. . . . 5 ⊢ (𝜑 → ((𝑂‘𝐴) ∥ ((𝐸 / 𝑃) · 𝑀) ↔ (((𝐸 / 𝑃) · 𝑀) · 𝐴) = 0 ))
137	133, 136	mpbird 256	. . . 4 ⊢ (𝜑 → (𝑂‘𝐴) ∥ ((𝐸 / 𝑃) · 𝑀))
138	85, 137	eqbrtrrd 5171	. . 3 ⊢ (𝜑 → ((𝐸 / 𝑃) · 𝑃) ∥ ((𝐸 / 𝑃) · 𝑀))
139	88	nnne0d 12266	. . . 4 ⊢ (𝜑 → (𝐸 / 𝑃) ≠ 0)
140		dvdscmulr 16232	. . . 4 ⊢ ((𝑃 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ ((𝐸 / 𝑃) ∈ ℤ ∧ (𝐸 / 𝑃) ≠ 0)) → (((𝐸 / 𝑃) · 𝑃) ∥ ((𝐸 / 𝑃) · 𝑀) ↔ 𝑃 ∥ 𝑀))
141	102, 90, 89, 139, 140	syl112anc 1372	. . 3 ⊢ (𝜑 → (((𝐸 / 𝑃) · 𝑃) ∥ ((𝐸 / 𝑃) · 𝑀) ↔ 𝑃 ∥ 𝑀))
142	138, 141	mpbid 231	. 2 ⊢ (𝜑 → 𝑃 ∥ 𝑀)
143	80, 142	jca 510	1 ⊢ (𝜑 → (𝑃 ∥ 𝐸 ∧ 𝑃 ∥ 𝑀))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 205 ∧ wa 394 = wceq 1539 ∈ wcel 2104 ≠ wne 2938 ∀wral 3059 ∃wrex 3068 ∖ cdif 3944 ∩ cin 3946 ⊆ wss 3947 ⊊ wpss 3948 ∅c0 4321 {csn 4627 class class class wbr 5147 ‘cfv 6542 (class class class)co 7411 1_oc1o 8461 ≈ cen 8938 Fincfn 8941 0cc0 11112 1c1 11113 · cmul 11117 / cdiv 11875 ℕcn 12216 ℕ₀cn0 12476 ℤcz 12562 ↑cexp 14031 ♯chash 14294 ∥ cdvds 16201 ℙcprime 16612 pCnt cpc 16773 Basecbs 17148 +_gcplusg 17201 0_gc0g 17389 Moorecmre 17530 mrClscmrc 17531 ACScacs 17533 Mndcmnd 18659 Grpcgrp 18855 ._gcmg 18986 SubGrpcsubg 19036 odcod 19433 gExcgex 19434 pGrp cpgp 19435 LSSumclsm 19543 Abelcabl 19690

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 1911 ax-6 1969 ax-7 2009 ax-8 2106 ax-9 2114 ax-10 2135 ax-11 2152 ax-12 2169 ax-ext 2701 ax-rep 5284 ax-sep 5298 ax-nul 5305 ax-pow 5362 ax-pr 5426 ax-un 7727 ax-inf2 9638 ax-cnex 11168 ax-resscn 11169 ax-1cn 11170 ax-icn 11171 ax-addcl 11172 ax-addrcl 11173 ax-mulcl 11174 ax-mulrcl 11175 ax-mulcom 11176 ax-addass 11177 ax-mulass 11178 ax-distr 11179 ax-i2m1 11180 ax-1ne0 11181 ax-1rid 11182 ax-rnegex 11183 ax-rrecex 11184 ax-cnre 11185 ax-pre-lttri 11186 ax-pre-lttrn 11187 ax-pre-ltadd 11188 ax-pre-mulgt0 11189 ax-pre-sup 11190

This theorem depends on definitions: df-bi 206 df-an 395 df-or 844 df-3or 1086 df-3an 1087 df-tru 1542 df-fal 1552 df-ex 1780 df-nf 1784 df-sb 2066 df-mo 2532 df-eu 2561 df-clab 2708 df-cleq 2722 df-clel 2808 df-nfc 2883 df-ne 2939 df-nel 3045 df-ral 3060 df-rex 3069 df-rmo 3374 df-reu 3375 df-rab 3431 df-v 3474 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 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 7367 df-ov 7414 df-oprab 7415 df-mpo 7416 df-om 7858 df-1st 7977 df-2nd 7978 df-frecs 8268 df-wrecs 8299 df-recs 8373 df-rdg 8412 df-1o 8468 df-2o 8469 df-oadd 8472 df-omul 8473 df-er 8705 df-ec 8707 df-qs 8711 df-map 8824 df-en 8942 df-dom 8943 df-sdom 8944 df-fin 8945 df-sup 9439 df-inf 9440 df-oi 9507 df-dju 9898 df-card 9936 df-acn 9939 df-pnf 11254 df-mnf 11255 df-xr 11256 df-ltxr 11257 df-le 11258 df-sub 11450 df-neg 11451 df-div 11876 df-nn 12217 df-2 12279 df-3 12280 df-n0 12477 df-xnn0 12549 df-z 12563 df-uz 12827 df-q 12937 df-rp 12979 df-fz 13489 df-fzo 13632 df-fl 13761 df-mod 13839 df-seq 13971 df-exp 14032 df-fac 14238 df-bc 14267 df-hash 14295 df-cj 15050 df-re 15051 df-im 15052 df-sqrt 15186 df-abs 15187 df-clim 15436 df-sum 15637 df-dvds 16202 df-gcd 16440 df-prm 16613 df-pc 16774 df-sets 17101 df-slot 17119 df-ndx 17131 df-base 17149 df-ress 17178 df-plusg 17214 df-0g 17391 df-mre 17534 df-mrc 17535 df-acs 17537 df-mgm 18565 df-sgrp 18644 df-mnd 18660 df-submnd 18706 df-grp 18858 df-minusg 18859 df-sbg 18860 df-mulg 18987 df-subg 19039 df-eqg 19041 df-ga 19195 df-cntz 19222 df-od 19437 df-gex 19438 df-pgp 19439 df-lsm 19545 df-cmn 19691 df-abl 19692

This theorem is referenced by: pgpfac1lem3 19988

W3C validator