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

Theorem pcadd 16801
Description: An inequality for the prime count of a sum. This is the source of the ultrametric inequality for the p-adic metric. (Contributed by Mario Carneiro, 9-Sep-2014.)
Hypotheses
Ref Expression
pcadd.1 (𝜑𝑃 ∈ ℙ)
pcadd.2 (𝜑𝐴 ∈ ℚ)
pcadd.3 (𝜑𝐵 ∈ ℚ)
pcadd.4 (𝜑 → (𝑃 pCnt 𝐴) ≤ (𝑃 pCnt 𝐵))
Assertion
Ref Expression
pcadd (𝜑 → (𝑃 pCnt 𝐴) ≤ (𝑃 pCnt (𝐴 + 𝐵)))

Proof of Theorem pcadd
Dummy variables 𝑥 𝑤 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 pcadd.2 . . 3 (𝜑𝐴 ∈ ℚ)
2 elq 12848 . . 3 (𝐴 ∈ ℚ ↔ ∃𝑥 ∈ ℤ ∃𝑦 ∈ ℕ 𝐴 = (𝑥 / 𝑦))
31, 2sylib 218 . 2 (𝜑 → ∃𝑥 ∈ ℤ ∃𝑦 ∈ ℕ 𝐴 = (𝑥 / 𝑦))
4 pcadd.3 . . 3 (𝜑𝐵 ∈ ℚ)
5 elq 12848 . . 3 (𝐵 ∈ ℚ ↔ ∃𝑧 ∈ ℤ ∃𝑤 ∈ ℕ 𝐵 = (𝑧 / 𝑤))
64, 5sylib 218 . 2 (𝜑 → ∃𝑧 ∈ ℤ ∃𝑤 ∈ ℕ 𝐵 = (𝑧 / 𝑤))
7 pcadd.1 . . . . . . . 8 (𝜑𝑃 ∈ ℙ)
8 pcxcl 16773 . . . . . . . 8 ((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℚ) → (𝑃 pCnt 𝐴) ∈ ℝ*)
97, 1, 8syl2anc 584 . . . . . . 7 (𝜑 → (𝑃 pCnt 𝐴) ∈ ℝ*)
109xrleidd 13051 . . . . . 6 (𝜑 → (𝑃 pCnt 𝐴) ≤ (𝑃 pCnt 𝐴))
1110adantr 480 . . . . 5 ((𝜑𝐵 = 0) → (𝑃 pCnt 𝐴) ≤ (𝑃 pCnt 𝐴))
12 oveq2 7354 . . . . . . 7 (𝐵 = 0 → (𝐴 + 𝐵) = (𝐴 + 0))
13 qcn 12861 . . . . . . . . 9 (𝐴 ∈ ℚ → 𝐴 ∈ ℂ)
141, 13syl 17 . . . . . . . 8 (𝜑𝐴 ∈ ℂ)
1514addridd 11313 . . . . . . 7 (𝜑 → (𝐴 + 0) = 𝐴)
1612, 15sylan9eqr 2788 . . . . . 6 ((𝜑𝐵 = 0) → (𝐴 + 𝐵) = 𝐴)
1716oveq2d 7362 . . . . 5 ((𝜑𝐵 = 0) → (𝑃 pCnt (𝐴 + 𝐵)) = (𝑃 pCnt 𝐴))
1811, 17breqtrrd 5119 . . . 4 ((𝜑𝐵 = 0) → (𝑃 pCnt 𝐴) ≤ (𝑃 pCnt (𝐴 + 𝐵)))
1918a1d 25 . . 3 ((𝜑𝐵 = 0) → ((∃𝑥 ∈ ℤ ∃𝑦 ∈ ℕ 𝐴 = (𝑥 / 𝑦) ∧ ∃𝑧 ∈ ℤ ∃𝑤 ∈ ℕ 𝐵 = (𝑧 / 𝑤)) → (𝑃 pCnt 𝐴) ≤ (𝑃 pCnt (𝐴 + 𝐵))))
20 reeanv 3204 . . . 4 (∃𝑥 ∈ ℤ ∃𝑧 ∈ ℤ (∃𝑦 ∈ ℕ 𝐴 = (𝑥 / 𝑦) ∧ ∃𝑤 ∈ ℕ 𝐵 = (𝑧 / 𝑤)) ↔ (∃𝑥 ∈ ℤ ∃𝑦 ∈ ℕ 𝐴 = (𝑥 / 𝑦) ∧ ∃𝑧 ∈ ℤ ∃𝑤 ∈ ℕ 𝐵 = (𝑧 / 𝑤)))
21 reeanv 3204 . . . . . 6 (∃𝑦 ∈ ℕ ∃𝑤 ∈ ℕ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)) ↔ (∃𝑦 ∈ ℕ 𝐴 = (𝑥 / 𝑦) ∧ ∃𝑤 ∈ ℕ 𝐵 = (𝑧 / 𝑤)))
227ad3antrrr 730 . . . . . . . . 9 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑃 ∈ ℙ)
23 prmnn 16585 . . . . . . . . . . . . . . . . 17 (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
2422, 23syl 17 . . . . . . . . . . . . . . . 16 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑃 ∈ ℕ)
25 simplrl 776 . . . . . . . . . . . . . . . . 17 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑥 ∈ ℤ)
26 simprrl 780 . . . . . . . . . . . . . . . . . . 19 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝐴 = (𝑥 / 𝑦))
27 pc0 16766 . . . . . . . . . . . . . . . . . . . . . 22 (𝑃 ∈ ℙ → (𝑃 pCnt 0) = +∞)
2822, 27syl 17 . . . . . . . . . . . . . . . . . . . . 21 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 0) = +∞)
294ad3antrrr 730 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝐵 ∈ ℚ)
30 simpllr 775 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝐵 ≠ 0)
31 pcqcl 16768 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑃 ∈ ℙ ∧ (𝐵 ∈ ℚ ∧ 𝐵 ≠ 0)) → (𝑃 pCnt 𝐵) ∈ ℤ)
3222, 29, 30, 31syl12anc 836 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 𝐵) ∈ ℤ)
3332zred 12577 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 𝐵) ∈ ℝ)
34 ltpnf 13019 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑃 pCnt 𝐵) ∈ ℝ → (𝑃 pCnt 𝐵) < +∞)
35 rexr 11158 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑃 pCnt 𝐵) ∈ ℝ → (𝑃 pCnt 𝐵) ∈ ℝ*)
36 pnfxr 11166 . . . . . . . . . . . . . . . . . . . . . . . 24 +∞ ∈ ℝ*
37 xrltnle 11179 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝑃 pCnt 𝐵) ∈ ℝ* ∧ +∞ ∈ ℝ*) → ((𝑃 pCnt 𝐵) < +∞ ↔ ¬ +∞ ≤ (𝑃 pCnt 𝐵)))
3835, 36, 37sylancl 586 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑃 pCnt 𝐵) ∈ ℝ → ((𝑃 pCnt 𝐵) < +∞ ↔ ¬ +∞ ≤ (𝑃 pCnt 𝐵)))
3934, 38mpbid 232 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑃 pCnt 𝐵) ∈ ℝ → ¬ +∞ ≤ (𝑃 pCnt 𝐵))
4033, 39syl 17 . . . . . . . . . . . . . . . . . . . . 21 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ¬ +∞ ≤ (𝑃 pCnt 𝐵))
4128, 40eqnbrtrd 5109 . . . . . . . . . . . . . . . . . . . 20 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ¬ (𝑃 pCnt 0) ≤ (𝑃 pCnt 𝐵))
42 pcadd.4 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜑 → (𝑃 pCnt 𝐴) ≤ (𝑃 pCnt 𝐵))
4342ad3antrrr 730 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 𝐴) ≤ (𝑃 pCnt 𝐵))
44 oveq2 7354 . . . . . . . . . . . . . . . . . . . . . . 23 (𝐴 = 0 → (𝑃 pCnt 𝐴) = (𝑃 pCnt 0))
4544breq1d 5101 . . . . . . . . . . . . . . . . . . . . . 22 (𝐴 = 0 → ((𝑃 pCnt 𝐴) ≤ (𝑃 pCnt 𝐵) ↔ (𝑃 pCnt 0) ≤ (𝑃 pCnt 𝐵)))
4643, 45syl5ibcom 245 . . . . . . . . . . . . . . . . . . . . 21 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝐴 = 0 → (𝑃 pCnt 0) ≤ (𝑃 pCnt 𝐵)))
4746necon3bd 2942 . . . . . . . . . . . . . . . . . . . 20 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (¬ (𝑃 pCnt 0) ≤ (𝑃 pCnt 𝐵) → 𝐴 ≠ 0))
4841, 47mpd 15 . . . . . . . . . . . . . . . . . . 19 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝐴 ≠ 0)
4926, 48eqnetrrd 2996 . . . . . . . . . . . . . . . . . 18 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑥 / 𝑦) ≠ 0)
50 simprll 778 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑦 ∈ ℕ)
5150nncnd 12141 . . . . . . . . . . . . . . . . . . . . 21 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑦 ∈ ℂ)
5250nnne0d 12175 . . . . . . . . . . . . . . . . . . . . 21 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑦 ≠ 0)
5351, 52div0d 11896 . . . . . . . . . . . . . . . . . . . 20 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (0 / 𝑦) = 0)
54 oveq1 7353 . . . . . . . . . . . . . . . . . . . . 21 (𝑥 = 0 → (𝑥 / 𝑦) = (0 / 𝑦))
5554eqeq1d 2733 . . . . . . . . . . . . . . . . . . . 20 (𝑥 = 0 → ((𝑥 / 𝑦) = 0 ↔ (0 / 𝑦) = 0))
5653, 55syl5ibrcom 247 . . . . . . . . . . . . . . . . . . 19 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑥 = 0 → (𝑥 / 𝑦) = 0))
5756necon3d 2949 . . . . . . . . . . . . . . . . . 18 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑥 / 𝑦) ≠ 0 → 𝑥 ≠ 0))
5849, 57mpd 15 . . . . . . . . . . . . . . . . 17 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑥 ≠ 0)
59 pczcl 16760 . . . . . . . . . . . . . . . . 17 ((𝑃 ∈ ℙ ∧ (𝑥 ∈ ℤ ∧ 𝑥 ≠ 0)) → (𝑃 pCnt 𝑥) ∈ ℕ0)
6022, 25, 58, 59syl12anc 836 . . . . . . . . . . . . . . . 16 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 𝑥) ∈ ℕ0)
6124, 60nnexpcld 14152 . . . . . . . . . . . . . . 15 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑥)) ∈ ℕ)
6261nncnd 12141 . . . . . . . . . . . . . 14 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑥)) ∈ ℂ)
6362, 51mulcomd 11133 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑃↑(𝑃 pCnt 𝑥)) · 𝑦) = (𝑦 · (𝑃↑(𝑃 pCnt 𝑥))))
6463oveq2d 7362 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑥 · (𝑃↑(𝑃 pCnt 𝑦))) / ((𝑃↑(𝑃 pCnt 𝑥)) · 𝑦)) = ((𝑥 · (𝑃↑(𝑃 pCnt 𝑦))) / (𝑦 · (𝑃↑(𝑃 pCnt 𝑥)))))
6525zcnd 12578 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑥 ∈ ℂ)
6622, 50pccld 16762 . . . . . . . . . . . . . . 15 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 𝑦) ∈ ℕ0)
6724, 66nnexpcld 14152 . . . . . . . . . . . . . 14 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑦)) ∈ ℕ)
6867nncnd 12141 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑦)) ∈ ℂ)
6961nnne0d 12175 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑥)) ≠ 0)
7067nnne0d 12175 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑦)) ≠ 0)
7165, 62, 51, 68, 69, 70, 52divdivdivd 11944 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑥 / (𝑃↑(𝑃 pCnt 𝑥))) / (𝑦 / (𝑃↑(𝑃 pCnt 𝑦)))) = ((𝑥 · (𝑃↑(𝑃 pCnt 𝑦))) / ((𝑃↑(𝑃 pCnt 𝑥)) · 𝑦)))
7226oveq2d 7362 . . . . . . . . . . . . . . . . 17 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 𝐴) = (𝑃 pCnt (𝑥 / 𝑦)))
73 pcdiv 16764 . . . . . . . . . . . . . . . . . 18 ((𝑃 ∈ ℙ ∧ (𝑥 ∈ ℤ ∧ 𝑥 ≠ 0) ∧ 𝑦 ∈ ℕ) → (𝑃 pCnt (𝑥 / 𝑦)) = ((𝑃 pCnt 𝑥) − (𝑃 pCnt 𝑦)))
7422, 25, 58, 50, 73syl121anc 1377 . . . . . . . . . . . . . . . . 17 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt (𝑥 / 𝑦)) = ((𝑃 pCnt 𝑥) − (𝑃 pCnt 𝑦)))
7572, 74eqtrd 2766 . . . . . . . . . . . . . . . 16 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 𝐴) = ((𝑃 pCnt 𝑥) − (𝑃 pCnt 𝑦)))
7675oveq2d 7362 . . . . . . . . . . . . . . 15 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝐴)) = (𝑃↑((𝑃 pCnt 𝑥) − (𝑃 pCnt 𝑦))))
7724nncnd 12141 . . . . . . . . . . . . . . . 16 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑃 ∈ ℂ)
7824nnne0d 12175 . . . . . . . . . . . . . . . 16 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑃 ≠ 0)
7966nn0zd 12494 . . . . . . . . . . . . . . . 16 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 𝑦) ∈ ℤ)
8060nn0zd 12494 . . . . . . . . . . . . . . . 16 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 𝑥) ∈ ℤ)
8177, 78, 79, 80expsubd 14064 . . . . . . . . . . . . . . 15 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑((𝑃 pCnt 𝑥) − (𝑃 pCnt 𝑦))) = ((𝑃↑(𝑃 pCnt 𝑥)) / (𝑃↑(𝑃 pCnt 𝑦))))
8276, 81eqtrd 2766 . . . . . . . . . . . . . 14 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝐴)) = ((𝑃↑(𝑃 pCnt 𝑥)) / (𝑃↑(𝑃 pCnt 𝑦))))
8382oveq2d 7362 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝐴 / (𝑃↑(𝑃 pCnt 𝐴))) = (𝐴 / ((𝑃↑(𝑃 pCnt 𝑥)) / (𝑃↑(𝑃 pCnt 𝑦)))))
8426oveq1d 7361 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝐴 / ((𝑃↑(𝑃 pCnt 𝑥)) / (𝑃↑(𝑃 pCnt 𝑦)))) = ((𝑥 / 𝑦) / ((𝑃↑(𝑃 pCnt 𝑥)) / (𝑃↑(𝑃 pCnt 𝑦)))))
8565, 51, 62, 68, 52, 70, 69divdivdivd 11944 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑥 / 𝑦) / ((𝑃↑(𝑃 pCnt 𝑥)) / (𝑃↑(𝑃 pCnt 𝑦)))) = ((𝑥 · (𝑃↑(𝑃 pCnt 𝑦))) / (𝑦 · (𝑃↑(𝑃 pCnt 𝑥)))))
8683, 84, 853eqtrd 2770 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝐴 / (𝑃↑(𝑃 pCnt 𝐴))) = ((𝑥 · (𝑃↑(𝑃 pCnt 𝑦))) / (𝑦 · (𝑃↑(𝑃 pCnt 𝑥)))))
8764, 71, 863eqtr4d 2776 . . . . . . . . . . 11 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑥 / (𝑃↑(𝑃 pCnt 𝑥))) / (𝑦 / (𝑃↑(𝑃 pCnt 𝑦)))) = (𝐴 / (𝑃↑(𝑃 pCnt 𝐴))))
8887oveq2d 7362 . . . . . . . . . 10 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑃↑(𝑃 pCnt 𝐴)) · ((𝑥 / (𝑃↑(𝑃 pCnt 𝑥))) / (𝑦 / (𝑃↑(𝑃 pCnt 𝑦))))) = ((𝑃↑(𝑃 pCnt 𝐴)) · (𝐴 / (𝑃↑(𝑃 pCnt 𝐴)))))
891ad3antrrr 730 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝐴 ∈ ℚ)
9089, 13syl 17 . . . . . . . . . . 11 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝐴 ∈ ℂ)
91 pcqcl 16768 . . . . . . . . . . . . 13 ((𝑃 ∈ ℙ ∧ (𝐴 ∈ ℚ ∧ 𝐴 ≠ 0)) → (𝑃 pCnt 𝐴) ∈ ℤ)
9222, 89, 48, 91syl12anc 836 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 𝐴) ∈ ℤ)
9377, 78, 92expclzd 14058 . . . . . . . . . . 11 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝐴)) ∈ ℂ)
9477, 78, 92expne0d 14059 . . . . . . . . . . 11 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝐴)) ≠ 0)
9590, 93, 94divcan2d 11899 . . . . . . . . . 10 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑃↑(𝑃 pCnt 𝐴)) · (𝐴 / (𝑃↑(𝑃 pCnt 𝐴)))) = 𝐴)
9688, 95eqtr2d 2767 . . . . . . . . 9 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝐴 = ((𝑃↑(𝑃 pCnt 𝐴)) · ((𝑥 / (𝑃↑(𝑃 pCnt 𝑥))) / (𝑦 / (𝑃↑(𝑃 pCnt 𝑦))))))
97 simplrr 777 . . . . . . . . . . . . . . . . 17 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑧 ∈ ℤ)
98 simprrr 781 . . . . . . . . . . . . . . . . . . 19 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝐵 = (𝑧 / 𝑤))
9998, 30eqnetrrd 2996 . . . . . . . . . . . . . . . . . 18 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑧 / 𝑤) ≠ 0)
100 simprlr 779 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑤 ∈ ℕ)
101100nncnd 12141 . . . . . . . . . . . . . . . . . . . . 21 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑤 ∈ ℂ)
102100nnne0d 12175 . . . . . . . . . . . . . . . . . . . . 21 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑤 ≠ 0)
103101, 102div0d 11896 . . . . . . . . . . . . . . . . . . . 20 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (0 / 𝑤) = 0)
104 oveq1 7353 . . . . . . . . . . . . . . . . . . . . 21 (𝑧 = 0 → (𝑧 / 𝑤) = (0 / 𝑤))
105104eqeq1d 2733 . . . . . . . . . . . . . . . . . . . 20 (𝑧 = 0 → ((𝑧 / 𝑤) = 0 ↔ (0 / 𝑤) = 0))
106103, 105syl5ibrcom 247 . . . . . . . . . . . . . . . . . . 19 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑧 = 0 → (𝑧 / 𝑤) = 0))
107106necon3d 2949 . . . . . . . . . . . . . . . . . 18 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑧 / 𝑤) ≠ 0 → 𝑧 ≠ 0))
10899, 107mpd 15 . . . . . . . . . . . . . . . . 17 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑧 ≠ 0)
109 pczcl 16760 . . . . . . . . . . . . . . . . 17 ((𝑃 ∈ ℙ ∧ (𝑧 ∈ ℤ ∧ 𝑧 ≠ 0)) → (𝑃 pCnt 𝑧) ∈ ℕ0)
11022, 97, 108, 109syl12anc 836 . . . . . . . . . . . . . . . 16 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 𝑧) ∈ ℕ0)
11124, 110nnexpcld 14152 . . . . . . . . . . . . . . 15 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑧)) ∈ ℕ)
112111nncnd 12141 . . . . . . . . . . . . . 14 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑧)) ∈ ℂ)
113112, 101mulcomd 11133 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑃↑(𝑃 pCnt 𝑧)) · 𝑤) = (𝑤 · (𝑃↑(𝑃 pCnt 𝑧))))
114113oveq2d 7362 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑧 · (𝑃↑(𝑃 pCnt 𝑤))) / ((𝑃↑(𝑃 pCnt 𝑧)) · 𝑤)) = ((𝑧 · (𝑃↑(𝑃 pCnt 𝑤))) / (𝑤 · (𝑃↑(𝑃 pCnt 𝑧)))))
11597zcnd 12578 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑧 ∈ ℂ)
11622, 100pccld 16762 . . . . . . . . . . . . . . 15 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 𝑤) ∈ ℕ0)
11724, 116nnexpcld 14152 . . . . . . . . . . . . . 14 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑤)) ∈ ℕ)
118117nncnd 12141 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑤)) ∈ ℂ)
119111nnne0d 12175 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑧)) ≠ 0)
120117nnne0d 12175 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑤)) ≠ 0)
121115, 112, 101, 118, 119, 120, 102divdivdivd 11944 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑧 / (𝑃↑(𝑃 pCnt 𝑧))) / (𝑤 / (𝑃↑(𝑃 pCnt 𝑤)))) = ((𝑧 · (𝑃↑(𝑃 pCnt 𝑤))) / ((𝑃↑(𝑃 pCnt 𝑧)) · 𝑤)))
12298oveq2d 7362 . . . . . . . . . . . . . . . . 17 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 𝐵) = (𝑃 pCnt (𝑧 / 𝑤)))
123 pcdiv 16764 . . . . . . . . . . . . . . . . . 18 ((𝑃 ∈ ℙ ∧ (𝑧 ∈ ℤ ∧ 𝑧 ≠ 0) ∧ 𝑤 ∈ ℕ) → (𝑃 pCnt (𝑧 / 𝑤)) = ((𝑃 pCnt 𝑧) − (𝑃 pCnt 𝑤)))
12422, 97, 108, 100, 123syl121anc 1377 . . . . . . . . . . . . . . . . 17 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt (𝑧 / 𝑤)) = ((𝑃 pCnt 𝑧) − (𝑃 pCnt 𝑤)))
125122, 124eqtrd 2766 . . . . . . . . . . . . . . . 16 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 𝐵) = ((𝑃 pCnt 𝑧) − (𝑃 pCnt 𝑤)))
126125oveq2d 7362 . . . . . . . . . . . . . . 15 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝐵)) = (𝑃↑((𝑃 pCnt 𝑧) − (𝑃 pCnt 𝑤))))
127116nn0zd 12494 . . . . . . . . . . . . . . . 16 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 𝑤) ∈ ℤ)
128110nn0zd 12494 . . . . . . . . . . . . . . . 16 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 𝑧) ∈ ℤ)
12977, 78, 127, 128expsubd 14064 . . . . . . . . . . . . . . 15 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑((𝑃 pCnt 𝑧) − (𝑃 pCnt 𝑤))) = ((𝑃↑(𝑃 pCnt 𝑧)) / (𝑃↑(𝑃 pCnt 𝑤))))
130126, 129eqtrd 2766 . . . . . . . . . . . . . 14 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝐵)) = ((𝑃↑(𝑃 pCnt 𝑧)) / (𝑃↑(𝑃 pCnt 𝑤))))
131130oveq2d 7362 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝐵 / (𝑃↑(𝑃 pCnt 𝐵))) = (𝐵 / ((𝑃↑(𝑃 pCnt 𝑧)) / (𝑃↑(𝑃 pCnt 𝑤)))))
13298oveq1d 7361 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝐵 / ((𝑃↑(𝑃 pCnt 𝑧)) / (𝑃↑(𝑃 pCnt 𝑤)))) = ((𝑧 / 𝑤) / ((𝑃↑(𝑃 pCnt 𝑧)) / (𝑃↑(𝑃 pCnt 𝑤)))))
133115, 101, 112, 118, 102, 120, 119divdivdivd 11944 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑧 / 𝑤) / ((𝑃↑(𝑃 pCnt 𝑧)) / (𝑃↑(𝑃 pCnt 𝑤)))) = ((𝑧 · (𝑃↑(𝑃 pCnt 𝑤))) / (𝑤 · (𝑃↑(𝑃 pCnt 𝑧)))))
134131, 132, 1333eqtrd 2770 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝐵 / (𝑃↑(𝑃 pCnt 𝐵))) = ((𝑧 · (𝑃↑(𝑃 pCnt 𝑤))) / (𝑤 · (𝑃↑(𝑃 pCnt 𝑧)))))
135114, 121, 1343eqtr4d 2776 . . . . . . . . . . 11 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑧 / (𝑃↑(𝑃 pCnt 𝑧))) / (𝑤 / (𝑃↑(𝑃 pCnt 𝑤)))) = (𝐵 / (𝑃↑(𝑃 pCnt 𝐵))))
136135oveq2d 7362 . . . . . . . . . 10 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑃↑(𝑃 pCnt 𝐵)) · ((𝑧 / (𝑃↑(𝑃 pCnt 𝑧))) / (𝑤 / (𝑃↑(𝑃 pCnt 𝑤))))) = ((𝑃↑(𝑃 pCnt 𝐵)) · (𝐵 / (𝑃↑(𝑃 pCnt 𝐵)))))
137 qcn 12861 . . . . . . . . . . . 12 (𝐵 ∈ ℚ → 𝐵 ∈ ℂ)
13829, 137syl 17 . . . . . . . . . . 11 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝐵 ∈ ℂ)
13977, 78, 32expclzd 14058 . . . . . . . . . . 11 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝐵)) ∈ ℂ)
14077, 78, 32expne0d 14059 . . . . . . . . . . 11 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝐵)) ≠ 0)
141138, 139, 140divcan2d 11899 . . . . . . . . . 10 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑃↑(𝑃 pCnt 𝐵)) · (𝐵 / (𝑃↑(𝑃 pCnt 𝐵)))) = 𝐵)
142136, 141eqtr2d 2767 . . . . . . . . 9 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝐵 = ((𝑃↑(𝑃 pCnt 𝐵)) · ((𝑧 / (𝑃↑(𝑃 pCnt 𝑧))) / (𝑤 / (𝑃↑(𝑃 pCnt 𝑤))))))
143 eluz 12746 . . . . . . . . . . 11 (((𝑃 pCnt 𝐴) ∈ ℤ ∧ (𝑃 pCnt 𝐵) ∈ ℤ) → ((𝑃 pCnt 𝐵) ∈ (ℤ‘(𝑃 pCnt 𝐴)) ↔ (𝑃 pCnt 𝐴) ≤ (𝑃 pCnt 𝐵)))
14492, 32, 143syl2anc 584 . . . . . . . . . 10 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑃 pCnt 𝐵) ∈ (ℤ‘(𝑃 pCnt 𝐴)) ↔ (𝑃 pCnt 𝐴) ≤ (𝑃 pCnt 𝐵)))
14543, 144mpbird 257 . . . . . . . . 9 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 𝐵) ∈ (ℤ‘(𝑃 pCnt 𝐴)))
146 pczdvds 16775 . . . . . . . . . . . 12 ((𝑃 ∈ ℙ ∧ (𝑥 ∈ ℤ ∧ 𝑥 ≠ 0)) → (𝑃↑(𝑃 pCnt 𝑥)) ∥ 𝑥)
14722, 25, 58, 146syl12anc 836 . . . . . . . . . . 11 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑥)) ∥ 𝑥)
14861nnzd 12495 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑥)) ∈ ℤ)
149 dvdsval2 16166 . . . . . . . . . . . 12 (((𝑃↑(𝑃 pCnt 𝑥)) ∈ ℤ ∧ (𝑃↑(𝑃 pCnt 𝑥)) ≠ 0 ∧ 𝑥 ∈ ℤ) → ((𝑃↑(𝑃 pCnt 𝑥)) ∥ 𝑥 ↔ (𝑥 / (𝑃↑(𝑃 pCnt 𝑥))) ∈ ℤ))
150148, 69, 25, 149syl3anc 1373 . . . . . . . . . . 11 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑃↑(𝑃 pCnt 𝑥)) ∥ 𝑥 ↔ (𝑥 / (𝑃↑(𝑃 pCnt 𝑥))) ∈ ℤ))
151147, 150mpbid 232 . . . . . . . . . 10 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑥 / (𝑃↑(𝑃 pCnt 𝑥))) ∈ ℤ)
152 pczndvds2 16779 . . . . . . . . . . 11 ((𝑃 ∈ ℙ ∧ (𝑥 ∈ ℤ ∧ 𝑥 ≠ 0)) → ¬ 𝑃 ∥ (𝑥 / (𝑃↑(𝑃 pCnt 𝑥))))
15322, 25, 58, 152syl12anc 836 . . . . . . . . . 10 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ¬ 𝑃 ∥ (𝑥 / (𝑃↑(𝑃 pCnt 𝑥))))
154151, 153jca 511 . . . . . . . . 9 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑥 / (𝑃↑(𝑃 pCnt 𝑥))) ∈ ℤ ∧ ¬ 𝑃 ∥ (𝑥 / (𝑃↑(𝑃 pCnt 𝑥)))))
155 pcdvds 16776 . . . . . . . . . . . . 13 ((𝑃 ∈ ℙ ∧ 𝑦 ∈ ℕ) → (𝑃↑(𝑃 pCnt 𝑦)) ∥ 𝑦)
15622, 50, 155syl2anc 584 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑦)) ∥ 𝑦)
15767nnzd 12495 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑦)) ∈ ℤ)
15850nnzd 12495 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑦 ∈ ℤ)
159 dvdsval2 16166 . . . . . . . . . . . . 13 (((𝑃↑(𝑃 pCnt 𝑦)) ∈ ℤ ∧ (𝑃↑(𝑃 pCnt 𝑦)) ≠ 0 ∧ 𝑦 ∈ ℤ) → ((𝑃↑(𝑃 pCnt 𝑦)) ∥ 𝑦 ↔ (𝑦 / (𝑃↑(𝑃 pCnt 𝑦))) ∈ ℤ))
160157, 70, 158, 159syl3anc 1373 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑃↑(𝑃 pCnt 𝑦)) ∥ 𝑦 ↔ (𝑦 / (𝑃↑(𝑃 pCnt 𝑦))) ∈ ℤ))
161156, 160mpbid 232 . . . . . . . . . . 11 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑦 / (𝑃↑(𝑃 pCnt 𝑦))) ∈ ℤ)
16250nnred 12140 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑦 ∈ ℝ)
16367nnred 12140 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑦)) ∈ ℝ)
16450nngt0d 12174 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 0 < 𝑦)
16567nngt0d 12174 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 0 < (𝑃↑(𝑃 pCnt 𝑦)))
166162, 163, 164, 165divgt0d 12057 . . . . . . . . . . 11 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 0 < (𝑦 / (𝑃↑(𝑃 pCnt 𝑦))))
167 elnnz 12478 . . . . . . . . . . 11 ((𝑦 / (𝑃↑(𝑃 pCnt 𝑦))) ∈ ℕ ↔ ((𝑦 / (𝑃↑(𝑃 pCnt 𝑦))) ∈ ℤ ∧ 0 < (𝑦 / (𝑃↑(𝑃 pCnt 𝑦)))))
168161, 166, 167sylanbrc 583 . . . . . . . . . 10 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑦 / (𝑃↑(𝑃 pCnt 𝑦))) ∈ ℕ)
169 pcndvds2 16780 . . . . . . . . . . 11 ((𝑃 ∈ ℙ ∧ 𝑦 ∈ ℕ) → ¬ 𝑃 ∥ (𝑦 / (𝑃↑(𝑃 pCnt 𝑦))))
17022, 50, 169syl2anc 584 . . . . . . . . . 10 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ¬ 𝑃 ∥ (𝑦 / (𝑃↑(𝑃 pCnt 𝑦))))
171168, 170jca 511 . . . . . . . . 9 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑦 / (𝑃↑(𝑃 pCnt 𝑦))) ∈ ℕ ∧ ¬ 𝑃 ∥ (𝑦 / (𝑃↑(𝑃 pCnt 𝑦)))))
172 pczdvds 16775 . . . . . . . . . . . 12 ((𝑃 ∈ ℙ ∧ (𝑧 ∈ ℤ ∧ 𝑧 ≠ 0)) → (𝑃↑(𝑃 pCnt 𝑧)) ∥ 𝑧)
17322, 97, 108, 172syl12anc 836 . . . . . . . . . . 11 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑧)) ∥ 𝑧)
174111nnzd 12495 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑧)) ∈ ℤ)
175 dvdsval2 16166 . . . . . . . . . . . 12 (((𝑃↑(𝑃 pCnt 𝑧)) ∈ ℤ ∧ (𝑃↑(𝑃 pCnt 𝑧)) ≠ 0 ∧ 𝑧 ∈ ℤ) → ((𝑃↑(𝑃 pCnt 𝑧)) ∥ 𝑧 ↔ (𝑧 / (𝑃↑(𝑃 pCnt 𝑧))) ∈ ℤ))
176174, 119, 97, 175syl3anc 1373 . . . . . . . . . . 11 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑃↑(𝑃 pCnt 𝑧)) ∥ 𝑧 ↔ (𝑧 / (𝑃↑(𝑃 pCnt 𝑧))) ∈ ℤ))
177173, 176mpbid 232 . . . . . . . . . 10 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑧 / (𝑃↑(𝑃 pCnt 𝑧))) ∈ ℤ)
178 pczndvds2 16779 . . . . . . . . . . 11 ((𝑃 ∈ ℙ ∧ (𝑧 ∈ ℤ ∧ 𝑧 ≠ 0)) → ¬ 𝑃 ∥ (𝑧 / (𝑃↑(𝑃 pCnt 𝑧))))
17922, 97, 108, 178syl12anc 836 . . . . . . . . . 10 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ¬ 𝑃 ∥ (𝑧 / (𝑃↑(𝑃 pCnt 𝑧))))
180177, 179jca 511 . . . . . . . . 9 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑧 / (𝑃↑(𝑃 pCnt 𝑧))) ∈ ℤ ∧ ¬ 𝑃 ∥ (𝑧 / (𝑃↑(𝑃 pCnt 𝑧)))))
181 pcdvds 16776 . . . . . . . . . . . . 13 ((𝑃 ∈ ℙ ∧ 𝑤 ∈ ℕ) → (𝑃↑(𝑃 pCnt 𝑤)) ∥ 𝑤)
18222, 100, 181syl2anc 584 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑤)) ∥ 𝑤)
183117nnzd 12495 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑤)) ∈ ℤ)
184100nnzd 12495 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑤 ∈ ℤ)
185 dvdsval2 16166 . . . . . . . . . . . . 13 (((𝑃↑(𝑃 pCnt 𝑤)) ∈ ℤ ∧ (𝑃↑(𝑃 pCnt 𝑤)) ≠ 0 ∧ 𝑤 ∈ ℤ) → ((𝑃↑(𝑃 pCnt 𝑤)) ∥ 𝑤 ↔ (𝑤 / (𝑃↑(𝑃 pCnt 𝑤))) ∈ ℤ))
186183, 120, 184, 185syl3anc 1373 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑃↑(𝑃 pCnt 𝑤)) ∥ 𝑤 ↔ (𝑤 / (𝑃↑(𝑃 pCnt 𝑤))) ∈ ℤ))
187182, 186mpbid 232 . . . . . . . . . . 11 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑤 / (𝑃↑(𝑃 pCnt 𝑤))) ∈ ℤ)
188100nnred 12140 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑤 ∈ ℝ)
189117nnred 12140 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑤)) ∈ ℝ)
190100nngt0d 12174 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 0 < 𝑤)
191117nngt0d 12174 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 0 < (𝑃↑(𝑃 pCnt 𝑤)))
192188, 189, 190, 191divgt0d 12057 . . . . . . . . . . 11 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 0 < (𝑤 / (𝑃↑(𝑃 pCnt 𝑤))))
193 elnnz 12478 . . . . . . . . . . 11 ((𝑤 / (𝑃↑(𝑃 pCnt 𝑤))) ∈ ℕ ↔ ((𝑤 / (𝑃↑(𝑃 pCnt 𝑤))) ∈ ℤ ∧ 0 < (𝑤 / (𝑃↑(𝑃 pCnt 𝑤)))))
194187, 192, 193sylanbrc 583 . . . . . . . . . 10 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑤 / (𝑃↑(𝑃 pCnt 𝑤))) ∈ ℕ)
195 pcndvds2 16780 . . . . . . . . . . 11 ((𝑃 ∈ ℙ ∧ 𝑤 ∈ ℕ) → ¬ 𝑃 ∥ (𝑤 / (𝑃↑(𝑃 pCnt 𝑤))))
19622, 100, 195syl2anc 584 . . . . . . . . . 10 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ¬ 𝑃 ∥ (𝑤 / (𝑃↑(𝑃 pCnt 𝑤))))
197194, 196jca 511 . . . . . . . . 9 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑤 / (𝑃↑(𝑃 pCnt 𝑤))) ∈ ℕ ∧ ¬ 𝑃 ∥ (𝑤 / (𝑃↑(𝑃 pCnt 𝑤)))))
19822, 96, 142, 145, 154, 171, 180, 197pcaddlem 16800 . . . . . . . 8 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 𝐴) ≤ (𝑃 pCnt (𝐴 + 𝐵)))
199198expr 456 . . . . . . 7 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ (𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ)) → ((𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)) → (𝑃 pCnt 𝐴) ≤ (𝑃 pCnt (𝐴 + 𝐵))))
200199rexlimdvva 3189 . . . . . 6 (((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) → (∃𝑦 ∈ ℕ ∃𝑤 ∈ ℕ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)) → (𝑃 pCnt 𝐴) ≤ (𝑃 pCnt (𝐴 + 𝐵))))
20121, 200biimtrrid 243 . . . . 5 (((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) → ((∃𝑦 ∈ ℕ 𝐴 = (𝑥 / 𝑦) ∧ ∃𝑤 ∈ ℕ 𝐵 = (𝑧 / 𝑤)) → (𝑃 pCnt 𝐴) ≤ (𝑃 pCnt (𝐴 + 𝐵))))
202201rexlimdvva 3189 . . . 4 ((𝜑𝐵 ≠ 0) → (∃𝑥 ∈ ℤ ∃𝑧 ∈ ℤ (∃𝑦 ∈ ℕ 𝐴 = (𝑥 / 𝑦) ∧ ∃𝑤 ∈ ℕ 𝐵 = (𝑧 / 𝑤)) → (𝑃 pCnt 𝐴) ≤ (𝑃 pCnt (𝐴 + 𝐵))))
20320, 202biimtrrid 243 . . 3 ((𝜑𝐵 ≠ 0) → ((∃𝑥 ∈ ℤ ∃𝑦 ∈ ℕ 𝐴 = (𝑥 / 𝑦) ∧ ∃𝑧 ∈ ℤ ∃𝑤 ∈ ℕ 𝐵 = (𝑧 / 𝑤)) → (𝑃 pCnt 𝐴) ≤ (𝑃 pCnt (𝐴 + 𝐵))))
20419, 203pm2.61dane 3015 . 2 (𝜑 → ((∃𝑥 ∈ ℤ ∃𝑦 ∈ ℕ 𝐴 = (𝑥 / 𝑦) ∧ ∃𝑧 ∈ ℤ ∃𝑤 ∈ ℕ 𝐵 = (𝑧 / 𝑤)) → (𝑃 pCnt 𝐴) ≤ (𝑃 pCnt (𝐴 + 𝐵))))
2053, 6, 204mp2and 699 1 (𝜑 → (𝑃 pCnt 𝐴) ≤ (𝑃 pCnt (𝐴 + 𝐵)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 206  wa 395   = wceq 1541  wcel 2111  wne 2928  wrex 3056   class class class wbr 5091  cfv 6481  (class class class)co 7346  cc 11004  cr 11005  0cc0 11006   + caddc 11009   · cmul 11011  +∞cpnf 11143  *cxr 11145   < clt 11146  cle 11147  cmin 11344   / cdiv 11774  cn 12125  0cn0 12381  cz 12468  cuz 12732  cq 12846  cexp 13968  cdvds 16163  cprime 16582   pCnt cpc 16748
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 2113  ax-9 2121  ax-10 2144  ax-11 2160  ax-12 2180  ax-ext 2703  ax-sep 5234  ax-nul 5244  ax-pow 5303  ax-pr 5370  ax-un 7668  ax-cnex 11062  ax-resscn 11063  ax-1cn 11064  ax-icn 11065  ax-addcl 11066  ax-addrcl 11067  ax-mulcl 11068  ax-mulrcl 11069  ax-mulcom 11070  ax-addass 11071  ax-mulass 11072  ax-distr 11073  ax-i2m1 11074  ax-1ne0 11075  ax-1rid 11076  ax-rnegex 11077  ax-rrecex 11078  ax-cnre 11079  ax-pre-lttri 11080  ax-pre-lttrn 11081  ax-pre-ltadd 11082  ax-pre-mulgt0 11083  ax-pre-sup 11084
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 2535  df-eu 2564  df-clab 2710  df-cleq 2723  df-clel 2806  df-nfc 2881  df-ne 2929  df-nel 3033  df-ral 3048  df-rex 3057  df-rmo 3346  df-reu 3347  df-rab 3396  df-v 3438  df-sbc 3742  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-pss 3922  df-nul 4284  df-if 4476  df-pw 4552  df-sn 4577  df-pr 4579  df-op 4583  df-uni 4860  df-iun 4943  df-br 5092  df-opab 5154  df-mpt 5173  df-tr 5199  df-id 5511  df-eprel 5516  df-po 5524  df-so 5525  df-fr 5569  df-we 5571  df-xp 5622  df-rel 5623  df-cnv 5624  df-co 5625  df-dm 5626  df-rn 5627  df-res 5628  df-ima 5629  df-pred 6248  df-ord 6309  df-on 6310  df-lim 6311  df-suc 6312  df-iota 6437  df-fun 6483  df-fn 6484  df-f 6485  df-f1 6486  df-fo 6487  df-f1o 6488  df-fv 6489  df-riota 7303  df-ov 7349  df-oprab 7350  df-mpo 7351  df-om 7797  df-1st 7921  df-2nd 7922  df-frecs 8211  df-wrecs 8242  df-recs 8291  df-rdg 8329  df-1o 8385  df-2o 8386  df-er 8622  df-en 8870  df-dom 8871  df-sdom 8872  df-fin 8873  df-sup 9326  df-inf 9327  df-pnf 11148  df-mnf 11149  df-xr 11150  df-ltxr 11151  df-le 11152  df-sub 11346  df-neg 11347  df-div 11775  df-nn 12126  df-2 12188  df-3 12189  df-n0 12382  df-z 12469  df-uz 12733  df-q 12847  df-rp 12891  df-fl 13696  df-mod 13774  df-seq 13909  df-exp 13969  df-cj 15006  df-re 15007  df-im 15008  df-sqrt 15142  df-abs 15143  df-dvds 16164  df-gcd 16406  df-prm 16583  df-pc 16749
This theorem is referenced by:  pcadd2  16802  padicabv  27569
  Copyright terms: Public domain W3C validator