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

Theorem pntlemf 26969
Description: Lemma for pnt 26978. Add up the pieces in pntlemi 26968 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 26959 . . . . . 6 (πœ‘ β†’ (𝐸 ∈ ℝ+ ∧ 𝐾 ∈ ℝ+ ∧ (𝐸 ∈ (0(,)1) ∧ 1 < 𝐾 ∧ (π‘ˆ βˆ’ 𝐸) ∈ ℝ+)))
1211simp3d 1145 . . . . 5 (πœ‘ β†’ (𝐸 ∈ (0(,)1) ∧ 1 < 𝐾 ∧ (π‘ˆ βˆ’ 𝐸) ∈ ℝ+))
1312simp3d 1145 . . . 4 (πœ‘ β†’ (π‘ˆ βˆ’ 𝐸) ∈ ℝ+)
141, 2, 3, 4, 5, 6pntlemd 26958 . . . . . . . 8 (πœ‘ β†’ (𝐿 ∈ ℝ+ ∧ 𝐷 ∈ ℝ+ ∧ 𝐹 ∈ ℝ+))
1514simp1d 1143 . . . . . . 7 (πœ‘ β†’ 𝐿 ∈ ℝ+)
1611simp1d 1143 . . . . . . . 8 (πœ‘ β†’ 𝐸 ∈ ℝ+)
17 2z 12542 . . . . . . . 8 2 ∈ β„€
18 rpexpcl 13993 . . . . . . . 8 ((𝐸 ∈ ℝ+ ∧ 2 ∈ β„€) β†’ (𝐸↑2) ∈ ℝ+)
1916, 17, 18sylancl 587 . . . . . . 7 (πœ‘ β†’ (𝐸↑2) ∈ ℝ+)
2015, 19rpmulcld 12980 . . . . . 6 (πœ‘ β†’ (𝐿 Β· (𝐸↑2)) ∈ ℝ+)
21 3nn0 12438 . . . . . . . . 9 3 ∈ β„•0
22 2nn 12233 . . . . . . . . 9 2 ∈ β„•
2321, 22decnncl 12645 . . . . . . . 8 32 ∈ β„•
24 nnrp 12933 . . . . . . . 8 (32 ∈ β„• β†’ 32 ∈ ℝ+)
2523, 24ax-mp 5 . . . . . . 7 32 ∈ ℝ+
26 rpmulcl 12945 . . . . . . 7 ((32 ∈ ℝ+ ∧ 𝐡 ∈ ℝ+) β†’ (32 Β· 𝐡) ∈ ℝ+)
2725, 3, 26sylancr 588 . . . . . 6 (πœ‘ β†’ (32 Β· 𝐡) ∈ ℝ+)
2820, 27rpdivcld 12981 . . . . 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 26961 . . . . . . . . 9 (πœ‘ β†’ (𝑍 ∈ ℝ+ ∧ (1 < 𝑍 ∧ e ≀ (βˆšβ€˜π‘) ∧ (βˆšβ€˜π‘) ≀ (𝑍 / π‘Œ)) ∧ ((4 / (𝐿 Β· 𝐸)) ≀ (βˆšβ€˜π‘) ∧ (((logβ€˜π‘‹) / (logβ€˜πΎ)) + 2) ≀ (((logβ€˜π‘) / (logβ€˜πΎ)) / 4) ∧ ((π‘ˆ Β· 3) + 𝐢) ≀ (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘)))))
3534simp1d 1143 . . . . . . . 8 (πœ‘ β†’ 𝑍 ∈ ℝ+)
3635rpred 12964 . . . . . . 7 (πœ‘ β†’ 𝑍 ∈ ℝ)
3734simp2d 1144 . . . . . . . 8 (πœ‘ β†’ (1 < 𝑍 ∧ e ≀ (βˆšβ€˜π‘) ∧ (βˆšβ€˜π‘) ≀ (𝑍 / π‘Œ)))
3837simp1d 1143 . . . . . . 7 (πœ‘ β†’ 1 < 𝑍)
3936, 38rplogcld 26000 . . . . . 6 (πœ‘ β†’ (logβ€˜π‘) ∈ ℝ+)
40 rpexpcl 13993 . . . . . 6 (((logβ€˜π‘) ∈ ℝ+ ∧ 2 ∈ β„€) β†’ ((logβ€˜π‘)↑2) ∈ ℝ+)
4139, 17, 40sylancl 587 . . . . 5 (πœ‘ β†’ ((logβ€˜π‘)↑2) ∈ ℝ+)
4228, 41rpmulcld 12980 . . . 4 (πœ‘ β†’ (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2)) ∈ ℝ+)
4313, 42rpmulcld 12980 . . 3 (πœ‘ β†’ ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2))) ∈ ℝ+)
4443rpred 12964 . 2 (πœ‘ β†’ ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2))) ∈ ℝ)
4515, 16rpmulcld 12980 . . . . . . 7 (πœ‘ β†’ (𝐿 Β· 𝐸) ∈ ℝ+)
46 8re 12256 . . . . . . . 8 8 ∈ ℝ
47 8pos 12272 . . . . . . . 8 0 < 8
4846, 47elrpii 12925 . . . . . . 7 8 ∈ ℝ+
49 rpdivcl 12947 . . . . . . 7 (((𝐿 Β· 𝐸) ∈ ℝ+ ∧ 8 ∈ ℝ+) β†’ ((𝐿 Β· 𝐸) / 8) ∈ ℝ+)
5045, 48, 49sylancl 587 . . . . . 6 (πœ‘ β†’ ((𝐿 Β· 𝐸) / 8) ∈ ℝ+)
5150, 39rpmulcld 12980 . . . . 5 (πœ‘ β†’ (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘)) ∈ ℝ+)
5213, 51rpmulcld 12980 . . . 4 (πœ‘ β†’ ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) ∈ ℝ+)
5352rpred 12964 . . 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 26962 . . . . . . 7 (πœ‘ β†’ (𝑀 ∈ β„• ∧ 𝑁 ∈ (β„€β‰₯β€˜π‘€) ∧ (((logβ€˜π‘) / (logβ€˜πΎ)) / 4) ≀ (𝑁 βˆ’ 𝑀)))
5756simp1d 1143 . . . . . 6 (πœ‘ β†’ 𝑀 ∈ β„•)
5856simp2d 1144 . . . . . 6 (πœ‘ β†’ 𝑁 ∈ (β„€β‰₯β€˜π‘€))
59 eluznn 12850 . . . . . 6 ((𝑀 ∈ β„• ∧ 𝑁 ∈ (β„€β‰₯β€˜π‘€)) β†’ 𝑁 ∈ β„•)
6057, 58, 59syl2anc 585 . . . . 5 (πœ‘ β†’ 𝑁 ∈ β„•)
6160nnred 12175 . . . 4 (πœ‘ β†’ 𝑁 ∈ ℝ)
6257nnred 12175 . . . 4 (πœ‘ β†’ 𝑀 ∈ ℝ)
6361, 62resubcld 11590 . . 3 (πœ‘ β†’ (𝑁 βˆ’ 𝑀) ∈ ℝ)
6453, 63remulcld 11192 . 2 (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑁 βˆ’ 𝑀)) ∈ ℝ)
65 fzfid 13885 . . 3 (πœ‘ β†’ (1...(βŒŠβ€˜(𝑍 / π‘Œ))) ∈ Fin)
667rpred 12964 . . . . . 6 (πœ‘ β†’ π‘ˆ ∈ ℝ)
67 elfznn 13477 . . . . . 6 (𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ))) β†’ 𝑛 ∈ β„•)
68 nndivre 12201 . . . . . 6 ((π‘ˆ ∈ ℝ ∧ 𝑛 ∈ β„•) β†’ (π‘ˆ / 𝑛) ∈ ℝ)
6966, 67, 68syl2an 597 . . . . 5 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (π‘ˆ / 𝑛) ∈ ℝ)
7035adantr 482 . . . . . . . . . 10 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ 𝑍 ∈ ℝ+)
7167adantl 483 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ 𝑛 ∈ β„•)
7271nnrpd 12962 . . . . . . . . . 10 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ 𝑛 ∈ ℝ+)
7370, 72rpdivcld 12981 . . . . . . . . 9 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (𝑍 / 𝑛) ∈ ℝ+)
741pntrf 26927 . . . . . . . . . 10 𝑅:ℝ+βŸΆβ„
7574ffvelcdmi 7039 . . . . . . . . 9 ((𝑍 / 𝑛) ∈ ℝ+ β†’ (π‘…β€˜(𝑍 / 𝑛)) ∈ ℝ)
7673, 75syl 17 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (π‘…β€˜(𝑍 / 𝑛)) ∈ ℝ)
7776, 70rerpdivcld 12995 . . . . . . 7 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ ((π‘…β€˜(𝑍 / 𝑛)) / 𝑍) ∈ ℝ)
7877recnd 11190 . . . . . 6 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ ((π‘…β€˜(𝑍 / 𝑛)) / 𝑍) ∈ β„‚)
7978abscld 15328 . . . . 5 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) ∈ ℝ)
8069, 79resubcld 11590 . . . 4 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ ((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) ∈ ℝ)
8172relogcld 25994 . . . 4 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (logβ€˜π‘›) ∈ ℝ)
8280, 81remulcld 11192 . . 3 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ∈ ℝ)
8365, 82fsumrecl 15626 . 2 (πœ‘ β†’ Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ∈ ℝ)
8445rpcnd 12966 . . . . . . . . 9 (πœ‘ β†’ (𝐿 Β· 𝐸) ∈ β„‚)
8511simp2d 1144 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝐾 ∈ ℝ+)
8685rpred 12964 . . . . . . . . . . . 12 (πœ‘ β†’ 𝐾 ∈ ℝ)
8712simp2d 1144 . . . . . . . . . . . 12 (πœ‘ β†’ 1 < 𝐾)
8886, 87rplogcld 26000 . . . . . . . . . . 11 (πœ‘ β†’ (logβ€˜πΎ) ∈ ℝ+)
8939, 88rpdivcld 12981 . . . . . . . . . 10 (πœ‘ β†’ ((logβ€˜π‘) / (logβ€˜πΎ)) ∈ ℝ+)
9089rpcnd 12966 . . . . . . . . 9 (πœ‘ β†’ ((logβ€˜π‘) / (logβ€˜πΎ)) ∈ β„‚)
91 rpcnne0 12940 . . . . . . . . . 10 (8 ∈ ℝ+ β†’ (8 ∈ β„‚ ∧ 8 β‰  0))
9248, 91mp1i 13 . . . . . . . . 9 (πœ‘ β†’ (8 ∈ β„‚ ∧ 8 β‰  0))
93 4re 12244 . . . . . . . . . . 11 4 ∈ ℝ
94 4pos 12267 . . . . . . . . . . 11 0 < 4
9593, 94elrpii 12925 . . . . . . . . . 10 4 ∈ ℝ+
96 rpcnne0 12940 . . . . . . . . . 10 (4 ∈ ℝ+ β†’ (4 ∈ β„‚ ∧ 4 β‰  0))
9795, 96mp1i 13 . . . . . . . . 9 (πœ‘ β†’ (4 ∈ β„‚ ∧ 4 β‰  0))
98 divmuldiv 11862 . . . . . . . . 9 ((((𝐿 Β· 𝐸) ∈ β„‚ ∧ ((logβ€˜π‘) / (logβ€˜πΎ)) ∈ β„‚) ∧ ((8 ∈ β„‚ ∧ 8 β‰  0) ∧ (4 ∈ β„‚ ∧ 4 β‰  0))) β†’ (((𝐿 Β· 𝐸) / 8) Β· (((logβ€˜π‘) / (logβ€˜πΎ)) / 4)) = (((𝐿 Β· 𝐸) Β· ((logβ€˜π‘) / (logβ€˜πΎ))) / (8 Β· 4)))
9984, 90, 92, 97, 98syl22anc 838 . . . . . . . 8 (πœ‘ β†’ (((𝐿 Β· 𝐸) / 8) Β· (((logβ€˜π‘) / (logβ€˜πΎ)) / 4)) = (((𝐿 Β· 𝐸) Β· ((logβ€˜π‘) / (logβ€˜πΎ))) / (8 Β· 4)))
10010fveq2i 6850 . . . . . . . . . . . . . 14 (logβ€˜πΎ) = (logβ€˜(expβ€˜(𝐡 / 𝐸)))
1013, 16rpdivcld 12981 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (𝐡 / 𝐸) ∈ ℝ+)
102101rpred 12964 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (𝐡 / 𝐸) ∈ ℝ)
103102relogefd 25999 . . . . . . . . . . . . . 14 (πœ‘ β†’ (logβ€˜(expβ€˜(𝐡 / 𝐸))) = (𝐡 / 𝐸))
104100, 103eqtrid 2789 . . . . . . . . . . . . 13 (πœ‘ β†’ (logβ€˜πΎ) = (𝐡 / 𝐸))
105104oveq2d 7378 . . . . . . . . . . . 12 (πœ‘ β†’ ((logβ€˜π‘) / (logβ€˜πΎ)) = ((logβ€˜π‘) / (𝐡 / 𝐸)))
10639rpcnd 12966 . . . . . . . . . . . . 13 (πœ‘ β†’ (logβ€˜π‘) ∈ β„‚)
1073rpcnne0d 12973 . . . . . . . . . . . . 13 (πœ‘ β†’ (𝐡 ∈ β„‚ ∧ 𝐡 β‰  0))
10816rpcnne0d 12973 . . . . . . . . . . . . 13 (πœ‘ β†’ (𝐸 ∈ β„‚ ∧ 𝐸 β‰  0))
109 divdiv2 11874 . . . . . . . . . . . . 13 (((logβ€˜π‘) ∈ β„‚ ∧ (𝐡 ∈ β„‚ ∧ 𝐡 β‰  0) ∧ (𝐸 ∈ β„‚ ∧ 𝐸 β‰  0)) β†’ ((logβ€˜π‘) / (𝐡 / 𝐸)) = (((logβ€˜π‘) Β· 𝐸) / 𝐡))
110106, 107, 108, 109syl3anc 1372 . . . . . . . . . . . 12 (πœ‘ β†’ ((logβ€˜π‘) / (𝐡 / 𝐸)) = (((logβ€˜π‘) Β· 𝐸) / 𝐡))
111105, 110eqtrd 2777 . . . . . . . . . . 11 (πœ‘ β†’ ((logβ€˜π‘) / (logβ€˜πΎ)) = (((logβ€˜π‘) Β· 𝐸) / 𝐡))
112111oveq2d 7378 . . . . . . . . . 10 (πœ‘ β†’ ((𝐿 Β· 𝐸) Β· ((logβ€˜π‘) / (logβ€˜πΎ))) = ((𝐿 Β· 𝐸) Β· (((logβ€˜π‘) Β· 𝐸) / 𝐡)))
11316rpcnd 12966 . . . . . . . . . . . 12 (πœ‘ β†’ 𝐸 ∈ β„‚)
114106, 113mulcld 11182 . . . . . . . . . . 11 (πœ‘ β†’ ((logβ€˜π‘) Β· 𝐸) ∈ β„‚)
115 divass 11838 . . . . . . . . . . 11 (((𝐿 Β· 𝐸) ∈ β„‚ ∧ ((logβ€˜π‘) Β· 𝐸) ∈ β„‚ ∧ (𝐡 ∈ β„‚ ∧ 𝐡 β‰  0)) β†’ (((𝐿 Β· 𝐸) Β· ((logβ€˜π‘) Β· 𝐸)) / 𝐡) = ((𝐿 Β· 𝐸) Β· (((logβ€˜π‘) Β· 𝐸) / 𝐡)))
11684, 114, 107, 115syl3anc 1372 . . . . . . . . . 10 (πœ‘ β†’ (((𝐿 Β· 𝐸) Β· ((logβ€˜π‘) Β· 𝐸)) / 𝐡) = ((𝐿 Β· 𝐸) Β· (((logβ€˜π‘) Β· 𝐸) / 𝐡)))
11715rpcnd 12966 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝐿 ∈ β„‚)
118117, 113, 106, 113mul4d 11374 . . . . . . . . . . . 12 (πœ‘ β†’ ((𝐿 Β· 𝐸) Β· ((logβ€˜π‘) Β· 𝐸)) = ((𝐿 Β· (logβ€˜π‘)) Β· (𝐸 Β· 𝐸)))
119113sqvald 14055 . . . . . . . . . . . . 13 (πœ‘ β†’ (𝐸↑2) = (𝐸 Β· 𝐸))
120119oveq2d 7378 . . . . . . . . . . . 12 (πœ‘ β†’ ((𝐿 Β· (logβ€˜π‘)) Β· (𝐸↑2)) = ((𝐿 Β· (logβ€˜π‘)) Β· (𝐸 Β· 𝐸)))
121113sqcld 14056 . . . . . . . . . . . . 13 (πœ‘ β†’ (𝐸↑2) ∈ β„‚)
122117, 106, 121mul32d 11372 . . . . . . . . . . . 12 (πœ‘ β†’ ((𝐿 Β· (logβ€˜π‘)) Β· (𝐸↑2)) = ((𝐿 Β· (𝐸↑2)) Β· (logβ€˜π‘)))
123118, 120, 1223eqtr2d 2783 . . . . . . . . . . 11 (πœ‘ β†’ ((𝐿 Β· 𝐸) Β· ((logβ€˜π‘) Β· 𝐸)) = ((𝐿 Β· (𝐸↑2)) Β· (logβ€˜π‘)))
124123oveq1d 7377 . . . . . . . . . 10 (πœ‘ β†’ (((𝐿 Β· 𝐸) Β· ((logβ€˜π‘) Β· 𝐸)) / 𝐡) = (((𝐿 Β· (𝐸↑2)) Β· (logβ€˜π‘)) / 𝐡))
125112, 116, 1243eqtr2d 2783 . . . . . . . . 9 (πœ‘ β†’ ((𝐿 Β· 𝐸) Β· ((logβ€˜π‘) / (logβ€˜πΎ))) = (((𝐿 Β· (𝐸↑2)) Β· (logβ€˜π‘)) / 𝐡))
126 8t4e32 12742 . . . . . . . . . 10 (8 Β· 4) = 32
127126a1i 11 . . . . . . . . 9 (πœ‘ β†’ (8 Β· 4) = 32)
128125, 127oveq12d 7380 . . . . . . . 8 (πœ‘ β†’ (((𝐿 Β· 𝐸) Β· ((logβ€˜π‘) / (logβ€˜πΎ))) / (8 Β· 4)) = ((((𝐿 Β· (𝐸↑2)) Β· (logβ€˜π‘)) / 𝐡) / 32))
12920rpcnd 12966 . . . . . . . . . . 11 (πœ‘ β†’ (𝐿 Β· (𝐸↑2)) ∈ β„‚)
130129, 106mulcld 11182 . . . . . . . . . 10 (πœ‘ β†’ ((𝐿 Β· (𝐸↑2)) Β· (logβ€˜π‘)) ∈ β„‚)
131 rpcnne0 12940 . . . . . . . . . . 11 (32 ∈ ℝ+ β†’ (32 ∈ β„‚ ∧ 32 β‰  0))
13225, 131mp1i 13 . . . . . . . . . 10 (πœ‘ β†’ (32 ∈ β„‚ ∧ 32 β‰  0))
133 divdiv1 11873 . . . . . . . . . 10 ((((𝐿 Β· (𝐸↑2)) Β· (logβ€˜π‘)) ∈ β„‚ ∧ (𝐡 ∈ β„‚ ∧ 𝐡 β‰  0) ∧ (32 ∈ β„‚ ∧ 32 β‰  0)) β†’ ((((𝐿 Β· (𝐸↑2)) Β· (logβ€˜π‘)) / 𝐡) / 32) = (((𝐿 Β· (𝐸↑2)) Β· (logβ€˜π‘)) / (𝐡 Β· 32)))
134130, 107, 132, 133syl3anc 1372 . . . . . . . . 9 (πœ‘ β†’ ((((𝐿 Β· (𝐸↑2)) Β· (logβ€˜π‘)) / 𝐡) / 32) = (((𝐿 Β· (𝐸↑2)) Β· (logβ€˜π‘)) / (𝐡 Β· 32)))
13523nncni 12170 . . . . . . . . . . 11 32 ∈ β„‚
1363rpcnd 12966 . . . . . . . . . . 11 (πœ‘ β†’ 𝐡 ∈ β„‚)
137 mulcom 11144 . . . . . . . . . . 11 ((32 ∈ β„‚ ∧ 𝐡 ∈ β„‚) β†’ (32 Β· 𝐡) = (𝐡 Β· 32))
138135, 136, 137sylancr 588 . . . . . . . . . 10 (πœ‘ β†’ (32 Β· 𝐡) = (𝐡 Β· 32))
139138oveq2d 7378 . . . . . . . . 9 (πœ‘ β†’ (((𝐿 Β· (𝐸↑2)) Β· (logβ€˜π‘)) / (32 Β· 𝐡)) = (((𝐿 Β· (𝐸↑2)) Β· (logβ€˜π‘)) / (𝐡 Β· 32)))
14027rpcnne0d 12973 . . . . . . . . . 10 (πœ‘ β†’ ((32 Β· 𝐡) ∈ β„‚ ∧ (32 Β· 𝐡) β‰  0))
141 div23 11839 . . . . . . . . . 10 (((𝐿 Β· (𝐸↑2)) ∈ β„‚ ∧ (logβ€˜π‘) ∈ β„‚ ∧ ((32 Β· 𝐡) ∈ β„‚ ∧ (32 Β· 𝐡) β‰  0)) β†’ (((𝐿 Β· (𝐸↑2)) Β· (logβ€˜π‘)) / (32 Β· 𝐡)) = (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· (logβ€˜π‘)))
142129, 106, 140, 141syl3anc 1372 . . . . . . . . 9 (πœ‘ β†’ (((𝐿 Β· (𝐸↑2)) Β· (logβ€˜π‘)) / (32 Β· 𝐡)) = (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· (logβ€˜π‘)))
143134, 139, 1423eqtr2d 2783 . . . . . . . 8 (πœ‘ β†’ ((((𝐿 Β· (𝐸↑2)) Β· (logβ€˜π‘)) / 𝐡) / 32) = (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· (logβ€˜π‘)))
14499, 128, 1433eqtrd 2781 . . . . . . 7 (πœ‘ β†’ (((𝐿 Β· 𝐸) / 8) Β· (((logβ€˜π‘) / (logβ€˜πΎ)) / 4)) = (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· (logβ€˜π‘)))
145144oveq1d 7377 . . . . . 6 (πœ‘ β†’ ((((𝐿 Β· 𝐸) / 8) Β· (((logβ€˜π‘) / (logβ€˜πΎ)) / 4)) Β· (logβ€˜π‘)) = ((((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· (logβ€˜π‘)) Β· (logβ€˜π‘)))
14650rpcnd 12966 . . . . . . 7 (πœ‘ β†’ ((𝐿 Β· 𝐸) / 8) ∈ β„‚)
14789rpred 12964 . . . . . . . . 9 (πœ‘ β†’ ((logβ€˜π‘) / (logβ€˜πΎ)) ∈ ℝ)
148 4nn 12243 . . . . . . . . 9 4 ∈ β„•
149 nndivre 12201 . . . . . . . . 9 ((((logβ€˜π‘) / (logβ€˜πΎ)) ∈ ℝ ∧ 4 ∈ β„•) β†’ (((logβ€˜π‘) / (logβ€˜πΎ)) / 4) ∈ ℝ)
150147, 148, 149sylancl 587 . . . . . . . 8 (πœ‘ β†’ (((logβ€˜π‘) / (logβ€˜πΎ)) / 4) ∈ ℝ)
151150recnd 11190 . . . . . . 7 (πœ‘ β†’ (((logβ€˜π‘) / (logβ€˜πΎ)) / 4) ∈ β„‚)
152146, 106, 151mul32d 11372 . . . . . 6 (πœ‘ β†’ ((((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘)) Β· (((logβ€˜π‘) / (logβ€˜πΎ)) / 4)) = ((((𝐿 Β· 𝐸) / 8) Β· (((logβ€˜π‘) / (logβ€˜πΎ)) / 4)) Β· (logβ€˜π‘)))
153106sqvald 14055 . . . . . . . 8 (πœ‘ β†’ ((logβ€˜π‘)↑2) = ((logβ€˜π‘) Β· (logβ€˜π‘)))
154153oveq2d 7378 . . . . . . 7 (πœ‘ β†’ (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2)) = (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘) Β· (logβ€˜π‘))))
15528rpcnd 12966 . . . . . . . 8 (πœ‘ β†’ ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) ∈ β„‚)
156155, 106, 106mulassd 11185 . . . . . . 7 (πœ‘ β†’ ((((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· (logβ€˜π‘)) Β· (logβ€˜π‘)) = (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘) Β· (logβ€˜π‘))))
157154, 156eqtr4d 2780 . . . . . 6 (πœ‘ β†’ (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2)) = ((((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· (logβ€˜π‘)) Β· (logβ€˜π‘)))
158145, 152, 1573eqtr4d 2787 . . . . 5 (πœ‘ β†’ ((((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘)) Β· (((logβ€˜π‘) / (logβ€˜πΎ)) / 4)) = (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2)))
15956simp3d 1145 . . . . . 6 (πœ‘ β†’ (((logβ€˜π‘) / (logβ€˜πΎ)) / 4) ≀ (𝑁 βˆ’ 𝑀))
160150, 63, 51lemul2d 13008 . . . . . 6 (πœ‘ β†’ ((((logβ€˜π‘) / (logβ€˜πΎ)) / 4) ≀ (𝑁 βˆ’ 𝑀) ↔ ((((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘)) Β· (((logβ€˜π‘) / (logβ€˜πΎ)) / 4)) ≀ ((((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘)) Β· (𝑁 βˆ’ 𝑀))))
161159, 160mpbid 231 . . . . 5 (πœ‘ β†’ ((((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘)) Β· (((logβ€˜π‘) / (logβ€˜πΎ)) / 4)) ≀ ((((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘)) Β· (𝑁 βˆ’ 𝑀)))
162158, 161eqbrtrrd 5134 . . . 4 (πœ‘ β†’ (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2)) ≀ ((((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘)) Β· (𝑁 βˆ’ 𝑀)))
16342rpred 12964 . . . . 5 (πœ‘ β†’ (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2)) ∈ ℝ)
16451rpred 12964 . . . . . 6 (πœ‘ β†’ (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘)) ∈ ℝ)
165164, 63remulcld 11192 . . . . 5 (πœ‘ β†’ ((((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘)) Β· (𝑁 βˆ’ 𝑀)) ∈ ℝ)
166163, 165, 13lemul2d 13008 . . . 4 (πœ‘ β†’ ((((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2)) ≀ ((((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘)) Β· (𝑁 βˆ’ 𝑀)) ↔ ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2))) ≀ ((π‘ˆ βˆ’ 𝐸) Β· ((((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘)) Β· (𝑁 βˆ’ 𝑀)))))
167162, 166mpbid 231 . . 3 (πœ‘ β†’ ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2))) ≀ ((π‘ˆ βˆ’ 𝐸) Β· ((((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘)) Β· (𝑁 βˆ’ 𝑀))))
16813rpcnd 12966 . . . 4 (πœ‘ β†’ (π‘ˆ βˆ’ 𝐸) ∈ β„‚)
16951rpcnd 12966 . . . 4 (πœ‘ β†’ (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘)) ∈ β„‚)
17063recnd 11190 . . . 4 (πœ‘ β†’ (𝑁 βˆ’ 𝑀) ∈ β„‚)
171168, 169, 170mulassd 11185 . . 3 (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑁 βˆ’ 𝑀)) = ((π‘ˆ βˆ’ 𝐸) Β· ((((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘)) Β· (𝑁 βˆ’ 𝑀))))
172167, 171breqtrrd 5138 . 2 (πœ‘ β†’ ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2))) ≀ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑁 βˆ’ 𝑀)))
173 fzfid 13885 . . . 4 (πœ‘ β†’ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) ∈ Fin)
17460nnzd 12533 . . . . . . . . . . . 12 (πœ‘ β†’ 𝑁 ∈ β„€)
17585, 174rpexpcld 14157 . . . . . . . . . . 11 (πœ‘ β†’ (𝐾↑𝑁) ∈ ℝ+)
17635, 175rpdivcld 12981 . . . . . . . . . 10 (πœ‘ β†’ (𝑍 / (𝐾↑𝑁)) ∈ ℝ+)
177176rprege0d 12971 . . . . . . . . 9 (πœ‘ β†’ ((𝑍 / (𝐾↑𝑁)) ∈ ℝ ∧ 0 ≀ (𝑍 / (𝐾↑𝑁))))
178 flge0nn0 13732 . . . . . . . . 9 (((𝑍 / (𝐾↑𝑁)) ∈ ℝ ∧ 0 ≀ (𝑍 / (𝐾↑𝑁))) β†’ (βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) ∈ β„•0)
179 nn0p1nn 12459 . . . . . . . . 9 ((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) ∈ β„•0 β†’ ((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1) ∈ β„•)
180177, 178, 1793syl 18 . . . . . . . 8 (πœ‘ β†’ ((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1) ∈ β„•)
181 nnuz 12813 . . . . . . . 8 β„• = (β„€β‰₯β€˜1)
182180, 181eleqtrdi 2848 . . . . . . 7 (πœ‘ β†’ ((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1) ∈ (β„€β‰₯β€˜1))
183 fzss1 13487 . . . . . . 7 (((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1) ∈ (β„€β‰₯β€˜1) β†’ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) βŠ† (1...(βŒŠβ€˜(𝑍 / π‘Œ))))
184182, 183syl 17 . . . . . 6 (πœ‘ β†’ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) βŠ† (1...(βŒŠβ€˜(𝑍 / π‘Œ))))
185184sselda 3949 . . . . 5 ((πœ‘ ∧ 𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ))))
186185, 82syldan 592 . . . 4 ((πœ‘ ∧ 𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ∈ ℝ)
187173, 186fsumrecl 15626 . . 3 (πœ‘ β†’ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ∈ ℝ)
188 eluzfz2 13456 . . . . 5 (𝑁 ∈ (β„€β‰₯β€˜π‘€) β†’ 𝑁 ∈ (𝑀...𝑁))
18958, 188syl 17 . . . 4 (πœ‘ β†’ 𝑁 ∈ (𝑀...𝑁))
190 oveq1 7369 . . . . . . . 8 (π‘š = 𝑀 β†’ (π‘š βˆ’ 𝑀) = (𝑀 βˆ’ 𝑀))
191190oveq2d 7378 . . . . . . 7 (π‘š = 𝑀 β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (π‘š βˆ’ 𝑀)) = (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑀 βˆ’ 𝑀)))
192 oveq2 7370 . . . . . . . . . . . 12 (π‘š = 𝑀 β†’ (πΎβ†‘π‘š) = (𝐾↑𝑀))
193192oveq2d 7378 . . . . . . . . . . 11 (π‘š = 𝑀 β†’ (𝑍 / (πΎβ†‘π‘š)) = (𝑍 / (𝐾↑𝑀)))
194193fveq2d 6851 . . . . . . . . . 10 (π‘š = 𝑀 β†’ (βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) = (βŒŠβ€˜(𝑍 / (𝐾↑𝑀))))
195194oveq1d 7377 . . . . . . . . 9 (π‘š = 𝑀 β†’ ((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1) = ((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1))
196195oveq1d 7377 . . . . . . . 8 (π‘š = 𝑀 β†’ (((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) = (((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))))
197196sumeq1d 15593 . . . . . . 7 (π‘š = 𝑀 β†’ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) = Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))
198191, 197breq12d 5123 . . . . . 6 (π‘š = 𝑀 β†’ ((((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (π‘š βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ↔ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑀 βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›))))
199198imbi2d 341 . . . . 5 (π‘š = 𝑀 β†’ ((πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (π‘š βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›))) ↔ (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑀 βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))))
200 oveq1 7369 . . . . . . . 8 (π‘š = 𝑗 β†’ (π‘š βˆ’ 𝑀) = (𝑗 βˆ’ 𝑀))
201200oveq2d 7378 . . . . . . 7 (π‘š = 𝑗 β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (π‘š βˆ’ 𝑀)) = (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑗 βˆ’ 𝑀)))
202 oveq2 7370 . . . . . . . . . . . 12 (π‘š = 𝑗 β†’ (πΎβ†‘π‘š) = (𝐾↑𝑗))
203202oveq2d 7378 . . . . . . . . . . 11 (π‘š = 𝑗 β†’ (𝑍 / (πΎβ†‘π‘š)) = (𝑍 / (𝐾↑𝑗)))
204203fveq2d 6851 . . . . . . . . . 10 (π‘š = 𝑗 β†’ (βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) = (βŒŠβ€˜(𝑍 / (𝐾↑𝑗))))
205204oveq1d 7377 . . . . . . . . 9 (π‘š = 𝑗 β†’ ((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1) = ((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1))
206205oveq1d 7377 . . . . . . . 8 (π‘š = 𝑗 β†’ (((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) = (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))))
207206sumeq1d 15593 . . . . . . 7 (π‘š = 𝑗 β†’ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) = Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))
208201, 207breq12d 5123 . . . . . 6 (π‘š = 𝑗 β†’ ((((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (π‘š βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ↔ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑗 βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›))))
209208imbi2d 341 . . . . 5 (π‘š = 𝑗 β†’ ((πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (π‘š βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›))) ↔ (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑗 βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))))
210 oveq1 7369 . . . . . . . 8 (π‘š = (𝑗 + 1) β†’ (π‘š βˆ’ 𝑀) = ((𝑗 + 1) βˆ’ 𝑀))
211210oveq2d 7378 . . . . . . 7 (π‘š = (𝑗 + 1) β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (π‘š βˆ’ 𝑀)) = (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· ((𝑗 + 1) βˆ’ 𝑀)))
212 oveq2 7370 . . . . . . . . . . . 12 (π‘š = (𝑗 + 1) β†’ (πΎβ†‘π‘š) = (𝐾↑(𝑗 + 1)))
213212oveq2d 7378 . . . . . . . . . . 11 (π‘š = (𝑗 + 1) β†’ (𝑍 / (πΎβ†‘π‘š)) = (𝑍 / (𝐾↑(𝑗 + 1))))
214213fveq2d 6851 . . . . . . . . . 10 (π‘š = (𝑗 + 1) β†’ (βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) = (βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))))
215214oveq1d 7377 . . . . . . . . 9 (π‘š = (𝑗 + 1) β†’ ((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1) = ((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1))
216215oveq1d 7377 . . . . . . . 8 (π‘š = (𝑗 + 1) β†’ (((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) = (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))))
217216sumeq1d 15593 . . . . . . 7 (π‘š = (𝑗 + 1) β†’ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) = Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))
218211, 217breq12d 5123 . . . . . 6 (π‘š = (𝑗 + 1) β†’ ((((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (π‘š βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ↔ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· ((𝑗 + 1) βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›))))
219218imbi2d 341 . . . . 5 (π‘š = (𝑗 + 1) β†’ ((πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (π‘š βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›))) ↔ (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· ((𝑗 + 1) βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))))
220 oveq1 7369 . . . . . . . 8 (π‘š = 𝑁 β†’ (π‘š βˆ’ 𝑀) = (𝑁 βˆ’ 𝑀))
221220oveq2d 7378 . . . . . . 7 (π‘š = 𝑁 β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (π‘š βˆ’ 𝑀)) = (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑁 βˆ’ 𝑀)))
222 oveq2 7370 . . . . . . . . . . . 12 (π‘š = 𝑁 β†’ (πΎβ†‘π‘š) = (𝐾↑𝑁))
223222oveq2d 7378 . . . . . . . . . . 11 (π‘š = 𝑁 β†’ (𝑍 / (πΎβ†‘π‘š)) = (𝑍 / (𝐾↑𝑁)))
224223fveq2d 6851 . . . . . . . . . 10 (π‘š = 𝑁 β†’ (βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) = (βŒŠβ€˜(𝑍 / (𝐾↑𝑁))))
225224oveq1d 7377 . . . . . . . . 9 (π‘š = 𝑁 β†’ ((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1) = ((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1))
226225oveq1d 7377 . . . . . . . 8 (π‘š = 𝑁 β†’ (((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) = (((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))))
227226sumeq1d 15593 . . . . . . 7 (π‘š = 𝑁 β†’ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) = Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))
228221, 227breq12d 5123 . . . . . 6 (π‘š = 𝑁 β†’ ((((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (π‘š βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ↔ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑁 βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›))))
229228imbi2d 341 . . . . 5 (π‘š = 𝑁 β†’ ((πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (π‘š βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (πΎβ†‘π‘š))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›))) ↔ (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑁 βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))))
23057nncnd 12176 . . . . . . . . . 10 (πœ‘ β†’ 𝑀 ∈ β„‚)
231230subidd 11507 . . . . . . . . 9 (πœ‘ β†’ (𝑀 βˆ’ 𝑀) = 0)
232231oveq2d 7378 . . . . . . . 8 (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑀 βˆ’ 𝑀)) = (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· 0))
23352rpcnd 12966 . . . . . . . . 9 (πœ‘ β†’ ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) ∈ β„‚)
234233mul01d 11361 . . . . . . . 8 (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· 0) = 0)
235232, 234eqtrd 2777 . . . . . . 7 (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑀 βˆ’ 𝑀)) = 0)
236 fzfid 13885 . . . . . . . 8 (πœ‘ β†’ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) ∈ Fin)
23757nnzd 12533 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ 𝑀 ∈ β„€)
23885, 237rpexpcld 14157 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (𝐾↑𝑀) ∈ ℝ+)
23935, 238rpdivcld 12981 . . . . . . . . . . . . . 14 (πœ‘ β†’ (𝑍 / (𝐾↑𝑀)) ∈ ℝ+)
240239rprege0d 12971 . . . . . . . . . . . . 13 (πœ‘ β†’ ((𝑍 / (𝐾↑𝑀)) ∈ ℝ ∧ 0 ≀ (𝑍 / (𝐾↑𝑀))))
241 flge0nn0 13732 . . . . . . . . . . . . 13 (((𝑍 / (𝐾↑𝑀)) ∈ ℝ ∧ 0 ≀ (𝑍 / (𝐾↑𝑀))) β†’ (βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) ∈ β„•0)
242 nn0p1nn 12459 . . . . . . . . . . . . 13 ((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) ∈ β„•0 β†’ ((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1) ∈ β„•)
243240, 241, 2423syl 18 . . . . . . . . . . . 12 (πœ‘ β†’ ((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1) ∈ β„•)
244243, 181eleqtrdi 2848 . . . . . . . . . . 11 (πœ‘ β†’ ((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1) ∈ (β„€β‰₯β€˜1))
245 fzss1 13487 . . . . . . . . . . 11 (((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1) ∈ (β„€β‰₯β€˜1) β†’ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) βŠ† (1...(βŒŠβ€˜(𝑍 / π‘Œ))))
246244, 245syl 17 . . . . . . . . . 10 (πœ‘ β†’ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) βŠ† (1...(βŒŠβ€˜(𝑍 / π‘Œ))))
247246sselda 3949 . . . . . . . . 9 ((πœ‘ ∧ 𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ))))
248247, 82syldan 592 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ∈ ℝ)
249 elfzle2 13452 . . . . . . . . . . . . 13 (𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ))) β†’ 𝑛 ≀ (βŒŠβ€˜(𝑍 / π‘Œ)))
250249adantl 483 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ 𝑛 ≀ (βŒŠβ€˜(𝑍 / π‘Œ)))
25129simpld 496 . . . . . . . . . . . . . . 15 (πœ‘ β†’ π‘Œ ∈ ℝ+)
25235, 251rpdivcld 12981 . . . . . . . . . . . . . 14 (πœ‘ β†’ (𝑍 / π‘Œ) ∈ ℝ+)
253252rpred 12964 . . . . . . . . . . . . 13 (πœ‘ β†’ (𝑍 / π‘Œ) ∈ ℝ)
254 elfzelz 13448 . . . . . . . . . . . . 13 (𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ))) β†’ 𝑛 ∈ β„€)
255 flge 13717 . . . . . . . . . . . . 13 (((𝑍 / π‘Œ) ∈ ℝ ∧ 𝑛 ∈ β„€) β†’ (𝑛 ≀ (𝑍 / π‘Œ) ↔ 𝑛 ≀ (βŒŠβ€˜(𝑍 / π‘Œ))))
256253, 254, 255syl2an 597 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (𝑛 ≀ (𝑍 / π‘Œ) ↔ 𝑛 ≀ (βŒŠβ€˜(𝑍 / π‘Œ))))
257250, 256mpbird 257 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ 𝑛 ≀ (𝑍 / π‘Œ))
25871, 257jca 513 . . . . . . . . . 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 26964 . . . . . . . . . 10 ((πœ‘ ∧ (𝑛 ∈ β„• ∧ 𝑛 ≀ (𝑍 / π‘Œ))) β†’ 0 ≀ (((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))
261258, 260syldan 592 . . . . . . . . 9 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ 0 ≀ (((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))
262247, 261syldan 592 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ 0 ≀ (((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))
263236, 248, 262fsumge0 15687 . . . . . . 7 (πœ‘ β†’ 0 ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))
264235, 263eqbrtrd 5132 . . . . . 6 (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑀 βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))
265264a1i 11 . . . . 5 (𝑁 ∈ (β„€β‰₯β€˜π‘€) β†’ (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑀 βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑀))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›))))
266 pntlem1.K . . . . . . . . . 10 (πœ‘ β†’ βˆ€π‘¦ ∈ (𝑋(,)+∞)βˆƒπ‘§ ∈ ℝ+ ((𝑦 < 𝑧 ∧ ((1 + (𝐿 Β· 𝐸)) Β· 𝑧) < (𝐾 Β· 𝑦)) ∧ βˆ€π‘’ ∈ (𝑧[,]((1 + (𝐿 Β· 𝐸)) Β· 𝑧))(absβ€˜((π‘…β€˜π‘’) / 𝑒)) ≀ 𝐸))
267 eqid 2737 . . . . . . . . . 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 26968 . . . . . . . . 9 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗))))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))
26952adantr 482 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) ∈ ℝ+)
270269rpred 12964 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) ∈ ℝ)
271 elfzoelz 13579 . . . . . . . . . . . . . 14 (𝑗 ∈ (𝑀..^𝑁) β†’ 𝑗 ∈ β„€)
272271adantl 483 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ 𝑗 ∈ β„€)
273272zred 12614 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ 𝑗 ∈ ℝ)
27457adantr 482 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ 𝑀 ∈ β„•)
275274nnred 12175 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ 𝑀 ∈ ℝ)
276273, 275resubcld 11590 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (𝑗 βˆ’ 𝑀) ∈ ℝ)
277270, 276remulcld 11192 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑗 βˆ’ 𝑀)) ∈ ℝ)
278 fzfid 13885 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗)))) ∈ Fin)
279 ssun1 4137 . . . . . . . . . . . . . . 15 (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗)))) βŠ† ((((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗)))) βˆͺ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))))
28036adantr 482 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ 𝑍 ∈ ℝ)
28185adantr 482 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ 𝐾 ∈ ℝ+)
282272peano2zd 12617 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (𝑗 + 1) ∈ β„€)
283281, 282rpexpcld 14157 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (𝐾↑(𝑗 + 1)) ∈ ℝ+)
284280, 283rerpdivcld 12995 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (𝑍 / (𝐾↑(𝑗 + 1))) ∈ ℝ)
285281, 272rpexpcld 14157 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (𝐾↑𝑗) ∈ ℝ+)
286280, 285rerpdivcld 12995 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (𝑍 / (𝐾↑𝑗)) ∈ ℝ)
28786adantr 482 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ 𝐾 ∈ ℝ)
288 1re 11162 . . . . . . . . . . . . . . . . . . . . . . 23 1 ∈ ℝ
289 ltle 11250 . . . . . . . . . . . . . . . . . . . . . . 23 ((1 ∈ ℝ ∧ 𝐾 ∈ ℝ) β†’ (1 < 𝐾 β†’ 1 ≀ 𝐾))
290288, 86, 289sylancr 588 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ (1 < 𝐾 β†’ 1 ≀ 𝐾))
29187, 290mpd 15 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ 1 ≀ 𝐾)
292291adantr 482 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ 1 ≀ 𝐾)
293 uzid 12785 . . . . . . . . . . . . . . . . . . . . 21 (𝑗 ∈ β„€ β†’ 𝑗 ∈ (β„€β‰₯β€˜π‘—))
294 peano2uz 12833 . . . . . . . . . . . . . . . . . . . . 21 (𝑗 ∈ (β„€β‰₯β€˜π‘—) β†’ (𝑗 + 1) ∈ (β„€β‰₯β€˜π‘—))
295272, 293, 2943syl 18 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (𝑗 + 1) ∈ (β„€β‰₯β€˜π‘—))
296287, 292, 295leexp2ad 14164 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (𝐾↑𝑗) ≀ (𝐾↑(𝑗 + 1)))
29735adantr 482 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ 𝑍 ∈ ℝ+)
298285, 283, 297lediv2d 12988 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ ((𝐾↑𝑗) ≀ (𝐾↑(𝑗 + 1)) ↔ (𝑍 / (𝐾↑(𝑗 + 1))) ≀ (𝑍 / (𝐾↑𝑗))))
299296, 298mpbid 231 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (𝑍 / (𝐾↑(𝑗 + 1))) ≀ (𝑍 / (𝐾↑𝑗)))
300 flword2 13725 . . . . . . . . . . . . . . . . . 18 (((𝑍 / (𝐾↑(𝑗 + 1))) ∈ ℝ ∧ (𝑍 / (𝐾↑𝑗)) ∈ ℝ ∧ (𝑍 / (𝐾↑(𝑗 + 1))) ≀ (𝑍 / (𝐾↑𝑗))) β†’ (βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) ∈ (β„€β‰₯β€˜(βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1))))))
301284, 286, 299, 300syl3anc 1372 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) ∈ (β„€β‰₯β€˜(βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1))))))
302 eluzp1p1 12798 . . . . . . . . . . . . . . . . 17 ((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) ∈ (β„€β‰₯β€˜(βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1))))) β†’ ((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1) ∈ (β„€β‰₯β€˜((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)))
303301, 302syl 17 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ ((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1) ∈ (β„€β‰₯β€˜((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)))
304286flcld 13710 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) ∈ β„€)
305252adantr 482 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (𝑍 / π‘Œ) ∈ ℝ+)
306305rpred 12964 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (𝑍 / π‘Œ) ∈ ℝ)
307306flcld 13710 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (βŒŠβ€˜(𝑍 / π‘Œ)) ∈ β„€)
308251adantr 482 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ π‘Œ ∈ ℝ+)
309308rpred 12964 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ π‘Œ ∈ ℝ)
310285rpred 12964 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (𝐾↑𝑗) ∈ ℝ)
31130simpld 496 . . . . . . . . . . . . . . . . . . . . . . 23 (πœ‘ β†’ 𝑋 ∈ ℝ+)
312311rpred 12964 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ 𝑋 ∈ ℝ)
313312adantr 482 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ 𝑋 ∈ ℝ)
31430simprd 497 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ π‘Œ < 𝑋)
315314adantr 482 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ π‘Œ < 𝑋)
316 elfzofz 13595 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑗 ∈ (𝑀..^𝑁) β†’ 𝑗 ∈ (𝑀...𝑁))
3171, 2, 3, 4, 5, 6, 7, 8, 9, 10, 29, 30, 31, 32, 33, 54, 55pntlemh 26963 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ 𝑗 ∈ (𝑀...𝑁)) β†’ (𝑋 < (𝐾↑𝑗) ∧ (𝐾↑𝑗) ≀ (βˆšβ€˜π‘)))
318316, 317sylan2 594 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (𝑋 < (𝐾↑𝑗) ∧ (𝐾↑𝑗) ≀ (βˆšβ€˜π‘)))
319318simpld 496 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ 𝑋 < (𝐾↑𝑗))
320309, 313, 310, 315, 319lttrd 11323 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ π‘Œ < (𝐾↑𝑗))
321309, 310, 320ltled 11310 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ π‘Œ ≀ (𝐾↑𝑗))
322308, 285, 297lediv2d 12988 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (π‘Œ ≀ (𝐾↑𝑗) ↔ (𝑍 / (𝐾↑𝑗)) ≀ (𝑍 / π‘Œ)))
323321, 322mpbid 231 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (𝑍 / (𝐾↑𝑗)) ≀ (𝑍 / π‘Œ))
324 flwordi 13724 . . . . . . . . . . . . . . . . . 18 (((𝑍 / (𝐾↑𝑗)) ∈ ℝ ∧ (𝑍 / π‘Œ) ∈ ℝ ∧ (𝑍 / (𝐾↑𝑗)) ≀ (𝑍 / π‘Œ)) β†’ (βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) ≀ (βŒŠβ€˜(𝑍 / π‘Œ)))
325286, 306, 323, 324syl3anc 1372 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) ≀ (βŒŠβ€˜(𝑍 / π‘Œ)))
326 eluz2 12776 . . . . . . . . . . . . . . . . 17 ((βŒŠβ€˜(𝑍 / π‘Œ)) ∈ (β„€β‰₯β€˜(βŒŠβ€˜(𝑍 / (𝐾↑𝑗)))) ↔ ((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) ∈ β„€ ∧ (βŒŠβ€˜(𝑍 / π‘Œ)) ∈ β„€ ∧ (βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) ≀ (βŒŠβ€˜(𝑍 / π‘Œ))))
327304, 307, 325, 326syl3anbrc 1344 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (βŒŠβ€˜(𝑍 / π‘Œ)) ∈ (β„€β‰₯β€˜(βŒŠβ€˜(𝑍 / (𝐾↑𝑗)))))
328 fzsplit2 13473 . . . . . . . . . . . . . . . 16 ((((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1) ∈ (β„€β‰₯β€˜((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)) ∧ (βŒŠβ€˜(𝑍 / π‘Œ)) ∈ (β„€β‰₯β€˜(βŒŠβ€˜(𝑍 / (𝐾↑𝑗))))) β†’ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) = ((((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗)))) βˆͺ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))))
329303, 327, 328syl2anc 585 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) = ((((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗)))) βˆͺ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))))
330279, 329sseqtrrid 4002 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗)))) βŠ† (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))))
331297, 283rpdivcld 12981 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (𝑍 / (𝐾↑(𝑗 + 1))) ∈ ℝ+)
332331rprege0d 12971 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ ((𝑍 / (𝐾↑(𝑗 + 1))) ∈ ℝ ∧ 0 ≀ (𝑍 / (𝐾↑(𝑗 + 1)))))
333 flge0nn0 13732 . . . . . . . . . . . . . . . . 17 (((𝑍 / (𝐾↑(𝑗 + 1))) ∈ ℝ ∧ 0 ≀ (𝑍 / (𝐾↑(𝑗 + 1)))) β†’ (βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) ∈ β„•0)
334 nn0p1nn 12459 . . . . . . . . . . . . . . . . 17 ((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) ∈ β„•0 β†’ ((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1) ∈ β„•)
335332, 333, 3343syl 18 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ ((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1) ∈ β„•)
336335, 181eleqtrdi 2848 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ ((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1) ∈ (β„€β‰₯β€˜1))
337 fzss1 13487 . . . . . . . . . . . . . . 15 (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1) ∈ (β„€β‰₯β€˜1) β†’ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) βŠ† (1...(βŒŠβ€˜(𝑍 / π‘Œ))))
338336, 337syl 17 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) βŠ† (1...(βŒŠβ€˜(𝑍 / π‘Œ))))
339330, 338sstrd 3959 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗)))) βŠ† (1...(βŒŠβ€˜(𝑍 / π‘Œ))))
340339sselda 3949 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) ∧ 𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗))))) β†’ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ))))
34182adantlr 714 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ∈ ℝ)
342340, 341syldan 592 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) ∧ 𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗))))) β†’ (((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ∈ ℝ)
343278, 342fsumrecl 15626 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗))))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ∈ ℝ)
344 fzfid 13885 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) ∈ Fin)
345 ssun2 4138 . . . . . . . . . . . . . . 15 (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) βŠ† ((((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗)))) βˆͺ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))))
346345, 329sseqtrrid 4002 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) βŠ† (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))))
347346, 338sstrd 3959 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) βŠ† (1...(βŒŠβ€˜(𝑍 / π‘Œ))))
348347sselda 3949 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) ∧ 𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ))))
349348, 341syldan 592 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) ∧ 𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ∈ ℝ)
350344, 349fsumrecl 15626 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ∈ ℝ)
351 le2add 11644 . . . . . . . . . 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 838 . . . . . . . . 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 694 . . . . . . . 8 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ ((((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑗 βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) + (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑗 βˆ’ 𝑀))) ≀ (Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗))))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) + Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))))
354233adantr 482 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) ∈ β„‚)
355 1cnd 11157 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ 1 ∈ β„‚)
356272zcnd 12615 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ 𝑗 ∈ β„‚)
357230adantr 482 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ 𝑀 ∈ β„‚)
358356, 357subcld 11519 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (𝑗 βˆ’ 𝑀) ∈ β„‚)
359354, 355, 358adddid 11186 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (1 + (𝑗 βˆ’ 𝑀))) = ((((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· 1) + (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑗 βˆ’ 𝑀))))
360355, 358addcomd 11364 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (1 + (𝑗 βˆ’ 𝑀)) = ((𝑗 βˆ’ 𝑀) + 1))
361356, 355, 357addsubd 11540 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ ((𝑗 + 1) βˆ’ 𝑀) = ((𝑗 βˆ’ 𝑀) + 1))
362360, 361eqtr4d 2780 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (1 + (𝑗 βˆ’ 𝑀)) = ((𝑗 + 1) βˆ’ 𝑀))
363362oveq2d 7378 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (1 + (𝑗 βˆ’ 𝑀))) = (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· ((𝑗 + 1) βˆ’ 𝑀)))
364354mulid1d 11179 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· 1) = ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))))
365364oveq1d 7377 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ ((((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· 1) + (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑗 βˆ’ 𝑀))) = (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) + (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑗 βˆ’ 𝑀))))
366359, 363, 3653eqtr3d 2785 . . . . . . . . 9 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· ((𝑗 + 1) βˆ’ 𝑀)) = (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) + (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑗 βˆ’ 𝑀))))
367 reflcl 13708 . . . . . . . . . . . . 13 ((𝑍 / (𝐾↑𝑗)) ∈ ℝ β†’ (βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) ∈ ℝ)
368286, 367syl 17 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) ∈ ℝ)
369368ltp1d 12092 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) < ((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1))
370 fzdisj 13475 . . . . . . . . . . 11 ((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) < ((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1) β†’ ((((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗)))) ∩ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))) = βˆ…)
371369, 370syl 17 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ ((((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗)))) ∩ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))) = βˆ…)
372 fzfid 13885 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ))) ∈ Fin)
373338sselda 3949 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) ∧ 𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ))))
374373, 341syldan 592 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) ∧ 𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ∈ ℝ)
375374recnd 11190 . . . . . . . . . 10 (((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) ∧ 𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ∈ β„‚)
376371, 329, 372, 375fsumsplit 15633 . . . . . . . . 9 ((πœ‘ ∧ 𝑗 ∈ (𝑀..^𝑁)) β†’ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) = (Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑(𝑗 + 1)))) + 1)...(βŒŠβ€˜(𝑍 / (𝐾↑𝑗))))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) + Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑗))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›))))
377366, 376breq12d 5123 . . . . . . . 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 415 . . . . . 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 13697 . . . 4 (𝑁 ∈ (𝑀...𝑁) β†’ (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑁 βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›))))
382189, 381mpcom 38 . . 3 (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑁 βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))
38365, 82, 261, 184fsumless 15688 . . 3 (πœ‘ β†’ Σ𝑛 ∈ (((βŒŠβ€˜(𝑍 / (𝐾↑𝑁))) + 1)...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ≀ Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))
38464, 187, 83, 382, 383letrd 11319 . 2 (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· 𝐸) / 8) Β· (logβ€˜π‘))) Β· (𝑁 βˆ’ 𝑀)) ≀ Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))
38544, 64, 83, 172, 384letrd 11319 1 (πœ‘ β†’ ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2))) ≀ Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ↔ wb 205   ∧ wa 397   ∧ w3a 1088   = wceq 1542   ∈ wcel 2107   β‰  wne 2944  βˆ€wral 3065  βˆƒwrex 3074   βˆͺ cun 3913   ∩ cin 3914   βŠ† wss 3915  βˆ…c0 4287   class class class wbr 5110   ↦ cmpt 5193  β€˜cfv 6501  (class class class)co 7362  β„‚cc 11056  β„cr 11057  0cc0 11058  1c1 11059   + caddc 11061   Β· cmul 11063  +∞cpnf 11193   < clt 11196   ≀ cle 11197   βˆ’ cmin 11392   / cdiv 11819  β„•cn 12160  2c2 12215  3c3 12216  4c4 12217  8c8 12221  β„•0cn0 12420  β„€cz 12506  cdc 12625  β„€β‰₯cuz 12770  β„+crp 12922  (,)cioo 13271  [,)cico 13273  [,]cicc 13274  ...cfz 13431  ..^cfzo 13574  βŒŠcfl 13702  β†‘cexp 13974  βˆšcsqrt 15125  abscabs 15126  Ξ£csu 15577  expce 15951  eceu 15952  logclog 25926  Οˆcchp 26458
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2708  ax-rep 5247  ax-sep 5261  ax-nul 5268  ax-pow 5325  ax-pr 5389  ax-un 7677  ax-inf2 9584  ax-cnex 11114  ax-resscn 11115  ax-1cn 11116  ax-icn 11117  ax-addcl 11118  ax-addrcl 11119  ax-mulcl 11120  ax-mulrcl 11121  ax-mulcom 11122  ax-addass 11123  ax-mulass 11124  ax-distr 11125  ax-i2m1 11126  ax-1ne0 11127  ax-1rid 11128  ax-rnegex 11129  ax-rrecex 11130  ax-cnre 11131  ax-pre-lttri 11132  ax-pre-lttrn 11133  ax-pre-ltadd 11134  ax-pre-mulgt0 11135  ax-pre-sup 11136  ax-addf 11137  ax-mulf 11138
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2815  df-nfc 2890  df-ne 2945  df-nel 3051  df-ral 3066  df-rex 3075  df-rmo 3356  df-reu 3357  df-rab 3411  df-v 3450  df-sbc 3745  df-csb 3861  df-dif 3918  df-un 3920  df-in 3922  df-ss 3932  df-pss 3934  df-nul 4288  df-if 4492  df-pw 4567  df-sn 4592  df-pr 4594  df-tp 4596  df-op 4598  df-uni 4871  df-int 4913  df-iun 4961  df-iin 4962  df-br 5111  df-opab 5173  df-mpt 5194  df-tr 5228  df-id 5536  df-eprel 5542  df-po 5550  df-so 5551  df-fr 5593  df-se 5594  df-we 5595  df-xp 5644  df-rel 5645  df-cnv 5646  df-co 5647  df-dm 5648  df-rn 5649  df-res 5650  df-ima 5651  df-pred 6258  df-ord 6325  df-on 6326  df-lim 6327  df-suc 6328  df-iota 6453  df-fun 6503  df-fn 6504  df-f 6505  df-f1 6506  df-fo 6507  df-f1o 6508  df-fv 6509  df-isom 6510  df-riota 7318  df-ov 7365  df-oprab 7366  df-mpo 7367  df-of 7622  df-om 7808  df-1st 7926  df-2nd 7927  df-supp 8098  df-frecs 8217  df-wrecs 8248  df-recs 8322  df-rdg 8361  df-1o 8417  df-2o 8418  df-oadd 8421  df-er 8655  df-map 8774  df-pm 8775  df-ixp 8843  df-en 8891  df-dom 8892  df-sdom 8893  df-fin 8894  df-fsupp 9313  df-fi 9354  df-sup 9385  df-inf 9386  df-oi 9453  df-dju 9844  df-card 9882  df-pnf 11198  df-mnf 11199  df-xr 11200  df-ltxr 11201  df-le 11202  df-sub 11394  df-neg 11395  df-div 11820  df-nn 12161  df-2 12223  df-3 12224  df-4 12225  df-5 12226  df-6 12227  df-7 12228  df-8 12229  df-9 12230  df-n0 12421  df-z 12507  df-dec 12626  df-uz 12771  df-q 12881  df-rp 12923  df-xneg 13040  df-xadd 13041  df-xmul 13042  df-ioo 13275  df-ioc 13276  df-ico 13277  df-icc 13278  df-fz 13432  df-fzo 13575  df-fl 13704  df-mod 13782  df-seq 13914  df-exp 13975  df-fac 14181  df-bc 14210  df-hash 14238  df-shft 14959  df-cj 14991  df-re 14992  df-im 14993  df-sqrt 15127  df-abs 15128  df-limsup 15360  df-clim 15377  df-rlim 15378  df-sum 15578  df-ef 15957  df-e 15958  df-sin 15959  df-cos 15960  df-pi 15962  df-dvds 16144  df-gcd 16382  df-prm 16555  df-pc 16716  df-struct 17026  df-sets 17043  df-slot 17061  df-ndx 17073  df-base 17091  df-ress 17120  df-plusg 17153  df-mulr 17154  df-starv 17155  df-sca 17156  df-vsca 17157  df-ip 17158  df-tset 17159  df-ple 17160  df-ds 17162  df-unif 17163  df-hom 17164  df-cco 17165  df-rest 17311  df-topn 17312  df-0g 17330  df-gsum 17331  df-topgen 17332  df-pt 17333  df-prds 17336  df-xrs 17391  df-qtop 17396  df-imas 17397  df-xps 17399  df-mre 17473  df-mrc 17474  df-acs 17476  df-mgm 18504  df-sgrp 18553  df-mnd 18564  df-submnd 18609  df-mulg 18880  df-cntz 19104  df-cmn 19571  df-psmet 20804  df-xmet 20805  df-met 20806  df-bl 20807  df-mopn 20808  df-fbas 20809  df-fg 20810  df-cnfld 20813  df-top 22259  df-topon 22276  df-topsp 22298  df-bases 22312  df-cld 22386  df-ntr 22387  df-cls 22388  df-nei 22465  df-lp 22503  df-perf 22504  df-cn 22594  df-cnp 22595  df-haus 22682  df-tx 22929  df-hmeo 23122  df-fil 23213  df-fm 23305  df-flim 23306  df-flf 23307  df-xms 23689  df-ms 23690  df-tms 23691  df-cncf 24257  df-limc 25246  df-dv 25247  df-log 25928  df-vma 26463  df-chp 26464
This theorem is referenced by:  pntlemo  26971
  Copyright terms: Public domain W3C validator