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

Theorem pntlemf 27451
Description: Lemma for pnt 27460. Add up the pieces in pntlemi 27450 to get an estimate slightly better than the naive lower bound 0. (Contributed by Mario Carneiro, 13-Apr-2016.)
Hypotheses
Ref Expression
pntlem1.r 𝑅 = (π‘Ž ∈ ℝ+ ↦ ((Οˆβ€˜π‘Ž) βˆ’ π‘Ž))
pntlem1.a (πœ‘ β†’ 𝐴 ∈ ℝ+)
pntlem1.b (πœ‘ β†’ 𝐡 ∈ ℝ+)
pntlem1.l (πœ‘ β†’ 𝐿 ∈ (0(,)1))
pntlem1.d 𝐷 = (𝐴 + 1)
pntlem1.f 𝐹 = ((1 βˆ’ (1 / 𝐷)) Β· ((𝐿 / (32 Β· 𝐡)) / (𝐷↑2)))
pntlem1.u (πœ‘ β†’ π‘ˆ ∈ ℝ+)
pntlem1.u2 (πœ‘ β†’ π‘ˆ ≀ 𝐴)
pntlem1.e 𝐸 = (π‘ˆ / 𝐷)
pntlem1.k 𝐾 = (expβ€˜(𝐡 / 𝐸))
pntlem1.y (πœ‘ β†’ (π‘Œ ∈ ℝ+ ∧ 1 ≀ π‘Œ))
pntlem1.x (πœ‘ β†’ (𝑋 ∈ ℝ+ ∧ π‘Œ < 𝑋))
pntlem1.c (πœ‘ β†’ 𝐢 ∈ ℝ+)
pntlem1.w π‘Š = (((π‘Œ + (4 / (𝐿 Β· 𝐸)))↑2) + (((𝑋 Β· (𝐾↑2))↑4) + (expβ€˜(((32 Β· 𝐡) / ((π‘ˆ βˆ’ 𝐸) Β· (𝐿 Β· (𝐸↑2)))) Β· ((π‘ˆ Β· 3) + 𝐢)))))
pntlem1.z (πœ‘ β†’ 𝑍 ∈ (π‘Š[,)+∞))
pntlem1.m 𝑀 = ((βŒŠβ€˜((logβ€˜π‘‹) / (logβ€˜πΎ))) + 1)
pntlem1.n 𝑁 = (βŒŠβ€˜(((logβ€˜π‘) / (logβ€˜πΎ)) / 2))
pntlem1.U (πœ‘ β†’ βˆ€π‘§ ∈ (π‘Œ[,)+∞)(absβ€˜((π‘…β€˜π‘§) / 𝑧)) ≀ π‘ˆ)
pntlem1.K (πœ‘ β†’ βˆ€π‘¦ ∈ (𝑋(,)+∞)βˆƒπ‘§ ∈ ℝ+ ((𝑦 < 𝑧 ∧ ((1 + (𝐿 Β· 𝐸)) Β· 𝑧) < (𝐾 Β· 𝑦)) ∧ βˆ€π‘’ ∈ (𝑧[,]((1 + (𝐿 Β· 𝐸)) Β· 𝑧))(absβ€˜((π‘…β€˜π‘’) / 𝑒)) ≀ 𝐸))
Assertion
Ref Expression
pntlemf (πœ‘ β†’ ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2))) ≀ Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))
Distinct variable groups:   𝑧,𝐢   𝑦,𝑛,𝑧,𝑒,𝐿   𝑛,𝐾,𝑦,𝑧   𝑛,𝑀,𝑧   πœ‘,𝑛   𝑛,𝑁,𝑧   𝑅,𝑛,𝑒,𝑦,𝑧   π‘ˆ,𝑛,𝑧   𝑛,π‘Š,𝑧   𝑛,𝑋,𝑦,𝑧   𝑛,π‘Œ,𝑧   𝑛,π‘Ž,𝑒,𝑦,𝑧,𝐸   𝑛,𝑍,𝑒,𝑧
Allowed substitution hints:   πœ‘(𝑦,𝑧,𝑒,π‘Ž)   𝐴(𝑦,𝑧,𝑒,𝑛,π‘Ž)   𝐡(𝑦,𝑧,𝑒,𝑛,π‘Ž)   𝐢(𝑦,𝑒,𝑛,π‘Ž)   𝐷(𝑦,𝑧,𝑒,𝑛,π‘Ž)   𝑅(π‘Ž)   π‘ˆ(𝑦,𝑒,π‘Ž)   𝐹(𝑦,𝑧,𝑒,𝑛,π‘Ž)   𝐾(𝑒,π‘Ž)   𝐿(π‘Ž)   𝑀(𝑦,𝑒,π‘Ž)   𝑁(𝑦,𝑒,π‘Ž)   π‘Š(𝑦,𝑒,π‘Ž)   𝑋(𝑒,π‘Ž)   π‘Œ(𝑦,𝑒,π‘Ž)   𝑍(𝑦,π‘Ž)

