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

Theorem prmreclem4 15670
Description: Lemma for prmrec 15673. Show by induction that the indexed (nondisjoint) union 𝑊𝑘 is at most the size of the prime reciprocal series. The key counting lemma is hashdvds 15527, to show that the number of numbers in 1...𝑁 that divide 𝑘 is at most 𝑁 / 𝑘. (Contributed by Mario Carneiro, 6-Aug-2014.)
Hypotheses
Ref Expression
prmrec.1 𝐹 = (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, (1 / 𝑛), 0))
prmrec.2 (𝜑𝐾 ∈ ℕ)
prmrec.3 (𝜑𝑁 ∈ ℕ)
prmrec.4 𝑀 = {𝑛 ∈ (1...𝑁) ∣ ∀𝑝 ∈ (ℙ ∖ (1...𝐾)) ¬ 𝑝𝑛}
prmrec.5 (𝜑 → seq1( + , 𝐹) ∈ dom ⇝ )
prmrec.6 (𝜑 → Σ𝑘 ∈ (ℤ‘(𝐾 + 1))if(𝑘 ∈ ℙ, (1 / 𝑘), 0) < (1 / 2))
prmrec.7 𝑊 = (𝑝 ∈ ℕ ↦ {𝑛 ∈ (1...𝑁) ∣ (𝑝 ∈ ℙ ∧ 𝑝𝑛)})
Assertion
Ref Expression
prmreclem4 (𝜑 → (𝑁 ∈ (ℤ𝐾) → (#‘ 𝑘 ∈ ((𝐾 + 1)...𝑁)(𝑊𝑘)) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝑁)if(𝑘 ∈ ℙ, (1 / 𝑘), 0))))
Distinct variable groups:   𝑘,𝑛,𝑝,𝐹   𝑘,𝐾,𝑛,𝑝   𝑘,𝑀,𝑛,𝑝   𝜑,𝑘,𝑛,𝑝   𝑘,𝑊   𝑘,𝑁,𝑛,𝑝
Allowed substitution hints:   𝑊(𝑛,𝑝)

Proof of Theorem prmreclem4
Dummy variables 𝑗 𝑥 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 oveq2 6698 . . . . . . 7 (𝑥 = 𝐾 → ((𝐾 + 1)...𝑥) = ((𝐾 + 1)...𝐾))
21iuneq1d 4577 . . . . . 6 (𝑥 = 𝐾 𝑘 ∈ ((𝐾 + 1)...𝑥)(𝑊𝑘) = 𝑘 ∈ ((𝐾 + 1)...𝐾)(𝑊𝑘))
32fveq2d 6233 . . . . 5 (𝑥 = 𝐾 → (#‘ 𝑘 ∈ ((𝐾 + 1)...𝑥)(𝑊𝑘)) = (#‘ 𝑘 ∈ ((𝐾 + 1)...𝐾)(𝑊𝑘)))
41sumeq1d 14475 . . . . . 6 (𝑥 = 𝐾 → Σ𝑘 ∈ ((𝐾 + 1)...𝑥)if(𝑘 ∈ ℙ, (1 / 𝑘), 0) = Σ𝑘 ∈ ((𝐾 + 1)...𝐾)if(𝑘 ∈ ℙ, (1 / 𝑘), 0))
54oveq2d 6706 . . . . 5 (𝑥 = 𝐾 → (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝑥)if(𝑘 ∈ ℙ, (1 / 𝑘), 0)) = (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝐾)if(𝑘 ∈ ℙ, (1 / 𝑘), 0)))
63, 5breq12d 4698 . . . 4 (𝑥 = 𝐾 → ((#‘ 𝑘 ∈ ((𝐾 + 1)...𝑥)(𝑊𝑘)) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝑥)if(𝑘 ∈ ℙ, (1 / 𝑘), 0)) ↔ (#‘ 𝑘 ∈ ((𝐾 + 1)...𝐾)(𝑊𝑘)) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝐾)if(𝑘 ∈ ℙ, (1 / 𝑘), 0))))
76imbi2d 329 . . 3 (𝑥 = 𝐾 → ((𝜑 → (#‘ 𝑘 ∈ ((𝐾 + 1)...𝑥)(𝑊𝑘)) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝑥)if(𝑘 ∈ ℙ, (1 / 𝑘), 0))) ↔ (𝜑 → (#‘ 𝑘 ∈ ((𝐾 + 1)...𝐾)(𝑊𝑘)) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝐾)if(𝑘 ∈ ℙ, (1 / 𝑘), 0)))))
8 oveq2 6698 . . . . . . 7 (𝑥 = 𝑗 → ((𝐾 + 1)...𝑥) = ((𝐾 + 1)...𝑗))
98iuneq1d 4577 . . . . . 6 (𝑥 = 𝑗 𝑘 ∈ ((𝐾 + 1)...𝑥)(𝑊𝑘) = 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘))
109fveq2d 6233 . . . . 5 (𝑥 = 𝑗 → (#‘ 𝑘 ∈ ((𝐾 + 1)...𝑥)(𝑊𝑘)) = (#‘ 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘)))
118sumeq1d 14475 . . . . . 6 (𝑥 = 𝑗 → Σ𝑘 ∈ ((𝐾 + 1)...𝑥)if(𝑘 ∈ ℙ, (1 / 𝑘), 0) = Σ𝑘 ∈ ((𝐾 + 1)...𝑗)if(𝑘 ∈ ℙ, (1 / 𝑘), 0))
1211oveq2d 6706 . . . . 5 (𝑥 = 𝑗 → (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝑥)if(𝑘 ∈ ℙ, (1 / 𝑘), 0)) = (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝑗)if(𝑘 ∈ ℙ, (1 / 𝑘), 0)))
1310, 12breq12d 4698 . . . 4 (𝑥 = 𝑗 → ((#‘ 𝑘 ∈ ((𝐾 + 1)...𝑥)(𝑊𝑘)) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝑥)if(𝑘 ∈ ℙ, (1 / 𝑘), 0)) ↔ (#‘ 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘)) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝑗)if(𝑘 ∈ ℙ, (1 / 𝑘), 0))))
1413imbi2d 329 . . 3 (𝑥 = 𝑗 → ((𝜑 → (#‘ 𝑘 ∈ ((𝐾 + 1)...𝑥)(𝑊𝑘)) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝑥)if(𝑘 ∈ ℙ, (1 / 𝑘), 0))) ↔ (𝜑 → (#‘ 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘)) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝑗)if(𝑘 ∈ ℙ, (1 / 𝑘), 0)))))
15 oveq2 6698 . . . . . . 7 (𝑥 = (𝑗 + 1) → ((𝐾 + 1)...𝑥) = ((𝐾 + 1)...(𝑗 + 1)))
1615iuneq1d 4577 . . . . . 6 (𝑥 = (𝑗 + 1) → 𝑘 ∈ ((𝐾 + 1)...𝑥)(𝑊𝑘) = 𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))(𝑊𝑘))
1716fveq2d 6233 . . . . 5 (𝑥 = (𝑗 + 1) → (#‘ 𝑘 ∈ ((𝐾 + 1)...𝑥)(𝑊𝑘)) = (#‘ 𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))(𝑊𝑘)))
1815sumeq1d 14475 . . . . . 6 (𝑥 = (𝑗 + 1) → Σ𝑘 ∈ ((𝐾 + 1)...𝑥)if(𝑘 ∈ ℙ, (1 / 𝑘), 0) = Σ𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))if(𝑘 ∈ ℙ, (1 / 𝑘), 0))
1918oveq2d 6706 . . . . 5 (𝑥 = (𝑗 + 1) → (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝑥)if(𝑘 ∈ ℙ, (1 / 𝑘), 0)) = (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))if(𝑘 ∈ ℙ, (1 / 𝑘), 0)))
2017, 19breq12d 4698 . . . 4 (𝑥 = (𝑗 + 1) → ((#‘ 𝑘 ∈ ((𝐾 + 1)...𝑥)(𝑊𝑘)) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝑥)if(𝑘 ∈ ℙ, (1 / 𝑘), 0)) ↔ (#‘ 𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))(𝑊𝑘)) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))if(𝑘 ∈ ℙ, (1 / 𝑘), 0))))
2120imbi2d 329 . . 3 (𝑥 = (𝑗 + 1) → ((𝜑 → (#‘ 𝑘 ∈ ((𝐾 + 1)...𝑥)(𝑊𝑘)) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝑥)if(𝑘 ∈ ℙ, (1 / 𝑘), 0))) ↔ (𝜑 → (#‘ 𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))(𝑊𝑘)) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))if(𝑘 ∈ ℙ, (1 / 𝑘), 0)))))
22 oveq2 6698 . . . . . . 7 (𝑥 = 𝑁 → ((𝐾 + 1)...𝑥) = ((𝐾 + 1)...𝑁))
2322iuneq1d 4577 . . . . . 6 (𝑥 = 𝑁 𝑘 ∈ ((𝐾 + 1)...𝑥)(𝑊𝑘) = 𝑘 ∈ ((𝐾 + 1)...𝑁)(𝑊𝑘))
2423fveq2d 6233 . . . . 5 (𝑥 = 𝑁 → (#‘ 𝑘 ∈ ((𝐾 + 1)...𝑥)(𝑊𝑘)) = (#‘ 𝑘 ∈ ((𝐾 + 1)...𝑁)(𝑊𝑘)))
2522sumeq1d 14475 . . . . . 6 (𝑥 = 𝑁 → Σ𝑘 ∈ ((𝐾 + 1)...𝑥)if(𝑘 ∈ ℙ, (1 / 𝑘), 0) = Σ𝑘 ∈ ((𝐾 + 1)...𝑁)if(𝑘 ∈ ℙ, (1 / 𝑘), 0))
2625oveq2d 6706 . . . . 5 (𝑥 = 𝑁 → (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝑥)if(𝑘 ∈ ℙ, (1 / 𝑘), 0)) = (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝑁)if(𝑘 ∈ ℙ, (1 / 𝑘), 0)))
2724, 26breq12d 4698 . . . 4 (𝑥 = 𝑁 → ((#‘ 𝑘 ∈ ((𝐾 + 1)...𝑥)(𝑊𝑘)) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝑥)if(𝑘 ∈ ℙ, (1 / 𝑘), 0)) ↔ (#‘ 𝑘 ∈ ((𝐾 + 1)...𝑁)(𝑊𝑘)) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝑁)if(𝑘 ∈ ℙ, (1 / 𝑘), 0))))
2827imbi2d 329 . . 3 (𝑥 = 𝑁 → ((𝜑 → (#‘ 𝑘 ∈ ((𝐾 + 1)...𝑥)(𝑊𝑘)) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝑥)if(𝑘 ∈ ℙ, (1 / 𝑘), 0))) ↔ (𝜑 → (#‘ 𝑘 ∈ ((𝐾 + 1)...𝑁)(𝑊𝑘)) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝑁)if(𝑘 ∈ ℙ, (1 / 𝑘), 0)))))
29 0le0 11148 . . . . . 6 0 ≤ 0
30 prmrec.3 . . . . . . . 8 (𝜑𝑁 ∈ ℕ)
3130nncnd 11074 . . . . . . 7 (𝜑𝑁 ∈ ℂ)
3231mul01d 10273 . . . . . 6 (𝜑 → (𝑁 · 0) = 0)
3329, 32syl5breqr 4723 . . . . 5 (𝜑 → 0 ≤ (𝑁 · 0))
34 prmrec.2 . . . . . . . . . . . 12 (𝜑𝐾 ∈ ℕ)
3534nnred 11073 . . . . . . . . . . 11 (𝜑𝐾 ∈ ℝ)
3635ltp1d 10992 . . . . . . . . . 10 (𝜑𝐾 < (𝐾 + 1))
3734nnzd 11519 . . . . . . . . . . . 12 (𝜑𝐾 ∈ ℤ)
3837peano2zd 11523 . . . . . . . . . . 11 (𝜑 → (𝐾 + 1) ∈ ℤ)
39 fzn 12395 . . . . . . . . . . 11 (((𝐾 + 1) ∈ ℤ ∧ 𝐾 ∈ ℤ) → (𝐾 < (𝐾 + 1) ↔ ((𝐾 + 1)...𝐾) = ∅))
4038, 37, 39syl2anc 694 . . . . . . . . . 10 (𝜑 → (𝐾 < (𝐾 + 1) ↔ ((𝐾 + 1)...𝐾) = ∅))
4136, 40mpbid 222 . . . . . . . . 9 (𝜑 → ((𝐾 + 1)...𝐾) = ∅)
4241iuneq1d 4577 . . . . . . . 8 (𝜑 𝑘 ∈ ((𝐾 + 1)...𝐾)(𝑊𝑘) = 𝑘 ∈ ∅ (𝑊𝑘))
43 0iun 4609 . . . . . . . 8 𝑘 ∈ ∅ (𝑊𝑘) = ∅
4442, 43syl6eq 2701 . . . . . . 7 (𝜑 𝑘 ∈ ((𝐾 + 1)...𝐾)(𝑊𝑘) = ∅)
4544fveq2d 6233 . . . . . 6 (𝜑 → (#‘ 𝑘 ∈ ((𝐾 + 1)...𝐾)(𝑊𝑘)) = (#‘∅))
46 hash0 13196 . . . . . 6 (#‘∅) = 0
4745, 46syl6eq 2701 . . . . 5 (𝜑 → (#‘ 𝑘 ∈ ((𝐾 + 1)...𝐾)(𝑊𝑘)) = 0)
4841sumeq1d 14475 . . . . . . 7 (𝜑 → Σ𝑘 ∈ ((𝐾 + 1)...𝐾)if(𝑘 ∈ ℙ, (1 / 𝑘), 0) = Σ𝑘 ∈ ∅ if(𝑘 ∈ ℙ, (1 / 𝑘), 0))
49 sum0 14496 . . . . . . 7 Σ𝑘 ∈ ∅ if(𝑘 ∈ ℙ, (1 / 𝑘), 0) = 0
5048, 49syl6eq 2701 . . . . . 6 (𝜑 → Σ𝑘 ∈ ((𝐾 + 1)...𝐾)if(𝑘 ∈ ℙ, (1 / 𝑘), 0) = 0)
5150oveq2d 6706 . . . . 5 (𝜑 → (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝐾)if(𝑘 ∈ ℙ, (1 / 𝑘), 0)) = (𝑁 · 0))
5233, 47, 513brtr4d 4717 . . . 4 (𝜑 → (#‘ 𝑘 ∈ ((𝐾 + 1)...𝐾)(𝑊𝑘)) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝐾)if(𝑘 ∈ ℙ, (1 / 𝑘), 0)))
5352a1i 11 . . 3 (𝐾 ∈ ℤ → (𝜑 → (#‘ 𝑘 ∈ ((𝐾 + 1)...𝐾)(𝑊𝑘)) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝐾)if(𝑘 ∈ ℙ, (1 / 𝑘), 0))))
54 fzfi 12811 . . . . . . . . . . 11 (1...𝑁) ∈ Fin
55 elfzuz 12376 . . . . . . . . . . . . . . 15 (𝑘 ∈ ((𝐾 + 1)...𝑗) → 𝑘 ∈ (ℤ‘(𝐾 + 1)))
5634peano2nnd 11075 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝐾 + 1) ∈ ℕ)
57 eluznn 11796 . . . . . . . . . . . . . . . . 17 (((𝐾 + 1) ∈ ℕ ∧ 𝑘 ∈ (ℤ‘(𝐾 + 1))) → 𝑘 ∈ ℕ)
5856, 57sylan 487 . . . . . . . . . . . . . . . 16 ((𝜑𝑘 ∈ (ℤ‘(𝐾 + 1))) → 𝑘 ∈ ℕ)
59 eleq1 2718 . . . . . . . . . . . . . . . . . . . . 21 (𝑝 = 𝑘 → (𝑝 ∈ ℙ ↔ 𝑘 ∈ ℙ))
60 breq1 4688 . . . . . . . . . . . . . . . . . . . . 21 (𝑝 = 𝑘 → (𝑝𝑛𝑘𝑛))
6159, 60anbi12d 747 . . . . . . . . . . . . . . . . . . . 20 (𝑝 = 𝑘 → ((𝑝 ∈ ℙ ∧ 𝑝𝑛) ↔ (𝑘 ∈ ℙ ∧ 𝑘𝑛)))
6261rabbidv 3220 . . . . . . . . . . . . . . . . . . 19 (𝑝 = 𝑘 → {𝑛 ∈ (1...𝑁) ∣ (𝑝 ∈ ℙ ∧ 𝑝𝑛)} = {𝑛 ∈ (1...𝑁) ∣ (𝑘 ∈ ℙ ∧ 𝑘𝑛)})
63 prmrec.7 . . . . . . . . . . . . . . . . . . 19 𝑊 = (𝑝 ∈ ℕ ↦ {𝑛 ∈ (1...𝑁) ∣ (𝑝 ∈ ℙ ∧ 𝑝𝑛)})
64 ovex 6718 . . . . . . . . . . . . . . . . . . . 20 (1...𝑁) ∈ V
6564rabex 4845 . . . . . . . . . . . . . . . . . . 19 {𝑛 ∈ (1...𝑁) ∣ (𝑘 ∈ ℙ ∧ 𝑘𝑛)} ∈ V
6662, 63, 65fvmpt 6321 . . . . . . . . . . . . . . . . . 18 (𝑘 ∈ ℕ → (𝑊𝑘) = {𝑛 ∈ (1...𝑁) ∣ (𝑘 ∈ ℙ ∧ 𝑘𝑛)})
6766adantl 481 . . . . . . . . . . . . . . . . 17 ((𝜑𝑘 ∈ ℕ) → (𝑊𝑘) = {𝑛 ∈ (1...𝑁) ∣ (𝑘 ∈ ℙ ∧ 𝑘𝑛)})
68 ssrab2 3720 . . . . . . . . . . . . . . . . 17 {𝑛 ∈ (1...𝑁) ∣ (𝑘 ∈ ℙ ∧ 𝑘𝑛)} ⊆ (1...𝑁)
6967, 68syl6eqss 3688 . . . . . . . . . . . . . . . 16 ((𝜑𝑘 ∈ ℕ) → (𝑊𝑘) ⊆ (1...𝑁))
7058, 69syldan 486 . . . . . . . . . . . . . . 15 ((𝜑𝑘 ∈ (ℤ‘(𝐾 + 1))) → (𝑊𝑘) ⊆ (1...𝑁))
7155, 70sylan2 490 . . . . . . . . . . . . . 14 ((𝜑𝑘 ∈ ((𝐾 + 1)...𝑗)) → (𝑊𝑘) ⊆ (1...𝑁))
7271ralrimiva 2995 . . . . . . . . . . . . 13 (𝜑 → ∀𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘) ⊆ (1...𝑁))
7372adantr 480 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (ℤ𝐾)) → ∀𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘) ⊆ (1...𝑁))
74 iunss 4593 . . . . . . . . . . . 12 ( 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘) ⊆ (1...𝑁) ↔ ∀𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘) ⊆ (1...𝑁))
7573, 74sylibr 224 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (ℤ𝐾)) → 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘) ⊆ (1...𝑁))
76 ssfi 8221 . . . . . . . . . . 11 (((1...𝑁) ∈ Fin ∧ 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘) ⊆ (1...𝑁)) → 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘) ∈ Fin)
7754, 75, 76sylancr 696 . . . . . . . . . 10 ((𝜑𝑗 ∈ (ℤ𝐾)) → 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘) ∈ Fin)
78 hashcl 13185 . . . . . . . . . 10 ( 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘) ∈ Fin → (#‘ 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘)) ∈ ℕ0)
7977, 78syl 17 . . . . . . . . 9 ((𝜑𝑗 ∈ (ℤ𝐾)) → (#‘ 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘)) ∈ ℕ0)
8079nn0red 11390 . . . . . . . 8 ((𝜑𝑗 ∈ (ℤ𝐾)) → (#‘ 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘)) ∈ ℝ)
8130nnred 11073 . . . . . . . . . 10 (𝜑𝑁 ∈ ℝ)
8281adantr 480 . . . . . . . . 9 ((𝜑𝑗 ∈ (ℤ𝐾)) → 𝑁 ∈ ℝ)
83 fzfid 12812 . . . . . . . . . 10 ((𝜑𝑗 ∈ (ℤ𝐾)) → ((𝐾 + 1)...𝑗) ∈ Fin)
8456adantr 480 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (ℤ𝐾)) → (𝐾 + 1) ∈ ℕ)
8584, 55, 57syl2an 493 . . . . . . . . . . 11 (((𝜑𝑗 ∈ (ℤ𝐾)) ∧ 𝑘 ∈ ((𝐾 + 1)...𝑗)) → 𝑘 ∈ ℕ)
86 nnrecre 11095 . . . . . . . . . . . 12 (𝑘 ∈ ℕ → (1 / 𝑘) ∈ ℝ)
87 0re 10078 . . . . . . . . . . . 12 0 ∈ ℝ
88 ifcl 4163 . . . . . . . . . . . 12 (((1 / 𝑘) ∈ ℝ ∧ 0 ∈ ℝ) → if(𝑘 ∈ ℙ, (1 / 𝑘), 0) ∈ ℝ)
8986, 87, 88sylancl 695 . . . . . . . . . . 11 (𝑘 ∈ ℕ → if(𝑘 ∈ ℙ, (1 / 𝑘), 0) ∈ ℝ)
9085, 89syl 17 . . . . . . . . . 10 (((𝜑𝑗 ∈ (ℤ𝐾)) ∧ 𝑘 ∈ ((𝐾 + 1)...𝑗)) → if(𝑘 ∈ ℙ, (1 / 𝑘), 0) ∈ ℝ)
9183, 90fsumrecl 14509 . . . . . . . . 9 ((𝜑𝑗 ∈ (ℤ𝐾)) → Σ𝑘 ∈ ((𝐾 + 1)...𝑗)if(𝑘 ∈ ℙ, (1 / 𝑘), 0) ∈ ℝ)
9282, 91remulcld 10108 . . . . . . . 8 ((𝜑𝑗 ∈ (ℤ𝐾)) → (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝑗)if(𝑘 ∈ ℙ, (1 / 𝑘), 0)) ∈ ℝ)
93 prmnn 15435 . . . . . . . . . . . 12 ((𝑗 + 1) ∈ ℙ → (𝑗 + 1) ∈ ℕ)
94 nnrecre 11095 . . . . . . . . . . . 12 ((𝑗 + 1) ∈ ℕ → (1 / (𝑗 + 1)) ∈ ℝ)
9593, 94syl 17 . . . . . . . . . . 11 ((𝑗 + 1) ∈ ℙ → (1 / (𝑗 + 1)) ∈ ℝ)
9695adantl 481 . . . . . . . . . 10 (((𝜑𝑗 ∈ (ℤ𝐾)) ∧ (𝑗 + 1) ∈ ℙ) → (1 / (𝑗 + 1)) ∈ ℝ)
97 0red 10079 . . . . . . . . . 10 (((𝜑𝑗 ∈ (ℤ𝐾)) ∧ ¬ (𝑗 + 1) ∈ ℙ) → 0 ∈ ℝ)
9896, 97ifclda 4153 . . . . . . . . 9 ((𝜑𝑗 ∈ (ℤ𝐾)) → if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0) ∈ ℝ)
9982, 98remulcld 10108 . . . . . . . 8 ((𝜑𝑗 ∈ (ℤ𝐾)) → (𝑁 · if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0)) ∈ ℝ)
10080, 92, 99leadd1d 10659 . . . . . . 7 ((𝜑𝑗 ∈ (ℤ𝐾)) → ((#‘ 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘)) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝑗)if(𝑘 ∈ ℙ, (1 / 𝑘), 0)) ↔ ((#‘ 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘)) + (𝑁 · if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0))) ≤ ((𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝑗)if(𝑘 ∈ ℙ, (1 / 𝑘), 0)) + (𝑁 · if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0)))))
101 eluzp1p1 11751 . . . . . . . . . . . . 13 (𝑗 ∈ (ℤ𝐾) → (𝑗 + 1) ∈ (ℤ‘(𝐾 + 1)))
102101adantl 481 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (ℤ𝐾)) → (𝑗 + 1) ∈ (ℤ‘(𝐾 + 1)))
103 simpl 472 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (ℤ𝐾)) → 𝜑)
104 elfzuz 12376 . . . . . . . . . . . . 13 (𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1)) → 𝑘 ∈ (ℤ‘(𝐾 + 1)))
10589recnd 10106 . . . . . . . . . . . . . 14 (𝑘 ∈ ℕ → if(𝑘 ∈ ℙ, (1 / 𝑘), 0) ∈ ℂ)
10658, 105syl 17 . . . . . . . . . . . . 13 ((𝜑𝑘 ∈ (ℤ‘(𝐾 + 1))) → if(𝑘 ∈ ℙ, (1 / 𝑘), 0) ∈ ℂ)
107103, 104, 106syl2an 493 . . . . . . . . . . . 12 (((𝜑𝑗 ∈ (ℤ𝐾)) ∧ 𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))) → if(𝑘 ∈ ℙ, (1 / 𝑘), 0) ∈ ℂ)
108 eleq1 2718 . . . . . . . . . . . . 13 (𝑘 = (𝑗 + 1) → (𝑘 ∈ ℙ ↔ (𝑗 + 1) ∈ ℙ))
109 oveq2 6698 . . . . . . . . . . . . 13 (𝑘 = (𝑗 + 1) → (1 / 𝑘) = (1 / (𝑗 + 1)))
110108, 109ifbieq1d 4142 . . . . . . . . . . . 12 (𝑘 = (𝑗 + 1) → if(𝑘 ∈ ℙ, (1 / 𝑘), 0) = if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0))
111102, 107, 110fsumm1 14524 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (ℤ𝐾)) → Σ𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))if(𝑘 ∈ ℙ, (1 / 𝑘), 0) = (Σ𝑘 ∈ ((𝐾 + 1)...((𝑗 + 1) − 1))if(𝑘 ∈ ℙ, (1 / 𝑘), 0) + if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0)))
112 eluzelz 11735 . . . . . . . . . . . . . . . . 17 (𝑗 ∈ (ℤ𝐾) → 𝑗 ∈ ℤ)
113112adantl 481 . . . . . . . . . . . . . . . 16 ((𝜑𝑗 ∈ (ℤ𝐾)) → 𝑗 ∈ ℤ)
114113zcnd 11521 . . . . . . . . . . . . . . 15 ((𝜑𝑗 ∈ (ℤ𝐾)) → 𝑗 ∈ ℂ)
115 ax-1cn 10032 . . . . . . . . . . . . . . 15 1 ∈ ℂ
116 pncan 10325 . . . . . . . . . . . . . . 15 ((𝑗 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝑗 + 1) − 1) = 𝑗)
117114, 115, 116sylancl 695 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ (ℤ𝐾)) → ((𝑗 + 1) − 1) = 𝑗)
118117oveq2d 6706 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (ℤ𝐾)) → ((𝐾 + 1)...((𝑗 + 1) − 1)) = ((𝐾 + 1)...𝑗))
119118sumeq1d 14475 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (ℤ𝐾)) → Σ𝑘 ∈ ((𝐾 + 1)...((𝑗 + 1) − 1))if(𝑘 ∈ ℙ, (1 / 𝑘), 0) = Σ𝑘 ∈ ((𝐾 + 1)...𝑗)if(𝑘 ∈ ℙ, (1 / 𝑘), 0))
120119oveq1d 6705 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (ℤ𝐾)) → (Σ𝑘 ∈ ((𝐾 + 1)...((𝑗 + 1) − 1))if(𝑘 ∈ ℙ, (1 / 𝑘), 0) + if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0)) = (Σ𝑘 ∈ ((𝐾 + 1)...𝑗)if(𝑘 ∈ ℙ, (1 / 𝑘), 0) + if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0)))
121111, 120eqtrd 2685 . . . . . . . . . 10 ((𝜑𝑗 ∈ (ℤ𝐾)) → Σ𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))if(𝑘 ∈ ℙ, (1 / 𝑘), 0) = (Σ𝑘 ∈ ((𝐾 + 1)...𝑗)if(𝑘 ∈ ℙ, (1 / 𝑘), 0) + if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0)))
122121oveq2d 6706 . . . . . . . . 9 ((𝜑𝑗 ∈ (ℤ𝐾)) → (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))if(𝑘 ∈ ℙ, (1 / 𝑘), 0)) = (𝑁 · (Σ𝑘 ∈ ((𝐾 + 1)...𝑗)if(𝑘 ∈ ℙ, (1 / 𝑘), 0) + if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0))))
12331adantr 480 . . . . . . . . . 10 ((𝜑𝑗 ∈ (ℤ𝐾)) → 𝑁 ∈ ℂ)
12491recnd 10106 . . . . . . . . . 10 ((𝜑𝑗 ∈ (ℤ𝐾)) → Σ𝑘 ∈ ((𝐾 + 1)...𝑗)if(𝑘 ∈ ℙ, (1 / 𝑘), 0) ∈ ℂ)
12598recnd 10106 . . . . . . . . . 10 ((𝜑𝑗 ∈ (ℤ𝐾)) → if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0) ∈ ℂ)
126123, 124, 125adddid 10102 . . . . . . . . 9 ((𝜑𝑗 ∈ (ℤ𝐾)) → (𝑁 · (Σ𝑘 ∈ ((𝐾 + 1)...𝑗)if(𝑘 ∈ ℙ, (1 / 𝑘), 0) + if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0))) = ((𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝑗)if(𝑘 ∈ ℙ, (1 / 𝑘), 0)) + (𝑁 · if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0))))
127122, 126eqtrd 2685 . . . . . . . 8 ((𝜑𝑗 ∈ (ℤ𝐾)) → (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))if(𝑘 ∈ ℙ, (1 / 𝑘), 0)) = ((𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝑗)if(𝑘 ∈ ℙ, (1 / 𝑘), 0)) + (𝑁 · if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0))))
128127breq2d 4697 . . . . . . 7 ((𝜑𝑗 ∈ (ℤ𝐾)) → (((#‘ 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘)) + (𝑁 · if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0))) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))if(𝑘 ∈ ℙ, (1 / 𝑘), 0)) ↔ ((#‘ 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘)) + (𝑁 · if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0))) ≤ ((𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝑗)if(𝑘 ∈ ℙ, (1 / 𝑘), 0)) + (𝑁 · if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0)))))
129100, 128bitr4d 271 . . . . . 6 ((𝜑𝑗 ∈ (ℤ𝐾)) → ((#‘ 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘)) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝑗)if(𝑘 ∈ ℙ, (1 / 𝑘), 0)) ↔ ((#‘ 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘)) + (𝑁 · if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0))) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))if(𝑘 ∈ ℙ, (1 / 𝑘), 0))))
130104, 70sylan2 490 . . . . . . . . . . . . . 14 ((𝜑𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))) → (𝑊𝑘) ⊆ (1...𝑁))
131130ralrimiva 2995 . . . . . . . . . . . . 13 (𝜑 → ∀𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))(𝑊𝑘) ⊆ (1...𝑁))
132131adantr 480 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (ℤ𝐾)) → ∀𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))(𝑊𝑘) ⊆ (1...𝑁))
133 iunss 4593 . . . . . . . . . . . 12 ( 𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))(𝑊𝑘) ⊆ (1...𝑁) ↔ ∀𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))(𝑊𝑘) ⊆ (1...𝑁))
134132, 133sylibr 224 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (ℤ𝐾)) → 𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))(𝑊𝑘) ⊆ (1...𝑁))
135 ssfi 8221 . . . . . . . . . . 11 (((1...𝑁) ∈ Fin ∧ 𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))(𝑊𝑘) ⊆ (1...𝑁)) → 𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))(𝑊𝑘) ∈ Fin)
13654, 134, 135sylancr 696 . . . . . . . . . 10 ((𝜑𝑗 ∈ (ℤ𝐾)) → 𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))(𝑊𝑘) ∈ Fin)
137 hashcl 13185 . . . . . . . . . 10 ( 𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))(𝑊𝑘) ∈ Fin → (#‘ 𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))(𝑊𝑘)) ∈ ℕ0)
138136, 137syl 17 . . . . . . . . 9 ((𝜑𝑗 ∈ (ℤ𝐾)) → (#‘ 𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))(𝑊𝑘)) ∈ ℕ0)
139138nn0red 11390 . . . . . . . 8 ((𝜑𝑗 ∈ (ℤ𝐾)) → (#‘ 𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))(𝑊𝑘)) ∈ ℝ)
140 eluznn 11796 . . . . . . . . . . . . . . 15 ((𝐾 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝐾)) → 𝑗 ∈ ℕ)
14134, 140sylan 487 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ (ℤ𝐾)) → 𝑗 ∈ ℕ)
142141peano2nnd 11075 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (ℤ𝐾)) → (𝑗 + 1) ∈ ℕ)
14369ralrimiva 2995 . . . . . . . . . . . . . 14 (𝜑 → ∀𝑘 ∈ ℕ (𝑊𝑘) ⊆ (1...𝑁))
144143adantr 480 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (ℤ𝐾)) → ∀𝑘 ∈ ℕ (𝑊𝑘) ⊆ (1...𝑁))
145 fveq2 6229 . . . . . . . . . . . . . . 15 (𝑘 = (𝑗 + 1) → (𝑊𝑘) = (𝑊‘(𝑗 + 1)))
146145sseq1d 3665 . . . . . . . . . . . . . 14 (𝑘 = (𝑗 + 1) → ((𝑊𝑘) ⊆ (1...𝑁) ↔ (𝑊‘(𝑗 + 1)) ⊆ (1...𝑁)))
147146rspcv 3336 . . . . . . . . . . . . 13 ((𝑗 + 1) ∈ ℕ → (∀𝑘 ∈ ℕ (𝑊𝑘) ⊆ (1...𝑁) → (𝑊‘(𝑗 + 1)) ⊆ (1...𝑁)))
148142, 144, 147sylc 65 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (ℤ𝐾)) → (𝑊‘(𝑗 + 1)) ⊆ (1...𝑁))
149 ssfi 8221 . . . . . . . . . . . 12 (((1...𝑁) ∈ Fin ∧ (𝑊‘(𝑗 + 1)) ⊆ (1...𝑁)) → (𝑊‘(𝑗 + 1)) ∈ Fin)
15054, 148, 149sylancr 696 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (ℤ𝐾)) → (𝑊‘(𝑗 + 1)) ∈ Fin)
151 hashcl 13185 . . . . . . . . . . 11 ((𝑊‘(𝑗 + 1)) ∈ Fin → (#‘(𝑊‘(𝑗 + 1))) ∈ ℕ0)
152150, 151syl 17 . . . . . . . . . 10 ((𝜑𝑗 ∈ (ℤ𝐾)) → (#‘(𝑊‘(𝑗 + 1))) ∈ ℕ0)
153152nn0red 11390 . . . . . . . . 9 ((𝜑𝑗 ∈ (ℤ𝐾)) → (#‘(𝑊‘(𝑗 + 1))) ∈ ℝ)
15480, 153readdcld 10107 . . . . . . . 8 ((𝜑𝑗 ∈ (ℤ𝐾)) → ((#‘ 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘)) + (#‘(𝑊‘(𝑗 + 1)))) ∈ ℝ)
15580, 99readdcld 10107 . . . . . . . 8 ((𝜑𝑗 ∈ (ℤ𝐾)) → ((#‘ 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘)) + (𝑁 · if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0))) ∈ ℝ)
15638adantr 480 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (ℤ𝐾)) → (𝐾 + 1) ∈ ℤ)
157 simpr 476 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ (ℤ𝐾)) → 𝑗 ∈ (ℤ𝐾))
15834nncnd 11074 . . . . . . . . . . . . . . . . 17 (𝜑𝐾 ∈ ℂ)
159158adantr 480 . . . . . . . . . . . . . . . 16 ((𝜑𝑗 ∈ (ℤ𝐾)) → 𝐾 ∈ ℂ)
160 pncan 10325 . . . . . . . . . . . . . . . 16 ((𝐾 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝐾 + 1) − 1) = 𝐾)
161159, 115, 160sylancl 695 . . . . . . . . . . . . . . 15 ((𝜑𝑗 ∈ (ℤ𝐾)) → ((𝐾 + 1) − 1) = 𝐾)
162161fveq2d 6233 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ (ℤ𝐾)) → (ℤ‘((𝐾 + 1) − 1)) = (ℤ𝐾))
163157, 162eleqtrrd 2733 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (ℤ𝐾)) → 𝑗 ∈ (ℤ‘((𝐾 + 1) − 1)))
164 fzsuc2 12436 . . . . . . . . . . . . 13 (((𝐾 + 1) ∈ ℤ ∧ 𝑗 ∈ (ℤ‘((𝐾 + 1) − 1))) → ((𝐾 + 1)...(𝑗 + 1)) = (((𝐾 + 1)...𝑗) ∪ {(𝑗 + 1)}))
165156, 163, 164syl2anc 694 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (ℤ𝐾)) → ((𝐾 + 1)...(𝑗 + 1)) = (((𝐾 + 1)...𝑗) ∪ {(𝑗 + 1)}))
166165iuneq1d 4577 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (ℤ𝐾)) → 𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))(𝑊𝑘) = 𝑘 ∈ (((𝐾 + 1)...𝑗) ∪ {(𝑗 + 1)})(𝑊𝑘))
167 iunxun 4637 . . . . . . . . . . . 12 𝑘 ∈ (((𝐾 + 1)...𝑗) ∪ {(𝑗 + 1)})(𝑊𝑘) = ( 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘) ∪ 𝑘 ∈ {(𝑗 + 1)} (𝑊𝑘))
168 ovex 6718 . . . . . . . . . . . . . 14 (𝑗 + 1) ∈ V
169168, 145iunxsn 4635 . . . . . . . . . . . . 13 𝑘 ∈ {(𝑗 + 1)} (𝑊𝑘) = (𝑊‘(𝑗 + 1))
170169uneq2i 3797 . . . . . . . . . . . 12 ( 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘) ∪ 𝑘 ∈ {(𝑗 + 1)} (𝑊𝑘)) = ( 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘) ∪ (𝑊‘(𝑗 + 1)))
171167, 170eqtri 2673 . . . . . . . . . . 11 𝑘 ∈ (((𝐾 + 1)...𝑗) ∪ {(𝑗 + 1)})(𝑊𝑘) = ( 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘) ∪ (𝑊‘(𝑗 + 1)))
172166, 171syl6eq 2701 . . . . . . . . . 10 ((𝜑𝑗 ∈ (ℤ𝐾)) → 𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))(𝑊𝑘) = ( 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘) ∪ (𝑊‘(𝑗 + 1))))
173172fveq2d 6233 . . . . . . . . 9 ((𝜑𝑗 ∈ (ℤ𝐾)) → (#‘ 𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))(𝑊𝑘)) = (#‘( 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘) ∪ (𝑊‘(𝑗 + 1)))))
174 hashun2 13210 . . . . . . . . . 10 (( 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘) ∈ Fin ∧ (𝑊‘(𝑗 + 1)) ∈ Fin) → (#‘( 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘) ∪ (𝑊‘(𝑗 + 1)))) ≤ ((#‘ 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘)) + (#‘(𝑊‘(𝑗 + 1)))))
17577, 150, 174syl2anc 694 . . . . . . . . 9 ((𝜑𝑗 ∈ (ℤ𝐾)) → (#‘( 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘) ∪ (𝑊‘(𝑗 + 1)))) ≤ ((#‘ 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘)) + (#‘(𝑊‘(𝑗 + 1)))))
176173, 175eqbrtrd 4707 . . . . . . . 8 ((𝜑𝑗 ∈ (ℤ𝐾)) → (#‘ 𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))(𝑊𝑘)) ≤ ((#‘ 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘)) + (#‘(𝑊‘(𝑗 + 1)))))
17782, 142nndivred 11107 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ (ℤ𝐾)) → (𝑁 / (𝑗 + 1)) ∈ ℝ)
178 flle 12640 . . . . . . . . . . . . . 14 ((𝑁 / (𝑗 + 1)) ∈ ℝ → (⌊‘(𝑁 / (𝑗 + 1))) ≤ (𝑁 / (𝑗 + 1)))
179177, 178syl 17 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (ℤ𝐾)) → (⌊‘(𝑁 / (𝑗 + 1))) ≤ (𝑁 / (𝑗 + 1)))
180 elfznn 12408 . . . . . . . . . . . . . . . . . . 19 (𝑛 ∈ (1...𝑁) → 𝑛 ∈ ℕ)
181180nncnd 11074 . . . . . . . . . . . . . . . . . 18 (𝑛 ∈ (1...𝑁) → 𝑛 ∈ ℂ)
182181subid1d 10419 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ (1...𝑁) → (𝑛 − 0) = 𝑛)
183182breq2d 4697 . . . . . . . . . . . . . . . 16 (𝑛 ∈ (1...𝑁) → ((𝑗 + 1) ∥ (𝑛 − 0) ↔ (𝑗 + 1) ∥ 𝑛))
184183rabbiia 3215 . . . . . . . . . . . . . . 15 {𝑛 ∈ (1...𝑁) ∣ (𝑗 + 1) ∥ (𝑛 − 0)} = {𝑛 ∈ (1...𝑁) ∣ (𝑗 + 1) ∥ 𝑛}
185184fveq2i 6232 . . . . . . . . . . . . . 14 (#‘{𝑛 ∈ (1...𝑁) ∣ (𝑗 + 1) ∥ (𝑛 − 0)}) = (#‘{𝑛 ∈ (1...𝑁) ∣ (𝑗 + 1) ∥ 𝑛})
186 1zzd 11446 . . . . . . . . . . . . . . . 16 ((𝜑𝑗 ∈ (ℤ𝐾)) → 1 ∈ ℤ)
18730nnnn0d 11389 . . . . . . . . . . . . . . . . . 18 (𝜑𝑁 ∈ ℕ0)
188 nn0uz 11760 . . . . . . . . . . . . . . . . . . 19 0 = (ℤ‘0)
189 1m1e0 11127 . . . . . . . . . . . . . . . . . . . 20 (1 − 1) = 0
190189fveq2i 6232 . . . . . . . . . . . . . . . . . . 19 (ℤ‘(1 − 1)) = (ℤ‘0)
191188, 190eqtr4i 2676 . . . . . . . . . . . . . . . . . 18 0 = (ℤ‘(1 − 1))
192187, 191syl6eleq 2740 . . . . . . . . . . . . . . . . 17 (𝜑𝑁 ∈ (ℤ‘(1 − 1)))
193192adantr 480 . . . . . . . . . . . . . . . 16 ((𝜑𝑗 ∈ (ℤ𝐾)) → 𝑁 ∈ (ℤ‘(1 − 1)))
194 0zd 11427 . . . . . . . . . . . . . . . 16 ((𝜑𝑗 ∈ (ℤ𝐾)) → 0 ∈ ℤ)
195142, 186, 193, 194hashdvds 15527 . . . . . . . . . . . . . . 15 ((𝜑𝑗 ∈ (ℤ𝐾)) → (#‘{𝑛 ∈ (1...𝑁) ∣ (𝑗 + 1) ∥ (𝑛 − 0)}) = ((⌊‘((𝑁 − 0) / (𝑗 + 1))) − (⌊‘(((1 − 1) − 0) / (𝑗 + 1)))))
196123subid1d 10419 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑗 ∈ (ℤ𝐾)) → (𝑁 − 0) = 𝑁)
197196oveq1d 6705 . . . . . . . . . . . . . . . . 17 ((𝜑𝑗 ∈ (ℤ𝐾)) → ((𝑁 − 0) / (𝑗 + 1)) = (𝑁 / (𝑗 + 1)))
198197fveq2d 6233 . . . . . . . . . . . . . . . 16 ((𝜑𝑗 ∈ (ℤ𝐾)) → (⌊‘((𝑁 − 0) / (𝑗 + 1))) = (⌊‘(𝑁 / (𝑗 + 1))))
199189oveq1i 6700 . . . . . . . . . . . . . . . . . . . . 21 ((1 − 1) − 0) = (0 − 0)
200 0m0e0 11168 . . . . . . . . . . . . . . . . . . . . 21 (0 − 0) = 0
201199, 200eqtri 2673 . . . . . . . . . . . . . . . . . . . 20 ((1 − 1) − 0) = 0
202201oveq1i 6700 . . . . . . . . . . . . . . . . . . 19 (((1 − 1) − 0) / (𝑗 + 1)) = (0 / (𝑗 + 1))
203142nncnd 11074 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑗 ∈ (ℤ𝐾)) → (𝑗 + 1) ∈ ℂ)
204142nnne0d 11103 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑗 ∈ (ℤ𝐾)) → (𝑗 + 1) ≠ 0)
205203, 204div0d 10838 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑗 ∈ (ℤ𝐾)) → (0 / (𝑗 + 1)) = 0)
206202, 205syl5eq 2697 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑗 ∈ (ℤ𝐾)) → (((1 − 1) − 0) / (𝑗 + 1)) = 0)
207206fveq2d 6233 . . . . . . . . . . . . . . . . 17 ((𝜑𝑗 ∈ (ℤ𝐾)) → (⌊‘(((1 − 1) − 0) / (𝑗 + 1))) = (⌊‘0))
208 0z 11426 . . . . . . . . . . . . . . . . . 18 0 ∈ ℤ
209 flid 12649 . . . . . . . . . . . . . . . . . 18 (0 ∈ ℤ → (⌊‘0) = 0)
210208, 209ax-mp 5 . . . . . . . . . . . . . . . . 17 (⌊‘0) = 0
211207, 210syl6eq 2701 . . . . . . . . . . . . . . . 16 ((𝜑𝑗 ∈ (ℤ𝐾)) → (⌊‘(((1 − 1) − 0) / (𝑗 + 1))) = 0)
212198, 211oveq12d 6708 . . . . . . . . . . . . . . 15 ((𝜑𝑗 ∈ (ℤ𝐾)) → ((⌊‘((𝑁 − 0) / (𝑗 + 1))) − (⌊‘(((1 − 1) − 0) / (𝑗 + 1)))) = ((⌊‘(𝑁 / (𝑗 + 1))) − 0))
213177flcld 12639 . . . . . . . . . . . . . . . . 17 ((𝜑𝑗 ∈ (ℤ𝐾)) → (⌊‘(𝑁 / (𝑗 + 1))) ∈ ℤ)
214213zcnd 11521 . . . . . . . . . . . . . . . 16 ((𝜑𝑗 ∈ (ℤ𝐾)) → (⌊‘(𝑁 / (𝑗 + 1))) ∈ ℂ)
215214subid1d 10419 . . . . . . . . . . . . . . 15 ((𝜑𝑗 ∈ (ℤ𝐾)) → ((⌊‘(𝑁 / (𝑗 + 1))) − 0) = (⌊‘(𝑁 / (𝑗 + 1))))
216195, 212, 2153eqtrd 2689 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ (ℤ𝐾)) → (#‘{𝑛 ∈ (1...𝑁) ∣ (𝑗 + 1) ∥ (𝑛 − 0)}) = (⌊‘(𝑁 / (𝑗 + 1))))
217185, 216syl5eqr 2699 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (ℤ𝐾)) → (#‘{𝑛 ∈ (1...𝑁) ∣ (𝑗 + 1) ∥ 𝑛}) = (⌊‘(𝑁 / (𝑗 + 1))))
218123, 203, 204divrecd 10842 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ (ℤ𝐾)) → (𝑁 / (𝑗 + 1)) = (𝑁 · (1 / (𝑗 + 1))))
219218eqcomd 2657 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (ℤ𝐾)) → (𝑁 · (1 / (𝑗 + 1))) = (𝑁 / (𝑗 + 1)))
220179, 217, 2193brtr4d 4717 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (ℤ𝐾)) → (#‘{𝑛 ∈ (1...𝑁) ∣ (𝑗 + 1) ∥ 𝑛}) ≤ (𝑁 · (1 / (𝑗 + 1))))
221220adantr 480 . . . . . . . . . . 11 (((𝜑𝑗 ∈ (ℤ𝐾)) ∧ (𝑗 + 1) ∈ ℙ) → (#‘{𝑛 ∈ (1...𝑁) ∣ (𝑗 + 1) ∥ 𝑛}) ≤ (𝑁 · (1 / (𝑗 + 1))))
222 eleq1 2718 . . . . . . . . . . . . . . . . . 18 (𝑝 = (𝑗 + 1) → (𝑝 ∈ ℙ ↔ (𝑗 + 1) ∈ ℙ))
223 breq1 4688 . . . . . . . . . . . . . . . . . 18 (𝑝 = (𝑗 + 1) → (𝑝𝑛 ↔ (𝑗 + 1) ∥ 𝑛))
224222, 223anbi12d 747 . . . . . . . . . . . . . . . . 17 (𝑝 = (𝑗 + 1) → ((𝑝 ∈ ℙ ∧ 𝑝𝑛) ↔ ((𝑗 + 1) ∈ ℙ ∧ (𝑗 + 1) ∥ 𝑛)))
225224rabbidv 3220 . . . . . . . . . . . . . . . 16 (𝑝 = (𝑗 + 1) → {𝑛 ∈ (1...𝑁) ∣ (𝑝 ∈ ℙ ∧ 𝑝𝑛)} = {𝑛 ∈ (1...𝑁) ∣ ((𝑗 + 1) ∈ ℙ ∧ (𝑗 + 1) ∥ 𝑛)})
22664rabex 4845 . . . . . . . . . . . . . . . 16 {𝑛 ∈ (1...𝑁) ∣ ((𝑗 + 1) ∈ ℙ ∧ (𝑗 + 1) ∥ 𝑛)} ∈ V
227225, 63, 226fvmpt 6321 . . . . . . . . . . . . . . 15 ((𝑗 + 1) ∈ ℕ → (𝑊‘(𝑗 + 1)) = {𝑛 ∈ (1...𝑁) ∣ ((𝑗 + 1) ∈ ℙ ∧ (𝑗 + 1) ∥ 𝑛)})
228142, 227syl 17 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ (ℤ𝐾)) → (𝑊‘(𝑗 + 1)) = {𝑛 ∈ (1...𝑁) ∣ ((𝑗 + 1) ∈ ℙ ∧ (𝑗 + 1) ∥ 𝑛)})
229228adantr 480 . . . . . . . . . . . . 13 (((𝜑𝑗 ∈ (ℤ𝐾)) ∧ (𝑗 + 1) ∈ ℙ) → (𝑊‘(𝑗 + 1)) = {𝑛 ∈ (1...𝑁) ∣ ((𝑗 + 1) ∈ ℙ ∧ (𝑗 + 1) ∥ 𝑛)})
230 simpr 476 . . . . . . . . . . . . . . 15 (((𝜑𝑗 ∈ (ℤ𝐾)) ∧ (𝑗 + 1) ∈ ℙ) → (𝑗 + 1) ∈ ℙ)
231230biantrurd 528 . . . . . . . . . . . . . 14 (((𝜑𝑗 ∈ (ℤ𝐾)) ∧ (𝑗 + 1) ∈ ℙ) → ((𝑗 + 1) ∥ 𝑛 ↔ ((𝑗 + 1) ∈ ℙ ∧ (𝑗 + 1) ∥ 𝑛)))
232231rabbidv 3220 . . . . . . . . . . . . 13 (((𝜑𝑗 ∈ (ℤ𝐾)) ∧ (𝑗 + 1) ∈ ℙ) → {𝑛 ∈ (1...𝑁) ∣ (𝑗 + 1) ∥ 𝑛} = {𝑛 ∈ (1...𝑁) ∣ ((𝑗 + 1) ∈ ℙ ∧ (𝑗 + 1) ∥ 𝑛)})
233229, 232eqtr4d 2688 . . . . . . . . . . . 12 (((𝜑𝑗 ∈ (ℤ𝐾)) ∧ (𝑗 + 1) ∈ ℙ) → (𝑊‘(𝑗 + 1)) = {𝑛 ∈ (1...𝑁) ∣ (𝑗 + 1) ∥ 𝑛})
234233fveq2d 6233 . . . . . . . . . . 11 (((𝜑𝑗 ∈ (ℤ𝐾)) ∧ (𝑗 + 1) ∈ ℙ) → (#‘(𝑊‘(𝑗 + 1))) = (#‘{𝑛 ∈ (1...𝑁) ∣ (𝑗 + 1) ∥ 𝑛}))
235 iftrue 4125 . . . . . . . . . . . . 13 ((𝑗 + 1) ∈ ℙ → if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0) = (1 / (𝑗 + 1)))
236235adantl 481 . . . . . . . . . . . 12 (((𝜑𝑗 ∈ (ℤ𝐾)) ∧ (𝑗 + 1) ∈ ℙ) → if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0) = (1 / (𝑗 + 1)))
237236oveq2d 6706 . . . . . . . . . . 11 (((𝜑𝑗 ∈ (ℤ𝐾)) ∧ (𝑗 + 1) ∈ ℙ) → (𝑁 · if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0)) = (𝑁 · (1 / (𝑗 + 1))))
238221, 234, 2373brtr4d 4717 . . . . . . . . . 10 (((𝜑𝑗 ∈ (ℤ𝐾)) ∧ (𝑗 + 1) ∈ ℙ) → (#‘(𝑊‘(𝑗 + 1))) ≤ (𝑁 · if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0)))
23929a1i 11 . . . . . . . . . . 11 (((𝜑𝑗 ∈ (ℤ𝐾)) ∧ ¬ (𝑗 + 1) ∈ ℙ) → 0 ≤ 0)
240 simpl 472 . . . . . . . . . . . . . . . . 17 (((𝑗 + 1) ∈ ℙ ∧ (𝑗 + 1) ∥ 𝑛) → (𝑗 + 1) ∈ ℙ)
241240con3i 150 . . . . . . . . . . . . . . . 16 (¬ (𝑗 + 1) ∈ ℙ → ¬ ((𝑗 + 1) ∈ ℙ ∧ (𝑗 + 1) ∥ 𝑛))
242241ralrimivw 2996 . . . . . . . . . . . . . . 15 (¬ (𝑗 + 1) ∈ ℙ → ∀𝑛 ∈ (1...𝑁) ¬ ((𝑗 + 1) ∈ ℙ ∧ (𝑗 + 1) ∥ 𝑛))
243 rabeq0 3990 . . . . . . . . . . . . . . 15 ({𝑛 ∈ (1...𝑁) ∣ ((𝑗 + 1) ∈ ℙ ∧ (𝑗 + 1) ∥ 𝑛)} = ∅ ↔ ∀𝑛 ∈ (1...𝑁) ¬ ((𝑗 + 1) ∈ ℙ ∧ (𝑗 + 1) ∥ 𝑛))
244242, 243sylibr 224 . . . . . . . . . . . . . 14 (¬ (𝑗 + 1) ∈ ℙ → {𝑛 ∈ (1...𝑁) ∣ ((𝑗 + 1) ∈ ℙ ∧ (𝑗 + 1) ∥ 𝑛)} = ∅)
245228, 244sylan9eq 2705 . . . . . . . . . . . . 13 (((𝜑𝑗 ∈ (ℤ𝐾)) ∧ ¬ (𝑗 + 1) ∈ ℙ) → (𝑊‘(𝑗 + 1)) = ∅)
246245fveq2d 6233 . . . . . . . . . . . 12 (((𝜑𝑗 ∈ (ℤ𝐾)) ∧ ¬ (𝑗 + 1) ∈ ℙ) → (#‘(𝑊‘(𝑗 + 1))) = (#‘∅))
247246, 46syl6eq 2701 . . . . . . . . . . 11 (((𝜑𝑗 ∈ (ℤ𝐾)) ∧ ¬ (𝑗 + 1) ∈ ℙ) → (#‘(𝑊‘(𝑗 + 1))) = 0)
248 iffalse 4128 . . . . . . . . . . . . 13 (¬ (𝑗 + 1) ∈ ℙ → if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0) = 0)
249248oveq2d 6706 . . . . . . . . . . . 12 (¬ (𝑗 + 1) ∈ ℙ → (𝑁 · if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0)) = (𝑁 · 0))
25032adantr 480 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (ℤ𝐾)) → (𝑁 · 0) = 0)
251249, 250sylan9eqr 2707 . . . . . . . . . . 11 (((𝜑𝑗 ∈ (ℤ𝐾)) ∧ ¬ (𝑗 + 1) ∈ ℙ) → (𝑁 · if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0)) = 0)
252239, 247, 2513brtr4d 4717 . . . . . . . . . 10 (((𝜑𝑗 ∈ (ℤ𝐾)) ∧ ¬ (𝑗 + 1) ∈ ℙ) → (#‘(𝑊‘(𝑗 + 1))) ≤ (𝑁 · if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0)))
253238, 252pm2.61dan 849 . . . . . . . . 9 ((𝜑𝑗 ∈ (ℤ𝐾)) → (#‘(𝑊‘(𝑗 + 1))) ≤ (𝑁 · if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0)))
254153, 99, 80, 253leadd2dd 10680 . . . . . . . 8 ((𝜑𝑗 ∈ (ℤ𝐾)) → ((#‘ 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘)) + (#‘(𝑊‘(𝑗 + 1)))) ≤ ((#‘ 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘)) + (𝑁 · if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0))))
255139, 154, 155, 176, 254letrd 10232 . . . . . . 7 ((𝜑𝑗 ∈ (ℤ𝐾)) → (#‘ 𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))(𝑊𝑘)) ≤ ((#‘ 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘)) + (𝑁 · if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0))))
256 fzfid 12812 . . . . . . . . . 10 ((𝜑𝑗 ∈ (ℤ𝐾)) → ((𝐾 + 1)...(𝑗 + 1)) ∈ Fin)
25758, 89syl 17 . . . . . . . . . . 11 ((𝜑𝑘 ∈ (ℤ‘(𝐾 + 1))) → if(𝑘 ∈ ℙ, (1 / 𝑘), 0) ∈ ℝ)
258103, 104, 257syl2an 493 . . . . . . . . . 10 (((𝜑𝑗 ∈ (ℤ𝐾)) ∧ 𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))) → if(𝑘 ∈ ℙ, (1 / 𝑘), 0) ∈ ℝ)
259256, 258fsumrecl 14509 . . . . . . . . 9 ((𝜑𝑗 ∈ (ℤ𝐾)) → Σ𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))if(𝑘 ∈ ℙ, (1 / 𝑘), 0) ∈ ℝ)
26082, 259remulcld 10108 . . . . . . . 8 ((𝜑𝑗 ∈ (ℤ𝐾)) → (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))if(𝑘 ∈ ℙ, (1 / 𝑘), 0)) ∈ ℝ)
261 letr 10169 . . . . . . . 8 (((#‘ 𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))(𝑊𝑘)) ∈ ℝ ∧ ((#‘ 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘)) + (𝑁 · if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0))) ∈ ℝ ∧ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))if(𝑘 ∈ ℙ, (1 / 𝑘), 0)) ∈ ℝ) → (((#‘ 𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))(𝑊𝑘)) ≤ ((#‘ 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘)) + (𝑁 · if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0))) ∧ ((#‘ 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘)) + (𝑁 · if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0))) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))if(𝑘 ∈ ℙ, (1 / 𝑘), 0))) → (#‘ 𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))(𝑊𝑘)) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))if(𝑘 ∈ ℙ, (1 / 𝑘), 0))))
262139, 155, 260, 261syl3anc 1366 . . . . . . 7 ((𝜑𝑗 ∈ (ℤ𝐾)) → (((#‘ 𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))(𝑊𝑘)) ≤ ((#‘ 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘)) + (𝑁 · if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0))) ∧ ((#‘ 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘)) + (𝑁 · if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0))) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))if(𝑘 ∈ ℙ, (1 / 𝑘), 0))) → (#‘ 𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))(𝑊𝑘)) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))if(𝑘 ∈ ℙ, (1 / 𝑘), 0))))
263255, 262mpand 711 . . . . . 6 ((𝜑𝑗 ∈ (ℤ𝐾)) → (((#‘ 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘)) + (𝑁 · if((𝑗 + 1) ∈ ℙ, (1 / (𝑗 + 1)), 0))) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))if(𝑘 ∈ ℙ, (1 / 𝑘), 0)) → (#‘ 𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))(𝑊𝑘)) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))if(𝑘 ∈ ℙ, (1 / 𝑘), 0))))
264129, 263sylbid 230 . . . . 5 ((𝜑𝑗 ∈ (ℤ𝐾)) → ((#‘ 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘)) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝑗)if(𝑘 ∈ ℙ, (1 / 𝑘), 0)) → (#‘ 𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))(𝑊𝑘)) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))if(𝑘 ∈ ℙ, (1 / 𝑘), 0))))
265264expcom 450 . . . 4 (𝑗 ∈ (ℤ𝐾) → (𝜑 → ((#‘ 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘)) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝑗)if(𝑘 ∈ ℙ, (1 / 𝑘), 0)) → (#‘ 𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))(𝑊𝑘)) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))if(𝑘 ∈ ℙ, (1 / 𝑘), 0)))))
266265a2d 29 . . 3 (𝑗 ∈ (ℤ𝐾) → ((𝜑 → (#‘ 𝑘 ∈ ((𝐾 + 1)...𝑗)(𝑊𝑘)) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝑗)if(𝑘 ∈ ℙ, (1 / 𝑘), 0))) → (𝜑 → (#‘ 𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))(𝑊𝑘)) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...(𝑗 + 1))if(𝑘 ∈ ℙ, (1 / 𝑘), 0)))))
2677, 14, 21, 28, 53, 266uzind4 11784 . 2 (𝑁 ∈ (ℤ𝐾) → (𝜑 → (#‘ 𝑘 ∈ ((𝐾 + 1)...𝑁)(𝑊𝑘)) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝑁)if(𝑘 ∈ ℙ, (1 / 𝑘), 0))))
268267com12 32 1 (𝜑 → (𝑁 ∈ (ℤ𝐾) → (#‘ 𝑘 ∈ ((𝐾 + 1)...𝑁)(𝑊𝑘)) ≤ (𝑁 · Σ𝑘 ∈ ((𝐾 + 1)...𝑁)if(𝑘 ∈ ℙ, (1 / 𝑘), 0))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 196  wa 383   = wceq 1523  wcel 2030  wral 2941  {crab 2945  cdif 3604  cun 3605  wss 3607  c0 3948  ifcif 4119  {csn 4210   ciun 4552   class class class wbr 4685  cmpt 4762  dom cdm 5143  cfv 5926  (class class class)co 6690  Fincfn 7997  cc 9972  cr 9973  0cc0 9974  1c1 9975   + caddc 9977   · cmul 9979   < clt 10112  cle 10113  cmin 10304   / cdiv 10722  cn 11058  2c2 11108  0cn0 11330  cz 11415  cuz 11725  ...cfz 12364  cfl 12631  seqcseq 12841  #chash 13157  cli 14259  Σcsu 14460  cdvds 15027  cprime 15432
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1762  ax-4 1777  ax-5 1879  ax-6 1945  ax-7 1981  ax-8 2032  ax-9 2039  ax-10 2059  ax-11 2074  ax-12 2087  ax-13 2282  ax-ext 2631  ax-rep 4804  ax-sep 4814  ax-nul 4822  ax-pow 4873  ax-pr 4936  ax-un 6991  ax-inf2 8576  ax-cnex 10030  ax-resscn 10031  ax-1cn 10032  ax-icn 10033  ax-addcl 10034  ax-addrcl 10035  ax-mulcl 10036  ax-mulrcl 10037  ax-mulcom 10038  ax-addass 10039  ax-mulass 10040  ax-distr 10041  ax-i2m1 10042  ax-1ne0 10043  ax-1rid 10044  ax-rnegex 10045  ax-rrecex 10046  ax-cnre 10047  ax-pre-lttri 10048  ax-pre-lttrn 10049  ax-pre-ltadd 10050  ax-pre-mulgt0 10051  ax-pre-sup 10052
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3or 1055  df-3an 1056  df-tru 1526  df-fal 1529  df-ex 1745  df-nf 1750  df-sb 1938  df-eu 2502  df-mo 2503  df-clab 2638  df-cleq 2644  df-clel 2647  df-nfc 2782  df-ne 2824  df-nel 2927  df-ral 2946  df-rex 2947  df-reu 2948  df-rmo 2949  df-rab 2950  df-v 3233  df-sbc 3469  df-csb 3567  df-dif 3610  df-un 3612  df-in 3614  df-ss 3621  df-pss 3623  df-nul 3949  df-if 4120  df-pw 4193  df-sn 4211  df-pr 4213  df-tp 4215  df-op 4217  df-uni 4469  df-int 4508  df-iun 4554  df-br 4686  df-opab 4746  df-mpt 4763  df-tr 4786  df-id 5053  df-eprel 5058  df-po 5064  df-so 5065  df-fr 5102  df-se 5103  df-we 5104  df-xp 5149  df-rel 5150  df-cnv 5151  df-co 5152  df-dm 5153  df-rn 5154  df-res 5155  df-ima 5156  df-pred 5718  df-ord 5764  df-on 5765  df-lim 5766  df-suc 5767  df-iota 5889  df-fun 5928  df-fn 5929  df-f 5930  df-f1 5931  df-fo 5932  df-f1o 5933  df-fv 5934  df-isom 5935  df-riota 6651  df-ov 6693  df-oprab 6694  df-mpt2 6695  df-om 7108  df-1st 7210  df-2nd 7211  df-wrecs 7452  df-recs 7513  df-rdg 7551  df-1o 7605  df-oadd 7609  df-er 7787  df-en 7998  df-dom 7999  df-sdom 8000  df-fin 8001  df-sup 8389  df-inf 8390  df-oi 8456  df-card 8803  df-cda 9028  df-pnf 10114  df-mnf 10115  df-xr 10116  df-ltxr 10117  df-le 10118  df-sub 10306  df-neg 10307  df-div 10723  df-nn 11059  df-2 11117  df-3 11118  df-n0 11331  df-xnn0 11402  df-z 11416  df-uz 11726  df-rp 11871  df-fz 12365  df-fzo 12505  df-fl 12633  df-seq 12842  df-exp 12901  df-hash 13158  df-cj 13883  df-re 13884  df-im 13885  df-sqrt 14019  df-abs 14020  df-clim 14263  df-sum 14461  df-dvds 15028  df-prm 15433
This theorem is referenced by:  prmreclem5  15671
  Copyright terms: Public domain W3C validator