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

Theorem pntlemo 27107
Description: Lemma for pnt 27114. Combine all the estimates to establish a smaller eventual bound on 𝑅(𝑍) / 𝑍. (Contributed by Mario Carneiro, 14-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β€˜((π‘…β€˜π‘’) / 𝑒)) ≀ 𝐸))
pntlem1.C (πœ‘ β†’ βˆ€π‘§ ∈ (1(,)+∞)((((absβ€˜(π‘…β€˜π‘§)) Β· (logβ€˜π‘§)) βˆ’ ((2 / (logβ€˜π‘§)) Β· Σ𝑖 ∈ (1...(βŒŠβ€˜(𝑧 / π‘Œ)))((absβ€˜(π‘…β€˜(𝑧 / 𝑖))) Β· (logβ€˜π‘–)))) / 𝑧) ≀ 𝐢)
Assertion
Ref Expression
pntlemo (πœ‘ β†’ (absβ€˜((π‘…β€˜π‘) / 𝑍)) ≀ (π‘ˆ βˆ’ (𝐹 Β· (π‘ˆβ†‘3))))
Distinct variable groups:   𝑧,𝐢   𝑦,𝑧,𝑒,𝐿   𝑦,𝐾,𝑧   𝑧,𝑀   𝑧,𝑁   𝑒,𝑖,𝑦,𝑧,𝑅   𝑧,π‘ˆ   𝑧,π‘Š   𝑦,𝑋,𝑧   𝑖,π‘Œ,𝑧   𝑒,π‘Ž,𝑦,𝑧,𝐸   𝑒,𝑍,𝑧
Allowed substitution hints:   πœ‘(𝑦,𝑧,𝑒,𝑖,π‘Ž)   𝐴(𝑦,𝑧,𝑒,𝑖,π‘Ž)   𝐡(𝑦,𝑧,𝑒,𝑖,π‘Ž)   𝐢(𝑦,𝑒,𝑖,π‘Ž)   𝐷(𝑦,𝑧,𝑒,𝑖,π‘Ž)   𝑅(π‘Ž)   π‘ˆ(𝑦,𝑒,𝑖,π‘Ž)   𝐸(𝑖)   𝐹(𝑦,𝑧,𝑒,𝑖,π‘Ž)   𝐾(𝑒,𝑖,π‘Ž)   𝐿(𝑖,π‘Ž)   𝑀(𝑦,𝑒,𝑖,π‘Ž)   𝑁(𝑦,𝑒,𝑖,π‘Ž)   π‘Š(𝑦,𝑒,𝑖,π‘Ž)   𝑋(𝑒,𝑖,π‘Ž)   π‘Œ(𝑦,𝑒,π‘Ž)   𝑍(𝑦,𝑖,π‘Ž)

