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

Theorem pcadd 16927
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 12992 . . 3 (𝐴 ∈ ℚ ↔ ∃𝑥 ∈ ℤ ∃𝑦 ∈ ℕ 𝐴 = (𝑥 / 𝑦))
31, 2sylib 218 . 2 (𝜑 → ∃𝑥 ∈ ℤ ∃𝑦 ∈ ℕ 𝐴 = (𝑥 / 𝑦))
4 pcadd.3 . . 3 (𝜑𝐵 ∈ ℚ)
5 elq 12992 . . 3 (𝐵 ∈ ℚ ↔ ∃𝑧 ∈ ℤ ∃𝑤 ∈ ℕ 𝐵 = (𝑧 / 𝑤))
64, 5sylib 218 . 2 (𝜑 → ∃𝑧 ∈ ℤ ∃𝑤 ∈ ℕ 𝐵 = (𝑧 / 𝑤))
7 pcadd.1 . . . . . . . 8 (𝜑𝑃 ∈ ℙ)
8 pcxcl 16899 . . . . . . . 8 ((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℚ) → (𝑃 pCnt 𝐴) ∈ ℝ*)
97, 1, 8syl2anc 584 . . . . . . 7 (𝜑 → (𝑃 pCnt 𝐴) ∈ ℝ*)
109xrleidd 13194 . . . . . 6 (𝜑 → (𝑃 pCnt 𝐴) ≤ (𝑃 pCnt 𝐴))
1110adantr 480 . . . . 5 ((𝜑𝐵 = 0) → (𝑃 pCnt 𝐴) ≤ (𝑃 pCnt 𝐴))
12 oveq2 7439 . . . . . . 7 (𝐵 = 0 → (𝐴 + 𝐵) = (𝐴 + 0))
13 qcn 13005 . . . . . . . . 9 (𝐴 ∈ ℚ → 𝐴 ∈ ℂ)
141, 13syl 17 . . . . . . . 8 (𝜑𝐴 ∈ ℂ)
1514addridd 11461 . . . . . . 7 (𝜑 → (𝐴 + 0) = 𝐴)
1612, 15sylan9eqr 2799 . . . . . 6 ((𝜑𝐵 = 0) → (𝐴 + 𝐵) = 𝐴)
1716oveq2d 7447 . . . . 5 ((𝜑𝐵 = 0) → (𝑃 pCnt (𝐴 + 𝐵)) = (𝑃 pCnt 𝐴))
1811, 17breqtrrd 5171 . . . 4 ((𝜑𝐵 = 0) → (𝑃 pCnt 𝐴) ≤ (𝑃 pCnt (𝐴 + 𝐵)))
1918a1d 25 . . 3 ((𝜑𝐵 = 0) → ((∃𝑥 ∈ ℤ ∃𝑦 ∈ ℕ 𝐴 = (𝑥 / 𝑦) ∧ ∃𝑧 ∈ ℤ ∃𝑤 ∈ ℕ 𝐵 = (𝑧 / 𝑤)) → (𝑃 pCnt 𝐴) ≤ (𝑃 pCnt (𝐴 + 𝐵))))
20 reeanv 3229 . . . 4 (∃𝑥 ∈ ℤ ∃𝑧 ∈ ℤ (∃𝑦 ∈ ℕ 𝐴 = (𝑥 / 𝑦) ∧ ∃𝑤 ∈ ℕ 𝐵 = (𝑧 / 𝑤)) ↔ (∃𝑥 ∈ ℤ ∃𝑦 ∈ ℕ 𝐴 = (𝑥 / 𝑦) ∧ ∃𝑧 ∈ ℤ ∃𝑤 ∈ ℕ 𝐵 = (𝑧 / 𝑤)))
21 reeanv 3229 . . . . . 6 (∃𝑦 ∈ ℕ ∃𝑤 ∈ ℕ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)) ↔ (∃𝑦 ∈ ℕ 𝐴 = (𝑥 / 𝑦) ∧ ∃𝑤 ∈ ℕ 𝐵 = (𝑧 / 𝑤)))
227ad3antrrr 730 . . . . . . . . 9 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑃 ∈ ℙ)
23 prmnn 16711 . . . . . . . . . . . . . . . . 17 (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
2422, 23syl 17 . . . . . . . . . . . . . . . 16 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑃 ∈ ℕ)
25 simplrl 777 . . . . . . . . . . . . . . . . 17 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑥 ∈ ℤ)
26 simprrl 781 . . . . . . . . . . . . . . . . . . 19 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝐴 = (𝑥 / 𝑦))
27 pc0 16892 . . . . . . . . . . . . . . . . . . . . . 22 (𝑃 ∈ ℙ → (𝑃 pCnt 0) = +∞)
2822, 27syl 17 . . . . . . . . . . . . . . . . . . . . 21 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 0) = +∞)
294ad3antrrr 730 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝐵 ∈ ℚ)
30 simpllr 776 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝐵 ≠ 0)
31 pcqcl 16894 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑃 ∈ ℙ ∧ (𝐵 ∈ ℚ ∧ 𝐵 ≠ 0)) → (𝑃 pCnt 𝐵) ∈ ℤ)
3222, 29, 30, 31syl12anc 837 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 𝐵) ∈ ℤ)
3332zred 12722 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 𝐵) ∈ ℝ)
34 ltpnf 13162 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑃 pCnt 𝐵) ∈ ℝ → (𝑃 pCnt 𝐵) < +∞)
35 rexr 11307 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑃 pCnt 𝐵) ∈ ℝ → (𝑃 pCnt 𝐵) ∈ ℝ*)
36 pnfxr 11315 . . . . . . . . . . . . . . . . . . . . . . . 24 +∞ ∈ ℝ*
37 xrltnle 11328 . . . . . . . . . . . . . . . . . . . . . . . 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 5161 . . . . . . . . . . . . . . . . . . . 20 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ¬ (𝑃 pCnt 0) ≤ (𝑃 pCnt 𝐵))
42 pcadd.4 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜑 → (𝑃 pCnt 𝐴) ≤ (𝑃 pCnt 𝐵))
4342ad3antrrr 730 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 𝐴) ≤ (𝑃 pCnt 𝐵))
44 oveq2 7439 . . . . . . . . . . . . . . . . . . . . . . 23 (𝐴 = 0 → (𝑃 pCnt 𝐴) = (𝑃 pCnt 0))
4544breq1d 5153 . . . . . . . . . . . . . . . . . . . . . 22 (𝐴 = 0 → ((𝑃 pCnt 𝐴) ≤ (𝑃 pCnt 𝐵) ↔ (𝑃 pCnt 0) ≤ (𝑃 pCnt 𝐵)))
4643, 45syl5ibcom 245 . . . . . . . . . . . . . . . . . . . . 21 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝐴 = 0 → (𝑃 pCnt 0) ≤ (𝑃 pCnt 𝐵)))
4746necon3bd 2954 . . . . . . . . . . . . . . . . . . . 20 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (¬ (𝑃 pCnt 0) ≤ (𝑃 pCnt 𝐵) → 𝐴 ≠ 0))
4841, 47mpd 15 . . . . . . . . . . . . . . . . . . 19 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝐴 ≠ 0)
4926, 48eqnetrrd 3009 . . . . . . . . . . . . . . . . . 18 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑥 / 𝑦) ≠ 0)
50 simprll 779 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑦 ∈ ℕ)
5150nncnd 12282 . . . . . . . . . . . . . . . . . . . . 21 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑦 ∈ ℂ)
5250nnne0d 12316 . . . . . . . . . . . . . . . . . . . . 21 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑦 ≠ 0)
5351, 52div0d 12042 . . . . . . . . . . . . . . . . . . . 20 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (0 / 𝑦) = 0)
54 oveq1 7438 . . . . . . . . . . . . . . . . . . . . 21 (𝑥 = 0 → (𝑥 / 𝑦) = (0 / 𝑦))
5554eqeq1d 2739 . . . . . . . . . . . . . . . . . . . 20 (𝑥 = 0 → ((𝑥 / 𝑦) = 0 ↔ (0 / 𝑦) = 0))
5653, 55syl5ibrcom 247 . . . . . . . . . . . . . . . . . . 19 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑥 = 0 → (𝑥 / 𝑦) = 0))
5756necon3d 2961 . . . . . . . . . . . . . . . . . 18 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑥 / 𝑦) ≠ 0 → 𝑥 ≠ 0))
5849, 57mpd 15 . . . . . . . . . . . . . . . . 17 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑥 ≠ 0)
59 pczcl 16886 . . . . . . . . . . . . . . . . 17 ((𝑃 ∈ ℙ ∧ (𝑥 ∈ ℤ ∧ 𝑥 ≠ 0)) → (𝑃 pCnt 𝑥) ∈ ℕ0)
6022, 25, 58, 59syl12anc 837 . . . . . . . . . . . . . . . 16 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 𝑥) ∈ ℕ0)
6124, 60nnexpcld 14284 . . . . . . . . . . . . . . 15 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑥)) ∈ ℕ)
6261nncnd 12282 . . . . . . . . . . . . . 14 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑥)) ∈ ℂ)
6362, 51mulcomd 11282 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑃↑(𝑃 pCnt 𝑥)) · 𝑦) = (𝑦 · (𝑃↑(𝑃 pCnt 𝑥))))
6463oveq2d 7447 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑥 · (𝑃↑(𝑃 pCnt 𝑦))) / ((𝑃↑(𝑃 pCnt 𝑥)) · 𝑦)) = ((𝑥 · (𝑃↑(𝑃 pCnt 𝑦))) / (𝑦 · (𝑃↑(𝑃 pCnt 𝑥)))))
6525zcnd 12723 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑥 ∈ ℂ)
6622, 50pccld 16888 . . . . . . . . . . . . . . 15 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 𝑦) ∈ ℕ0)
6724, 66nnexpcld 14284 . . . . . . . . . . . . . 14 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑦)) ∈ ℕ)
6867nncnd 12282 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑦)) ∈ ℂ)
6961nnne0d 12316 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑥)) ≠ 0)
7067nnne0d 12316 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑦)) ≠ 0)
7165, 62, 51, 68, 69, 70, 52divdivdivd 12090 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑥 / (𝑃↑(𝑃 pCnt 𝑥))) / (𝑦 / (𝑃↑(𝑃 pCnt 𝑦)))) = ((𝑥 · (𝑃↑(𝑃 pCnt 𝑦))) / ((𝑃↑(𝑃 pCnt 𝑥)) · 𝑦)))
7226oveq2d 7447 . . . . . . . . . . . . . . . . 17 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 𝐴) = (𝑃 pCnt (𝑥 / 𝑦)))
73 pcdiv 16890 . . . . . . . . . . . . . . . . . 18 ((𝑃 ∈ ℙ ∧ (𝑥 ∈ ℤ ∧ 𝑥 ≠ 0) ∧ 𝑦 ∈ ℕ) → (𝑃 pCnt (𝑥 / 𝑦)) = ((𝑃 pCnt 𝑥) − (𝑃 pCnt 𝑦)))
7422, 25, 58, 50, 73syl121anc 1377 . . . . . . . . . . . . . . . . 17 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt (𝑥 / 𝑦)) = ((𝑃 pCnt 𝑥) − (𝑃 pCnt 𝑦)))
7572, 74eqtrd 2777 . . . . . . . . . . . . . . . 16 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 𝐴) = ((𝑃 pCnt 𝑥) − (𝑃 pCnt 𝑦)))
7675oveq2d 7447 . . . . . . . . . . . . . . 15 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝐴)) = (𝑃↑((𝑃 pCnt 𝑥) − (𝑃 pCnt 𝑦))))
7724nncnd 12282 . . . . . . . . . . . . . . . 16 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑃 ∈ ℂ)
7824nnne0d 12316 . . . . . . . . . . . . . . . 16 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑃 ≠ 0)
7966nn0zd 12639 . . . . . . . . . . . . . . . 16 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 𝑦) ∈ ℤ)
8060nn0zd 12639 . . . . . . . . . . . . . . . 16 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 𝑥) ∈ ℤ)
8177, 78, 79, 80expsubd 14197 . . . . . . . . . . . . . . 15 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑((𝑃 pCnt 𝑥) − (𝑃 pCnt 𝑦))) = ((𝑃↑(𝑃 pCnt 𝑥)) / (𝑃↑(𝑃 pCnt 𝑦))))
8276, 81eqtrd 2777 . . . . . . . . . . . . . 14 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝐴)) = ((𝑃↑(𝑃 pCnt 𝑥)) / (𝑃↑(𝑃 pCnt 𝑦))))
8382oveq2d 7447 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝐴 / (𝑃↑(𝑃 pCnt 𝐴))) = (𝐴 / ((𝑃↑(𝑃 pCnt 𝑥)) / (𝑃↑(𝑃 pCnt 𝑦)))))
8426oveq1d 7446 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝐴 / ((𝑃↑(𝑃 pCnt 𝑥)) / (𝑃↑(𝑃 pCnt 𝑦)))) = ((𝑥 / 𝑦) / ((𝑃↑(𝑃 pCnt 𝑥)) / (𝑃↑(𝑃 pCnt 𝑦)))))
8565, 51, 62, 68, 52, 70, 69divdivdivd 12090 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑥 / 𝑦) / ((𝑃↑(𝑃 pCnt 𝑥)) / (𝑃↑(𝑃 pCnt 𝑦)))) = ((𝑥 · (𝑃↑(𝑃 pCnt 𝑦))) / (𝑦 · (𝑃↑(𝑃 pCnt 𝑥)))))
8683, 84, 853eqtrd 2781 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝐴 / (𝑃↑(𝑃 pCnt 𝐴))) = ((𝑥 · (𝑃↑(𝑃 pCnt 𝑦))) / (𝑦 · (𝑃↑(𝑃 pCnt 𝑥)))))
8764, 71, 863eqtr4d 2787 . . . . . . . . . . 11 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑥 / (𝑃↑(𝑃 pCnt 𝑥))) / (𝑦 / (𝑃↑(𝑃 pCnt 𝑦)))) = (𝐴 / (𝑃↑(𝑃 pCnt 𝐴))))
8887oveq2d 7447 . . . . . . . . . 10 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑃↑(𝑃 pCnt 𝐴)) · ((𝑥 / (𝑃↑(𝑃 pCnt 𝑥))) / (𝑦 / (𝑃↑(𝑃 pCnt 𝑦))))) = ((𝑃↑(𝑃 pCnt 𝐴)) · (𝐴 / (𝑃↑(𝑃 pCnt 𝐴)))))
891ad3antrrr 730 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝐴 ∈ ℚ)
9089, 13syl 17 . . . . . . . . . . 11 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝐴 ∈ ℂ)
91 pcqcl 16894 . . . . . . . . . . . . 13 ((𝑃 ∈ ℙ ∧ (𝐴 ∈ ℚ ∧ 𝐴 ≠ 0)) → (𝑃 pCnt 𝐴) ∈ ℤ)
9222, 89, 48, 91syl12anc 837 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 𝐴) ∈ ℤ)
9377, 78, 92expclzd 14191 . . . . . . . . . . 11 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝐴)) ∈ ℂ)
9477, 78, 92expne0d 14192 . . . . . . . . . . 11 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝐴)) ≠ 0)
9590, 93, 94divcan2d 12045 . . . . . . . . . 10 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑃↑(𝑃 pCnt 𝐴)) · (𝐴 / (𝑃↑(𝑃 pCnt 𝐴)))) = 𝐴)
9688, 95eqtr2d 2778 . . . . . . . . 9 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝐴 = ((𝑃↑(𝑃 pCnt 𝐴)) · ((𝑥 / (𝑃↑(𝑃 pCnt 𝑥))) / (𝑦 / (𝑃↑(𝑃 pCnt 𝑦))))))
97 simplrr 778 . . . . . . . . . . . . . . . . 17 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑧 ∈ ℤ)
98 simprrr 782 . . . . . . . . . . . . . . . . . . 19 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝐵 = (𝑧 / 𝑤))
9998, 30eqnetrrd 3009 . . . . . . . . . . . . . . . . . 18 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑧 / 𝑤) ≠ 0)
100 simprlr 780 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑤 ∈ ℕ)
101100nncnd 12282 . . . . . . . . . . . . . . . . . . . . 21 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑤 ∈ ℂ)
102100nnne0d 12316 . . . . . . . . . . . . . . . . . . . . 21 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑤 ≠ 0)
103101, 102div0d 12042 . . . . . . . . . . . . . . . . . . . 20 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (0 / 𝑤) = 0)
104 oveq1 7438 . . . . . . . . . . . . . . . . . . . . 21 (𝑧 = 0 → (𝑧 / 𝑤) = (0 / 𝑤))
105104eqeq1d 2739 . . . . . . . . . . . . . . . . . . . 20 (𝑧 = 0 → ((𝑧 / 𝑤) = 0 ↔ (0 / 𝑤) = 0))
106103, 105syl5ibrcom 247 . . . . . . . . . . . . . . . . . . 19 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑧 = 0 → (𝑧 / 𝑤) = 0))
107106necon3d 2961 . . . . . . . . . . . . . . . . . 18 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑧 / 𝑤) ≠ 0 → 𝑧 ≠ 0))
10899, 107mpd 15 . . . . . . . . . . . . . . . . 17 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑧 ≠ 0)
109 pczcl 16886 . . . . . . . . . . . . . . . . 17 ((𝑃 ∈ ℙ ∧ (𝑧 ∈ ℤ ∧ 𝑧 ≠ 0)) → (𝑃 pCnt 𝑧) ∈ ℕ0)
11022, 97, 108, 109syl12anc 837 . . . . . . . . . . . . . . . 16 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 𝑧) ∈ ℕ0)
11124, 110nnexpcld 14284 . . . . . . . . . . . . . . 15 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑧)) ∈ ℕ)
112111nncnd 12282 . . . . . . . . . . . . . 14 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑧)) ∈ ℂ)
113112, 101mulcomd 11282 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑃↑(𝑃 pCnt 𝑧)) · 𝑤) = (𝑤 · (𝑃↑(𝑃 pCnt 𝑧))))
114113oveq2d 7447 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑧 · (𝑃↑(𝑃 pCnt 𝑤))) / ((𝑃↑(𝑃 pCnt 𝑧)) · 𝑤)) = ((𝑧 · (𝑃↑(𝑃 pCnt 𝑤))) / (𝑤 · (𝑃↑(𝑃 pCnt 𝑧)))))
11597zcnd 12723 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑧 ∈ ℂ)
11622, 100pccld 16888 . . . . . . . . . . . . . . 15 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 𝑤) ∈ ℕ0)
11724, 116nnexpcld 14284 . . . . . . . . . . . . . 14 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑤)) ∈ ℕ)
118117nncnd 12282 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑤)) ∈ ℂ)
119111nnne0d 12316 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑧)) ≠ 0)
120117nnne0d 12316 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑤)) ≠ 0)
121115, 112, 101, 118, 119, 120, 102divdivdivd 12090 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑧 / (𝑃↑(𝑃 pCnt 𝑧))) / (𝑤 / (𝑃↑(𝑃 pCnt 𝑤)))) = ((𝑧 · (𝑃↑(𝑃 pCnt 𝑤))) / ((𝑃↑(𝑃 pCnt 𝑧)) · 𝑤)))
12298oveq2d 7447 . . . . . . . . . . . . . . . . 17 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 𝐵) = (𝑃 pCnt (𝑧 / 𝑤)))
123 pcdiv 16890 . . . . . . . . . . . . . . . . . 18 ((𝑃 ∈ ℙ ∧ (𝑧 ∈ ℤ ∧ 𝑧 ≠ 0) ∧ 𝑤 ∈ ℕ) → (𝑃 pCnt (𝑧 / 𝑤)) = ((𝑃 pCnt 𝑧) − (𝑃 pCnt 𝑤)))
12422, 97, 108, 100, 123syl121anc 1377 . . . . . . . . . . . . . . . . 17 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt (𝑧 / 𝑤)) = ((𝑃 pCnt 𝑧) − (𝑃 pCnt 𝑤)))
125122, 124eqtrd 2777 . . . . . . . . . . . . . . . 16 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 𝐵) = ((𝑃 pCnt 𝑧) − (𝑃 pCnt 𝑤)))
126125oveq2d 7447 . . . . . . . . . . . . . . 15 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝐵)) = (𝑃↑((𝑃 pCnt 𝑧) − (𝑃 pCnt 𝑤))))
127116nn0zd 12639 . . . . . . . . . . . . . . . 16 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 𝑤) ∈ ℤ)
128110nn0zd 12639 . . . . . . . . . . . . . . . 16 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 𝑧) ∈ ℤ)
12977, 78, 127, 128expsubd 14197 . . . . . . . . . . . . . . 15 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑((𝑃 pCnt 𝑧) − (𝑃 pCnt 𝑤))) = ((𝑃↑(𝑃 pCnt 𝑧)) / (𝑃↑(𝑃 pCnt 𝑤))))
130126, 129eqtrd 2777 . . . . . . . . . . . . . 14 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝐵)) = ((𝑃↑(𝑃 pCnt 𝑧)) / (𝑃↑(𝑃 pCnt 𝑤))))
131130oveq2d 7447 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝐵 / (𝑃↑(𝑃 pCnt 𝐵))) = (𝐵 / ((𝑃↑(𝑃 pCnt 𝑧)) / (𝑃↑(𝑃 pCnt 𝑤)))))
13298oveq1d 7446 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝐵 / ((𝑃↑(𝑃 pCnt 𝑧)) / (𝑃↑(𝑃 pCnt 𝑤)))) = ((𝑧 / 𝑤) / ((𝑃↑(𝑃 pCnt 𝑧)) / (𝑃↑(𝑃 pCnt 𝑤)))))
133115, 101, 112, 118, 102, 120, 119divdivdivd 12090 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑧 / 𝑤) / ((𝑃↑(𝑃 pCnt 𝑧)) / (𝑃↑(𝑃 pCnt 𝑤)))) = ((𝑧 · (𝑃↑(𝑃 pCnt 𝑤))) / (𝑤 · (𝑃↑(𝑃 pCnt 𝑧)))))
134131, 132, 1333eqtrd 2781 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝐵 / (𝑃↑(𝑃 pCnt 𝐵))) = ((𝑧 · (𝑃↑(𝑃 pCnt 𝑤))) / (𝑤 · (𝑃↑(𝑃 pCnt 𝑧)))))
135114, 121, 1343eqtr4d 2787 . . . . . . . . . . 11 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑧 / (𝑃↑(𝑃 pCnt 𝑧))) / (𝑤 / (𝑃↑(𝑃 pCnt 𝑤)))) = (𝐵 / (𝑃↑(𝑃 pCnt 𝐵))))
136135oveq2d 7447 . . . . . . . . . 10 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑃↑(𝑃 pCnt 𝐵)) · ((𝑧 / (𝑃↑(𝑃 pCnt 𝑧))) / (𝑤 / (𝑃↑(𝑃 pCnt 𝑤))))) = ((𝑃↑(𝑃 pCnt 𝐵)) · (𝐵 / (𝑃↑(𝑃 pCnt 𝐵)))))
137 qcn 13005 . . . . . . . . . . . 12 (𝐵 ∈ ℚ → 𝐵 ∈ ℂ)
13829, 137syl 17 . . . . . . . . . . 11 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝐵 ∈ ℂ)
13977, 78, 32expclzd 14191 . . . . . . . . . . 11 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝐵)) ∈ ℂ)
14077, 78, 32expne0d 14192 . . . . . . . . . . 11 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝐵)) ≠ 0)
141138, 139, 140divcan2d 12045 . . . . . . . . . 10 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑃↑(𝑃 pCnt 𝐵)) · (𝐵 / (𝑃↑(𝑃 pCnt 𝐵)))) = 𝐵)
142136, 141eqtr2d 2778 . . . . . . . . 9 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝐵 = ((𝑃↑(𝑃 pCnt 𝐵)) · ((𝑧 / (𝑃↑(𝑃 pCnt 𝑧))) / (𝑤 / (𝑃↑(𝑃 pCnt 𝑤))))))
143 eluz 12892 . . . . . . . . . . 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 16901 . . . . . . . . . . . 12 ((𝑃 ∈ ℙ ∧ (𝑥 ∈ ℤ ∧ 𝑥 ≠ 0)) → (𝑃↑(𝑃 pCnt 𝑥)) ∥ 𝑥)
14722, 25, 58, 146syl12anc 837 . . . . . . . . . . 11 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑥)) ∥ 𝑥)
14861nnzd 12640 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑥)) ∈ ℤ)
149 dvdsval2 16293 . . . . . . . . . . . 12 (((𝑃↑(𝑃 pCnt 𝑥)) ∈ ℤ ∧ (𝑃↑(𝑃 pCnt 𝑥)) ≠ 0 ∧ 𝑥 ∈ ℤ) → ((𝑃↑(𝑃 pCnt 𝑥)) ∥ 𝑥 ↔ (𝑥 / (𝑃↑(𝑃 pCnt 𝑥))) ∈ ℤ))
150148, 69, 25, 149syl3anc 1373 . . . . . . . . . . 11 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑃↑(𝑃 pCnt 𝑥)) ∥ 𝑥 ↔ (𝑥 / (𝑃↑(𝑃 pCnt 𝑥))) ∈ ℤ))
151147, 150mpbid 232 . . . . . . . . . 10 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑥 / (𝑃↑(𝑃 pCnt 𝑥))) ∈ ℤ)
152 pczndvds2 16905 . . . . . . . . . . 11 ((𝑃 ∈ ℙ ∧ (𝑥 ∈ ℤ ∧ 𝑥 ≠ 0)) → ¬ 𝑃 ∥ (𝑥 / (𝑃↑(𝑃 pCnt 𝑥))))
15322, 25, 58, 152syl12anc 837 . . . . . . . . . 10 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ¬ 𝑃 ∥ (𝑥 / (𝑃↑(𝑃 pCnt 𝑥))))
154151, 153jca 511 . . . . . . . . 9 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑥 / (𝑃↑(𝑃 pCnt 𝑥))) ∈ ℤ ∧ ¬ 𝑃 ∥ (𝑥 / (𝑃↑(𝑃 pCnt 𝑥)))))
155 pcdvds 16902 . . . . . . . . . . . . 13 ((𝑃 ∈ ℙ ∧ 𝑦 ∈ ℕ) → (𝑃↑(𝑃 pCnt 𝑦)) ∥ 𝑦)
15622, 50, 155syl2anc 584 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑦)) ∥ 𝑦)
15767nnzd 12640 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑦)) ∈ ℤ)
15850nnzd 12640 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑦 ∈ ℤ)
159 dvdsval2 16293 . . . . . . . . . . . . 13 (((𝑃↑(𝑃 pCnt 𝑦)) ∈ ℤ ∧ (𝑃↑(𝑃 pCnt 𝑦)) ≠ 0 ∧ 𝑦 ∈ ℤ) → ((𝑃↑(𝑃 pCnt 𝑦)) ∥ 𝑦 ↔ (𝑦 / (𝑃↑(𝑃 pCnt 𝑦))) ∈ ℤ))
160157, 70, 158, 159syl3anc 1373 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑃↑(𝑃 pCnt 𝑦)) ∥ 𝑦 ↔ (𝑦 / (𝑃↑(𝑃 pCnt 𝑦))) ∈ ℤ))
161156, 160mpbid 232 . . . . . . . . . . 11 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑦 / (𝑃↑(𝑃 pCnt 𝑦))) ∈ ℤ)
16250nnred 12281 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑦 ∈ ℝ)
16367nnred 12281 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑦)) ∈ ℝ)
16450nngt0d 12315 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 0 < 𝑦)
16567nngt0d 12315 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 0 < (𝑃↑(𝑃 pCnt 𝑦)))
166162, 163, 164, 165divgt0d 12203 . . . . . . . . . . 11 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 0 < (𝑦 / (𝑃↑(𝑃 pCnt 𝑦))))
167 elnnz 12623 . . . . . . . . . . 11 ((𝑦 / (𝑃↑(𝑃 pCnt 𝑦))) ∈ ℕ ↔ ((𝑦 / (𝑃↑(𝑃 pCnt 𝑦))) ∈ ℤ ∧ 0 < (𝑦 / (𝑃↑(𝑃 pCnt 𝑦)))))
168161, 166, 167sylanbrc 583 . . . . . . . . . 10 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑦 / (𝑃↑(𝑃 pCnt 𝑦))) ∈ ℕ)
169 pcndvds2 16906 . . . . . . . . . . 11 ((𝑃 ∈ ℙ ∧ 𝑦 ∈ ℕ) → ¬ 𝑃 ∥ (𝑦 / (𝑃↑(𝑃 pCnt 𝑦))))
17022, 50, 169syl2anc 584 . . . . . . . . . 10 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ¬ 𝑃 ∥ (𝑦 / (𝑃↑(𝑃 pCnt 𝑦))))
171168, 170jca 511 . . . . . . . . 9 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑦 / (𝑃↑(𝑃 pCnt 𝑦))) ∈ ℕ ∧ ¬ 𝑃 ∥ (𝑦 / (𝑃↑(𝑃 pCnt 𝑦)))))
172 pczdvds 16901 . . . . . . . . . . . 12 ((𝑃 ∈ ℙ ∧ (𝑧 ∈ ℤ ∧ 𝑧 ≠ 0)) → (𝑃↑(𝑃 pCnt 𝑧)) ∥ 𝑧)
17322, 97, 108, 172syl12anc 837 . . . . . . . . . . 11 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑧)) ∥ 𝑧)
174111nnzd 12640 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑧)) ∈ ℤ)
175 dvdsval2 16293 . . . . . . . . . . . 12 (((𝑃↑(𝑃 pCnt 𝑧)) ∈ ℤ ∧ (𝑃↑(𝑃 pCnt 𝑧)) ≠ 0 ∧ 𝑧 ∈ ℤ) → ((𝑃↑(𝑃 pCnt 𝑧)) ∥ 𝑧 ↔ (𝑧 / (𝑃↑(𝑃 pCnt 𝑧))) ∈ ℤ))
176174, 119, 97, 175syl3anc 1373 . . . . . . . . . . 11 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑃↑(𝑃 pCnt 𝑧)) ∥ 𝑧 ↔ (𝑧 / (𝑃↑(𝑃 pCnt 𝑧))) ∈ ℤ))
177173, 176mpbid 232 . . . . . . . . . 10 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑧 / (𝑃↑(𝑃 pCnt 𝑧))) ∈ ℤ)
178 pczndvds2 16905 . . . . . . . . . . 11 ((𝑃 ∈ ℙ ∧ (𝑧 ∈ ℤ ∧ 𝑧 ≠ 0)) → ¬ 𝑃 ∥ (𝑧 / (𝑃↑(𝑃 pCnt 𝑧))))
17922, 97, 108, 178syl12anc 837 . . . . . . . . . 10 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ¬ 𝑃 ∥ (𝑧 / (𝑃↑(𝑃 pCnt 𝑧))))
180177, 179jca 511 . . . . . . . . 9 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑧 / (𝑃↑(𝑃 pCnt 𝑧))) ∈ ℤ ∧ ¬ 𝑃 ∥ (𝑧 / (𝑃↑(𝑃 pCnt 𝑧)))))
181 pcdvds 16902 . . . . . . . . . . . . 13 ((𝑃 ∈ ℙ ∧ 𝑤 ∈ ℕ) → (𝑃↑(𝑃 pCnt 𝑤)) ∥ 𝑤)
18222, 100, 181syl2anc 584 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑤)) ∥ 𝑤)
183117nnzd 12640 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑤)) ∈ ℤ)
184100nnzd 12640 . . . . . . . . . . . . 13 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑤 ∈ ℤ)
185 dvdsval2 16293 . . . . . . . . . . . . 13 (((𝑃↑(𝑃 pCnt 𝑤)) ∈ ℤ ∧ (𝑃↑(𝑃 pCnt 𝑤)) ≠ 0 ∧ 𝑤 ∈ ℤ) → ((𝑃↑(𝑃 pCnt 𝑤)) ∥ 𝑤 ↔ (𝑤 / (𝑃↑(𝑃 pCnt 𝑤))) ∈ ℤ))
186183, 120, 184, 185syl3anc 1373 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑃↑(𝑃 pCnt 𝑤)) ∥ 𝑤 ↔ (𝑤 / (𝑃↑(𝑃 pCnt 𝑤))) ∈ ℤ))
187182, 186mpbid 232 . . . . . . . . . . 11 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑤 / (𝑃↑(𝑃 pCnt 𝑤))) ∈ ℤ)
188100nnred 12281 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 𝑤 ∈ ℝ)
189117nnred 12281 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃↑(𝑃 pCnt 𝑤)) ∈ ℝ)
190100nngt0d 12315 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 0 < 𝑤)
191117nngt0d 12315 . . . . . . . . . . . 12 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 0 < (𝑃↑(𝑃 pCnt 𝑤)))
192188, 189, 190, 191divgt0d 12203 . . . . . . . . . . 11 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → 0 < (𝑤 / (𝑃↑(𝑃 pCnt 𝑤))))
193 elnnz 12623 . . . . . . . . . . 11 ((𝑤 / (𝑃↑(𝑃 pCnt 𝑤))) ∈ ℕ ↔ ((𝑤 / (𝑃↑(𝑃 pCnt 𝑤))) ∈ ℤ ∧ 0 < (𝑤 / (𝑃↑(𝑃 pCnt 𝑤)))))
194187, 192, 193sylanbrc 583 . . . . . . . . . 10 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑤 / (𝑃↑(𝑃 pCnt 𝑤))) ∈ ℕ)
195 pcndvds2 16906 . . . . . . . . . . 11 ((𝑃 ∈ ℙ ∧ 𝑤 ∈ ℕ) → ¬ 𝑃 ∥ (𝑤 / (𝑃↑(𝑃 pCnt 𝑤))))
19622, 100, 195syl2anc 584 . . . . . . . . . 10 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ¬ 𝑃 ∥ (𝑤 / (𝑃↑(𝑃 pCnt 𝑤))))
197194, 196jca 511 . . . . . . . . 9 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → ((𝑤 / (𝑃↑(𝑃 pCnt 𝑤))) ∈ ℕ ∧ ¬ 𝑃 ∥ (𝑤 / (𝑃↑(𝑃 pCnt 𝑤)))))
19822, 96, 142, 145, 154, 171, 180, 197pcaddlem 16926 . . . . . . . 8 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ ((𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ) ∧ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)))) → (𝑃 pCnt 𝐴) ≤ (𝑃 pCnt (𝐴 + 𝐵)))
199198expr 456 . . . . . . 7 ((((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) ∧ (𝑦 ∈ ℕ ∧ 𝑤 ∈ ℕ)) → ((𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)) → (𝑃 pCnt 𝐴) ≤ (𝑃 pCnt (𝐴 + 𝐵))))
200199rexlimdvva 3213 . . . . . 6 (((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) → (∃𝑦 ∈ ℕ ∃𝑤 ∈ ℕ (𝐴 = (𝑥 / 𝑦) ∧ 𝐵 = (𝑧 / 𝑤)) → (𝑃 pCnt 𝐴) ≤ (𝑃 pCnt (𝐴 + 𝐵))))
20121, 200biimtrrid 243 . . . . 5 (((𝜑𝐵 ≠ 0) ∧ (𝑥 ∈ ℤ ∧ 𝑧 ∈ ℤ)) → ((∃𝑦 ∈ ℕ 𝐴 = (𝑥 / 𝑦) ∧ ∃𝑤 ∈ ℕ 𝐵 = (𝑧 / 𝑤)) → (𝑃 pCnt 𝐴) ≤ (𝑃 pCnt (𝐴 + 𝐵))))
202201rexlimdvva 3213 . . . 4 ((𝜑𝐵 ≠ 0) → (∃𝑥 ∈ ℤ ∃𝑧 ∈ ℤ (∃𝑦 ∈ ℕ 𝐴 = (𝑥 / 𝑦) ∧ ∃𝑤 ∈ ℕ 𝐵 = (𝑧 / 𝑤)) → (𝑃 pCnt 𝐴) ≤ (𝑃 pCnt (𝐴 + 𝐵))))
20320, 202biimtrrid 243 . . 3 ((𝜑𝐵 ≠ 0) → ((∃𝑥 ∈ ℤ ∃𝑦 ∈ ℕ 𝐴 = (𝑥 / 𝑦) ∧ ∃𝑧 ∈ ℤ ∃𝑤 ∈ ℕ 𝐵 = (𝑧 / 𝑤)) → (𝑃 pCnt 𝐴) ≤ (𝑃 pCnt (𝐴 + 𝐵))))
20419, 203pm2.61dane 3029 . 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 1540  wcel 2108  wne 2940  wrex 3070   class class class wbr 5143  cfv 6561  (class class class)co 7431  cc 11153  cr 11154  0cc0 11155   + caddc 11158   · cmul 11160  +∞cpnf 11292  *cxr 11294   < clt 11295  cle 11296  cmin 11492   / cdiv 11920  cn 12266  0cn0 12526  cz 12613  cuz 12878  cq 12990  cexp 14102  cdvds 16290  cprime 16708   pCnt cpc 16874
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 1910  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2157  ax-12 2177  ax-ext 2708  ax-sep 5296  ax-nul 5306  ax-pow 5365  ax-pr 5432  ax-un 7755  ax-cnex 11211  ax-resscn 11212  ax-1cn 11213  ax-icn 11214  ax-addcl 11215  ax-addrcl 11216  ax-mulcl 11217  ax-mulrcl 11218  ax-mulcom 11219  ax-addass 11220  ax-mulass 11221  ax-distr 11222  ax-i2m1 11223  ax-1ne0 11224  ax-1rid 11225  ax-rnegex 11226  ax-rrecex 11227  ax-cnre 11228  ax-pre-lttri 11229  ax-pre-lttrn 11230  ax-pre-ltadd 11231  ax-pre-mulgt0 11232  ax-pre-sup 11233
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2065  df-mo 2540  df-eu 2569  df-clab 2715  df-cleq 2729  df-clel 2816  df-nfc 2892  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rmo 3380  df-reu 3381  df-rab 3437  df-v 3482  df-sbc 3789  df-csb 3900  df-dif 3954  df-un 3956  df-in 3958  df-ss 3968  df-pss 3971  df-nul 4334  df-if 4526  df-pw 4602  df-sn 4627  df-pr 4629  df-op 4633  df-uni 4908  df-iun 4993  df-br 5144  df-opab 5206  df-mpt 5226  df-tr 5260  df-id 5578  df-eprel 5584  df-po 5592  df-so 5593  df-fr 5637  df-we 5639  df-xp 5691  df-rel 5692  df-cnv 5693  df-co 5694  df-dm 5695  df-rn 5696  df-res 5697  df-ima 5698  df-pred 6321  df-ord 6387  df-on 6388  df-lim 6389  df-suc 6390  df-iota 6514  df-fun 6563  df-fn 6564  df-f 6565  df-f1 6566  df-fo 6567  df-f1o 6568  df-fv 6569  df-riota 7388  df-ov 7434  df-oprab 7435  df-mpo 7436  df-om 7888  df-1st 8014  df-2nd 8015  df-frecs 8306  df-wrecs 8337  df-recs 8411  df-rdg 8450  df-1o 8506  df-2o 8507  df-er 8745  df-en 8986  df-dom 8987  df-sdom 8988  df-fin 8989  df-sup 9482  df-inf 9483  df-pnf 11297  df-mnf 11298  df-xr 11299  df-ltxr 11300  df-le 11301  df-sub 11494  df-neg 11495  df-div 11921  df-nn 12267  df-2 12329  df-3 12330  df-n0 12527  df-z 12614  df-uz 12879  df-q 12991  df-rp 13035  df-fl 13832  df-mod 13910  df-seq 14043  df-exp 14103  df-cj 15138  df-re 15139  df-im 15140  df-sqrt 15274  df-abs 15275  df-dvds 16291  df-gcd 16532  df-prm 16709  df-pc 16875
This theorem is referenced by:  pcadd2  16928  padicabv  27674
  Copyright terms: Public domain W3C validator