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

Theorem gexexlem 18475
Description: Lemma for gexex 18476. (Contributed by Mario Carneiro, 24-Apr-2016.)
Hypotheses
Ref Expression
gexex.1 𝑋 = (Base‘𝐺)
gexex.2 𝐸 = (gEx‘𝐺)
gexex.3 𝑂 = (od‘𝐺)
gexexlem.1 (𝜑𝐺 ∈ Abel)
gexexlem.2 (𝜑𝐸 ∈ ℕ)
gexexlem.3 (𝜑𝐴𝑋)
gexexlem.4 ((𝜑𝑦𝑋) → (𝑂𝑦) ≤ (𝑂𝐴))
Assertion
Ref Expression
gexexlem (𝜑 → (𝑂𝐴) = 𝐸)
Distinct variable groups:   𝑦,𝐴   𝑦,𝐸   𝑦,𝐺   𝑦,𝑂   𝜑,𝑦   𝑦,𝑋

Proof of Theorem gexexlem
Dummy variables 𝑥 𝑝 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 gexexlem.3 . . 3 (𝜑𝐴𝑋)
2 gexex.1 . . . 4 𝑋 = (Base‘𝐺)
3 gexex.3 . . . 4 𝑂 = (od‘𝐺)
42, 3odcl 18175 . . 3 (𝐴𝑋 → (𝑂𝐴) ∈ ℕ0)
51, 4syl 17 . 2 (𝜑 → (𝑂𝐴) ∈ ℕ0)
6 gexexlem.2 . . 3 (𝜑𝐸 ∈ ℕ)
76nnnn0d 11563 . 2 (𝜑𝐸 ∈ ℕ0)
8 gexexlem.1 . . . 4 (𝜑𝐺 ∈ Abel)
9 ablgrp 18418 . . . 4 (𝐺 ∈ Abel → 𝐺 ∈ Grp)
108, 9syl 17 . . 3 (𝜑𝐺 ∈ Grp)
11 gexex.2 . . . 4 𝐸 = (gEx‘𝐺)
122, 11, 3gexod 18221 . . 3 ((𝐺 ∈ Grp ∧ 𝐴𝑋) → (𝑂𝐴) ∥ 𝐸)
1310, 1, 12syl2anc 696 . 2 (𝜑 → (𝑂𝐴) ∥ 𝐸)
148ad2antrr 764 . . . . . . . . . . . 12 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → 𝐺 ∈ Abel)
1510ad2antrr 764 . . . . . . . . . . . . 13 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → 𝐺 ∈ Grp)
16 prmnn 15610 . . . . . . . . . . . . . . . 16 (𝑝 ∈ ℙ → 𝑝 ∈ ℕ)
1716adantl 473 . . . . . . . . . . . . . . 15 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → 𝑝 ∈ ℕ)
18 simpr 479 . . . . . . . . . . . . . . . 16 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → 𝑝 ∈ ℙ)
196ad2antrr 764 . . . . . . . . . . . . . . . . 17 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → 𝐸 ∈ ℕ)
201ad2antrr 764 . . . . . . . . . . . . . . . . 17 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → 𝐴𝑋)
212, 11, 3gexnnod 18223 . . . . . . . . . . . . . . . . 17 ((𝐺 ∈ Grp ∧ 𝐸 ∈ ℕ ∧ 𝐴𝑋) → (𝑂𝐴) ∈ ℕ)
2215, 19, 20, 21syl3anc 1477 . . . . . . . . . . . . . . . 16 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (𝑂𝐴) ∈ ℕ)
2318, 22pccld 15777 . . . . . . . . . . . . . . 15 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (𝑂𝐴)) ∈ ℕ0)
2417, 23nnexpcld 13244 . . . . . . . . . . . . . 14 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (𝑝↑(𝑝 pCnt (𝑂𝐴))) ∈ ℕ)
2524nnzd 11693 . . . . . . . . . . . . 13 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (𝑝↑(𝑝 pCnt (𝑂𝐴))) ∈ ℤ)
26 eqid 2760 . . . . . . . . . . . . . 14 (.g𝐺) = (.g𝐺)
272, 26mulgcl 17780 . . . . . . . . . . . . 13 ((𝐺 ∈ Grp ∧ (𝑝↑(𝑝 pCnt (𝑂𝐴))) ∈ ℤ ∧ 𝐴𝑋) → ((𝑝↑(𝑝 pCnt (𝑂𝐴)))(.g𝐺)𝐴) ∈ 𝑋)
2815, 25, 20, 27syl3anc 1477 . . . . . . . . . . . 12 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → ((𝑝↑(𝑝 pCnt (𝑂𝐴)))(.g𝐺)𝐴) ∈ 𝑋)
29 simplr 809 . . . . . . . . . . . . . . . . 17 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → 𝑥𝑋)
302, 11, 3gexnnod 18223 . . . . . . . . . . . . . . . . 17 ((𝐺 ∈ Grp ∧ 𝐸 ∈ ℕ ∧ 𝑥𝑋) → (𝑂𝑥) ∈ ℕ)
3115, 19, 29, 30syl3anc 1477 . . . . . . . . . . . . . . . 16 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (𝑂𝑥) ∈ ℕ)
32 pcdvds 15790 . . . . . . . . . . . . . . . 16 ((𝑝 ∈ ℙ ∧ (𝑂𝑥) ∈ ℕ) → (𝑝↑(𝑝 pCnt (𝑂𝑥))) ∥ (𝑂𝑥))
3318, 31, 32syl2anc 696 . . . . . . . . . . . . . . 15 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (𝑝↑(𝑝 pCnt (𝑂𝑥))) ∥ (𝑂𝑥))
3418, 31pccld 15777 . . . . . . . . . . . . . . . . 17 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (𝑂𝑥)) ∈ ℕ0)
3517, 34nnexpcld 13244 . . . . . . . . . . . . . . . 16 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (𝑝↑(𝑝 pCnt (𝑂𝑥))) ∈ ℕ)
36 nndivdvds 15211 . . . . . . . . . . . . . . . 16 (((𝑂𝑥) ∈ ℕ ∧ (𝑝↑(𝑝 pCnt (𝑂𝑥))) ∈ ℕ) → ((𝑝↑(𝑝 pCnt (𝑂𝑥))) ∥ (𝑂𝑥) ↔ ((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥)))) ∈ ℕ))
3731, 35, 36syl2anc 696 . . . . . . . . . . . . . . 15 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → ((𝑝↑(𝑝 pCnt (𝑂𝑥))) ∥ (𝑂𝑥) ↔ ((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥)))) ∈ ℕ))
3833, 37mpbid 222 . . . . . . . . . . . . . 14 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → ((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥)))) ∈ ℕ)
3938nnzd 11693 . . . . . . . . . . . . 13 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → ((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥)))) ∈ ℤ)
402, 26mulgcl 17780 . . . . . . . . . . . . 13 ((𝐺 ∈ Grp ∧ ((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥)))) ∈ ℤ ∧ 𝑥𝑋) → (((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥))))(.g𝐺)𝑥) ∈ 𝑋)
4115, 39, 29, 40syl3anc 1477 . . . . . . . . . . . 12 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥))))(.g𝐺)𝑥) ∈ 𝑋)
422, 3, 26odmulg 18193 . . . . . . . . . . . . . . . . . 18 ((𝐺 ∈ Grp ∧ 𝐴𝑋 ∧ (𝑝↑(𝑝 pCnt (𝑂𝐴))) ∈ ℤ) → (𝑂𝐴) = (((𝑝↑(𝑝 pCnt (𝑂𝐴))) gcd (𝑂𝐴)) · (𝑂‘((𝑝↑(𝑝 pCnt (𝑂𝐴)))(.g𝐺)𝐴))))
4315, 20, 25, 42syl3anc 1477 . . . . . . . . . . . . . . . . 17 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (𝑂𝐴) = (((𝑝↑(𝑝 pCnt (𝑂𝐴))) gcd (𝑂𝐴)) · (𝑂‘((𝑝↑(𝑝 pCnt (𝑂𝐴)))(.g𝐺)𝐴))))
44 pcdvds 15790 . . . . . . . . . . . . . . . . . . . 20 ((𝑝 ∈ ℙ ∧ (𝑂𝐴) ∈ ℕ) → (𝑝↑(𝑝 pCnt (𝑂𝐴))) ∥ (𝑂𝐴))
4518, 22, 44syl2anc 696 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (𝑝↑(𝑝 pCnt (𝑂𝐴))) ∥ (𝑂𝐴))
46 gcdeq 15494 . . . . . . . . . . . . . . . . . . . 20 (((𝑝↑(𝑝 pCnt (𝑂𝐴))) ∈ ℕ ∧ (𝑂𝐴) ∈ ℕ) → (((𝑝↑(𝑝 pCnt (𝑂𝐴))) gcd (𝑂𝐴)) = (𝑝↑(𝑝 pCnt (𝑂𝐴))) ↔ (𝑝↑(𝑝 pCnt (𝑂𝐴))) ∥ (𝑂𝐴)))
4724, 22, 46syl2anc 696 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (((𝑝↑(𝑝 pCnt (𝑂𝐴))) gcd (𝑂𝐴)) = (𝑝↑(𝑝 pCnt (𝑂𝐴))) ↔ (𝑝↑(𝑝 pCnt (𝑂𝐴))) ∥ (𝑂𝐴)))
4845, 47mpbird 247 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → ((𝑝↑(𝑝 pCnt (𝑂𝐴))) gcd (𝑂𝐴)) = (𝑝↑(𝑝 pCnt (𝑂𝐴))))
4948oveq1d 6829 . . . . . . . . . . . . . . . . 17 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (((𝑝↑(𝑝 pCnt (𝑂𝐴))) gcd (𝑂𝐴)) · (𝑂‘((𝑝↑(𝑝 pCnt (𝑂𝐴)))(.g𝐺)𝐴))) = ((𝑝↑(𝑝 pCnt (𝑂𝐴))) · (𝑂‘((𝑝↑(𝑝 pCnt (𝑂𝐴)))(.g𝐺)𝐴))))
5043, 49eqtrd 2794 . . . . . . . . . . . . . . . 16 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (𝑂𝐴) = ((𝑝↑(𝑝 pCnt (𝑂𝐴))) · (𝑂‘((𝑝↑(𝑝 pCnt (𝑂𝐴)))(.g𝐺)𝐴))))
5150oveq1d 6829 . . . . . . . . . . . . . . 15 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → ((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴)))) = (((𝑝↑(𝑝 pCnt (𝑂𝐴))) · (𝑂‘((𝑝↑(𝑝 pCnt (𝑂𝐴)))(.g𝐺)𝐴))) / (𝑝↑(𝑝 pCnt (𝑂𝐴)))))
522, 11, 3gexnnod 18223 . . . . . . . . . . . . . . . . . 18 ((𝐺 ∈ Grp ∧ 𝐸 ∈ ℕ ∧ ((𝑝↑(𝑝 pCnt (𝑂𝐴)))(.g𝐺)𝐴) ∈ 𝑋) → (𝑂‘((𝑝↑(𝑝 pCnt (𝑂𝐴)))(.g𝐺)𝐴)) ∈ ℕ)
5315, 19, 28, 52syl3anc 1477 . . . . . . . . . . . . . . . . 17 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (𝑂‘((𝑝↑(𝑝 pCnt (𝑂𝐴)))(.g𝐺)𝐴)) ∈ ℕ)
5453nncnd 11248 . . . . . . . . . . . . . . . 16 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (𝑂‘((𝑝↑(𝑝 pCnt (𝑂𝐴)))(.g𝐺)𝐴)) ∈ ℂ)
5524nncnd 11248 . . . . . . . . . . . . . . . 16 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (𝑝↑(𝑝 pCnt (𝑂𝐴))) ∈ ℂ)
5624nnne0d 11277 . . . . . . . . . . . . . . . 16 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (𝑝↑(𝑝 pCnt (𝑂𝐴))) ≠ 0)
5754, 55, 56divcan3d 11018 . . . . . . . . . . . . . . 15 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (((𝑝↑(𝑝 pCnt (𝑂𝐴))) · (𝑂‘((𝑝↑(𝑝 pCnt (𝑂𝐴)))(.g𝐺)𝐴))) / (𝑝↑(𝑝 pCnt (𝑂𝐴)))) = (𝑂‘((𝑝↑(𝑝 pCnt (𝑂𝐴)))(.g𝐺)𝐴)))
5851, 57eqtr2d 2795 . . . . . . . . . . . . . 14 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (𝑂‘((𝑝↑(𝑝 pCnt (𝑂𝐴)))(.g𝐺)𝐴)) = ((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴)))))
592, 11, 3gexnnod 18223 . . . . . . . . . . . . . . . . 17 ((𝐺 ∈ Grp ∧ 𝐸 ∈ ℕ ∧ (((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥))))(.g𝐺)𝑥) ∈ 𝑋) → (𝑂‘(((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥))))(.g𝐺)𝑥)) ∈ ℕ)
6015, 19, 41, 59syl3anc 1477 . . . . . . . . . . . . . . . 16 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (𝑂‘(((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥))))(.g𝐺)𝑥)) ∈ ℕ)
6160nncnd 11248 . . . . . . . . . . . . . . 15 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (𝑂‘(((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥))))(.g𝐺)𝑥)) ∈ ℂ)
6235nncnd 11248 . . . . . . . . . . . . . . 15 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (𝑝↑(𝑝 pCnt (𝑂𝑥))) ∈ ℂ)
6338nncnd 11248 . . . . . . . . . . . . . . 15 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → ((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥)))) ∈ ℂ)
6438nnne0d 11277 . . . . . . . . . . . . . . 15 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → ((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥)))) ≠ 0)
6531nncnd 11248 . . . . . . . . . . . . . . . . 17 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (𝑂𝑥) ∈ ℂ)
6635nnne0d 11277 . . . . . . . . . . . . . . . . 17 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (𝑝↑(𝑝 pCnt (𝑂𝑥))) ≠ 0)
6765, 62, 66divcan1d 11014 . . . . . . . . . . . . . . . 16 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥)))) · (𝑝↑(𝑝 pCnt (𝑂𝑥)))) = (𝑂𝑥))
682, 3, 26odmulg 18193 . . . . . . . . . . . . . . . . 17 ((𝐺 ∈ Grp ∧ 𝑥𝑋 ∧ ((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥)))) ∈ ℤ) → (𝑂𝑥) = ((((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥)))) gcd (𝑂𝑥)) · (𝑂‘(((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥))))(.g𝐺)𝑥))))
6915, 29, 39, 68syl3anc 1477 . . . . . . . . . . . . . . . 16 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (𝑂𝑥) = ((((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥)))) gcd (𝑂𝑥)) · (𝑂‘(((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥))))(.g𝐺)𝑥))))
7035nnzd 11693 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (𝑝↑(𝑝 pCnt (𝑂𝑥))) ∈ ℤ)
71 dvdsmul1 15225 . . . . . . . . . . . . . . . . . . . 20 ((((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥)))) ∈ ℤ ∧ (𝑝↑(𝑝 pCnt (𝑂𝑥))) ∈ ℤ) → ((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥)))) ∥ (((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥)))) · (𝑝↑(𝑝 pCnt (𝑂𝑥)))))
7239, 70, 71syl2anc 696 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → ((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥)))) ∥ (((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥)))) · (𝑝↑(𝑝 pCnt (𝑂𝑥)))))
7372, 67breqtrd 4830 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → ((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥)))) ∥ (𝑂𝑥))
74 gcdeq 15494 . . . . . . . . . . . . . . . . . . 19 ((((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥)))) ∈ ℕ ∧ (𝑂𝑥) ∈ ℕ) → ((((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥)))) gcd (𝑂𝑥)) = ((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥)))) ↔ ((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥)))) ∥ (𝑂𝑥)))
7538, 31, 74syl2anc 696 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → ((((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥)))) gcd (𝑂𝑥)) = ((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥)))) ↔ ((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥)))) ∥ (𝑂𝑥)))
7673, 75mpbird 247 . . . . . . . . . . . . . . . . 17 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥)))) gcd (𝑂𝑥)) = ((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥)))))
7776oveq1d 6829 . . . . . . . . . . . . . . . 16 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → ((((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥)))) gcd (𝑂𝑥)) · (𝑂‘(((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥))))(.g𝐺)𝑥))) = (((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥)))) · (𝑂‘(((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥))))(.g𝐺)𝑥))))
7867, 69, 773eqtrrd 2799 . . . . . . . . . . . . . . 15 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥)))) · (𝑂‘(((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥))))(.g𝐺)𝑥))) = (((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥)))) · (𝑝↑(𝑝 pCnt (𝑂𝑥)))))
7961, 62, 63, 64, 78mulcanad 10874 . . . . . . . . . . . . . 14 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (𝑂‘(((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥))))(.g𝐺)𝑥)) = (𝑝↑(𝑝 pCnt (𝑂𝑥))))
8058, 79oveq12d 6832 . . . . . . . . . . . . 13 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → ((𝑂‘((𝑝↑(𝑝 pCnt (𝑂𝐴)))(.g𝐺)𝐴)) gcd (𝑂‘(((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥))))(.g𝐺)𝑥))) = (((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴)))) gcd (𝑝↑(𝑝 pCnt (𝑂𝑥)))))
81 nndivdvds 15211 . . . . . . . . . . . . . . . . 17 (((𝑂𝐴) ∈ ℕ ∧ (𝑝↑(𝑝 pCnt (𝑂𝐴))) ∈ ℕ) → ((𝑝↑(𝑝 pCnt (𝑂𝐴))) ∥ (𝑂𝐴) ↔ ((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴)))) ∈ ℕ))
8222, 24, 81syl2anc 696 . . . . . . . . . . . . . . . 16 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → ((𝑝↑(𝑝 pCnt (𝑂𝐴))) ∥ (𝑂𝐴) ↔ ((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴)))) ∈ ℕ))
8345, 82mpbid 222 . . . . . . . . . . . . . . 15 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → ((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴)))) ∈ ℕ)
8483nnzd 11693 . . . . . . . . . . . . . 14 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → ((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴)))) ∈ ℤ)
85 gcdcom 15457 . . . . . . . . . . . . . 14 ((((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴)))) ∈ ℤ ∧ (𝑝↑(𝑝 pCnt (𝑂𝑥))) ∈ ℤ) → (((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴)))) gcd (𝑝↑(𝑝 pCnt (𝑂𝑥)))) = ((𝑝↑(𝑝 pCnt (𝑂𝑥))) gcd ((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴))))))
8684, 70, 85syl2anc 696 . . . . . . . . . . . . 13 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴)))) gcd (𝑝↑(𝑝 pCnt (𝑂𝑥)))) = ((𝑝↑(𝑝 pCnt (𝑂𝑥))) gcd ((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴))))))
87 pcndvds2 15794 . . . . . . . . . . . . . . . 16 ((𝑝 ∈ ℙ ∧ (𝑂𝐴) ∈ ℕ) → ¬ 𝑝 ∥ ((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴)))))
8818, 22, 87syl2anc 696 . . . . . . . . . . . . . . 15 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → ¬ 𝑝 ∥ ((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴)))))
89 coprm 15645 . . . . . . . . . . . . . . . 16 ((𝑝 ∈ ℙ ∧ ((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴)))) ∈ ℤ) → (¬ 𝑝 ∥ ((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴)))) ↔ (𝑝 gcd ((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴))))) = 1))
9018, 84, 89syl2anc 696 . . . . . . . . . . . . . . 15 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (¬ 𝑝 ∥ ((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴)))) ↔ (𝑝 gcd ((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴))))) = 1))
9188, 90mpbid 222 . . . . . . . . . . . . . 14 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (𝑝 gcd ((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴))))) = 1)
92 prmz 15611 . . . . . . . . . . . . . . . 16 (𝑝 ∈ ℙ → 𝑝 ∈ ℤ)
9392adantl 473 . . . . . . . . . . . . . . 15 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → 𝑝 ∈ ℤ)
94 rpexp1i 15655 . . . . . . . . . . . . . . 15 ((𝑝 ∈ ℤ ∧ ((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴)))) ∈ ℤ ∧ (𝑝 pCnt (𝑂𝑥)) ∈ ℕ0) → ((𝑝 gcd ((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴))))) = 1 → ((𝑝↑(𝑝 pCnt (𝑂𝑥))) gcd ((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴))))) = 1))
9593, 84, 34, 94syl3anc 1477 . . . . . . . . . . . . . 14 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → ((𝑝 gcd ((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴))))) = 1 → ((𝑝↑(𝑝 pCnt (𝑂𝑥))) gcd ((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴))))) = 1))
9691, 95mpd 15 . . . . . . . . . . . . 13 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → ((𝑝↑(𝑝 pCnt (𝑂𝑥))) gcd ((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴))))) = 1)
9780, 86, 963eqtrd 2798 . . . . . . . . . . . 12 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → ((𝑂‘((𝑝↑(𝑝 pCnt (𝑂𝐴)))(.g𝐺)𝐴)) gcd (𝑂‘(((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥))))(.g𝐺)𝑥))) = 1)
98 eqid 2760 . . . . . . . . . . . . 13 (+g𝐺) = (+g𝐺)
993, 2, 98odadd 18473 . . . . . . . . . . . 12 (((𝐺 ∈ Abel ∧ ((𝑝↑(𝑝 pCnt (𝑂𝐴)))(.g𝐺)𝐴) ∈ 𝑋 ∧ (((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥))))(.g𝐺)𝑥) ∈ 𝑋) ∧ ((𝑂‘((𝑝↑(𝑝 pCnt (𝑂𝐴)))(.g𝐺)𝐴)) gcd (𝑂‘(((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥))))(.g𝐺)𝑥))) = 1) → (𝑂‘(((𝑝↑(𝑝 pCnt (𝑂𝐴)))(.g𝐺)𝐴)(+g𝐺)(((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥))))(.g𝐺)𝑥))) = ((𝑂‘((𝑝↑(𝑝 pCnt (𝑂𝐴)))(.g𝐺)𝐴)) · (𝑂‘(((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥))))(.g𝐺)𝑥))))
10014, 28, 41, 97, 99syl31anc 1480 . . . . . . . . . . 11 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (𝑂‘(((𝑝↑(𝑝 pCnt (𝑂𝐴)))(.g𝐺)𝐴)(+g𝐺)(((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥))))(.g𝐺)𝑥))) = ((𝑂‘((𝑝↑(𝑝 pCnt (𝑂𝐴)))(.g𝐺)𝐴)) · (𝑂‘(((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥))))(.g𝐺)𝑥))))
10158, 79oveq12d 6832 . . . . . . . . . . 11 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → ((𝑂‘((𝑝↑(𝑝 pCnt (𝑂𝐴)))(.g𝐺)𝐴)) · (𝑂‘(((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥))))(.g𝐺)𝑥))) = (((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴)))) · (𝑝↑(𝑝 pCnt (𝑂𝑥)))))
102100, 101eqtrd 2794 . . . . . . . . . 10 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (𝑂‘(((𝑝↑(𝑝 pCnt (𝑂𝐴)))(.g𝐺)𝐴)(+g𝐺)(((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥))))(.g𝐺)𝑥))) = (((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴)))) · (𝑝↑(𝑝 pCnt (𝑂𝑥)))))
103 fveq2 6353 . . . . . . . . . . . 12 (𝑦 = (((𝑝↑(𝑝 pCnt (𝑂𝐴)))(.g𝐺)𝐴)(+g𝐺)(((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥))))(.g𝐺)𝑥)) → (𝑂𝑦) = (𝑂‘(((𝑝↑(𝑝 pCnt (𝑂𝐴)))(.g𝐺)𝐴)(+g𝐺)(((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥))))(.g𝐺)𝑥))))
104103breq1d 4814 . . . . . . . . . . 11 (𝑦 = (((𝑝↑(𝑝 pCnt (𝑂𝐴)))(.g𝐺)𝐴)(+g𝐺)(((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥))))(.g𝐺)𝑥)) → ((𝑂𝑦) ≤ (𝑂𝐴) ↔ (𝑂‘(((𝑝↑(𝑝 pCnt (𝑂𝐴)))(.g𝐺)𝐴)(+g𝐺)(((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥))))(.g𝐺)𝑥))) ≤ (𝑂𝐴)))
105 gexexlem.4 . . . . . . . . . . . . 13 ((𝜑𝑦𝑋) → (𝑂𝑦) ≤ (𝑂𝐴))
106105ralrimiva 3104 . . . . . . . . . . . 12 (𝜑 → ∀𝑦𝑋 (𝑂𝑦) ≤ (𝑂𝐴))
107106ad2antrr 764 . . . . . . . . . . 11 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → ∀𝑦𝑋 (𝑂𝑦) ≤ (𝑂𝐴))
1082, 98grpcl 17651 . . . . . . . . . . . 12 ((𝐺 ∈ Grp ∧ ((𝑝↑(𝑝 pCnt (𝑂𝐴)))(.g𝐺)𝐴) ∈ 𝑋 ∧ (((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥))))(.g𝐺)𝑥) ∈ 𝑋) → (((𝑝↑(𝑝 pCnt (𝑂𝐴)))(.g𝐺)𝐴)(+g𝐺)(((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥))))(.g𝐺)𝑥)) ∈ 𝑋)
10915, 28, 41, 108syl3anc 1477 . . . . . . . . . . 11 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (((𝑝↑(𝑝 pCnt (𝑂𝐴)))(.g𝐺)𝐴)(+g𝐺)(((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥))))(.g𝐺)𝑥)) ∈ 𝑋)
110104, 107, 109rspcdva 3455 . . . . . . . . . 10 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (𝑂‘(((𝑝↑(𝑝 pCnt (𝑂𝐴)))(.g𝐺)𝐴)(+g𝐺)(((𝑂𝑥) / (𝑝↑(𝑝 pCnt (𝑂𝑥))))(.g𝐺)𝑥))) ≤ (𝑂𝐴))
111102, 110eqbrtrrd 4828 . . . . . . . . 9 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴)))) · (𝑝↑(𝑝 pCnt (𝑂𝑥)))) ≤ (𝑂𝐴))
11283nnred 11247 . . . . . . . . . 10 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → ((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴)))) ∈ ℝ)
11322nnred 11247 . . . . . . . . . 10 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (𝑂𝐴) ∈ ℝ)
11435nnrpd 12083 . . . . . . . . . 10 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (𝑝↑(𝑝 pCnt (𝑂𝑥))) ∈ ℝ+)
115112, 113, 114lemuldivd 12134 . . . . . . . . 9 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → ((((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴)))) · (𝑝↑(𝑝 pCnt (𝑂𝑥)))) ≤ (𝑂𝐴) ↔ ((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴)))) ≤ ((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝑥))))))
116111, 115mpbid 222 . . . . . . . 8 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → ((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴)))) ≤ ((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝑥)))))
117 nnrp 12055 . . . . . . . . . 10 ((𝑝↑(𝑝 pCnt (𝑂𝑥))) ∈ ℕ → (𝑝↑(𝑝 pCnt (𝑂𝑥))) ∈ ℝ+)
118 nnrp 12055 . . . . . . . . . 10 ((𝑝↑(𝑝 pCnt (𝑂𝐴))) ∈ ℕ → (𝑝↑(𝑝 pCnt (𝑂𝐴))) ∈ ℝ+)
119 nnrp 12055 . . . . . . . . . 10 ((𝑂𝐴) ∈ ℕ → (𝑂𝐴) ∈ ℝ+)
120 rpregt0 12059 . . . . . . . . . . 11 ((𝑝↑(𝑝 pCnt (𝑂𝑥))) ∈ ℝ+ → ((𝑝↑(𝑝 pCnt (𝑂𝑥))) ∈ ℝ ∧ 0 < (𝑝↑(𝑝 pCnt (𝑂𝑥)))))
121 rpregt0 12059 . . . . . . . . . . 11 ((𝑝↑(𝑝 pCnt (𝑂𝐴))) ∈ ℝ+ → ((𝑝↑(𝑝 pCnt (𝑂𝐴))) ∈ ℝ ∧ 0 < (𝑝↑(𝑝 pCnt (𝑂𝐴)))))
122 rpregt0 12059 . . . . . . . . . . 11 ((𝑂𝐴) ∈ ℝ+ → ((𝑂𝐴) ∈ ℝ ∧ 0 < (𝑂𝐴)))
123 lediv2 11125 . . . . . . . . . . 11 ((((𝑝↑(𝑝 pCnt (𝑂𝑥))) ∈ ℝ ∧ 0 < (𝑝↑(𝑝 pCnt (𝑂𝑥)))) ∧ ((𝑝↑(𝑝 pCnt (𝑂𝐴))) ∈ ℝ ∧ 0 < (𝑝↑(𝑝 pCnt (𝑂𝐴)))) ∧ ((𝑂𝐴) ∈ ℝ ∧ 0 < (𝑂𝐴))) → ((𝑝↑(𝑝 pCnt (𝑂𝑥))) ≤ (𝑝↑(𝑝 pCnt (𝑂𝐴))) ↔ ((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴)))) ≤ ((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝑥))))))
124120, 121, 122, 123syl3an 1164 . . . . . . . . . 10 (((𝑝↑(𝑝 pCnt (𝑂𝑥))) ∈ ℝ+ ∧ (𝑝↑(𝑝 pCnt (𝑂𝐴))) ∈ ℝ+ ∧ (𝑂𝐴) ∈ ℝ+) → ((𝑝↑(𝑝 pCnt (𝑂𝑥))) ≤ (𝑝↑(𝑝 pCnt (𝑂𝐴))) ↔ ((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴)))) ≤ ((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝑥))))))
125117, 118, 119, 124syl3an 1164 . . . . . . . . 9 (((𝑝↑(𝑝 pCnt (𝑂𝑥))) ∈ ℕ ∧ (𝑝↑(𝑝 pCnt (𝑂𝐴))) ∈ ℕ ∧ (𝑂𝐴) ∈ ℕ) → ((𝑝↑(𝑝 pCnt (𝑂𝑥))) ≤ (𝑝↑(𝑝 pCnt (𝑂𝐴))) ↔ ((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴)))) ≤ ((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝑥))))))
12635, 24, 22, 125syl3anc 1477 . . . . . . . 8 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → ((𝑝↑(𝑝 pCnt (𝑂𝑥))) ≤ (𝑝↑(𝑝 pCnt (𝑂𝐴))) ↔ ((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝐴)))) ≤ ((𝑂𝐴) / (𝑝↑(𝑝 pCnt (𝑂𝑥))))))
127116, 126mpbird 247 . . . . . . 7 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (𝑝↑(𝑝 pCnt (𝑂𝑥))) ≤ (𝑝↑(𝑝 pCnt (𝑂𝐴))))
12817nnred 11247 . . . . . . . 8 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → 𝑝 ∈ ℝ)
12934nn0zd 11692 . . . . . . . 8 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (𝑂𝑥)) ∈ ℤ)
13023nn0zd 11692 . . . . . . . 8 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (𝑂𝐴)) ∈ ℤ)
131 prmuz2 15630 . . . . . . . . . 10 (𝑝 ∈ ℙ → 𝑝 ∈ (ℤ‘2))
132131adantl 473 . . . . . . . . 9 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → 𝑝 ∈ (ℤ‘2))
133 eluz2b2 11974 . . . . . . . . . 10 (𝑝 ∈ (ℤ‘2) ↔ (𝑝 ∈ ℕ ∧ 1 < 𝑝))
134133simprbi 483 . . . . . . . . 9 (𝑝 ∈ (ℤ‘2) → 1 < 𝑝)
135132, 134syl 17 . . . . . . . 8 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → 1 < 𝑝)
136128, 129, 130, 135leexp2d 13253 . . . . . . 7 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt (𝑂𝑥)) ≤ (𝑝 pCnt (𝑂𝐴)) ↔ (𝑝↑(𝑝 pCnt (𝑂𝑥))) ≤ (𝑝↑(𝑝 pCnt (𝑂𝐴)))))
137127, 136mpbird 247 . . . . . 6 (((𝜑𝑥𝑋) ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (𝑂𝑥)) ≤ (𝑝 pCnt (𝑂𝐴)))
138137ralrimiva 3104 . . . . 5 ((𝜑𝑥𝑋) → ∀𝑝 ∈ ℙ (𝑝 pCnt (𝑂𝑥)) ≤ (𝑝 pCnt (𝑂𝐴)))
1392, 3odcl 18175 . . . . . . . 8 (𝑥𝑋 → (𝑂𝑥) ∈ ℕ0)
140139adantl 473 . . . . . . 7 ((𝜑𝑥𝑋) → (𝑂𝑥) ∈ ℕ0)
141140nn0zd 11692 . . . . . 6 ((𝜑𝑥𝑋) → (𝑂𝑥) ∈ ℤ)
1425nn0zd 11692 . . . . . . 7 (𝜑 → (𝑂𝐴) ∈ ℤ)
143142adantr 472 . . . . . 6 ((𝜑𝑥𝑋) → (𝑂𝐴) ∈ ℤ)
144 pc2dvds 15805 . . . . . 6 (((𝑂𝑥) ∈ ℤ ∧ (𝑂𝐴) ∈ ℤ) → ((𝑂𝑥) ∥ (𝑂𝐴) ↔ ∀𝑝 ∈ ℙ (𝑝 pCnt (𝑂𝑥)) ≤ (𝑝 pCnt (𝑂𝐴))))
145141, 143, 144syl2anc 696 . . . . 5 ((𝜑𝑥𝑋) → ((𝑂𝑥) ∥ (𝑂𝐴) ↔ ∀𝑝 ∈ ℙ (𝑝 pCnt (𝑂𝑥)) ≤ (𝑝 pCnt (𝑂𝐴))))
146138, 145mpbird 247 . . . 4 ((𝜑𝑥𝑋) → (𝑂𝑥) ∥ (𝑂𝐴))
147146ralrimiva 3104 . . 3 (𝜑 → ∀𝑥𝑋 (𝑂𝑥) ∥ (𝑂𝐴))
1482, 11, 3gexdvds2 18220 . . . 4 ((𝐺 ∈ Grp ∧ (𝑂𝐴) ∈ ℤ) → (𝐸 ∥ (𝑂𝐴) ↔ ∀𝑥𝑋 (𝑂𝑥) ∥ (𝑂𝐴)))
14910, 142, 148syl2anc 696 . . 3 (𝜑 → (𝐸 ∥ (𝑂𝐴) ↔ ∀𝑥𝑋 (𝑂𝑥) ∥ (𝑂𝐴)))
150147, 149mpbird 247 . 2 (𝜑𝐸 ∥ (𝑂𝐴))
151 dvdseq 15258 . 2 ((((𝑂𝐴) ∈ ℕ0𝐸 ∈ ℕ0) ∧ ((𝑂𝐴) ∥ 𝐸𝐸 ∥ (𝑂𝐴))) → (𝑂𝐴) = 𝐸)
1525, 7, 13, 150, 151syl22anc 1478 1 (𝜑 → (𝑂𝐴) = 𝐸)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 196  wa 383   = wceq 1632  wcel 2139  wral 3050   class class class wbr 4804  cfv 6049  (class class class)co 6814  cr 10147  0cc0 10148  1c1 10149   · cmul 10153   < clt 10286  cle 10287   / cdiv 10896  cn 11232  2c2 11282  0cn0 11504  cz 11589  cuz 11899  +crp 12045  cexp 13074  cdvds 15202   gcd cgcd 15438  cprime 15607   pCnt cpc 15763  Basecbs 16079  +gcplusg 16163  Grpcgrp 17643  .gcmg 17761  odcod 18164  gExcgex 18165  Abelcabl 18414
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1871  ax-4 1886  ax-5 1988  ax-6 2054  ax-7 2090  ax-8 2141  ax-9 2148  ax-10 2168  ax-11 2183  ax-12 2196  ax-13 2391  ax-ext 2740  ax-rep 4923  ax-sep 4933  ax-nul 4941  ax-pow 4992  ax-pr 5055  ax-un 7115  ax-inf2 8713  ax-cnex 10204  ax-resscn 10205  ax-1cn 10206  ax-icn 10207  ax-addcl 10208  ax-addrcl 10209  ax-mulcl 10210  ax-mulrcl 10211  ax-mulcom 10212  ax-addass 10213  ax-mulass 10214  ax-distr 10215  ax-i2m1 10216  ax-1ne0 10217  ax-1rid 10218  ax-rnegex 10219  ax-rrecex 10220  ax-cnre 10221  ax-pre-lttri 10222  ax-pre-lttrn 10223  ax-pre-ltadd 10224  ax-pre-mulgt0 10225  ax-pre-sup 10226
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3or 1073  df-3an 1074  df-tru 1635  df-ex 1854  df-nf 1859  df-sb 2047  df-eu 2611  df-mo 2612  df-clab 2747  df-cleq 2753  df-clel 2756  df-nfc 2891  df-ne 2933  df-nel 3036  df-ral 3055  df-rex 3056  df-reu 3057  df-rmo 3058  df-rab 3059  df-v 3342  df-sbc 3577  df-csb 3675  df-dif 3718  df-un 3720  df-in 3722  df-ss 3729  df-pss 3731  df-nul 4059  df-if 4231  df-pw 4304  df-sn 4322  df-pr 4324  df-tp 4326  df-op 4328  df-uni 4589  df-iun 4674  df-br 4805  df-opab 4865  df-mpt 4882  df-tr 4905  df-id 5174  df-eprel 5179  df-po 5187  df-so 5188  df-fr 5225  df-we 5227  df-xp 5272  df-rel 5273  df-cnv 5274  df-co 5275  df-dm 5276  df-rn 5277  df-res 5278  df-ima 5279  df-pred 5841  df-ord 5887  df-on 5888  df-lim 5889  df-suc 5890  df-iota 6012  df-fun 6051  df-fn 6052  df-f 6053  df-f1 6054  df-fo 6055  df-f1o 6056  df-fv 6057  df-riota 6775  df-ov 6817  df-oprab 6818  df-mpt2 6819  df-om 7232  df-1st 7334  df-2nd 7335  df-wrecs 7577  df-recs 7638  df-rdg 7676  df-1o 7730  df-2o 7731  df-er 7913  df-en 8124  df-dom 8125  df-sdom 8126  df-fin 8127  df-sup 8515  df-inf 8516  df-pnf 10288  df-mnf 10289  df-xr 10290  df-ltxr 10291  df-le 10292  df-sub 10480  df-neg 10481  df-div 10897  df-nn 11233  df-2 11291  df-3 11292  df-n0 11505  df-z 11590  df-uz 11900  df-q 12002  df-rp 12046  df-fz 12540  df-fzo 12680  df-fl 12807  df-mod 12883  df-seq 13016  df-exp 13075  df-cj 14058  df-re 14059  df-im 14060  df-sqrt 14194  df-abs 14195  df-dvds 15203  df-gcd 15439  df-prm 15608  df-pc 15764  df-0g 16324  df-mgm 17463  df-sgrp 17505  df-mnd 17516  df-grp 17646  df-minusg 17647  df-sbg 17648  df-mulg 17762  df-od 18168  df-gex 18169  df-cmn 18415  df-abl 18416
This theorem is referenced by:  gexex  18476
  Copyright terms: Public domain W3C validator