Proof of Theorem pntlemf
Dummy variables 𝑗 π‘š are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 pntlem1.r . . . . . . 7 𝑅 = (π‘Ž ∈ ℝ+ ↦ ((Οˆβ€˜π‘Ž) βˆ’ π‘Ž))
2 pntlem1.a . . . . . . 7 (πœ‘ β†’ 𝐴 ∈ ℝ+)
3 pntlem1.b . . . . . . 7 (πœ‘ β†’ 𝐡 ∈ ℝ+)
4 pntlem1.l . . . . . . 7 (πœ‘ β†’ 𝐿 ∈ (0(,)1))
5 pntlem1.d . . . . . . 7 𝐷 = (𝐴 + 1)
6 pntlem1.f . . . . . . 7 𝐹 = ((1 βˆ’ (1 / 𝐷)) Β· ((𝐿 / (32 Β· 𝐡)) / (𝐷↑2)))
7 pntlem1.u . . . . . . 7 (πœ‘ β†’ π‘ˆ ∈ ℝ+)
8 pntlem1.u2 . . . . . . 7 (πœ‘ β†’ π‘ˆ ≀ 𝐴)
9 pntlem1.e . . . . . . 7 𝐸 = (π‘ˆ / 𝐷)
10 pntlem1.k . . . . . . 7 𝐾 = (expβ€˜(𝐡 / 𝐸))
111, 2, 3, 4, 5, 6, 7, 8, 9, 10pntlemc 27441 . . . . . 6 (πœ‘ β†’ (𝐸 ∈ ℝ+ ∧ 𝐾 ∈ ℝ+ ∧ (𝐸 ∈ (0(,)1) ∧ 1 < 𝐾 ∧ (π‘ˆ βˆ’ 𝐸) ∈ ℝ+)))
1211simp3d 1143 . . . . 5 (πœ‘ β†’ (𝐸 ∈ (0(,)1) ∧ 1 < 𝐾 ∧ (π‘ˆ βˆ’ 𝐸) ∈ ℝ+))
1312simp3d 1143 . . . 4 (πœ‘ β†’ (π‘ˆ βˆ’ 𝐸) ∈ ℝ+)
141, 2, 3, 4, 5, 6pntlemd 27440 . . . . . . . 8 (πœ‘ β†’ (𝐿 ∈ ℝ+ ∧ 𝐷 ∈ ℝ+ ∧ 𝐹 ∈ ℝ+))
1514simp1d 1141 . . . . . . 7 (πœ‘ β†’ 𝐿 ∈ ℝ+)
1611simp1d 1141 . . . . . . . 8 (πœ‘ β†’ 𝐸 ∈ ℝ+)
17 2z 12601 . . . . . . . 8 2 ∈ β„€
18 rpexpcl 14053 . . . . . . . 8 ((𝐸 ∈ ℝ+ ∧ 2 ∈ β„€) β†’ (𝐸↑2) ∈ ℝ+)
1916, 17, 18sylancl 585 . . . . . . 7 (πœ‘ β†’ (𝐸↑2) ∈ ℝ+)
2015, 19rpmulcld 13039 . . . . . 6 (πœ‘ β†’ (𝐿 Β· (𝐸↑2)) ∈ ℝ+)
21 3nn0 12497 . . . . . . . . 9 3 ∈ β„•0
22 2nn 12292 . . . . . . . . 9 2 ∈ β„•
2321, 22decnncl 12704 . . . . . . . 8 32 ∈ β„•
24 nnrp 12992 . . . . . . . 8 (32 ∈ β„• β†’ 32 ∈ ℝ+)
2523, 24ax-mp 5 . . . . . . 7 32 ∈ ℝ+
26 rpmulcl 13004 . . . . . . 7 ((32 ∈ ℝ+ ∧ 𝐡 ∈ ℝ+) β†’ (32 Β· 𝐡) ∈ ℝ+)
2725, 3, 26sylancr 586 . . . . . 6 (πœ‘ β†’ (32 Β· 𝐡) ∈ ℝ+)
2820, 27rpdivcld 13040 . . . . 5 (πœ‘ β†’ ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) ∈ ℝ+)
29 pntlem1.y . . . . . . . . . 10 (πœ‘ β†’ (π‘Œ ∈ ℝ+ ∧ 1 ≀ π‘Œ))
30 pntlem1.x . . . . . . . . . 10 (πœ‘ β†’ (𝑋 ∈ ℝ+ ∧ π‘Œ < 𝑋))
31 pntlem1.c . . . . . . . . . 10 (πœ‘ β†’ 𝐢 ∈ ℝ+)
32 pntlem1.w . . . . . . . . . 10 π‘Š = (((π‘Œ + (4 / (𝐿 Β· 𝐸)))↑2) + (((𝑋 Β· (𝐾↑2))↑4) + (expβ€˜(((32 Β· 𝐡) / ((π‘ˆ βˆ’ 𝐸) Β· (𝐿 Β· (𝐸↑2)))) Β· ((π‘ˆ Β· 3) + 𝐢)))))
33 pntlem1.z . . . . . . . . . 10 (πœ‘ β†’ 𝑍 ∈ (π‘Š[,)+∞))
341, 2, 3, 4, 5, 6, 7, 8, 9, 10, 29, 30, 31, 32, 33pntlemb 27443 . . . . . . . . 9 (πœ‘ β†’ (𝑍 ∈ ℝ+ ∧ (1 < 𝑍 ∧ e ≀ (βˆšβ€˜π‘) ∧ (βˆšβ€˜π‘) ≀ (𝑍 / π‘Œ)) ∧ ((4 / (𝐿 Β· 𝐸)) ≀ (βˆšβ€˜π‘) ∧ (((logβ€˜π‘‹) / (logβ€˜πΎ)) + 2) ≀ (((logβ€˜π‘) / (logβ€˜πΎ)) / 4) ∧ ((π‘ˆ Β· 3) + 𝐢) ≀ (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘)))))
3534simp1d 1141 . . . . . . . 8 (πœ‘ β†’ 𝑍 ∈ ℝ+)
3635rpred 13023 . . . . . . 7 (πœ‘ β†’ 𝑍 ∈ ℝ)
3734simp2d 1142 . . . . . . . 8 (πœ‘ β†’ (1 < 𝑍 ∧ e ≀ (βˆšβ€˜π‘) ∧ (βˆšβ€˜π‘) ≀ (𝑍 / π‘Œ)))
3837simp1d 1141 . . . . . . 7 (πœ‘ β†’ 1 < 𝑍)
3936, 38rplogcld 26477 . . . . . 6 (πœ‘ β†’ (logβ€˜π‘) ∈ ℝ+)
40 rpexpcl 14053 . . . . . 6 (((logβ€˜π‘) ∈ ℝ+ ∧ 2 ∈ β„€) β†’ ((logβ€˜π‘)↑2) ∈ ℝ+)
4139, 17, 40sylancl 585 . . . . 5 (πœ‘ β†’ ((logβ€˜π‘)↑2) ∈ ℝ+)
4228, 41rpmulcld 13039 . . . 4 (πœ‘ β†’ (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2)) ∈ ℝ+)
4313, 42rpmulcld 13039 . . 3 (πœ‘ β†’ ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2))) ∈ ℝ+)
4443rpred 13023 . 2 (πœ‘ β†’ ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2))) ∈ ℝ)
4515, 16rpmulcld 13039 . . . . . . 7 (πœ‘ β†’ (𝐿 Β· 𝐸) ∈ ℝ+)
46 8re 12315 . . . . . . . 8 8 ∈ ℝ
47 8pos 12331 . . . . . . . 8 0 < 8
4846, 47elrpii 12984 . . . . . . 7 8 ∈ ℝ+
49 rpdivcl 13006 . . . . . . 7 (((𝐿 Β· 𝐸) ∈ ℝ+ ∧ 8 ∈ ℝ+) β†’ ((𝐿 Β· 𝐸) / 8) ∈ ℝ+)
5045, 48, 49sylancl 585 . . . . . 6 (πœ‘ β†’ ((𝐿 Β· 𝐸) / 8) ∈ ℝ+)
5150, 39rpmulcld 13039 . . . . 5 (πœ‘ β†’ (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘)) ∈ ℝ+)
5213, 51rpmulcld 13039 . . . 4 (πœ‘ β†’ ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) ∈ ℝ+)
5352rpred 13023 . . 3 (πœ‘ β†’ ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) ∈ ℝ)
54 pntlem1.m . . . . . . . 8 𝑀 = ((βŒŠβ€˜((logβ€˜π‘‹) / (logβ€˜πΎ))) + 1)
55 pntlem1.n . . . . . . . 8 𝑁 = (βŒŠβ€˜(((logβ€˜π‘) / (logβ€˜πΎ)) / 2))
561, 2, 3, 4, 5, 6, 7, 8, 9, 10, 29, 30, 31, 32, 33, 54, 55pntlemg 27444 . . . . . . 7 (πœ‘ β†’ (𝑀 ∈ β„• ∧ 𝑁 ∈ (β„€β‰₯β€˜π‘€) ∧ (((logβ€˜π‘) / (logβ€˜πΎ)) / 4) ≀ (𝑁 βˆ’ 𝑀)))
5756simp1d 1141 . . . . . 6 (πœ‘ β†’ 𝑀 ∈ β„•)
5856simp2d 1142 . . . . . 6 (πœ‘ β†’ 𝑁 ∈ (β„€β‰₯β€˜π‘€))
59 eluznn 12909 . . . . . 6 ((𝑀 ∈ β„• ∧ 𝑁 ∈ (β„€β‰₯β€˜π‘€)) β†’ 𝑁 ∈ β„•)
6057, 58, 59syl2anc 583 . . . . 5 (πœ‘ β†’ 𝑁 ∈ β„•)
6160nnred 12234 . . . 4 (πœ‘ β†’ 𝑁 ∈ ℝ)
6257nnred 12234 . . . 4 (πœ‘ β†’ 𝑀 ∈ ℝ)
6361, 62resubcld 11649 . . 3 (πœ‘ β†’ (𝑁 βˆ’ 𝑀) ∈ ℝ)
6453, 63remulcld 11251 . 2 (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑁 βˆ’ 𝑀)) ∈ ℝ)
65 fzfid 13945 . . 3 (πœ‘ β†’ (1...(βŒŠβ€˜(𝑍 / π‘Œ))) ∈ Fin)
667rpred 13023 . . . . . 6 (πœ‘ β†’ π‘ˆ ∈ ℝ)
67 elfznn 13537 . . . . . 6 (𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ))) β†’ 𝑛 ∈ β„•)
68 nndivre 12260 . . . . . 6 ((π‘ˆ ∈ ℝ ∧ 𝑛 ∈ β„•) β†’ (π‘ˆ / 𝑛) ∈ ℝ)
6966, 67, 68syl2an 595 . . . . 5 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (π‘ˆ / 𝑛) ∈ ℝ)
7035adantr 480 . . . . . . . . . 10 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ 𝑍 ∈ ℝ+)
7167adantl 481 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ 𝑛 ∈ β„•)
7271nnrpd 13021 . . . . . . . . . 10 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ 𝑛 ∈ ℝ+)
7370, 72rpdivcld 13040 . . . . . . . . 9 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (𝑍 / 𝑛) ∈ ℝ+)
741pntrf 27409 . . . . . . . . . 10 𝑅:ℝ+βŸΆβ„
7574ffvelcdmi 7085 . . . . . . . . 9 ((𝑍 / 𝑛) ∈ ℝ+ β†’ (π‘…β€˜(𝑍 / 𝑛)) ∈ ℝ)
7673, 75syl 17 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (π‘…β€˜(𝑍 / 𝑛)) ∈ ℝ)
7776, 70rerpdivcld 13054 . . . . . . 7 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ ((π‘…β€˜(𝑍 / 𝑛)) / 𝑍) ∈ ℝ)
7877recnd 11249 . . . . . 6 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ ((π‘…β€˜(𝑍 / 𝑛)) / 𝑍) ∈ β„‚)
7978abscld 15390 . . . . 5 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) ∈ ℝ)
8069, 79resubcld 11649 . . . 4 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ ((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) ∈ ℝ)
8172relogcld 26471 . . . 4 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (logβ€˜π‘›) ∈ ℝ)
8280, 81remulcld 11251 . . 3 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ∈ ℝ)
8365, 82fsumrecl 15687 . 2 (πœ‘ β†’ Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ∈ ℝ)
8445rpcnd 13025 . . . . . . . . 9 (πœ‘ β†’ (𝐿 Β· 𝐸) ∈ β„‚)
8511simp2d 1142 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝐾 ∈ ℝ+)
8685rpred 13023 . . . . . . . . . . . 12 (πœ‘ β†’ 𝐾 ∈ ℝ)
8712simp2d 1142 . . . . . . . . . . . 12 (πœ‘ β†’ 1 < 𝐾)
8886, 87rplogcld 26477 . . . . . . . . . . 11 (πœ‘ β†’ (logβ€˜πΎ) ∈ ℝ+)
8939, 88rpdivcld 13040 . . . . . . . . . 10 (πœ‘ β†’ ((logβ€˜π‘) / (logβ€˜πΎ)) ∈ ℝ+)
9089rpcnd 13025 . . . . . . . . 9 (πœ‘ β†’ ((logβ€˜π‘) / (logβ€˜πΎ)) ∈ β„‚)
91 rpcnne0 12999 . . . . . . . . . 10 (8 ∈ ℝ+ β†’ (8 ∈ β„‚ ∧ 8 β‰  0))
9248, 91mp1i 13 . . . . . . . . 9 (πœ‘ β†’ (8 ∈ β„‚ ∧ 8 β‰  0))
93 4re 12303 . . . . . . . . . . 11 4 ∈ ℝ
94 4pos 12326 . . . . . . . . . . 11 0 < 4
9593, 94elrpii 12984 . . . . . . . . . 10 4 ∈ ℝ+
96 rpcnne0 12999 . . . . . . . . . 10 (4 ∈ ℝ+ β†’ (4 ∈ β„‚ ∧ 4 β‰  0))
9795, 96mp1i 13 . . . . . . . . 9 (πœ‘ β†’ (4 ∈ β„‚ ∧ 4 β‰  0))
98 divmuldiv 11921 . . . . . . . . 9 ((((𝐿 Β· 𝐸) ∈ β„‚ ∧ ((logβ€˜π‘) / (logβ€˜πΎ)) ∈ β„‚) ∧ ((8 ∈ β„‚ ∧ 8 β‰  0) ∧ (4 ∈ β„‚ ∧ 4 β‰  0))) β†’ (((𝐿 Β· 𝐸) / 8) Β· (((logβ€˜π‘) / (logβ€˜πΎ)) / 4)) = (((𝐿 Β· 𝐸) Β· ((logβ€˜π‘) / (logβ€˜πΎ))) / (8 Β· 4)))
9984, 90, 92, 97, 98syl22anc 836 . . . . . . . 8 (πœ‘ β†’ (((𝐿 Β· 𝐸) / 8) Β· (((logβ€˜π‘) / (logβ€˜πΎ)) / 4)) = (((𝐿 Β· 𝐸) Β· ((logβ€˜π‘) / (logβ€˜πΎ))) / (8 Β· 4)))
10010fveq2i 6894 . . . . . . . . . . . . . 14 (logβ€˜πΎ) = (logβ€˜(expβ€˜(𝐡 / 𝐸)))
1013, 16rpdivcld 13040 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (𝐡 / 𝐸) ∈ ℝ+)
102101rpred 13023 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (𝐡 / 𝐸) ∈ ℝ)
103102relogefd 26476 . . . . . . . . . . . . . 14 (πœ‘ β†’ (logβ€˜(expβ€˜(𝐡 / 𝐸))) = (𝐡 / 𝐸))
104100, 103eqtrid 2783 . . . . . . . . . . . . 13 (πœ‘ β†’ (logβ€˜πΎ) = (𝐡 / 𝐸))
105104oveq2d 7428 . . . . . . . . . . . 12 (πœ‘ β†’ ((logβ€˜π‘) / (logβ€˜πΎ)) = ((logβ€˜π‘) / (𝐡 / 𝐸)))
10639rpcnd 13025 . . . . . . . . . . . . 13 (πœ‘ β†’ (logβ€˜π‘) ∈ β„‚)
1073rpcnne0d 13032 . . . . . . . . . . . . 13 (πœ‘ β†’ (𝐡 ∈ β„‚ ∧ 𝐡 β‰  0))
10816rpcnne0d 13032 . . . . . . . . . . . . 13 (πœ‘ β†’ (𝐸 ∈ β„‚ ∧ 𝐸 β‰  0))
109 divdiv2 11933 . . . . . . . . . . . . 13 (((logβ€˜π‘) ∈ β„‚ ∧ (𝐡 ∈ β„‚ ∧ 𝐡 β‰  0) ∧ (𝐸 ∈ β„‚ ∧ 𝐸 β‰  0)) β†’ ((logβ€˜π‘) / (𝐡 / 𝐸)) = (((logβ€˜π‘) Β· 𝐸) / 𝐡))
110106, 107, 108, 109syl3anc 1370 . . . . . . . . . . . 12 (πœ‘ β†’ ((logβ€˜π‘) / (𝐡 / 𝐸)) = (((logβ€˜π‘) Β· 𝐸) / 𝐡))
111105, 110eqtrd 2771 . . . . . . . . . . 11 (πœ‘ β†’ ((logβ€˜π‘) / (logβ€˜πΎ)) = (((logβ€˜π‘) Β· 𝐸) / 𝐡))
112111oveq2d 7428 . . . . . . . . . 10 (πœ‘ β†’ ((𝐿 Β· 𝐸) Β· ((logβ€˜π‘) / (logβ€˜πΎ))) = ((𝐿 Β· 𝐸) Β· (((logβ€˜π‘) Β· 𝐸) / 𝐡)))
11316rpcnd 13025 . . . . . . . . . . . 12 (πœ‘ β†’ 𝐸 ∈ β„‚)
114106, 113mulcld 11241 . . . . . . . . . . 11 (πœ‘ β†’ ((logβ€˜π‘) Β· 𝐸) ∈ β„‚)
115 divass 11897 . . . . . . . . . . 11 (((𝐿 Β· 𝐸) ∈ β„‚ ∧ ((logβ€˜π‘) Β· 𝐸) ∈ β„‚ ∧ (𝐡 ∈ β„‚ ∧ 𝐡 β‰  0)) β†’ (((𝐿 Β· 𝐸) Β· ((logβ€˜π‘) Β· 𝐸)) / 𝐡) = ((𝐿 Β· 𝐸) Β· (((logβ€˜π‘) Β· 𝐸) / 𝐡)))
11684, 114, 107, 115syl3anc 1370 . . . . . . . . . 10 (πœ‘ β†’ (((𝐿 Β· 𝐸) Β· ((logβ€˜π‘) Β· 𝐸)) / 𝐡) = ((𝐿 Β· 𝐸) Β· (((logβ€˜π‘) Β· 𝐸) / 𝐡)))
11715rpcnd 13025 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝐿 ∈ β„‚)
118117, 113, 106, 113mul4d 11433 . . . . . . . . . . . 12 (πœ‘ β†’ ((𝐿 Β· 𝐸) Β· ((logβ€˜π‘) Β· 𝐸)) = ((𝐿 Β· (logβ€˜π‘)) Β· (𝐸 Β· 𝐸)))
119113sqvald 14115 . . . . . . . . . . . . 13 (πœ‘ β†’ (𝐸↑2) = (𝐸 Β· 𝐸))
120119oveq2d 7428 . . . . . . . . . . . 12 (πœ‘ β†’ ((𝐿 Β· (logβ€˜π‘)) Β· (𝐸↑2)) = ((𝐿 Β· (logβ€˜π‘)) Β· (𝐸 Β· 𝐸)))
121113sqcld 14116 . . . . . . . . . . . . 13 (πœ‘ β†’ (𝐸↑2) ∈ β„‚)
122117, 106, 121mul32d 11431 . . . . . . . . . . . 12 (πœ‘ β†’ ((𝐿 Β· (logβ€˜π‘)) Β· (𝐸↑2)) = ((𝐿 Β· (𝐸↑2)) Β· (logβ€˜π‘)))
123118, 120, 1223eqtr2d 2777 . . . . . . . . . . 11 (πœ‘ β†’ ((𝐿 Β· 𝐸) Β· ((logβ€˜π‘) Β· 𝐸)) = ((𝐿 Β· (𝐸↑2)) Β· (logβ€˜π‘)))
124123oveq1d 7427 . . . . . . . . . 10 (πœ‘ β†’ (((𝐿 Β· 𝐸) Β· ((logβ€˜π‘) Β· 𝐸)) / 𝐡) = (((𝐿 Β· (𝐸↑2)) Β· (logβ€˜π‘)) / 𝐡))
125112, 116, 1243eqtr2d 2777 . . . . . . . . 9 (πœ‘ β†’ ((𝐿 Β· 𝐸) Β· ((logβ€˜π‘) / (logβ€˜πΎ))) = (((𝐿 Β· (𝐸↑2)) Β· (logβ€˜π‘)) / 𝐡))
126 8t4e32 12801 . . . . . . . . . 10 (8 Β· 4) = 32
127126a1i 11 . . . . . . . . 9 (πœ‘ β†’ (8 Β· 4) = 32)
128125, 127oveq12d 7430 . . . . . . . 8 (πœ‘ β†’ (((𝐿 Β· 𝐸) Β· ((logβ€˜π‘) / (logβ€˜πΎ))) / (8 Β· 4)) = ((((𝐿 Β· (𝐸↑2)) Β· (logβ€˜π‘)) / 𝐡) / 32))
12920rpcnd 13025 . . . . . . . . . . 11 (πœ‘ β†’ (𝐿 Β· (𝐸↑2)) ∈ β„‚)
130129, 106mulcld 11241 . . . . . . . . . 10 (πœ‘ β†’ ((𝐿 Β· (𝐸↑2)) Β· (logβ€˜π‘)) ∈ β„‚)
131 rpcnne0 12999 . . . . . . . . . . 11 (32 ∈ ℝ+ β†’ (32 ∈ β„‚ ∧ 32 β‰  0))
13225, 131mp1i 13 . . . . . . . . . 10 (πœ‘ β†’ (32 ∈ β„‚ ∧ 32 β‰  0))
133 divdiv1 11932 . . . . . . . . . 10 ((((𝐿 Β· (𝐸↑2)) Β· (logβ€˜π‘)) ∈ β„‚ ∧ (𝐡 ∈ β„‚ ∧ 𝐡 β‰  0) ∧ (32 ∈ β„‚ ∧ 32 β‰  0)) β†’ ((((𝐿 Β· (𝐸↑2)) Β· (logβ€˜π‘)) / 𝐡) / 32) = (((𝐿 Β· (𝐸↑2)) Β· (logβ€˜π‘)) / (𝐡 Β· 32)))
134130, 107, 132, 133syl3anc 1370 . . . . . . . . 9 (πœ‘ β†’ ((((𝐿 Β· (𝐸↑2)) Β· (logβ€˜π‘)) / 𝐡) / 32) = (((𝐿 Β· (𝐸↑2)) Β· (logβ€˜π‘)) / (𝐡 Β· 32)))
13523nncni 12229 . . . . . . . . . . 11 32 ∈ β„‚
1363rpcnd 13025 . . . . . . . . . . 11 (πœ‘ β†’ 𝐡 ∈ β„‚)
137 mulcom 11202 . . . . . . . . . . 11 ((32 ∈ β„‚ ∧ 𝐡 ∈ β„‚) β†’ (32 Β· 𝐡) = (𝐡 Β· 32))
138135, 136, 137sylancr 586 . . . . . . . . . 10 (πœ‘ β†’ (32 Β· 𝐡) = (𝐡 Β· 32))
139138oveq2d 7428 . . . . . . . . 9 (πœ‘ β†’ (((𝐿 Β· (𝐸↑2)) Β· (logβ€˜π‘)) / (32 Β· 𝐡)) = (((𝐿 Β· (𝐸↑2)) Β· (logβ€˜π‘)) / (𝐡 Β· 32)))
14027rpcnne0d 13032 . . . . . . . . . 10 (πœ‘ β†’ ((32 Β· 𝐡) ∈ β„‚ ∧ (32 Β· 𝐡) β‰  0))
141 div23 11898 . . . . . . . . . 10 (((𝐿 Β· (𝐸↑2)) ∈ β„‚ ∧ (logβ€˜π‘) ∈ β„‚ ∧ ((32 Β· 𝐡) ∈ β„‚ ∧ (32 Β· 𝐡) β‰  0)) β†’ (((𝐿 Β· (𝐸↑2)) Β· (logβ€˜π‘)) / (32 Β· 𝐡)) = (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· (logβ€˜π‘)))
142129, 106, 140, 141syl3anc 1370 . . . . . . . . 9 (πœ‘ β†’ (((𝐿 Β· (𝐸↑2)) Β· (logβ€˜π‘)) / (32 Β· 𝐡)) = (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· (logβ€˜π‘)))
143134, 139, 1423eqtr2d 2777 . . . . . . . 8 (πœ‘ β†’ ((((𝐿 Β· (𝐸↑2)) Β· (logβ€˜π‘)) / 𝐡) / 32) = (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· (logβ€˜π‘)))
14499, 128, 1433eqtrd 2775 . . . . . . 7 (πœ‘ β†’ (((𝐿 Β· 𝐸) / 8) Β· (((logβ€˜π‘) / (logβ€˜πΎ)) / 4)) = (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· (logβ€˜π‘)))
145144oveq1d 7427 . . . . . 6 (πœ‘ β†’ ((((𝐿 Β· 𝐸) / 8) Β· (((logβ€˜π‘) / (logβ€˜πΎ)) / 4)) Β· (logβ€˜π‘)) = ((((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· (logβ€˜π‘)) Β· (logβ€˜π‘)))
14650rpcnd 13025 . . . . . . 7 (πœ‘ β†’ ((𝐿 Β· 𝐸) / 8) ∈ β„‚)
14789rpred 13023 . . . . . . . . 9 (πœ‘ β†’ ((logβ€˜π‘) / (logβ€˜πΎ)) ∈ ℝ)
148 4nn 12302 . . . . . . . . 9 4 ∈ β„•
149 nndivre 12260 . . . . . . . . 9 ((((logβ€˜π‘) / (logβ€˜πΎ)) ∈ ℝ ∧ 4 ∈ β„•) β†’ (((logβ€˜π‘) / (logβ€˜πΎ)) / 4) ∈ ℝ)
150147, 148, 149sylancl 585 . . . . . . . 8 (πœ‘ β†’ (((logβ€˜π‘) / (logβ€˜πΎ)) / 4) ∈ ℝ)
151150recnd 11249 . . . . . . 7 (πœ‘ β†’ (((logβ€˜π‘) / (logβ€˜πΎ)) / 4) ∈ β„‚)
152146, 106, 151mul32d 11431 . . . . . 6 (πœ‘ β†’ ((((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘)) Β· (((logβ€˜π‘) / (logβ€˜πΎ)) / 4)) = ((((𝐿 Β· 𝐸) / 8) Β· (((logβ€˜π‘) / (logβ€˜πΎ)) / 4)) Β· (logβ€˜π‘)))
153106sqvald 14115 . . . . . . . 8 (πœ‘ β†’ ((logβ€˜π‘)↑2) = ((logβ€˜π‘) Β· (logβ€˜π‘)))
154153oveq2d 7428 . . . . . . 7 (πœ‘ β†’ (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2)) = (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘) Β· (logβ€˜π‘))))
15528rpcnd 13025 . . . . . . . 8 (πœ‘ β†’ ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) ∈ β„‚)
156155, 106, 106mulassd 11244 . . . . . . 7 (πœ‘ β†’ ((((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· (logβ€˜π‘)) Β· (logβ€˜π‘)) = (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘) Β· (logβ€˜π‘))))
157154, 156eqtr4d 2774 . . . . . 6 (πœ‘ β†’ (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2)) = ((((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· (logβ€˜π‘)) Β· (logβ€˜π‘)))
158145, 152, 1573eqtr4d 2781 . . . . 5 (πœ‘ β†’ ((((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘)) Β· (((logβ€˜π‘) / (logβ€˜πΎ)) / 4)) = (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2)))
15956simp3d 1143 . . . . . 6 (πœ‘ β†’ (((logβ€˜π‘) / (logβ€˜πΎ)) / 4) ≀ (𝑁 βˆ’ 𝑀))
160150, 63, 51lemul2d 13067 . . . . . 6 (πœ‘ β†’ ((((logβ€˜π‘) / (logβ€˜πΎ)) / 4) ≀ (𝑁 βˆ’ 𝑀) ↔ ((((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘)) Β· (((logβ€˜π‘) / (logβ€˜πΎ)) / 4)) ≀ ((((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘)) Β· (𝑁 βˆ’ 𝑀))))
161159, 160mpbid 231 . . . . 5 (πœ‘ β†’ ((((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘)) Β· (((logβ€˜π‘) / (logβ€˜πΎ)) / 4)) ≀ ((((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘)) Β· (𝑁 βˆ’ 𝑀)))
162158, 161eqbrtrrd 5172 . . . 4 (πœ‘ β†’ (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2)) ≀ ((((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘)) Β· (𝑁 βˆ’ 𝑀)))
16342rpred 13023 . . . . 5 (πœ‘ β†’ (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2)) ∈ ℝ)
16451rpred 13023 . . . . . 6 (πœ‘ β†’ (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘)) ∈ ℝ)
165164, 63remulcld 11251 . . . . 5 (πœ‘ β†’ ((((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘)) Β· (𝑁 βˆ’ 𝑀)) ∈ ℝ)
166163, 165, 13lemul2d 13067 . . . 4 (πœ‘ β†’ ((((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2)) ≀ ((((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘)) Β· (𝑁 βˆ’ 𝑀)) ↔ ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2))) ≀ ((π‘ˆ βˆ’ 𝐸) Β· ((((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘)) Β· (𝑁 βˆ’ 𝑀)))))
167162, 166mpbid 231 . . 3 (πœ‘ β†’ ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2))) ≀ ((π‘ˆ βˆ’ 𝐸) Β· ((((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘)) Β· (𝑁 βˆ’ 𝑀))))
16813rpcnd 13025 . . . 4 (πœ‘ β†’ (π‘ˆ βˆ’ 𝐸) ∈ β„‚)
16951rpcnd 13025 . . . 4 (πœ‘ β†’ (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘)) ∈ β„‚)
17063recnd 11249 . . . 4 (πœ‘ β†’ (𝑁 βˆ’ 𝑀) ∈ β„‚)
171168, 169, 170mulassd 11244 . . 3 (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑁 βˆ’ 𝑀)) = ((π‘ˆ βˆ’ 𝐸) Β· ((((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘)) Β· (𝑁 βˆ’ 𝑀))))
172167, 171breqtrrd 5176 . 2 (πœ‘ β†’ ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2))) ≀ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑁 βˆ’ 𝑀)))
173 fzfid 13945 . . . 4 (πœ‘ β†’ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) ∈ Fin)
17460nnzd 12592 . . . . . . . . . . . 12 (πœ‘ β†’ 𝑁 ∈ β„€)
17585, 174rpexpcld 14217 . . . . . . . . . . 11 (πœ‘ β†’ (𝐾↑𝑁) ∈ ℝ+)
17635, 175rpdivcld 13040 . . . . . . . . . 10 (πœ‘ β†’ (𝑍 / (𝐾↑𝑁)) ∈ ℝ+)
177176rprege0d 13030 . . . . . . . . 9 (πœ‘ β†’ ((𝑍 / (𝐾↑𝑁)) ∈ ℝ ∧ 0 ≀ (𝑍 / (𝐾↑𝑁))))
178 flge0nn0 13792 . . . . . . . . 9 (((𝑍 / (𝐾↑𝑁)) ∈ ℝ ∧ 0 ≀ (𝑍 / (𝐾↑𝑁))) β†’ (βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) ∈ β„•0)
179 nn0p1nn 12518 . . . . . . . . 9 ((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) ∈ β„•0 β†’ ((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1) ∈ β„•)
180177, 178, 1793syl 18 . . . . . . . 8 (πœ‘ β†’ ((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1) ∈ β„•)
181 nnuz 12872 . . . . . . . 8 β„• = (β„€β‰₯β€˜1)
182180, 181eleqtrdi 2842 . . . . . . 7 (πœ‘ β†’ ((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1) ∈ (β„€β‰₯β€˜1))
183 fzss1 13547 . . . . . . 7 (((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1) ∈ (β„€β‰₯β€˜1) β†’ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) βŠ† (1...(βŒŠβ€˜(𝑍 / π‘Œ))))
184182, 183syl 17 . . . . . 6 (πœ‘ β†’ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) βŠ† (1...(βŒŠβ€˜(𝑍 / π‘Œ))))
185184sselda 3982 . . . . 5 ((πœ‘ ∧ 𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ))))
186185, 82syldan 590 . . . 4 ((πœ‘ ∧ 𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ∈ ℝ)
187173, 186fsumrecl 15687 . . 3 (πœ‘ β†’ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ∈ ℝ)
188 eluzfz2 13516 . . . . 5 (𝑁 ∈ (β„€β‰₯β€˜π‘€) β†’ 𝑁 ∈ (𝑀...𝑁))
18958, 188syl 17 . . . 4 (πœ‘ β†’ 𝑁 ∈ (𝑀...𝑁))
190 oveq1 7419 . . . . . . . 8 (π‘š = 𝑀 β†’ (π‘š βˆ’ 𝑀) = (𝑀 βˆ’ 𝑀))
191190oveq2d 7428 . . . . . . 7 (π‘š = 𝑀 β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (π‘š βˆ’ 𝑀)) = (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑀 βˆ’ 𝑀)))
192 oveq2 7420 . . . . . . . . . . . 12 (π‘š = 𝑀 β†’ (πΎβ†‘π‘š) = (𝐾↑𝑀))
193192oveq2d 7428 . . . . . . . . . . 11 (π‘š = 𝑀 β†’ (𝑍 / (πΎβ†‘π‘š)) = (𝑍 / (𝐾↑𝑀)))
194193fveq2d 6895 . . . . . . . . . 10 (π‘š = 𝑀 β†’ (βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) = (βŒŠβ€˜(𝑍 / (𝐾↑𝑀))))
195194oveq1d 7427 . . . . . . . . 9 (π‘š = 𝑀 β†’ ((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1) = ((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1))
196195oveq1d 7427 . . . . . . . 8 (π‘š = 𝑀 β†’ (((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) = (((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))))
197196sumeq1d 15654 . . . . . . 7 (π‘š = 𝑀 β†’ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) = Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))
198191, 197breq12d 5161 . . . . . 6 (π‘š = 𝑀 β†’ ((((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (π‘š βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ↔ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑀 βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›))))
199198imbi2d 340 . . . . 5 (π‘š = 𝑀 β†’ ((πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (π‘š βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›))) ↔ (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑀 βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))))
200 oveq1 7419 . . . . . . . 8 (π‘š = 𝑗 β†’ (π‘š βˆ’ 𝑀) = (𝑗 βˆ’ 𝑀))
201200oveq2d 7428 . . . . . . 7 (π‘š = 𝑗 β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (π‘š βˆ’ 𝑀)) = (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑗 βˆ’ 𝑀)))
202 oveq2 7420 . . . . . . . . . . . 12 (π‘š = 𝑗 β†’ (πΎβ†‘π‘š) = (𝐾↑𝑗))
203202oveq2d 7428 . . . . . . . . . . 11 (π‘š = 𝑗 β†’ (𝑍 / (πΎβ†‘π‘š)) = (𝑍 / (𝐾↑𝑗)))
204203fveq2d 6895 . . . . . . . . . 10 (π‘š = 𝑗 β†’ (βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) = (βŒŠβ€˜(𝑍 / (𝐾↑𝑗))))
205204oveq1d 7427 . . . . . . . . 9 (π‘š = 𝑗 β†’ ((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1) = ((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1))
206205oveq1d 7427 . . . . . . . 8 (π‘š = 𝑗 β†’ (((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) = (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))))
207206sumeq1d 15654 . . . . . . 7 (π‘š = 𝑗 β†’ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) = Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))
208201, 207breq12d 5161 . . . . . 6 (π‘š = 𝑗 β†’ ((((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (π‘š βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ↔ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑗 βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›))))
209208imbi2d 340 . . . . 5 (π‘š = 𝑗 β†’ ((πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (π‘š βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›))) ↔ (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑗 βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))))
210 oveq1 7419 . . . . . . . 8 (π‘š = (𝑗 + 1) β†’ (π‘š βˆ’ 𝑀) = ((𝑗 + 1) βˆ’ 𝑀))
211210oveq2d 7428 . . . . . . 7 (π‘š = (𝑗 + 1) β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (π‘š βˆ’ 𝑀)) = (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· ((𝑗 + 1) βˆ’ 𝑀)))
212 oveq2 7420 . . . . . . . . . . . 12 (π‘š = (𝑗 + 1) β†’ (πΎβ†‘π‘š) = (𝐾↑(𝑗 + 1)))
213212oveq2d 7428 . . . . . . . . . . 11 (π‘š = (𝑗 + 1) β†’ (𝑍 / (πΎβ†‘π‘š)) = (𝑍 / (𝐾↑(𝑗 + 1))))
214213fveq2d 6895 . . . . . . . . . 10 (π‘š = (𝑗 + 1) β†’ (βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) = (βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))))
215214oveq1d 7427 . . . . . . . . 9 (π‘š = (𝑗 + 1) β†’ ((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1) = ((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1))
216215oveq1d 7427 . . . . . . . 8 (π‘š = (𝑗 + 1) β†’ (((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) = (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))))
217216sumeq1d 15654 . . . . . . 7 (π‘š = (𝑗 + 1) β†’ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) = Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))
218211, 217breq12d 5161 . . . . . 6 (π‘š = (𝑗 + 1) β†’ ((((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (π‘š βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ↔ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· ((𝑗 + 1) βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›))))
219218imbi2d 340 . . . . 5 (π‘š = (𝑗 + 1) β†’ ((πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (π‘š βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›))) ↔ (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· ((𝑗 + 1) βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))))
220 oveq1 7419 . . . . . . . 8 (π‘š = 𝑁 β†’ (π‘š βˆ’ 𝑀) = (𝑁 βˆ’ 𝑀))
221220oveq2d 7428 . . . . . . 7 (π‘š = 𝑁 β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (π‘š βˆ’ 𝑀)) = (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑁 βˆ’ 𝑀)))
222 oveq2 7420 . . . . . . . . . . . 12 (π‘š = 𝑁 β†’ (πΎβ†‘π‘š) = (𝐾↑𝑁))
223222oveq2d 7428 . . . . . . . . . . 11 (π‘š = 𝑁 β†’ (𝑍 / (πΎβ†‘π‘š)) = (𝑍 / (𝐾↑𝑁)))
224223fveq2d 6895 . . . . . . . . . 10 (π‘š = 𝑁 β†’ (βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) = (βŒŠβ€˜(𝑍 / (𝐾↑𝑁))))
225224oveq1d 7427 . . . . . . . . 9 (π‘š = 𝑁 β†’ ((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1) = ((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1))
226225oveq1d 7427 . . . . . . . 8 (π‘š = 𝑁 β†’ (((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) = (((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))))
227226sumeq1d 15654 . . . . . . 7 (π‘š = 𝑁 β†’ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) = Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))
228221, 227breq12d 5161 . . . . . 6 (π‘š = 𝑁 β†’ ((((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (π‘š βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ↔ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑁 βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›))))
229228imbi2d 340 . . . . 5 (π‘š = 𝑁 β†’ ((πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (π‘š βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›))) ↔ (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑁 βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))))
23057nncnd 12235 . . . . . . . . . 10 (πœ‘ β†’ 𝑀 ∈ β„‚)
231230subidd 11566 . . . . . . . . 9 (πœ‘ β†’ (𝑀 βˆ’ 𝑀) = 0)
232231oveq2d 7428 . . . . . . . 8 (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑀 βˆ’ 𝑀)) = (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· 0))
23352rpcnd 13025 . . . . . . . . 9 (πœ‘ β†’ ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) ∈ β„‚)
234233mul01d 11420 . . . . . . . 8 (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· 0) = 0)
235232, 234eqtrd 2771 . . . . . . 7 (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑀 βˆ’ 𝑀)) = 0)
236 fzfid 13945 . . . . . . . 8 (πœ‘ β†’ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) ∈ Fin)
23757nnzd 12592 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ 𝑀 ∈ β„€)
23885, 237rpexpcld 14217 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (𝐾↑𝑀) ∈ ℝ+)
23935, 238rpdivcld 13040 . . . . . . . . . . . . . 14 (πœ‘ β†’ (𝑍 / (𝐾↑𝑀)) ∈ ℝ+)
240239rprege0d 13030 . . . . . . . . . . . . 13 (πœ‘ β†’ ((𝑍 / (𝐾↑𝑀)) ∈ ℝ ∧ 0 ≀ (𝑍 / (𝐾↑𝑀))))
241 flge0nn0 13792 . . . . . . . . . . . . 13 (((𝑍 / (𝐾↑𝑀)) ∈ ℝ ∧ 0 ≀ (𝑍 / (𝐾↑𝑀))) β†’ (βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) ∈ β„•0)
242 nn0p1nn 12518 . . . . . . . . . . . . 13 ((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) ∈ β„•0 β†’ ((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1) ∈ β„•)
243240, 241, 2423syl 18 . . . . . . . . . . . 12 (πœ‘ β†’ ((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1) ∈ β„•)
244243, 181eleqtrdi 2842 . . . . . . . . . . 11 (πœ‘ β†’ ((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1) ∈ (β„€β‰₯β€˜1))
245 fzss1 13547 . . . . . . . . . . 11 (((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1) ∈ (β„€β‰₯β€˜1) β†’ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) βŠ† (1...(βŒŠβ€˜(𝑍 / π‘Œ))))
246244, 245syl 17 . . . . . . . . . 10 (πœ‘ β†’ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) βŠ† (1...(βŒŠβ€˜(𝑍 / π‘Œ))))
247246sselda 3982 . . . . . . . . 9 ((πœ‘ ∧ 𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ))))
248247, 82syldan 590 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ∈ ℝ)
249 elfzle2 13512 . . . . . . . . . . . . 13 (𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ))) β†’ 𝑛 ≀ (βŒŠβ€˜(𝑍 / π‘Œ)))
250249adantl 481 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ 𝑛 ≀ (βŒŠβ€˜(𝑍 / π‘Œ)))
25129simpld 494 . . . . . . . . . . . . . . 15 (πœ‘ β†’ π‘Œ ∈ ℝ+)
25235, 251rpdivcld 13040 . . . . . . . . . . . . . 14 (πœ‘ β†’ (𝑍 / π‘Œ) ∈ ℝ+)
253252rpred 13023 . . . . . . . . . . . . 13 (πœ‘ β†’ (𝑍 / π‘Œ) ∈ ℝ)
254 elfzelz 13508 . . . . . . . . . . . . 13 (𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ))) β†’ 𝑛 ∈ β„€)
255 flge 13777 . . . . . . . . . . . . 13 (((𝑍 / π‘Œ) ∈ ℝ ∧ 𝑛 ∈ β„€) β†’ (𝑛 ≀ (𝑍 / π‘Œ) ↔ 𝑛 ≀ (βŒŠβ€˜(𝑍 / π‘Œ))))
256253, 254, 255syl2an 595 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (𝑛 ≀ (𝑍 / π‘Œ) ↔ 𝑛 ≀ (βŒŠβ€˜(𝑍 / π‘Œ))))
257250, 256mpbird 257 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ 𝑛 ≀ (𝑍 / π‘Œ))
25871, 257jca 511 . . . . . . . . . 10 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (𝑛 ∈ β„• ∧ 𝑛 ≀ (𝑍 / π‘Œ)))
259 pntlem1.U . . . . . . . . . . 11 (πœ‘ β†’ βˆ€π‘§ ∈ (π‘Œ[,)+∞)(absβ€˜((π‘…β€˜π‘§) / 𝑧)) ≀ π‘ˆ)
2601, 2, 3, 4, 5, 6, 7, 8, 9, 10, 29, 30, 31, 32, 33, 54, 55, 259pntlemn 27446 . . . . . . . . . 10 ((πœ‘ ∧ (𝑛 ∈ β„• ∧ 𝑛 ≀ (𝑍 / π‘Œ))) β†’ 0 ≀ (((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))
261258, 260syldan 590 . . . . . . . . 9 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ 0 ≀ (((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))
262247, 261syldan 590 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ 0 ≀ (((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))
263236, 248, 262fsumge0 15748 . . . . . . 7 (πœ‘ β†’ 0 ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))
264235, 263eqbrtrd 5170 . . . . . 6 (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑀 βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))
265264a1i 11 . . . . 5 (𝑁 ∈ (β„€β‰₯β€˜π‘€) β†’ (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑀 βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›))))
266 pntlem1.K . . . . . . . . . 10 (πœ‘ β†’ βˆ€π‘¦ ∈ (𝑋(,)+∞)βˆƒπ‘§ ∈ ℝ+ ((𝑦 < 𝑧 ∧ ((1 + (𝐿 Β· 𝐸)) Β· 𝑧) < (𝐾 Β· 𝑦)) ∧ βˆ€π‘’ ∈ (𝑧[,]((1 + (𝐿 Β· 𝐸)) Β· 𝑧))(absβ€˜((π‘…β€˜π‘’) / 𝑒)) ≀ 𝐸))
267 eqid 2731 . . . . . . . . . 10 (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗)))) = (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗))))
2681, 2, 3, 4, 5, 6, 7, 8, 9, 10, 29, 30, 31, 32, 33, 54, 55, 259, 266, 267pntlemi 27450 . . . . . . . . 9 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗))))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))
26952adantr 480 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) ∈ ℝ+)
270269rpred 13023 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) ∈ ℝ)
271 elfzoelz 13639 . . . . . . . . . . . . . 14 (𝑗 ∈ (𝑀..^𝑁) β†’ 𝑗 ∈ β„€)
272271adantl 481 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ 𝑗 ∈ β„€)
273272zred 12673 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ 𝑗 ∈ ℝ)
27457adantr 480 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ 𝑀 ∈ β„•)
275274nnred 12234 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ 𝑀 ∈ ℝ)
276273, 275resubcld 11649 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (𝑗 βˆ’ 𝑀) ∈ ℝ)
277270, 276remulcld 11251 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑗 βˆ’ 𝑀)) ∈ ℝ)
278 fzfid 13945 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗)))) ∈ Fin)
279 ssun1 4172 . . . . . . . . . . . . . . 15 (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗)))) βŠ† ((((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗)))) βˆͺ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))))
28036adantr 480 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ 𝑍 ∈ ℝ)
28185adantr 480 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ 𝐾 ∈ ℝ+)
282272peano2zd 12676 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (𝑗 + 1) ∈ β„€)
283281, 282rpexpcld 14217 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (𝐾↑(𝑗 + 1)) ∈ ℝ+)
284280, 283rerpdivcld 13054 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (𝑍 / (𝐾↑(𝑗 + 1))) ∈ ℝ)
285281, 272rpexpcld 14217 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (𝐾↑𝑗) ∈ ℝ+)
286280, 285rerpdivcld 13054 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (𝑍 / (𝐾↑𝑗)) ∈ ℝ)
28786adantr 480 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ 𝐾 ∈ ℝ)
288 1re 11221 . . . . . . . . . . . . . . . . . . . . . . 23 1 ∈ ℝ
289 ltle 11309 . . . . . . . . . . . . . . . . . . . . . . 23 ((1 ∈ ℝ ∧ 𝐾 ∈ ℝ) β†’ (1 < 𝐾 β†’ 1 ≀ 𝐾))
290288, 86, 289sylancr 586 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ (1 < 𝐾 β†’ 1 ≀ 𝐾))
29187, 290mpd 15 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ 1 ≀ 𝐾)
292291adantr 480 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ 1 ≀ 𝐾)
293 uzid 12844 . . . . . . . . . . . . . . . . . . . . 21 (𝑗 ∈ β„€ β†’ 𝑗 ∈ (β„€β‰₯β€˜π‘—))
294 peano2uz 12892 . . . . . . . . . . . . . . . . . . . . 21 (𝑗 ∈ (β„€β‰₯β€˜π‘—) β†’ (𝑗 + 1) ∈ (β„€β‰₯β€˜π‘—))
295272, 293, 2943syl 18 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (𝑗 + 1) ∈ (β„€β‰₯β€˜π‘—))
296287, 292, 295leexp2ad 14224 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (𝐾↑𝑗) ≀ (𝐾↑(𝑗 + 1)))
29735adantr 480 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ 𝑍 ∈ ℝ+)
298285, 283, 297lediv2d 13047 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ ((𝐾↑𝑗) ≀ (𝐾↑(𝑗 + 1)) ↔ (𝑍 / (𝐾↑(𝑗 + 1))) ≀ (𝑍 / (𝐾↑𝑗))))
299296, 298mpbid 231 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (𝑍 / (𝐾↑(𝑗 + 1))) ≀ (𝑍 / (𝐾↑𝑗)))
300 flword2 13785 . . . . . . . . . . . . . . . . . 18 (((𝑍 / (𝐾↑(𝑗 + 1))) ∈ ℝ ∧ (𝑍 / (𝐾↑𝑗)) ∈ ℝ ∧ (𝑍 / (𝐾↑(𝑗 + 1))) ≀ (𝑍 / (𝐾↑𝑗))) β†’ (βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) ∈ (β„€β‰₯β€˜(βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1))))))
301284, 286, 299, 300syl3anc 1370 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) ∈ (β„€β‰₯β€˜(βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1))))))
302 eluzp1p1 12857 . . . . . . . . . . . . . . . . 17 ((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) ∈ (β„€β‰₯β€˜(βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1))))) β†’ ((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1) ∈ (β„€β‰₯β€˜((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)))
303301, 302syl 17 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ ((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1) ∈ (β„€β‰₯β€˜((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)))
304286flcld 13770 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) ∈ β„€)
305252adantr 480 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (𝑍 / π‘Œ) ∈ ℝ+)
306305rpred 13023 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (𝑍 / π‘Œ) ∈ ℝ)
307306flcld 13770 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (βŒŠβ€˜(𝑍 / π‘Œ)) ∈ β„€)
308251adantr 480 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ π‘Œ ∈ ℝ+)
309308rpred 13023 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ π‘Œ ∈ ℝ)
310285rpred 13023 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (𝐾↑𝑗) ∈ ℝ)
31130simpld 494 . . . . . . . . . . . . . . . . . . . . . . 23 (πœ‘ β†’ 𝑋 ∈ ℝ+)
312311rpred 13023 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ 𝑋 ∈ ℝ)
313312adantr 480 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ 𝑋 ∈ ℝ)
31430simprd 495 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ π‘Œ < 𝑋)
315314adantr 480 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ π‘Œ < 𝑋)
316 elfzofz 13655 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑗 ∈ (𝑀..^𝑁) β†’ 𝑗 ∈ (𝑀...𝑁))
3171, 2, 3, 4, 5, 6, 7, 8, 9, 10, 29, 30, 31, 32, 33, 54, 55pntlemh 27445 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ 𝑗 ∈ (𝑀...𝑁)) β†’ (𝑋 < (𝐾↑𝑗) ∧ (𝐾↑𝑗) ≀ (βˆšβ€˜π‘)))
318316, 317sylan2 592 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (𝑋 < (𝐾↑𝑗) ∧ (𝐾↑𝑗) ≀ (βˆšβ€˜π‘)))
319318simpld 494 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ 𝑋 < (𝐾↑𝑗))
320309, 313, 310, 315, 319lttrd 11382 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ π‘Œ < (𝐾↑𝑗))
321309, 310, 320ltled 11369 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ π‘Œ ≀ (𝐾↑𝑗))
322308, 285, 297lediv2d 13047 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (π‘Œ ≀ (𝐾↑𝑗) ↔ (𝑍 / (𝐾↑𝑗)) ≀ (𝑍 / π‘Œ)))
323321, 322mpbid 231 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (𝑍 / (𝐾↑𝑗)) ≀ (𝑍 / π‘Œ))
324 flwordi 13784 . . . . . . . . . . . . . . . . . 18 (((𝑍 / (𝐾↑𝑗)) ∈ ℝ ∧ (𝑍 / π‘Œ) ∈ ℝ ∧ (𝑍 / (𝐾↑𝑗)) ≀ (𝑍 / π‘Œ)) β†’ (βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) ≀ (βŒŠβ€˜(𝑍 / π‘Œ)))
325286, 306, 323, 324syl3anc 1370 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) ≀ (βŒŠβ€˜(𝑍 / π‘Œ)))
326 eluz2 12835 . . . . . . . . . . . . . . . . 17 ((βŒŠβ€˜(𝑍 / π‘Œ)) ∈ (β„€β‰₯β€˜(βŒŠβ€˜(𝑍 / (𝐾↑𝑗)))) ↔ ((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) ∈ β„€ ∧ (βŒŠβ€˜(𝑍 / π‘Œ)) ∈ β„€ ∧ (βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) ≀ (βŒŠβ€˜(𝑍 / π‘Œ))))
327304, 307, 325, 326syl3anbrc 1342 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (βŒŠβ€˜(𝑍 / π‘Œ)) ∈ (β„€β‰₯β€˜(βŒŠβ€˜(𝑍 / (𝐾↑𝑗)))))
328 fzsplit2 13533 . . . . . . . . . . . . . . . 16 ((((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1) ∈ (β„€β‰₯β€˜((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)) ∧ (βŒŠβ€˜(𝑍 / π‘Œ)) ∈ (β„€β‰₯β€˜(βŒŠβ€˜(𝑍 / (𝐾↑𝑗))))) β†’ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) = ((((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗)))) βˆͺ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))))
329303, 327, 328syl2anc 583 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) = ((((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗)))) βˆͺ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))))
330279, 329sseqtrrid 4035 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗)))) βŠ† (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))))
331297, 283rpdivcld 13040 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (𝑍 / (𝐾↑(𝑗 + 1))) ∈ ℝ+)
332331rprege0d 13030 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ ((𝑍 / (𝐾↑(𝑗 + 1))) ∈ ℝ ∧ 0 ≀ (𝑍 / (𝐾↑(𝑗 + 1)))))
333 flge0nn0 13792 . . . . . . . . . . . . . . . . 17 (((𝑍 / (𝐾↑(𝑗 + 1))) ∈ ℝ ∧ 0 ≀ (𝑍 / (𝐾↑(𝑗 + 1)))) β†’ (βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) ∈ β„•0)
334 nn0p1nn 12518 . . . . . . . . . . . . . . . . 17 ((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) ∈ β„•0 β†’ ((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1) ∈ β„•)
335332, 333, 3343syl 18 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ ((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1) ∈ β„•)
336335, 181eleqtrdi 2842 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ ((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1) ∈ (β„€β‰₯β€˜1))
337 fzss1 13547 . . . . . . . . . . . . . . 15 (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1) ∈ (β„€β‰₯β€˜1) β†’ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) βŠ† (1...(βŒŠβ€˜(𝑍 / π‘Œ))))
338336, 337syl 17 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) βŠ† (1...(βŒŠβ€˜(𝑍 / π‘Œ))))
339330, 338sstrd 3992 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗)))) βŠ† (1...(βŒŠβ€˜(𝑍 / π‘Œ))))
340339sselda 3982 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) ∧ 𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗))))) β†’ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ))))
34182adantlr 712 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ∈ ℝ)
342340, 341syldan 590 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) ∧ 𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗))))) β†’ (((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ∈ ℝ)
343278, 342fsumrecl 15687 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗))))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ∈ ℝ)
344 fzfid 13945 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) ∈ Fin)
345 ssun2 4173 . . . . . . . . . . . . . . 15 (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) βŠ† ((((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗)))) βˆͺ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))))
346345, 329sseqtrrid 4035 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) βŠ† (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))))
347346, 338sstrd 3992 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) βŠ† (1...(βŒŠβ€˜(𝑍 / π‘Œ))))
348347sselda 3982 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) ∧ 𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ))))
349348, 341syldan 590 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) ∧ 𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ∈ ℝ)
350344, 349fsumrecl 15687 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ∈ ℝ)
351 le2add 11703 . . . . . . . . . 10 (((((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) ∈ ℝ ∧ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑗 βˆ’ 𝑀)) ∈ ℝ) ∧ (Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗))))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ∈ ℝ ∧ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ∈ ℝ)) β†’ ((((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗))))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ∧ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑗 βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›))) β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) + (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑗 βˆ’ 𝑀))) ≀ (Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗))))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) + Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))))
352270, 277, 343, 350, 351syl22anc 836 . . . . . . . . 9 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ ((((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗))))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ∧ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑗 βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›))) β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) + (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑗 βˆ’ 𝑀))) ≀ (Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗))))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) + Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))))
353268, 352mpand 692 . . . . . . . 8 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ ((((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑗 βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) + (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑗 βˆ’ 𝑀))) ≀ (Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗))))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) + Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))))
354233adantr 480 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) ∈ β„‚)
355 1cnd 11216 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ 1 ∈ β„‚)
356272zcnd 12674 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ 𝑗 ∈ β„‚)
357230adantr 480 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ 𝑀 ∈ β„‚)
358356, 357subcld 11578 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (𝑗 βˆ’ 𝑀) ∈ β„‚)
359354, 355, 358adddid 11245 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (1 + (𝑗 βˆ’ 𝑀))) = ((((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· 1) + (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑗 βˆ’ 𝑀))))
360355, 358addcomd 11423 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (1 + (𝑗 βˆ’ 𝑀)) = ((𝑗 βˆ’ 𝑀) + 1))
361356, 355, 357addsubd 11599 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ ((𝑗 + 1) βˆ’ 𝑀) = ((𝑗 βˆ’ 𝑀) + 1))
362360, 361eqtr4d 2774 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (1 + (𝑗 βˆ’ 𝑀)) = ((𝑗 + 1) βˆ’ 𝑀))
363362oveq2d 7428 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (1 + (𝑗 βˆ’ 𝑀))) = (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· ((𝑗 + 1) βˆ’ 𝑀)))
364354mulridd 11238 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· 1) = ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))))
365364oveq1d 7427 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ ((((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· 1) + (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑗 βˆ’ 𝑀))) = (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) + (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑗 βˆ’ 𝑀))))
366359, 363, 3653eqtr3d 2779 . . . . . . . . 9 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· ((𝑗 + 1) βˆ’ 𝑀)) = (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) + (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑗 βˆ’ 𝑀))))
367 reflcl 13768 . . . . . . . . . . . . 13 ((𝑍 / (𝐾↑𝑗)) ∈ ℝ β†’ (βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) ∈ ℝ)
368286, 367syl 17 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) ∈ ℝ)
369368ltp1d 12151 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) < ((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1))
370 fzdisj 13535 . . . . . . . . . . 11 ((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) < ((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1) β†’ ((((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗)))) ∩ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))) = βˆ…)
371369, 370syl 17 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ ((((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗)))) ∩ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))) = βˆ…)
372 fzfid 13945 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) ∈ Fin)
373338sselda 3982 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) ∧ 𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ))))
374373, 341syldan 590 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) ∧ 𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ∈ ℝ)
375374recnd 11249 . . . . . . . . . 10 (((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) ∧ 𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ∈ β„‚)
376371, 329, 372, 375fsumsplit 15694 . . . . . . . . 9 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) = (Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗))))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) + Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›))))
377366, 376breq12d 5161 . . . . . . . 8 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ ((((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· ((𝑗 + 1) βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ↔ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) + (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑗 βˆ’ 𝑀))) ≀ (Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗))))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) + Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))))
378353, 377sylibrd 259 . . . . . . 7 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ ((((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑗 βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· ((𝑗 + 1) βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›))))
379378expcom 413 . . . . . 6 (𝑗 ∈ (𝑀..^𝑁) β†’ (πœ‘ β†’ ((((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑗 βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· ((𝑗 + 1) βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))))
380379a2d 29 . . . . 5 (𝑗 ∈ (𝑀..^𝑁) β†’ ((πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑗 βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›))) β†’ (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· ((𝑗 + 1) βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))))
381199, 209, 219, 229, 265, 380fzind2 13757 . . . 4 (𝑁 ∈ (𝑀...𝑁) β†’ (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑁 βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›))))
382189, 381mpcom 38 . . 3 (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑁 βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))
38365, 82, 261, 184fsumless 15749 . . 3 (πœ‘ β†’ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ≀ Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))
38464, 187, 83, 382, 383letrd 11378 . 2 (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑁 βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))
38544, 64, 83, 172, 384letrd 11378 1 (πœ‘ β†’ ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2))) ≀ Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ↔ wb 205   ∧ wa 395   ∧ w3a 1086   = wceq 1540   ∈ wcel 2105   β‰  wne 2939  βˆ€wral 3060  βˆƒwrex 3069   βˆͺ cun 3946   ∩ cin 3947   βŠ† wss 3948  βˆ…c0 4322   class class class wbr 5148   ↦ cmpt 5231  β€˜cfv 6543  (class class class)co 7412  β„‚cc 11114  β„cr 11115  0cc0 11116  1c1 11117   + caddc 11119   Β· cmul 11121  +∞cpnf 11252   < clt 11255   ≀ cle 11256   βˆ’ cmin 11451   / cdiv 11878  β„•cn 12219  2c2 12274  3c3 12275  4c4 12276  8c8 12280  β„•0cn0 12479  β„€cz 12565  cdc 12684  β„€β‰₯cuz 12829  β„+crp 12981  (,)cioo 13331  [,)cico 13333  [,]cicc 13334  ...cfz 13491  ..^cfzo 13634  βŒŠcfl 13762  β†‘cexp 14034  βˆšcsqrt 15187  abscabs 15188  Ξ£csu 15639  expce 16012  eceu 16013  logclog 26403  Οˆcchp 26938
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 1912  ax-6 1970  ax-7 2010  ax-8 2107  ax-9 2115  ax-10 2136  ax-11 2153  ax-12 2170  ax-ext 2702  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5363  ax-pr 5427  ax-un 7729  ax-inf2 9642  ax-cnex 11172  ax-resscn 11173  ax-1cn 11174  ax-icn 11175  ax-addcl 11176  ax-addrcl 11177  ax-mulcl 11178  ax-mulrcl 11179  ax-mulcom 11180  ax-addass 11181  ax-mulass 11182  ax-distr 11183  ax-i2m1 11184  ax-1ne0 11185  ax-1rid 11186  ax-rnegex 11187  ax-rrecex 11188  ax-cnre 11189  ax-pre-lttri 11190  ax-pre-lttrn 11191  ax-pre-ltadd 11192  ax-pre-mulgt0 11193  ax-pre-sup 11194  ax-addf 11195
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 845  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1781  df-nf 1785  df-sb 2067  df-mo 2533  df-eu 2562  df-clab 2709  df-cleq 2723  df-clel 2809  df-nfc 2884  df-ne 2940  df-nel 3046  df-ral 3061  df-rex 3070  df-rmo 3375  df-reu 3376  df-rab 3432  df-v 3475  df-sbc 3778  df-csb 3894  df-dif 3951  df-un 3953  df-in 3955  df-ss 3965  df-pss 3967  df-nul 4323  df-if 4529  df-pw 4604  df-sn 4629  df-pr 4631  df-tp 4633  df-op 4635  df-uni 4909  df-int 4951  df-iun 4999  df-iin 5000  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5574  df-eprel 5580  df-po 5588  df-so 5589  df-fr 5631  df-se 5632  df-we 5633  df-xp 5682  df-rel 5683  df-cnv 5684  df-co 5685  df-dm 5686  df-rn 5687  df-res 5688  df-ima 5689  df-pred 6300  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6495  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-isom 6552  df-riota 7368  df-ov 7415  df-oprab 7416  df-mpo 7417  df-of 7674  df-om 7860  df-1st 7979  df-2nd 7980  df-supp 8152  df-frecs 8272  df-wrecs 8303  df-recs 8377  df-rdg 8416  df-1o 8472  df-2o 8473  df-oadd 8476  df-er 8709  df-map 8828  df-pm 8829  df-ixp 8898  df-en 8946  df-dom 8947  df-sdom 8948  df-fin 8949  df-fsupp 9368  df-fi 9412  df-sup 9443  df-inf 9444  df-oi 9511  df-dju 9902  df-card 9940  df-pnf 11257  df-mnf 11258  df-xr 11259  df-ltxr 11260  df-le 11261  df-sub 11453  df-neg 11454  df-div 11879  df-nn 12220  df-2 12282  df-3 12283  df-4 12284  df-5 12285  df-6 12286  df-7 12287  df-8 12288  df-9 12289  df-n0 12480  df-z 12566  df-dec 12685  df-uz 12830  df-q 12940  df-rp 12982  df-xneg 13099  df-xadd 13100  df-xmul 13101  df-ioo 13335  df-ioc 13336  df-ico 13337  df-icc 13338  df-fz 13492  df-fzo 13635  df-fl 13764  df-mod 13842  df-seq 13974  df-exp 14035  df-fac 14241  df-bc 14270  df-hash 14298  df-shft 15021  df-cj 15053  df-re 15054  df-im 15055  df-sqrt 15189  df-abs 15190  df-limsup 15422  df-clim 15439  df-rlim 15440  df-sum 15640  df-ef 16018  df-e 16019  df-sin 16020  df-cos 16021  df-pi 16023  df-dvds 16205  df-gcd 16443  df-prm 16616  df-pc 16777  df-struct 17087  df-sets 17104  df-slot 17122  df-ndx 17134  df-base 17152  df-ress 17181  df-plusg 17217  df-mulr 17218  df-starv 17219  df-sca 17220  df-vsca 17221  df-ip 17222  df-tset 17223  df-ple 17224  df-ds 17226  df-unif 17227  df-hom 17228  df-cco 17229  df-rest 17375  df-topn 17376  df-0g 17394  df-gsum 17395  df-topgen 17396  df-pt 17397  df-prds 17400  df-xrs 17455  df-qtop 17460  df-imas 17461  df-xps 17463  df-mre 17537  df-mrc 17538  df-acs 17540  df-mgm 18571  df-sgrp 18650  df-mnd 18666  df-submnd 18712  df-mulg 18994  df-cntz 19229  df-cmn 19698  df-psmet 21225  df-xmet 21226  df-met 21227  df-bl 21228  df-mopn 21229  df-fbas 21230  df-fg 21231  df-cnfld 21234  df-top 22716  df-topon 22733  df-topsp 22755  df-bases 22769  df-cld 22843  df-ntr 22844  df-cls 22845  df-nei 22922  df-lp 22960  df-perf 22961  df-cn 23051  df-cnp 23052  df-haus 23139  df-tx 23386  df-hmeo 23579  df-fil 23670  df-fm 23762  df-flim 23763  df-flf 23764  df-xms 24146  df-ms 24147  df-tms 24148  df-cncf 24718  df-limc 25715  df-dv 25716  df-log 26405  df-vma 26943  df-chp 26944
This theorem is referenced by:  pntlemo  27453
  Copyright terms: Public domain W3C validator