Proof of Theorem pntlemo
Dummy variable 𝑛 is distinct from all other variables.
StepHypRef Expression
1 pntlem1.r . . . . . . . . . 10 𝑅 = (π‘Ž ∈ ℝ+ ↦ ((Οˆβ€˜π‘Ž) βˆ’ π‘Ž))
2 pntlem1.a . . . . . . . . . 10 (πœ‘ β†’ 𝐴 ∈ ℝ+)
3 pntlem1.b . . . . . . . . . 10 (πœ‘ β†’ 𝐡 ∈ ℝ+)
4 pntlem1.l . . . . . . . . . 10 (πœ‘ β†’ 𝐿 ∈ (0(,)1))
5 pntlem1.d . . . . . . . . . 10 𝐷 = (𝐴 + 1)
6 pntlem1.f . . . . . . . . . 10 𝐹 = ((1 βˆ’ (1 / 𝐷)) Β· ((𝐿 / (32 Β· 𝐡)) / (𝐷↑2)))
7 pntlem1.u . . . . . . . . . 10 (πœ‘ β†’ π‘ˆ ∈ ℝ+)
8 pntlem1.u2 . . . . . . . . . 10 (πœ‘ β†’ π‘ˆ ≀ 𝐴)
9 pntlem1.e . . . . . . . . . 10 𝐸 = (π‘ˆ / 𝐷)
10 pntlem1.k . . . . . . . . . 10 𝐾 = (expβ€˜(𝐡 / 𝐸))
11 pntlem1.y . . . . . . . . . 10 (πœ‘ β†’ (π‘Œ ∈ ℝ+ ∧ 1 ≀ π‘Œ))
12 pntlem1.x . . . . . . . . . 10 (πœ‘ β†’ (𝑋 ∈ ℝ+ ∧ π‘Œ < 𝑋))
13 pntlem1.c . . . . . . . . . 10 (πœ‘ β†’ 𝐢 ∈ ℝ+)
14 pntlem1.w . . . . . . . . . 10 π‘Š = (((π‘Œ + (4 / (𝐿 Β· 𝐸)))↑2) + (((𝑋 Β· (𝐾↑2))↑4) + (expβ€˜(((32 Β· 𝐡) / ((π‘ˆ βˆ’ 𝐸) Β· (𝐿 Β· (𝐸↑2)))) Β· ((π‘ˆ Β· 3) + 𝐢)))))
15 pntlem1.z . . . . . . . . . 10 (πœ‘ β†’ 𝑍 ∈ (π‘Š[,)+∞))
161, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15pntlemb 27097 . . . . . . . . 9 (πœ‘ β†’ (𝑍 ∈ ℝ+ ∧ (1 < 𝑍 ∧ e ≀ (βˆšβ€˜π‘) ∧ (βˆšβ€˜π‘) ≀ (𝑍 / π‘Œ)) ∧ ((4 / (𝐿 Β· 𝐸)) ≀ (βˆšβ€˜π‘) ∧ (((logβ€˜π‘‹) / (logβ€˜πΎ)) + 2) ≀ (((logβ€˜π‘) / (logβ€˜πΎ)) / 4) ∧ ((π‘ˆ Β· 3) + 𝐢) ≀ (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘)))))
1716simp1d 1142 . . . . . . . 8 (πœ‘ β†’ 𝑍 ∈ ℝ+)
181pntrf 27063 . . . . . . . . 9 𝑅:ℝ+βŸΆβ„
1918ffvelcdmi 7085 . . . . . . . 8 (𝑍 ∈ ℝ+ β†’ (π‘…β€˜π‘) ∈ ℝ)
2017, 19syl 17 . . . . . . 7 (πœ‘ β†’ (π‘…β€˜π‘) ∈ ℝ)
2120, 17rerpdivcld 13046 . . . . . 6 (πœ‘ β†’ ((π‘…β€˜π‘) / 𝑍) ∈ ℝ)
2221recnd 11241 . . . . 5 (πœ‘ β†’ ((π‘…β€˜π‘) / 𝑍) ∈ β„‚)
2322abscld 15382 . . . 4 (πœ‘ β†’ (absβ€˜((π‘…β€˜π‘) / 𝑍)) ∈ ℝ)
2417relogcld 26130 . . . 4 (πœ‘ β†’ (logβ€˜π‘) ∈ ℝ)
2523, 24remulcld 11243 . . 3 (πœ‘ β†’ ((absβ€˜((π‘…β€˜π‘) / 𝑍)) Β· (logβ€˜π‘)) ∈ ℝ)
267rpred 13015 . . . . . 6 (πœ‘ β†’ π‘ˆ ∈ ℝ)
27 3re 12291 . . . . . . . 8 3 ∈ ℝ
2827a1i 11 . . . . . . 7 (πœ‘ β†’ 3 ∈ ℝ)
2924, 28readdcld 11242 . . . . . 6 (πœ‘ β†’ ((logβ€˜π‘) + 3) ∈ ℝ)
3026, 29remulcld 11243 . . . . 5 (πœ‘ β†’ (π‘ˆ Β· ((logβ€˜π‘) + 3)) ∈ ℝ)
31 2re 12285 . . . . . . 7 2 ∈ ℝ
3231a1i 11 . . . . . 6 (πœ‘ β†’ 2 ∈ ℝ)
331, 2, 3, 4, 5, 6, 7, 8, 9, 10pntlemc 27095 . . . . . . . . . . 11 (πœ‘ β†’ (𝐸 ∈ ℝ+ ∧ 𝐾 ∈ ℝ+ ∧ (𝐸 ∈ (0(,)1) ∧ 1 < 𝐾 ∧ (π‘ˆ βˆ’ 𝐸) ∈ ℝ+)))
3433simp3d 1144 . . . . . . . . . 10 (πœ‘ β†’ (𝐸 ∈ (0(,)1) ∧ 1 < 𝐾 ∧ (π‘ˆ βˆ’ 𝐸) ∈ ℝ+))
3534simp3d 1144 . . . . . . . . 9 (πœ‘ β†’ (π‘ˆ βˆ’ 𝐸) ∈ ℝ+)
3635rpred 13015 . . . . . . . 8 (πœ‘ β†’ (π‘ˆ βˆ’ 𝐸) ∈ ℝ)
371, 2, 3, 4, 5, 6pntlemd 27094 . . . . . . . . . . . 12 (πœ‘ β†’ (𝐿 ∈ ℝ+ ∧ 𝐷 ∈ ℝ+ ∧ 𝐹 ∈ ℝ+))
3837simp1d 1142 . . . . . . . . . . 11 (πœ‘ β†’ 𝐿 ∈ ℝ+)
3933simp1d 1142 . . . . . . . . . . . 12 (πœ‘ β†’ 𝐸 ∈ ℝ+)
40 2z 12593 . . . . . . . . . . . 12 2 ∈ β„€
41 rpexpcl 14045 . . . . . . . . . . . 12 ((𝐸 ∈ ℝ+ ∧ 2 ∈ β„€) β†’ (𝐸↑2) ∈ ℝ+)
4239, 40, 41sylancl 586 . . . . . . . . . . 11 (πœ‘ β†’ (𝐸↑2) ∈ ℝ+)
4338, 42rpmulcld 13031 . . . . . . . . . 10 (πœ‘ β†’ (𝐿 Β· (𝐸↑2)) ∈ ℝ+)
44 3nn0 12489 . . . . . . . . . . . . 13 3 ∈ β„•0
45 2nn 12284 . . . . . . . . . . . . 13 2 ∈ β„•
4644, 45decnncl 12696 . . . . . . . . . . . 12 32 ∈ β„•
47 nnrp 12984 . . . . . . . . . . . 12 (32 ∈ β„• β†’ 32 ∈ ℝ+)
4846, 47ax-mp 5 . . . . . . . . . . 11 32 ∈ ℝ+
49 rpmulcl 12996 . . . . . . . . . . 11 ((32 ∈ ℝ+ ∧ 𝐡 ∈ ℝ+) β†’ (32 Β· 𝐡) ∈ ℝ+)
5048, 3, 49sylancr 587 . . . . . . . . . 10 (πœ‘ β†’ (32 Β· 𝐡) ∈ ℝ+)
5143, 50rpdivcld 13032 . . . . . . . . 9 (πœ‘ β†’ ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) ∈ ℝ+)
5251rpred 13015 . . . . . . . 8 (πœ‘ β†’ ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) ∈ ℝ)
5336, 52remulcld 11243 . . . . . . 7 (πœ‘ β†’ ((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) ∈ ℝ)
5453, 24remulcld 11243 . . . . . 6 (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘)) ∈ ℝ)
5532, 54remulcld 11243 . . . . 5 (πœ‘ β†’ (2 Β· (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘))) ∈ ℝ)
5630, 55resubcld 11641 . . . 4 (πœ‘ β†’ ((π‘ˆ Β· ((logβ€˜π‘) + 3)) βˆ’ (2 Β· (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘)))) ∈ ℝ)
5713rpred 13015 . . . 4 (πœ‘ β†’ 𝐢 ∈ ℝ)
5856, 57readdcld 11242 . . 3 (πœ‘ β†’ (((π‘ˆ Β· ((logβ€˜π‘) + 3)) βˆ’ (2 Β· (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘)))) + 𝐢) ∈ ℝ)
597rpcnd 13017 . . . . . 6 (πœ‘ β†’ π‘ˆ ∈ β„‚)
6053recnd 11241 . . . . . 6 (πœ‘ β†’ ((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) ∈ β„‚)
6124recnd 11241 . . . . . 6 (πœ‘ β†’ (logβ€˜π‘) ∈ β„‚)
6259, 60, 61subdird 11670 . . . . 5 (πœ‘ β†’ ((π‘ˆ βˆ’ ((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)))) Β· (logβ€˜π‘)) = ((π‘ˆ Β· (logβ€˜π‘)) βˆ’ (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘))))
6338rpcnd 13017 . . . . . . . . . . 11 (πœ‘ β†’ 𝐿 ∈ β„‚)
6442rpcnd 13017 . . . . . . . . . . 11 (πœ‘ β†’ (𝐸↑2) ∈ β„‚)
6550rpcnne0d 13024 . . . . . . . . . . 11 (πœ‘ β†’ ((32 Β· 𝐡) ∈ β„‚ ∧ (32 Β· 𝐡) β‰  0))
66 div23 11890 . . . . . . . . . . 11 ((𝐿 ∈ β„‚ ∧ (𝐸↑2) ∈ β„‚ ∧ ((32 Β· 𝐡) ∈ β„‚ ∧ (32 Β· 𝐡) β‰  0)) β†’ ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) = ((𝐿 / (32 Β· 𝐡)) Β· (𝐸↑2)))
6763, 64, 65, 66syl3anc 1371 . . . . . . . . . 10 (πœ‘ β†’ ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) = ((𝐿 / (32 Β· 𝐡)) Β· (𝐸↑2)))
689oveq1i 7418 . . . . . . . . . . . 12 (𝐸↑2) = ((π‘ˆ / 𝐷)↑2)
6937simp2d 1143 . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝐷 ∈ ℝ+)
7069rpcnd 13017 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝐷 ∈ β„‚)
7169rpne0d 13020 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝐷 β‰  0)
7259, 70, 71sqdivd 14123 . . . . . . . . . . . 12 (πœ‘ β†’ ((π‘ˆ / 𝐷)↑2) = ((π‘ˆβ†‘2) / (𝐷↑2)))
7368, 72eqtrid 2784 . . . . . . . . . . 11 (πœ‘ β†’ (𝐸↑2) = ((π‘ˆβ†‘2) / (𝐷↑2)))
7473oveq2d 7424 . . . . . . . . . 10 (πœ‘ β†’ ((𝐿 / (32 Β· 𝐡)) Β· (𝐸↑2)) = ((𝐿 / (32 Β· 𝐡)) Β· ((π‘ˆβ†‘2) / (𝐷↑2))))
7538, 50rpdivcld 13032 . . . . . . . . . . . 12 (πœ‘ β†’ (𝐿 / (32 Β· 𝐡)) ∈ ℝ+)
7675rpcnd 13017 . . . . . . . . . . 11 (πœ‘ β†’ (𝐿 / (32 Β· 𝐡)) ∈ β„‚)
7759sqcld 14108 . . . . . . . . . . 11 (πœ‘ β†’ (π‘ˆβ†‘2) ∈ β„‚)
78 rpexpcl 14045 . . . . . . . . . . . . 13 ((𝐷 ∈ ℝ+ ∧ 2 ∈ β„€) β†’ (𝐷↑2) ∈ ℝ+)
7969, 40, 78sylancl 586 . . . . . . . . . . . 12 (πœ‘ β†’ (𝐷↑2) ∈ ℝ+)
8079rpcnne0d 13024 . . . . . . . . . . 11 (πœ‘ β†’ ((𝐷↑2) ∈ β„‚ ∧ (𝐷↑2) β‰  0))
81 divass 11889 . . . . . . . . . . . 12 (((𝐿 / (32 Β· 𝐡)) ∈ β„‚ ∧ (π‘ˆβ†‘2) ∈ β„‚ ∧ ((𝐷↑2) ∈ β„‚ ∧ (𝐷↑2) β‰  0)) β†’ (((𝐿 / (32 Β· 𝐡)) Β· (π‘ˆβ†‘2)) / (𝐷↑2)) = ((𝐿 / (32 Β· 𝐡)) Β· ((π‘ˆβ†‘2) / (𝐷↑2))))
82 div23 11890 . . . . . . . . . . . 12 (((𝐿 / (32 Β· 𝐡)) ∈ β„‚ ∧ (π‘ˆβ†‘2) ∈ β„‚ ∧ ((𝐷↑2) ∈ β„‚ ∧ (𝐷↑2) β‰  0)) β†’ (((𝐿 / (32 Β· 𝐡)) Β· (π‘ˆβ†‘2)) / (𝐷↑2)) = (((𝐿 / (32 Β· 𝐡)) / (𝐷↑2)) Β· (π‘ˆβ†‘2)))
8381, 82eqtr3d 2774 . . . . . . . . . . 11 (((𝐿 / (32 Β· 𝐡)) ∈ β„‚ ∧ (π‘ˆβ†‘2) ∈ β„‚ ∧ ((𝐷↑2) ∈ β„‚ ∧ (𝐷↑2) β‰  0)) β†’ ((𝐿 / (32 Β· 𝐡)) Β· ((π‘ˆβ†‘2) / (𝐷↑2))) = (((𝐿 / (32 Β· 𝐡)) / (𝐷↑2)) Β· (π‘ˆβ†‘2)))
8476, 77, 80, 83syl3anc 1371 . . . . . . . . . 10 (πœ‘ β†’ ((𝐿 / (32 Β· 𝐡)) Β· ((π‘ˆβ†‘2) / (𝐷↑2))) = (((𝐿 / (32 Β· 𝐡)) / (𝐷↑2)) Β· (π‘ˆβ†‘2)))
8567, 74, 843eqtrd 2776 . . . . . . . . 9 (πœ‘ β†’ ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) = (((𝐿 / (32 Β· 𝐡)) / (𝐷↑2)) Β· (π‘ˆβ†‘2)))
8685oveq2d 7424 . . . . . . . 8 (πœ‘ β†’ ((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) = ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 / (32 Β· 𝐡)) / (𝐷↑2)) Β· (π‘ˆβ†‘2))))
87 df-3 12275 . . . . . . . . . . . . 13 3 = (2 + 1)
8887oveq2i 7419 . . . . . . . . . . . 12 (π‘ˆβ†‘3) = (π‘ˆβ†‘(2 + 1))
89 2nn0 12488 . . . . . . . . . . . . 13 2 ∈ β„•0
90 expp1 14033 . . . . . . . . . . . . 13 ((π‘ˆ ∈ β„‚ ∧ 2 ∈ β„•0) β†’ (π‘ˆβ†‘(2 + 1)) = ((π‘ˆβ†‘2) Β· π‘ˆ))
9159, 89, 90sylancl 586 . . . . . . . . . . . 12 (πœ‘ β†’ (π‘ˆβ†‘(2 + 1)) = ((π‘ˆβ†‘2) Β· π‘ˆ))
9288, 91eqtrid 2784 . . . . . . . . . . 11 (πœ‘ β†’ (π‘ˆβ†‘3) = ((π‘ˆβ†‘2) Β· π‘ˆ))
9377, 59mulcomd 11234 . . . . . . . . . . 11 (πœ‘ β†’ ((π‘ˆβ†‘2) Β· π‘ˆ) = (π‘ˆ Β· (π‘ˆβ†‘2)))
9492, 93eqtrd 2772 . . . . . . . . . 10 (πœ‘ β†’ (π‘ˆβ†‘3) = (π‘ˆ Β· (π‘ˆβ†‘2)))
9594oveq2d 7424 . . . . . . . . 9 (πœ‘ β†’ (𝐹 Β· (π‘ˆβ†‘3)) = (𝐹 Β· (π‘ˆ Β· (π‘ˆβ†‘2))))
9637simp3d 1144 . . . . . . . . . . 11 (πœ‘ β†’ 𝐹 ∈ ℝ+)
9796rpcnd 13017 . . . . . . . . . 10 (πœ‘ β†’ 𝐹 ∈ β„‚)
9897, 59, 77mulassd 11236 . . . . . . . . 9 (πœ‘ β†’ ((𝐹 Β· π‘ˆ) Β· (π‘ˆβ†‘2)) = (𝐹 Β· (π‘ˆ Β· (π‘ˆβ†‘2))))
99 1cnd 11208 . . . . . . . . . . . . . . 15 (πœ‘ β†’ 1 ∈ β„‚)
10069rpreccld 13025 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (1 / 𝐷) ∈ ℝ+)
101100rpcnd 13017 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (1 / 𝐷) ∈ β„‚)
10299, 101, 59subdird 11670 . . . . . . . . . . . . . 14 (πœ‘ β†’ ((1 βˆ’ (1 / 𝐷)) Β· π‘ˆ) = ((1 Β· π‘ˆ) βˆ’ ((1 / 𝐷) Β· π‘ˆ)))
10359mullidd 11231 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (1 Β· π‘ˆ) = π‘ˆ)
10459, 70, 71divrec2d 11993 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (π‘ˆ / 𝐷) = ((1 / 𝐷) Β· π‘ˆ))
1059, 104eqtr2id 2785 . . . . . . . . . . . . . . 15 (πœ‘ β†’ ((1 / 𝐷) Β· π‘ˆ) = 𝐸)
106103, 105oveq12d 7426 . . . . . . . . . . . . . 14 (πœ‘ β†’ ((1 Β· π‘ˆ) βˆ’ ((1 / 𝐷) Β· π‘ˆ)) = (π‘ˆ βˆ’ 𝐸))
107102, 106eqtr2d 2773 . . . . . . . . . . . . 13 (πœ‘ β†’ (π‘ˆ βˆ’ 𝐸) = ((1 βˆ’ (1 / 𝐷)) Β· π‘ˆ))
108107oveq1d 7423 . . . . . . . . . . . 12 (πœ‘ β†’ ((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 / (32 Β· 𝐡)) / (𝐷↑2))) = (((1 βˆ’ (1 / 𝐷)) Β· π‘ˆ) Β· ((𝐿 / (32 Β· 𝐡)) / (𝐷↑2))))
1096oveq1i 7418 . . . . . . . . . . . . 13 (𝐹 Β· π‘ˆ) = (((1 βˆ’ (1 / 𝐷)) Β· ((𝐿 / (32 Β· 𝐡)) / (𝐷↑2))) Β· π‘ˆ)
11099, 101subcld 11570 . . . . . . . . . . . . . 14 (πœ‘ β†’ (1 βˆ’ (1 / 𝐷)) ∈ β„‚)
11175, 79rpdivcld 13032 . . . . . . . . . . . . . . 15 (πœ‘ β†’ ((𝐿 / (32 Β· 𝐡)) / (𝐷↑2)) ∈ ℝ+)
112111rpcnd 13017 . . . . . . . . . . . . . 14 (πœ‘ β†’ ((𝐿 / (32 Β· 𝐡)) / (𝐷↑2)) ∈ β„‚)
113110, 112, 59mul32d 11423 . . . . . . . . . . . . 13 (πœ‘ β†’ (((1 βˆ’ (1 / 𝐷)) Β· ((𝐿 / (32 Β· 𝐡)) / (𝐷↑2))) Β· π‘ˆ) = (((1 βˆ’ (1 / 𝐷)) Β· π‘ˆ) Β· ((𝐿 / (32 Β· 𝐡)) / (𝐷↑2))))
114109, 113eqtrid 2784 . . . . . . . . . . . 12 (πœ‘ β†’ (𝐹 Β· π‘ˆ) = (((1 βˆ’ (1 / 𝐷)) Β· π‘ˆ) Β· ((𝐿 / (32 Β· 𝐡)) / (𝐷↑2))))
115108, 114eqtr4d 2775 . . . . . . . . . . 11 (πœ‘ β†’ ((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 / (32 Β· 𝐡)) / (𝐷↑2))) = (𝐹 Β· π‘ˆ))
116115oveq1d 7423 . . . . . . . . . 10 (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 / (32 Β· 𝐡)) / (𝐷↑2))) Β· (π‘ˆβ†‘2)) = ((𝐹 Β· π‘ˆ) Β· (π‘ˆβ†‘2)))
11735rpcnd 13017 . . . . . . . . . . 11 (πœ‘ β†’ (π‘ˆ βˆ’ 𝐸) ∈ β„‚)
118117, 112, 77mulassd 11236 . . . . . . . . . 10 (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 / (32 Β· 𝐡)) / (𝐷↑2))) Β· (π‘ˆβ†‘2)) = ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 / (32 Β· 𝐡)) / (𝐷↑2)) Β· (π‘ˆβ†‘2))))
119116, 118eqtr3d 2774 . . . . . . . . 9 (πœ‘ β†’ ((𝐹 Β· π‘ˆ) Β· (π‘ˆβ†‘2)) = ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 / (32 Β· 𝐡)) / (𝐷↑2)) Β· (π‘ˆβ†‘2))))
12095, 98, 1193eqtr2d 2778 . . . . . . . 8 (πœ‘ β†’ (𝐹 Β· (π‘ˆβ†‘3)) = ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 / (32 Β· 𝐡)) / (𝐷↑2)) Β· (π‘ˆβ†‘2))))
12186, 120eqtr4d 2775 . . . . . . 7 (πœ‘ β†’ ((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) = (𝐹 Β· (π‘ˆβ†‘3)))
122121oveq2d 7424 . . . . . 6 (πœ‘ β†’ (π‘ˆ βˆ’ ((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)))) = (π‘ˆ βˆ’ (𝐹 Β· (π‘ˆβ†‘3))))
123122oveq1d 7423 . . . . 5 (πœ‘ β†’ ((π‘ˆ βˆ’ ((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)))) Β· (logβ€˜π‘)) = ((π‘ˆ βˆ’ (𝐹 Β· (π‘ˆβ†‘3))) Β· (logβ€˜π‘)))
12462, 123eqtr3d 2774 . . . 4 (πœ‘ β†’ ((π‘ˆ Β· (logβ€˜π‘)) βˆ’ (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘))) = ((π‘ˆ βˆ’ (𝐹 Β· (π‘ˆβ†‘3))) Β· (logβ€˜π‘)))
12526, 24remulcld 11243 . . . . 5 (πœ‘ β†’ (π‘ˆ Β· (logβ€˜π‘)) ∈ ℝ)
126125, 54resubcld 11641 . . . 4 (πœ‘ β†’ ((π‘ˆ Β· (logβ€˜π‘)) βˆ’ (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘))) ∈ ℝ)
127124, 126eqeltrrd 2834 . . 3 (πœ‘ β†’ ((π‘ˆ βˆ’ (𝐹 Β· (π‘ˆβ†‘3))) Β· (logβ€˜π‘)) ∈ ℝ)
12817rpred 13015 . . . . . . . 8 (πœ‘ β†’ 𝑍 ∈ ℝ)
12916simp2d 1143 . . . . . . . . 9 (πœ‘ β†’ (1 < 𝑍 ∧ e ≀ (βˆšβ€˜π‘) ∧ (βˆšβ€˜π‘) ≀ (𝑍 / π‘Œ)))
130129simp1d 1142 . . . . . . . 8 (πœ‘ β†’ 1 < 𝑍)
131128, 130rplogcld 26136 . . . . . . 7 (πœ‘ β†’ (logβ€˜π‘) ∈ ℝ+)
13232, 131rerpdivcld 13046 . . . . . 6 (πœ‘ β†’ (2 / (logβ€˜π‘)) ∈ ℝ)
133 fzfid 13937 . . . . . . 7 (πœ‘ β†’ (1...(βŒŠβ€˜(𝑍 / π‘Œ))) ∈ Fin)
13417adantr 481 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ 𝑍 ∈ ℝ+)
135 elfznn 13529 . . . . . . . . . . . . . . 15 (𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ))) β†’ 𝑛 ∈ β„•)
136135adantl 482 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ 𝑛 ∈ β„•)
137136nnrpd 13013 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ 𝑛 ∈ ℝ+)
138134, 137rpdivcld 13032 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (𝑍 / 𝑛) ∈ ℝ+)
13918ffvelcdmi 7085 . . . . . . . . . . . 12 ((𝑍 / 𝑛) ∈ ℝ+ β†’ (π‘…β€˜(𝑍 / 𝑛)) ∈ ℝ)
140138, 139syl 17 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (π‘…β€˜(𝑍 / 𝑛)) ∈ ℝ)
141140, 134rerpdivcld 13046 . . . . . . . . . 10 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ ((π‘…β€˜(𝑍 / 𝑛)) / 𝑍) ∈ ℝ)
142141recnd 11241 . . . . . . . . 9 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ ((π‘…β€˜(𝑍 / 𝑛)) / 𝑍) ∈ β„‚)
143142abscld 15382 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) ∈ ℝ)
144137relogcld 26130 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (logβ€˜π‘›) ∈ ℝ)
145143, 144remulcld 11243 . . . . . . 7 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ ((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›)) ∈ ℝ)
146133, 145fsumrecl 15679 . . . . . 6 (πœ‘ β†’ Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›)) ∈ ℝ)
147132, 146remulcld 11243 . . . . 5 (πœ‘ β†’ ((2 / (logβ€˜π‘)) Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›))) ∈ ℝ)
148147, 57readdcld 11242 . . . 4 (πœ‘ β†’ (((2 / (logβ€˜π‘)) Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›))) + 𝐢) ∈ ℝ)
14920recnd 11241 . . . . . . . . . . 11 (πœ‘ β†’ (π‘…β€˜π‘) ∈ β„‚)
150149abscld 15382 . . . . . . . . . 10 (πœ‘ β†’ (absβ€˜(π‘…β€˜π‘)) ∈ ℝ)
151150recnd 11241 . . . . . . . . 9 (πœ‘ β†’ (absβ€˜(π‘…β€˜π‘)) ∈ β„‚)
152151, 61mulcld 11233 . . . . . . . 8 (πœ‘ β†’ ((absβ€˜(π‘…β€˜π‘)) Β· (logβ€˜π‘)) ∈ β„‚)
153132recnd 11241 . . . . . . . . 9 (πœ‘ β†’ (2 / (logβ€˜π‘)) ∈ β„‚)
154140recnd 11241 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (π‘…β€˜(𝑍 / 𝑛)) ∈ β„‚)
155154abscld 15382 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (absβ€˜(π‘…β€˜(𝑍 / 𝑛))) ∈ ℝ)
156155, 144remulcld 11243 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ ((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) Β· (logβ€˜π‘›)) ∈ ℝ)
157133, 156fsumrecl 15679 . . . . . . . . . 10 (πœ‘ β†’ Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) Β· (logβ€˜π‘›)) ∈ ℝ)
158157recnd 11241 . . . . . . . . 9 (πœ‘ β†’ Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) Β· (logβ€˜π‘›)) ∈ β„‚)
159153, 158mulcld 11233 . . . . . . . 8 (πœ‘ β†’ ((2 / (logβ€˜π‘)) Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) Β· (logβ€˜π‘›))) ∈ β„‚)
16017rpcnd 13017 . . . . . . . 8 (πœ‘ β†’ 𝑍 ∈ β„‚)
16117rpne0d 13020 . . . . . . . 8 (πœ‘ β†’ 𝑍 β‰  0)
162152, 159, 160, 161divsubdird 12028 . . . . . . 7 (πœ‘ β†’ ((((absβ€˜(π‘…β€˜π‘)) Β· (logβ€˜π‘)) βˆ’ ((2 / (logβ€˜π‘)) Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) Β· (logβ€˜π‘›)))) / 𝑍) = ((((absβ€˜(π‘…β€˜π‘)) Β· (logβ€˜π‘)) / 𝑍) βˆ’ (((2 / (logβ€˜π‘)) Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) Β· (logβ€˜π‘›))) / 𝑍)))
163151, 61, 160, 161div23d 12026 . . . . . . . . 9 (πœ‘ β†’ (((absβ€˜(π‘…β€˜π‘)) Β· (logβ€˜π‘)) / 𝑍) = (((absβ€˜(π‘…β€˜π‘)) / 𝑍) Β· (logβ€˜π‘)))
164149, 160, 161absdivd 15401 . . . . . . . . . . 11 (πœ‘ β†’ (absβ€˜((π‘…β€˜π‘) / 𝑍)) = ((absβ€˜(π‘…β€˜π‘)) / (absβ€˜π‘)))
16517rprege0d 13022 . . . . . . . . . . . . 13 (πœ‘ β†’ (𝑍 ∈ ℝ ∧ 0 ≀ 𝑍))
166 absid 15242 . . . . . . . . . . . . 13 ((𝑍 ∈ ℝ ∧ 0 ≀ 𝑍) β†’ (absβ€˜π‘) = 𝑍)
167165, 166syl 17 . . . . . . . . . . . 12 (πœ‘ β†’ (absβ€˜π‘) = 𝑍)
168167oveq2d 7424 . . . . . . . . . . 11 (πœ‘ β†’ ((absβ€˜(π‘…β€˜π‘)) / (absβ€˜π‘)) = ((absβ€˜(π‘…β€˜π‘)) / 𝑍))
169164, 168eqtrd 2772 . . . . . . . . . 10 (πœ‘ β†’ (absβ€˜((π‘…β€˜π‘) / 𝑍)) = ((absβ€˜(π‘…β€˜π‘)) / 𝑍))
170169oveq1d 7423 . . . . . . . . 9 (πœ‘ β†’ ((absβ€˜((π‘…β€˜π‘) / 𝑍)) Β· (logβ€˜π‘)) = (((absβ€˜(π‘…β€˜π‘)) / 𝑍) Β· (logβ€˜π‘)))
171163, 170eqtr4d 2775 . . . . . . . 8 (πœ‘ β†’ (((absβ€˜(π‘…β€˜π‘)) Β· (logβ€˜π‘)) / 𝑍) = ((absβ€˜((π‘…β€˜π‘) / 𝑍)) Β· (logβ€˜π‘)))
172153, 158, 160, 161divassd 12024 . . . . . . . . 9 (πœ‘ β†’ (((2 / (logβ€˜π‘)) Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) Β· (logβ€˜π‘›))) / 𝑍) = ((2 / (logβ€˜π‘)) Β· (Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) Β· (logβ€˜π‘›)) / 𝑍)))
173160adantr 481 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ 𝑍 ∈ β„‚)
174161adantr 481 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ 𝑍 β‰  0)
175154, 173, 174absdivd 15401 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) = ((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) / (absβ€˜π‘)))
176167adantr 481 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (absβ€˜π‘) = 𝑍)
177176oveq2d 7424 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ ((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) / (absβ€˜π‘)) = ((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) / 𝑍))
178175, 177eqtrd 2772 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) = ((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) / 𝑍))
179178oveq1d 7423 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ ((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›)) = (((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) / 𝑍) Β· (logβ€˜π‘›)))
180155recnd 11241 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (absβ€˜(π‘…β€˜(𝑍 / 𝑛))) ∈ β„‚)
181144recnd 11241 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (logβ€˜π‘›) ∈ β„‚)
18217rpcnne0d 13024 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (𝑍 ∈ β„‚ ∧ 𝑍 β‰  0))
183182adantr 481 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (𝑍 ∈ β„‚ ∧ 𝑍 β‰  0))
184 div23 11890 . . . . . . . . . . . . . 14 (((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) ∈ β„‚ ∧ (logβ€˜π‘›) ∈ β„‚ ∧ (𝑍 ∈ β„‚ ∧ 𝑍 β‰  0)) β†’ (((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) Β· (logβ€˜π‘›)) / 𝑍) = (((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) / 𝑍) Β· (logβ€˜π‘›)))
185180, 181, 183, 184syl3anc 1371 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) Β· (logβ€˜π‘›)) / 𝑍) = (((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) / 𝑍) Β· (logβ€˜π‘›)))
186179, 185eqtr4d 2775 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ ((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›)) = (((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) Β· (logβ€˜π‘›)) / 𝑍))
187186sumeq2dv 15648 . . . . . . . . . . 11 (πœ‘ β†’ Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›)) = Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))(((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) Β· (logβ€˜π‘›)) / 𝑍))
188156recnd 11241 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ ((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) Β· (logβ€˜π‘›)) ∈ β„‚)
189133, 160, 188, 161fsumdivc 15731 . . . . . . . . . . 11 (πœ‘ β†’ (Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) Β· (logβ€˜π‘›)) / 𝑍) = Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))(((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) Β· (logβ€˜π‘›)) / 𝑍))
190187, 189eqtr4d 2775 . . . . . . . . . 10 (πœ‘ β†’ Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›)) = (Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) Β· (logβ€˜π‘›)) / 𝑍))
191190oveq2d 7424 . . . . . . . . 9 (πœ‘ β†’ ((2 / (logβ€˜π‘)) Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›))) = ((2 / (logβ€˜π‘)) Β· (Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) Β· (logβ€˜π‘›)) / 𝑍)))
192172, 191eqtr4d 2775 . . . . . . . 8 (πœ‘ β†’ (((2 / (logβ€˜π‘)) Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) Β· (logβ€˜π‘›))) / 𝑍) = ((2 / (logβ€˜π‘)) Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›))))
193171, 192oveq12d 7426 . . . . . . 7 (πœ‘ β†’ ((((absβ€˜(π‘…β€˜π‘)) Β· (logβ€˜π‘)) / 𝑍) βˆ’ (((2 / (logβ€˜π‘)) Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) Β· (logβ€˜π‘›))) / 𝑍)) = (((absβ€˜((π‘…β€˜π‘) / 𝑍)) Β· (logβ€˜π‘)) βˆ’ ((2 / (logβ€˜π‘)) Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›)))))
194162, 193eqtrd 2772 . . . . . 6 (πœ‘ β†’ ((((absβ€˜(π‘…β€˜π‘)) Β· (logβ€˜π‘)) βˆ’ ((2 / (logβ€˜π‘)) Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) Β· (logβ€˜π‘›)))) / 𝑍) = (((absβ€˜((π‘…β€˜π‘) / 𝑍)) Β· (logβ€˜π‘)) βˆ’ ((2 / (logβ€˜π‘)) Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›)))))
195 2fveq3 6896 . . . . . . . . . . 11 (𝑧 = 𝑍 β†’ (absβ€˜(π‘…β€˜π‘§)) = (absβ€˜(π‘…β€˜π‘)))
196 fveq2 6891 . . . . . . . . . . 11 (𝑧 = 𝑍 β†’ (logβ€˜π‘§) = (logβ€˜π‘))
197195, 196oveq12d 7426 . . . . . . . . . 10 (𝑧 = 𝑍 β†’ ((absβ€˜(π‘…β€˜π‘§)) Β· (logβ€˜π‘§)) = ((absβ€˜(π‘…β€˜π‘)) Β· (logβ€˜π‘)))
198196oveq2d 7424 . . . . . . . . . . 11 (𝑧 = 𝑍 β†’ (2 / (logβ€˜π‘§)) = (2 / (logβ€˜π‘)))
199 oveq2 7416 . . . . . . . . . . . . . . . 16 (𝑖 = 𝑛 β†’ (𝑧 / 𝑖) = (𝑧 / 𝑛))
200199fveq2d 6895 . . . . . . . . . . . . . . 15 (𝑖 = 𝑛 β†’ (π‘…β€˜(𝑧 / 𝑖)) = (π‘…β€˜(𝑧 / 𝑛)))
201200fveq2d 6895 . . . . . . . . . . . . . 14 (𝑖 = 𝑛 β†’ (absβ€˜(π‘…β€˜(𝑧 / 𝑖))) = (absβ€˜(π‘…β€˜(𝑧 / 𝑛))))
202 fveq2 6891 . . . . . . . . . . . . . 14 (𝑖 = 𝑛 β†’ (logβ€˜π‘–) = (logβ€˜π‘›))
203201, 202oveq12d 7426 . . . . . . . . . . . . 13 (𝑖 = 𝑛 β†’ ((absβ€˜(π‘…β€˜(𝑧 / 𝑖))) Β· (logβ€˜π‘–)) = ((absβ€˜(π‘…β€˜(𝑧 / 𝑛))) Β· (logβ€˜π‘›)))
204203cbvsumv 15641 . . . . . . . . . . . 12 Σ𝑖 ∈ (1...(βŒŠβ€˜(𝑧 / π‘Œ)))((absβ€˜(π‘…β€˜(𝑧 / 𝑖))) Β· (logβ€˜π‘–)) = Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑧 / π‘Œ)))((absβ€˜(π‘…β€˜(𝑧 / 𝑛))) Β· (logβ€˜π‘›))
205 fvoveq1 7431 . . . . . . . . . . . . . 14 (𝑧 = 𝑍 β†’ (βŒŠβ€˜(𝑧 / π‘Œ)) = (βŒŠβ€˜(𝑍 / π‘Œ)))
206205oveq2d 7424 . . . . . . . . . . . . 13 (𝑧 = 𝑍 β†’ (1...(βŒŠβ€˜(𝑧 / π‘Œ))) = (1...(βŒŠβ€˜(𝑍 / π‘Œ))))
207 simpl 483 . . . . . . . . . . . . . . . 16 ((𝑧 = 𝑍 ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ 𝑧 = 𝑍)
208207fvoveq1d 7430 . . . . . . . . . . . . . . 15 ((𝑧 = 𝑍 ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (π‘…β€˜(𝑧 / 𝑛)) = (π‘…β€˜(𝑍 / 𝑛)))
209208fveq2d 6895 . . . . . . . . . . . . . 14 ((𝑧 = 𝑍 ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (absβ€˜(π‘…β€˜(𝑧 / 𝑛))) = (absβ€˜(π‘…β€˜(𝑍 / 𝑛))))
210209oveq1d 7423 . . . . . . . . . . . . 13 ((𝑧 = 𝑍 ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ ((absβ€˜(π‘…β€˜(𝑧 / 𝑛))) Β· (logβ€˜π‘›)) = ((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) Β· (logβ€˜π‘›)))
211206, 210sumeq12rdv 15652 . . . . . . . . . . . 12 (𝑧 = 𝑍 β†’ Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑧 / π‘Œ)))((absβ€˜(π‘…β€˜(𝑧 / 𝑛))) Β· (logβ€˜π‘›)) = Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) Β· (logβ€˜π‘›)))
212204, 211eqtrid 2784 . . . . . . . . . . 11 (𝑧 = 𝑍 β†’ Σ𝑖 ∈ (1...(βŒŠβ€˜(𝑧 / π‘Œ)))((absβ€˜(π‘…β€˜(𝑧 / 𝑖))) Β· (logβ€˜π‘–)) = Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) Β· (logβ€˜π‘›)))
213198, 212oveq12d 7426 . . . . . . . . . 10 (𝑧 = 𝑍 β†’ ((2 / (logβ€˜π‘§)) Β· Σ𝑖 ∈ (1...(βŒŠβ€˜(𝑧 / π‘Œ)))((absβ€˜(π‘…β€˜(𝑧 / 𝑖))) Β· (logβ€˜π‘–))) = ((2 / (logβ€˜π‘)) Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) Β· (logβ€˜π‘›))))
214197, 213oveq12d 7426 . . . . . . . . 9 (𝑧 = 𝑍 β†’ (((absβ€˜(π‘…β€˜π‘§)) Β· (logβ€˜π‘§)) βˆ’ ((2 / (logβ€˜π‘§)) Β· Σ𝑖 ∈ (1...(βŒŠβ€˜(𝑧 / π‘Œ)))((absβ€˜(π‘…β€˜(𝑧 / 𝑖))) Β· (logβ€˜π‘–)))) = (((absβ€˜(π‘…β€˜π‘)) Β· (logβ€˜π‘)) βˆ’ ((2 / (logβ€˜π‘)) Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) Β· (logβ€˜π‘›)))))
215 id 22 . . . . . . . . 9 (𝑧 = 𝑍 β†’ 𝑧 = 𝑍)
216214, 215oveq12d 7426 . . . . . . . 8 (𝑧 = 𝑍 β†’ ((((absβ€˜(π‘…β€˜π‘§)) Β· (logβ€˜π‘§)) βˆ’ ((2 / (logβ€˜π‘§)) Β· Σ𝑖 ∈ (1...(βŒŠβ€˜(𝑧 / π‘Œ)))((absβ€˜(π‘…β€˜(𝑧 / 𝑖))) Β· (logβ€˜π‘–)))) / 𝑧) = ((((absβ€˜(π‘…β€˜π‘)) Β· (logβ€˜π‘)) βˆ’ ((2 / (logβ€˜π‘)) Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) Β· (logβ€˜π‘›)))) / 𝑍))
217216breq1d 5158 . . . . . . 7 (𝑧 = 𝑍 β†’ (((((absβ€˜(π‘…β€˜π‘§)) Β· (logβ€˜π‘§)) βˆ’ ((2 / (logβ€˜π‘§)) Β· Σ𝑖 ∈ (1...(βŒŠβ€˜(𝑧 / π‘Œ)))((absβ€˜(π‘…β€˜(𝑧 / 𝑖))) Β· (logβ€˜π‘–)))) / 𝑧) ≀ 𝐢 ↔ ((((absβ€˜(π‘…β€˜π‘)) Β· (logβ€˜π‘)) βˆ’ ((2 / (logβ€˜π‘)) Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) Β· (logβ€˜π‘›)))) / 𝑍) ≀ 𝐢))
218 pntlem1.C . . . . . . 7 (πœ‘ β†’ βˆ€π‘§ ∈ (1(,)+∞)((((absβ€˜(π‘…β€˜π‘§)) Β· (logβ€˜π‘§)) βˆ’ ((2 / (logβ€˜π‘§)) Β· Σ𝑖 ∈ (1...(βŒŠβ€˜(𝑧 / π‘Œ)))((absβ€˜(π‘…β€˜(𝑧 / 𝑖))) Β· (logβ€˜π‘–)))) / 𝑧) ≀ 𝐢)
219 1re 11213 . . . . . . . . 9 1 ∈ ℝ
220 rexr 11259 . . . . . . . . 9 (1 ∈ ℝ β†’ 1 ∈ ℝ*)
221 elioopnf 13419 . . . . . . . . 9 (1 ∈ ℝ* β†’ (𝑍 ∈ (1(,)+∞) ↔ (𝑍 ∈ ℝ ∧ 1 < 𝑍)))
222219, 220, 221mp2b 10 . . . . . . . 8 (𝑍 ∈ (1(,)+∞) ↔ (𝑍 ∈ ℝ ∧ 1 < 𝑍))
223128, 130, 222sylanbrc 583 . . . . . . 7 (πœ‘ β†’ 𝑍 ∈ (1(,)+∞))
224217, 218, 223rspcdva 3613 . . . . . 6 (πœ‘ β†’ ((((absβ€˜(π‘…β€˜π‘)) Β· (logβ€˜π‘)) βˆ’ ((2 / (logβ€˜π‘)) Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜(π‘…β€˜(𝑍 / 𝑛))) Β· (logβ€˜π‘›)))) / 𝑍) ≀ 𝐢)
225194, 224eqbrtrrd 5172 . . . . 5 (πœ‘ β†’ (((absβ€˜((π‘…β€˜π‘) / 𝑍)) Β· (logβ€˜π‘)) βˆ’ ((2 / (logβ€˜π‘)) Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›)))) ≀ 𝐢)
22625, 147, 57lesubadd2d 11812 . . . . 5 (πœ‘ β†’ ((((absβ€˜((π‘…β€˜π‘) / 𝑍)) Β· (logβ€˜π‘)) βˆ’ ((2 / (logβ€˜π‘)) Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›)))) ≀ 𝐢 ↔ ((absβ€˜((π‘…β€˜π‘) / 𝑍)) Β· (logβ€˜π‘)) ≀ (((2 / (logβ€˜π‘)) Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›))) + 𝐢)))
227225, 226mpbid 231 . . . 4 (πœ‘ β†’ ((absβ€˜((π‘…β€˜π‘) / 𝑍)) Β· (logβ€˜π‘)) ≀ (((2 / (logβ€˜π‘)) Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›))) + 𝐢))
228 2cnd 12289 . . . . . . 7 (πœ‘ β†’ 2 ∈ β„‚)
229143recnd 11241 . . . . . . . . 9 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) ∈ β„‚)
230229, 181mulcld 11233 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ ((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›)) ∈ β„‚)
231133, 230fsumcl 15678 . . . . . . 7 (πœ‘ β†’ Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›)) ∈ β„‚)
232131rpne0d 13020 . . . . . . 7 (πœ‘ β†’ (logβ€˜π‘) β‰  0)
233228, 231, 61, 232div23d 12026 . . . . . 6 (πœ‘ β†’ ((2 Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›))) / (logβ€˜π‘)) = ((2 / (logβ€˜π‘)) Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›))))
23424resqcld 14089 . . . . . . . . . . . 12 (πœ‘ β†’ ((logβ€˜π‘)↑2) ∈ ℝ)
23552, 234remulcld 11243 . . . . . . . . . . 11 (πœ‘ β†’ (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2)) ∈ ℝ)
23636, 235remulcld 11243 . . . . . . . . . 10 (πœ‘ β†’ ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2))) ∈ ℝ)
237 remulcl 11194 . . . . . . . . . 10 ((2 ∈ ℝ ∧ ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2))) ∈ ℝ) β†’ (2 Β· ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2)))) ∈ ℝ)
23831, 236, 237sylancr 587 . . . . . . . . 9 (πœ‘ β†’ (2 Β· ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2)))) ∈ ℝ)
23930, 24remulcld 11243 . . . . . . . . 9 (πœ‘ β†’ ((π‘ˆ Β· ((logβ€˜π‘) + 3)) Β· (logβ€˜π‘)) ∈ ℝ)
240 remulcl 11194 . . . . . . . . . 10 ((2 ∈ ℝ ∧ Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›)) ∈ ℝ) β†’ (2 Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›))) ∈ ℝ)
24131, 146, 240sylancr 587 . . . . . . . . 9 (πœ‘ β†’ (2 Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›))) ∈ ℝ)
24226adantr 481 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ π‘ˆ ∈ ℝ)
243242, 136nndivred 12265 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (π‘ˆ / 𝑛) ∈ ℝ)
244243, 143resubcld 11641 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ ((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) ∈ ℝ)
245244, 144remulcld 11243 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ∈ ℝ)
246133, 245fsumrecl 15679 . . . . . . . . . . 11 (πœ‘ β†’ Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ∈ ℝ)
24732, 246remulcld 11243 . . . . . . . . . 10 (πœ‘ β†’ (2 Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›))) ∈ ℝ)
248239, 241resubcld 11641 . . . . . . . . . 10 (πœ‘ β†’ (((π‘ˆ Β· ((logβ€˜π‘) + 3)) Β· (logβ€˜π‘)) βˆ’ (2 Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›)))) ∈ ℝ)
249 pntlem1.m . . . . . . . . . . . 12 𝑀 = ((βŒŠβ€˜((logβ€˜π‘‹) / (logβ€˜πΎ))) + 1)
250 pntlem1.n . . . . . . . . . . . 12 𝑁 = (βŒŠβ€˜(((logβ€˜π‘) / (logβ€˜πΎ)) / 2))
251 pntlem1.U . . . . . . . . . . . 12 (πœ‘ β†’ βˆ€π‘§ ∈ (π‘Œ[,)+∞)(absβ€˜((π‘…β€˜π‘§) / 𝑧)) ≀ π‘ˆ)
252 pntlem1.K . . . . . . . . . . . 12 (πœ‘ β†’ βˆ€π‘¦ ∈ (𝑋(,)+∞)βˆƒπ‘§ ∈ ℝ+ ((𝑦 < 𝑧 ∧ ((1 + (𝐿 Β· 𝐸)) Β· 𝑧) < (𝐾 Β· 𝑦)) ∧ βˆ€π‘’ ∈ (𝑧[,]((1 + (𝐿 Β· 𝐸)) Β· 𝑧))(absβ€˜((π‘…β€˜π‘’) / 𝑒)) ≀ 𝐸))
2531, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 249, 250, 251, 252pntlemf 27105 . . . . . . . . . . 11 (πœ‘ β†’ ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2))) ≀ Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))
254 2pos 12314 . . . . . . . . . . . . 13 0 < 2
255254a1i 11 . . . . . . . . . . . 12 (πœ‘ β†’ 0 < 2)
256 lemul2 12066 . . . . . . . . . . . 12 ((((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2))) ∈ ℝ ∧ Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ∈ ℝ ∧ (2 ∈ ℝ ∧ 0 < 2)) β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2))) ≀ Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ↔ (2 Β· ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2)))) ≀ (2 Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))))
257236, 246, 32, 255, 256syl112anc 1374 . . . . . . . . . . 11 (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2))) ≀ Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) ↔ (2 Β· ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2)))) ≀ (2 Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)))))
258253, 257mpbid 231 . . . . . . . . . 10 (πœ‘ β†’ (2 Β· ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2)))) ≀ (2 Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›))))
259243recnd 11241 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (π‘ˆ / 𝑛) ∈ β„‚)
260259, 229, 181subdird 11670 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ (((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) = (((π‘ˆ / 𝑛) Β· (logβ€˜π‘›)) βˆ’ ((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›))))
261260sumeq2dv 15648 . . . . . . . . . . . . . 14 (πœ‘ β†’ Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) = Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) Β· (logβ€˜π‘›)) βˆ’ ((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›))))
262243, 144remulcld 11243 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ ((π‘ˆ / 𝑛) Β· (logβ€˜π‘›)) ∈ ℝ)
263262recnd 11241 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))) β†’ ((π‘ˆ / 𝑛) Β· (logβ€˜π‘›)) ∈ β„‚)
264133, 263, 230fsumsub 15733 . . . . . . . . . . . . . 14 (πœ‘ β†’ Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) Β· (logβ€˜π‘›)) βˆ’ ((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›))) = (Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((π‘ˆ / 𝑛) Β· (logβ€˜π‘›)) βˆ’ Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›))))
265261, 264eqtrd 2772 . . . . . . . . . . . . 13 (πœ‘ β†’ Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›)) = (Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((π‘ˆ / 𝑛) Β· (logβ€˜π‘›)) βˆ’ Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›))))
266265oveq2d 7424 . . . . . . . . . . . 12 (πœ‘ β†’ (2 Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›))) = (2 Β· (Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((π‘ˆ / 𝑛) Β· (logβ€˜π‘›)) βˆ’ Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›)))))
267133, 262fsumrecl 15679 . . . . . . . . . . . . . 14 (πœ‘ β†’ Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((π‘ˆ / 𝑛) Β· (logβ€˜π‘›)) ∈ ℝ)
268267recnd 11241 . . . . . . . . . . . . 13 (πœ‘ β†’ Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((π‘ˆ / 𝑛) Β· (logβ€˜π‘›)) ∈ β„‚)
269228, 268, 231subdid 11669 . . . . . . . . . . . 12 (πœ‘ β†’ (2 Β· (Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((π‘ˆ / 𝑛) Β· (logβ€˜π‘›)) βˆ’ Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›)))) = ((2 Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((π‘ˆ / 𝑛) Β· (logβ€˜π‘›))) βˆ’ (2 Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›)))))
270266, 269eqtrd 2772 . . . . . . . . . . 11 (πœ‘ β†’ (2 Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›))) = ((2 Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((π‘ˆ / 𝑛) Β· (logβ€˜π‘›))) βˆ’ (2 Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›)))))
271 remulcl 11194 . . . . . . . . . . . . 13 ((2 ∈ ℝ ∧ Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((π‘ˆ / 𝑛) Β· (logβ€˜π‘›)) ∈ ℝ) β†’ (2 Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((π‘ˆ / 𝑛) Β· (logβ€˜π‘›))) ∈ ℝ)
27231, 267, 271sylancr 587 . . . . . . . . . . . 12 (πœ‘ β†’ (2 Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((π‘ˆ / 𝑛) Β· (logβ€˜π‘›))) ∈ ℝ)
2731, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 249, 250, 251, 252pntlemk 27106 . . . . . . . . . . . 12 (πœ‘ β†’ (2 Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((π‘ˆ / 𝑛) Β· (logβ€˜π‘›))) ≀ ((π‘ˆ Β· ((logβ€˜π‘) + 3)) Β· (logβ€˜π‘)))
274272, 239, 241, 273lesub1dd 11829 . . . . . . . . . . 11 (πœ‘ β†’ ((2 Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((π‘ˆ / 𝑛) Β· (logβ€˜π‘›))) βˆ’ (2 Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›)))) ≀ (((π‘ˆ Β· ((logβ€˜π‘) + 3)) Β· (logβ€˜π‘)) βˆ’ (2 Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›)))))
275270, 274eqbrtrd 5170 . . . . . . . . . 10 (πœ‘ β†’ (2 Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))(((π‘ˆ / 𝑛) βˆ’ (absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍))) Β· (logβ€˜π‘›))) ≀ (((π‘ˆ Β· ((logβ€˜π‘) + 3)) Β· (logβ€˜π‘)) βˆ’ (2 Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›)))))
276238, 247, 248, 258, 275letrd 11370 . . . . . . . . 9 (πœ‘ β†’ (2 Β· ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2)))) ≀ (((π‘ˆ Β· ((logβ€˜π‘) + 3)) Β· (logβ€˜π‘)) βˆ’ (2 Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›)))))
277238, 239, 241, 276lesubd 11817 . . . . . . . 8 (πœ‘ β†’ (2 Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›))) ≀ (((π‘ˆ Β· ((logβ€˜π‘) + 3)) Β· (logβ€˜π‘)) βˆ’ (2 Β· ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2))))))
27830recnd 11241 . . . . . . . . . 10 (πœ‘ β†’ (π‘ˆ Β· ((logβ€˜π‘) + 3)) ∈ β„‚)
27955recnd 11241 . . . . . . . . . 10 (πœ‘ β†’ (2 Β· (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘))) ∈ β„‚)
280278, 279, 61subdird 11670 . . . . . . . . 9 (πœ‘ β†’ (((π‘ˆ Β· ((logβ€˜π‘) + 3)) βˆ’ (2 Β· (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘)))) Β· (logβ€˜π‘)) = (((π‘ˆ Β· ((logβ€˜π‘) + 3)) Β· (logβ€˜π‘)) βˆ’ ((2 Β· (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘))) Β· (logβ€˜π‘))))
28154recnd 11241 . . . . . . . . . . . 12 (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘)) ∈ β„‚)
282228, 281, 61mulassd 11236 . . . . . . . . . . 11 (πœ‘ β†’ ((2 Β· (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘))) Β· (logβ€˜π‘)) = (2 Β· ((((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘)) Β· (logβ€˜π‘))))
28360, 61, 61mulassd 11236 . . . . . . . . . . . . 13 (πœ‘ β†’ ((((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘)) Β· (logβ€˜π‘)) = (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· ((logβ€˜π‘) Β· (logβ€˜π‘))))
28461sqvald 14107 . . . . . . . . . . . . . 14 (πœ‘ β†’ ((logβ€˜π‘)↑2) = ((logβ€˜π‘) Β· (logβ€˜π‘)))
285284oveq2d 7424 . . . . . . . . . . . . 13 (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· ((logβ€˜π‘)↑2)) = (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· ((logβ€˜π‘) Β· (logβ€˜π‘))))
28651rpcnd 13017 . . . . . . . . . . . . . 14 (πœ‘ β†’ ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) ∈ β„‚)
287234recnd 11241 . . . . . . . . . . . . . 14 (πœ‘ β†’ ((logβ€˜π‘)↑2) ∈ β„‚)
288117, 286, 287mulassd 11236 . . . . . . . . . . . . 13 (πœ‘ β†’ (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· ((logβ€˜π‘)↑2)) = ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2))))
289283, 285, 2883eqtr2d 2778 . . . . . . . . . . . 12 (πœ‘ β†’ ((((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘)) Β· (logβ€˜π‘)) = ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2))))
290289oveq2d 7424 . . . . . . . . . . 11 (πœ‘ β†’ (2 Β· ((((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘)) Β· (logβ€˜π‘))) = (2 Β· ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2)))))
291282, 290eqtrd 2772 . . . . . . . . . 10 (πœ‘ β†’ ((2 Β· (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘))) Β· (logβ€˜π‘)) = (2 Β· ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2)))))
292291oveq2d 7424 . . . . . . . . 9 (πœ‘ β†’ (((π‘ˆ Β· ((logβ€˜π‘) + 3)) Β· (logβ€˜π‘)) βˆ’ ((2 Β· (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘))) Β· (logβ€˜π‘))) = (((π‘ˆ Β· ((logβ€˜π‘) + 3)) Β· (logβ€˜π‘)) βˆ’ (2 Β· ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2))))))
293280, 292eqtrd 2772 . . . . . . . 8 (πœ‘ β†’ (((π‘ˆ Β· ((logβ€˜π‘) + 3)) βˆ’ (2 Β· (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘)))) Β· (logβ€˜π‘)) = (((π‘ˆ Β· ((logβ€˜π‘) + 3)) Β· (logβ€˜π‘)) βˆ’ (2 Β· ((π‘ˆ βˆ’ 𝐸) Β· (((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡)) Β· ((logβ€˜π‘)↑2))))))
294277, 293breqtrrd 5176 . . . . . . 7 (πœ‘ β†’ (2 Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›))) ≀ (((π‘ˆ Β· ((logβ€˜π‘) + 3)) βˆ’ (2 Β· (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘)))) Β· (logβ€˜π‘)))
295241, 56, 131ledivmul2d 13069 . . . . . . 7 (πœ‘ β†’ (((2 Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›))) / (logβ€˜π‘)) ≀ ((π‘ˆ Β· ((logβ€˜π‘) + 3)) βˆ’ (2 Β· (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘)))) ↔ (2 Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›))) ≀ (((π‘ˆ Β· ((logβ€˜π‘) + 3)) βˆ’ (2 Β· (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘)))) Β· (logβ€˜π‘))))
296294, 295mpbird 256 . . . . . 6 (πœ‘ β†’ ((2 Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›))) / (logβ€˜π‘)) ≀ ((π‘ˆ Β· ((logβ€˜π‘) + 3)) βˆ’ (2 Β· (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘)))))
297233, 296eqbrtrrd 5172 . . . . 5 (πœ‘ β†’ ((2 / (logβ€˜π‘)) Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›))) ≀ ((π‘ˆ Β· ((logβ€˜π‘) + 3)) βˆ’ (2 Β· (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘)))))
298147, 56, 57, 297leadd1dd 11827 . . . 4 (πœ‘ β†’ (((2 / (logβ€˜π‘)) Β· Σ𝑛 ∈ (1...(βŒŠβ€˜(𝑍 / π‘Œ)))((absβ€˜((π‘…β€˜(𝑍 / 𝑛)) / 𝑍)) Β· (logβ€˜π‘›))) + 𝐢) ≀ (((π‘ˆ Β· ((logβ€˜π‘) + 3)) βˆ’ (2 Β· (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘)))) + 𝐢))
29925, 148, 58, 227, 298letrd 11370 . . 3 (πœ‘ β†’ ((absβ€˜((π‘…β€˜π‘) / 𝑍)) Β· (logβ€˜π‘)) ≀ (((π‘ˆ Β· ((logβ€˜π‘) + 3)) βˆ’ (2 Β· (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘)))) + 𝐢))
300 remulcl 11194 . . . . . . . . 9 ((π‘ˆ ∈ ℝ ∧ 3 ∈ ℝ) β†’ (π‘ˆ Β· 3) ∈ ℝ)
30126, 27, 300sylancl 586 . . . . . . . 8 (πœ‘ β†’ (π‘ˆ Β· 3) ∈ ℝ)
302301, 57readdcld 11242 . . . . . . 7 (πœ‘ β†’ ((π‘ˆ Β· 3) + 𝐢) ∈ ℝ)
30316simp3d 1144 . . . . . . . 8 (πœ‘ β†’ ((4 / (𝐿 Β· 𝐸)) ≀ (βˆšβ€˜π‘) ∧ (((logβ€˜π‘‹) / (logβ€˜πΎ)) + 2) ≀ (((logβ€˜π‘) / (logβ€˜πΎ)) / 4) ∧ ((π‘ˆ Β· 3) + 𝐢) ≀ (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘))))
304303simp3d 1144 . . . . . . 7 (πœ‘ β†’ ((π‘ˆ Β· 3) + 𝐢) ≀ (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘)))
305302, 54, 125, 304leadd2dd 11828 . . . . . 6 (πœ‘ β†’ ((π‘ˆ Β· (logβ€˜π‘)) + ((π‘ˆ Β· 3) + 𝐢)) ≀ ((π‘ˆ Β· (logβ€˜π‘)) + (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘))))
30628recnd 11241 . . . . . . . . 9 (πœ‘ β†’ 3 ∈ β„‚)
30759, 61, 306adddid 11237 . . . . . . . 8 (πœ‘ β†’ (π‘ˆ Β· ((logβ€˜π‘) + 3)) = ((π‘ˆ Β· (logβ€˜π‘)) + (π‘ˆ Β· 3)))
308307oveq1d 7423 . . . . . . 7 (πœ‘ β†’ ((π‘ˆ Β· ((logβ€˜π‘) + 3)) + 𝐢) = (((π‘ˆ Β· (logβ€˜π‘)) + (π‘ˆ Β· 3)) + 𝐢))
309125recnd 11241 . . . . . . . 8 (πœ‘ β†’ (π‘ˆ Β· (logβ€˜π‘)) ∈ β„‚)
31059, 306mulcld 11233 . . . . . . . 8 (πœ‘ β†’ (π‘ˆ Β· 3) ∈ β„‚)
31113rpcnd 13017 . . . . . . . 8 (πœ‘ β†’ 𝐢 ∈ β„‚)
312309, 310, 311addassd 11235 . . . . . . 7 (πœ‘ β†’ (((π‘ˆ Β· (logβ€˜π‘)) + (π‘ˆ Β· 3)) + 𝐢) = ((π‘ˆ Β· (logβ€˜π‘)) + ((π‘ˆ Β· 3) + 𝐢)))
313308, 312eqtrd 2772 . . . . . 6 (πœ‘ β†’ ((π‘ˆ Β· ((logβ€˜π‘) + 3)) + 𝐢) = ((π‘ˆ Β· (logβ€˜π‘)) + ((π‘ˆ Β· 3) + 𝐢)))
3142812timesd 12454 . . . . . . . 8 (πœ‘ β†’ (2 Β· (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘))) = ((((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘)) + (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘))))
315314oveq2d 7424 . . . . . . 7 (πœ‘ β†’ (((π‘ˆ Β· (logβ€˜π‘)) βˆ’ (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘))) + (2 Β· (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘)))) = (((π‘ˆ Β· (logβ€˜π‘)) βˆ’ (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘))) + ((((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘)) + (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘)))))
316309, 281, 281nppcan3d 11597 . . . . . . 7 (πœ‘ β†’ (((π‘ˆ Β· (logβ€˜π‘)) βˆ’ (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘))) + ((((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘)) + (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘)))) = ((π‘ˆ Β· (logβ€˜π‘)) + (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘))))
317315, 316eqtrd 2772 . . . . . 6 (πœ‘ β†’ (((π‘ˆ Β· (logβ€˜π‘)) βˆ’ (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘))) + (2 Β· (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘)))) = ((π‘ˆ Β· (logβ€˜π‘)) + (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘))))
318305, 313, 3173brtr4d 5180 . . . . 5 (πœ‘ β†’ ((π‘ˆ Β· ((logβ€˜π‘) + 3)) + 𝐢) ≀ (((π‘ˆ Β· (logβ€˜π‘)) βˆ’ (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘))) + (2 Β· (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘)))))
31930, 57readdcld 11242 . . . . . 6 (πœ‘ β†’ ((π‘ˆ Β· ((logβ€˜π‘) + 3)) + 𝐢) ∈ ℝ)
320319, 55, 126lesubaddd 11810 . . . . 5 (πœ‘ β†’ ((((π‘ˆ Β· ((logβ€˜π‘) + 3)) + 𝐢) βˆ’ (2 Β· (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘)))) ≀ ((π‘ˆ Β· (logβ€˜π‘)) βˆ’ (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘))) ↔ ((π‘ˆ Β· ((logβ€˜π‘) + 3)) + 𝐢) ≀ (((π‘ˆ Β· (logβ€˜π‘)) βˆ’ (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘))) + (2 Β· (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘))))))
321318, 320mpbird 256 . . . 4 (πœ‘ β†’ (((π‘ˆ Β· ((logβ€˜π‘) + 3)) + 𝐢) βˆ’ (2 Β· (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘)))) ≀ ((π‘ˆ Β· (logβ€˜π‘)) βˆ’ (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘))))
322278, 311, 279addsubd 11591 . . . 4 (πœ‘ β†’ (((π‘ˆ Β· ((logβ€˜π‘) + 3)) + 𝐢) βˆ’ (2 Β· (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘)))) = (((π‘ˆ Β· ((logβ€˜π‘) + 3)) βˆ’ (2 Β· (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘)))) + 𝐢))
323321, 322, 1243brtr3d 5179 . . 3 (πœ‘ β†’ (((π‘ˆ Β· ((logβ€˜π‘) + 3)) βˆ’ (2 Β· (((π‘ˆ βˆ’ 𝐸) Β· ((𝐿 Β· (𝐸↑2)) / (32 Β· 𝐡))) Β· (logβ€˜π‘)))) + 𝐢) ≀ ((π‘ˆ βˆ’ (𝐹 Β· (π‘ˆβ†‘3))) Β· (logβ€˜π‘)))
32425, 58, 127, 299, 323letrd 11370 . 2 (πœ‘ β†’ ((absβ€˜((π‘…β€˜π‘) / 𝑍)) Β· (logβ€˜π‘)) ≀ ((π‘ˆ βˆ’ (𝐹 Β· (π‘ˆβ†‘3))) Β· (logβ€˜π‘)))
325 3z 12594 . . . . . . 7 3 ∈ β„€
326 rpexpcl 14045 . . . . . . 7 ((π‘ˆ ∈ ℝ+ ∧ 3 ∈ β„€) β†’ (π‘ˆβ†‘3) ∈ ℝ+)
3277, 325, 326sylancl 586 . . . . . 6 (πœ‘ β†’ (π‘ˆβ†‘3) ∈ ℝ+)
32896, 327rpmulcld 13031 . . . . 5 (πœ‘ β†’ (𝐹 Β· (π‘ˆβ†‘3)) ∈ ℝ+)
329328rpred 13015 . . . 4 (πœ‘ β†’ (𝐹 Β· (π‘ˆβ†‘3)) ∈ ℝ)
33026, 329resubcld 11641 . . 3 (πœ‘ β†’ (π‘ˆ βˆ’ (𝐹 Β· (π‘ˆβ†‘3))) ∈ ℝ)
33123, 330, 131lemul1d 13058 . 2 (πœ‘ β†’ ((absβ€˜((π‘…β€˜π‘) / 𝑍)) ≀ (π‘ˆ βˆ’ (𝐹 Β· (π‘ˆβ†‘3))) ↔ ((absβ€˜((π‘…β€˜π‘) / 𝑍)) Β· (logβ€˜π‘)) ≀ ((π‘ˆ βˆ’ (𝐹 Β· (π‘ˆβ†‘3))) Β· (logβ€˜π‘))))
332324, 331mpbird 256 1 (πœ‘ β†’ (absβ€˜((π‘…β€˜π‘) / 𝑍)) ≀ (π‘ˆ βˆ’ (𝐹 Β· (π‘ˆβ†‘3))))
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ↔ wb 205   ∧ wa 396   ∧ w3a 1087   = wceq 1541   ∈ wcel 2106   β‰  wne 2940  βˆ€wral 3061  βˆƒwrex 3070   class class class wbr 5148   ↦ cmpt 5231  β€˜cfv 6543  (class class class)co 7408  β„‚cc 11107  β„cr 11108  0cc0 11109  1c1 11110   + caddc 11112   Β· cmul 11114  +∞cpnf 11244  β„*cxr 11246   < clt 11247   ≀ cle 11248   βˆ’ cmin 11443   / cdiv 11870  β„•cn 12211  2c2 12266  3c3 12267  4c4 12268  β„•0cn0 12471  β„€cz 12557  cdc 12676  β„+crp 12973  (,)cioo 13323  [,)cico 13325  [,]cicc 13326  ...cfz 13483  βŒŠcfl 13754  β†‘cexp 14026  βˆšcsqrt 15179  abscabs 15180  Ξ£csu 15631  expce 16004  eceu 16005  logclog 26062  Οˆcchp 26594
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2703  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5363  ax-pr 5427  ax-un 7724  ax-inf2 9635  ax-cnex 11165  ax-resscn 11166  ax-1cn 11167  ax-icn 11168  ax-addcl 11169  ax-addrcl 11170  ax-mulcl 11171  ax-mulrcl 11172  ax-mulcom 11173  ax-addass 11174  ax-mulass 11175  ax-distr 11176  ax-i2m1 11177  ax-1ne0 11178  ax-1rid 11179  ax-rnegex 11180  ax-rrecex 11181  ax-cnre 11182  ax-pre-lttri 11183  ax-pre-lttrn 11184  ax-pre-ltadd 11185  ax-pre-mulgt0 11186  ax-pre-sup 11187  ax-addf 11188  ax-mulf 11189
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rmo 3376  df-reu 3377  df-rab 3433  df-v 3476  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 7364  df-ov 7411  df-oprab 7412  df-mpo 7413  df-of 7669  df-om 7855  df-1st 7974  df-2nd 7975  df-supp 8146  df-frecs 8265  df-wrecs 8296  df-recs 8370  df-rdg 8409  df-1o 8465  df-2o 8466  df-oadd 8469  df-er 8702  df-map 8821  df-pm 8822  df-ixp 8891  df-en 8939  df-dom 8940  df-sdom 8941  df-fin 8942  df-fsupp 9361  df-fi 9405  df-sup 9436  df-inf 9437  df-oi 9504  df-dju 9895  df-card 9933  df-pnf 11249  df-mnf 11250  df-xr 11251  df-ltxr 11252  df-le 11253  df-sub 11445  df-neg 11446  df-div 11871  df-nn 12212  df-2 12274  df-3 12275  df-4 12276  df-5 12277  df-6 12278  df-7 12279  df-8 12280  df-9 12281  df-n0 12472  df-xnn0 12544  df-z 12558  df-dec 12677  df-uz 12822  df-q 12932  df-rp 12974  df-xneg 13091  df-xadd 13092  df-xmul 13093  df-ioo 13327  df-ioc 13328  df-ico 13329  df-icc 13330  df-fz 13484  df-fzo 13627  df-fl 13756  df-mod 13834  df-seq 13966  df-exp 14027  df-fac 14233  df-bc 14262  df-hash 14290  df-shft 15013  df-cj 15045  df-re 15046  df-im 15047  df-sqrt 15181  df-abs 15182  df-limsup 15414  df-clim 15431  df-rlim 15432  df-sum 15632  df-ef 16010  df-e 16011  df-sin 16012  df-cos 16013  df-tan 16014  df-pi 16015  df-dvds 16197  df-gcd 16435  df-prm 16608  df-pc 16769  df-struct 17079  df-sets 17096  df-slot 17114  df-ndx 17126  df-base 17144  df-ress 17173  df-plusg 17209  df-mulr 17210  df-starv 17211  df-sca 17212  df-vsca 17213  df-ip 17214  df-tset 17215  df-ple 17216  df-ds 17218  df-unif 17219  df-hom 17220  df-cco 17221  df-rest 17367  df-topn 17368  df-0g 17386  df-gsum 17387  df-topgen 17388  df-pt 17389  df-prds 17392  df-xrs 17447  df-qtop 17452  df-imas 17453  df-xps 17455  df-mre 17529  df-mrc 17530  df-acs 17532  df-mgm 18560  df-sgrp 18609  df-mnd 18625  df-submnd 18671  df-mulg 18950  df-cntz 19180  df-cmn 19649  df-psmet 20935  df-xmet 20936  df-met 20937  df-bl 20938  df-mopn 20939  df-fbas 20940  df-fg 20941  df-cnfld 20944  df-top 22395  df-topon 22412  df-topsp 22434  df-bases 22448  df-cld 22522  df-ntr 22523  df-cls 22524  df-nei 22601  df-lp 22639  df-perf 22640  df-cn 22730  df-cnp 22731  df-haus 22818  df-cmp 22890  df-tx 23065  df-hmeo 23258  df-fil 23349  df-fm 23441  df-flim 23442  df-flf 23443  df-xms 23825  df-ms 23826  df-tms 23827  df-cncf 24393  df-limc 25382  df-dv 25383  df-ulm 25888  df-log 26064  df-atan 26369  df-em 26494  df-vma 26599  df-chp 26600
This theorem is referenced by:  pntleme  27108
  Copyright terms: Public domain W3C validator