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

Theorem rplogsumlem1 27452
Description: Lemma for rplogsum 27495. (Contributed by Mario Carneiro, 2-May-2016.)
Assertion
Ref Expression
rplogsumlem1 (𝐴 ∈ ℕ → Σ𝑛 ∈ (2...𝐴)((log‘𝑛) / (𝑛 · (𝑛 − 1))) ≤ 2)
Distinct variable group:   𝐴,𝑛

Proof of Theorem rplogsumlem1
Dummy variable 𝑘 is distinct from all other variables.
StepHypRef Expression
1 fzfid 13996 . . 3 (𝐴 ∈ ℕ → (2...𝐴) ∈ Fin)
2 elfzuz 13542 . . . . . . . 8 (𝑛 ∈ (2...𝐴) → 𝑛 ∈ (ℤ‘2))
3 eluz2nn 12903 . . . . . . . 8 (𝑛 ∈ (ℤ‘2) → 𝑛 ∈ ℕ)
42, 3syl 17 . . . . . . 7 (𝑛 ∈ (2...𝐴) → 𝑛 ∈ ℕ)
54adantl 481 . . . . . 6 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → 𝑛 ∈ ℕ)
65nnrpd 13054 . . . . 5 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → 𝑛 ∈ ℝ+)
76relogcld 26589 . . . 4 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (log‘𝑛) ∈ ℝ)
82adantl 481 . . . . . 6 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → 𝑛 ∈ (ℤ‘2))
9 uz2m1nn 12944 . . . . . 6 (𝑛 ∈ (ℤ‘2) → (𝑛 − 1) ∈ ℕ)
108, 9syl 17 . . . . 5 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (𝑛 − 1) ∈ ℕ)
115, 10nnmulcld 12298 . . . 4 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (𝑛 · (𝑛 − 1)) ∈ ℕ)
127, 11nndivred 12299 . . 3 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → ((log‘𝑛) / (𝑛 · (𝑛 − 1))) ∈ ℝ)
131, 12fsumrecl 15755 . 2 (𝐴 ∈ ℕ → Σ𝑛 ∈ (2...𝐴)((log‘𝑛) / (𝑛 · (𝑛 − 1))) ∈ ℝ)
14 2re 12319 . . . . 5 2 ∈ ℝ
1510nnrpd 13054 . . . . . 6 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (𝑛 − 1) ∈ ℝ+)
1615rpsqrtcld 15435 . . . . 5 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (√‘(𝑛 − 1)) ∈ ℝ+)
17 rerpdivcl 13044 . . . . 5 ((2 ∈ ℝ ∧ (√‘(𝑛 − 1)) ∈ ℝ+) → (2 / (√‘(𝑛 − 1))) ∈ ℝ)
1814, 16, 17sylancr 587 . . . 4 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (2 / (√‘(𝑛 − 1))) ∈ ℝ)
196rpsqrtcld 15435 . . . . 5 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (√‘𝑛) ∈ ℝ+)
20 rerpdivcl 13044 . . . . 5 ((2 ∈ ℝ ∧ (√‘𝑛) ∈ ℝ+) → (2 / (√‘𝑛)) ∈ ℝ)
2114, 19, 20sylancr 587 . . . 4 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (2 / (√‘𝑛)) ∈ ℝ)
2218, 21resubcld 11670 . . 3 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → ((2 / (√‘(𝑛 − 1))) − (2 / (√‘𝑛))) ∈ ℝ)
231, 22fsumrecl 15755 . 2 (𝐴 ∈ ℕ → Σ𝑛 ∈ (2...𝐴)((2 / (√‘(𝑛 − 1))) − (2 / (√‘𝑛))) ∈ ℝ)
2414a1i 11 . 2 (𝐴 ∈ ℕ → 2 ∈ ℝ)
2516rpred 13056 . . . . 5 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (√‘(𝑛 − 1)) ∈ ℝ)
265nnred 12260 . . . . . . 7 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → 𝑛 ∈ ℝ)
27 peano2rem 11555 . . . . . . . 8 (𝑛 ∈ ℝ → (𝑛 − 1) ∈ ℝ)
2826, 27syl 17 . . . . . . 7 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (𝑛 − 1) ∈ ℝ)
2926, 28remulcld 11270 . . . . . 6 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (𝑛 · (𝑛 − 1)) ∈ ℝ)
3029, 22remulcld 11270 . . . . 5 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → ((𝑛 · (𝑛 − 1)) · ((2 / (√‘(𝑛 − 1))) − (2 / (√‘𝑛)))) ∈ ℝ)
315nncnd 12261 . . . . . . . 8 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → 𝑛 ∈ ℂ)
32 ax-1cn 11192 . . . . . . . 8 1 ∈ ℂ
33 npcan 11496 . . . . . . . 8 ((𝑛 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝑛 − 1) + 1) = 𝑛)
3431, 32, 33sylancl 586 . . . . . . 7 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → ((𝑛 − 1) + 1) = 𝑛)
3534fveq2d 6885 . . . . . 6 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (log‘((𝑛 − 1) + 1)) = (log‘𝑛))
3615rpge0d 13060 . . . . . . 7 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → 0 ≤ (𝑛 − 1))
37 loglesqrt 26728 . . . . . . 7 (((𝑛 − 1) ∈ ℝ ∧ 0 ≤ (𝑛 − 1)) → (log‘((𝑛 − 1) + 1)) ≤ (√‘(𝑛 − 1)))
3828, 36, 37syl2anc 584 . . . . . 6 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (log‘((𝑛 − 1) + 1)) ≤ (√‘(𝑛 − 1)))
3935, 38eqbrtrrd 5148 . . . . 5 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (log‘𝑛) ≤ (√‘(𝑛 − 1)))
4019rpred 13056 . . . . . . . . . . 11 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (√‘𝑛) ∈ ℝ)
4140, 25readdcld 11269 . . . . . . . . . 10 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → ((√‘𝑛) + (√‘(𝑛 − 1))) ∈ ℝ)
42 remulcl 11219 . . . . . . . . . . 11 (((√‘𝑛) ∈ ℝ ∧ 2 ∈ ℝ) → ((√‘𝑛) · 2) ∈ ℝ)
4340, 14, 42sylancl 586 . . . . . . . . . 10 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → ((√‘𝑛) · 2) ∈ ℝ)
4440, 25resubcld 11670 . . . . . . . . . 10 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → ((√‘𝑛) − (√‘(𝑛 − 1))) ∈ ℝ)
4526lem1d 12180 . . . . . . . . . . . 12 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (𝑛 − 1) ≤ 𝑛)
466rpge0d 13060 . . . . . . . . . . . . 13 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → 0 ≤ 𝑛)
4728, 36, 26, 46sqrtled 15450 . . . . . . . . . . . 12 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → ((𝑛 − 1) ≤ 𝑛 ↔ (√‘(𝑛 − 1)) ≤ (√‘𝑛)))
4845, 47mpbid 232 . . . . . . . . . . 11 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (√‘(𝑛 − 1)) ≤ (√‘𝑛))
4940, 25subge0d 11832 . . . . . . . . . . 11 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (0 ≤ ((√‘𝑛) − (√‘(𝑛 − 1))) ↔ (√‘(𝑛 − 1)) ≤ (√‘𝑛)))
5048, 49mpbird 257 . . . . . . . . . 10 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → 0 ≤ ((√‘𝑛) − (√‘(𝑛 − 1))))
5125, 40, 40, 48leadd2dd 11857 . . . . . . . . . . 11 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → ((√‘𝑛) + (√‘(𝑛 − 1))) ≤ ((√‘𝑛) + (√‘𝑛)))
5219rpcnd 13058 . . . . . . . . . . . 12 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (√‘𝑛) ∈ ℂ)
5352times2d 12490 . . . . . . . . . . 11 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → ((√‘𝑛) · 2) = ((√‘𝑛) + (√‘𝑛)))
5451, 53breqtrrd 5152 . . . . . . . . . 10 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → ((√‘𝑛) + (√‘(𝑛 − 1))) ≤ ((√‘𝑛) · 2))
5541, 43, 44, 50, 54lemul1ad 12186 . . . . . . . . 9 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (((√‘𝑛) + (√‘(𝑛 − 1))) · ((√‘𝑛) − (√‘(𝑛 − 1)))) ≤ (((√‘𝑛) · 2) · ((√‘𝑛) − (√‘(𝑛 − 1)))))
5631sqsqrtd 15463 . . . . . . . . . . 11 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → ((√‘𝑛)↑2) = 𝑛)
57 subcl 11486 . . . . . . . . . . . . 13 ((𝑛 ∈ ℂ ∧ 1 ∈ ℂ) → (𝑛 − 1) ∈ ℂ)
5831, 32, 57sylancl 586 . . . . . . . . . . . 12 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (𝑛 − 1) ∈ ℂ)
5958sqsqrtd 15463 . . . . . . . . . . 11 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → ((√‘(𝑛 − 1))↑2) = (𝑛 − 1))
6056, 59oveq12d 7428 . . . . . . . . . 10 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (((√‘𝑛)↑2) − ((√‘(𝑛 − 1))↑2)) = (𝑛 − (𝑛 − 1)))
6116rpcnd 13058 . . . . . . . . . . 11 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (√‘(𝑛 − 1)) ∈ ℂ)
62 subsq 14233 . . . . . . . . . . 11 (((√‘𝑛) ∈ ℂ ∧ (√‘(𝑛 − 1)) ∈ ℂ) → (((√‘𝑛)↑2) − ((√‘(𝑛 − 1))↑2)) = (((√‘𝑛) + (√‘(𝑛 − 1))) · ((√‘𝑛) − (√‘(𝑛 − 1)))))
6352, 61, 62syl2anc 584 . . . . . . . . . 10 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (((√‘𝑛)↑2) − ((√‘(𝑛 − 1))↑2)) = (((√‘𝑛) + (√‘(𝑛 − 1))) · ((√‘𝑛) − (√‘(𝑛 − 1)))))
64 nncan 11517 . . . . . . . . . . 11 ((𝑛 ∈ ℂ ∧ 1 ∈ ℂ) → (𝑛 − (𝑛 − 1)) = 1)
6531, 32, 64sylancl 586 . . . . . . . . . 10 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (𝑛 − (𝑛 − 1)) = 1)
6660, 63, 653eqtr3d 2779 . . . . . . . . 9 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (((√‘𝑛) + (√‘(𝑛 − 1))) · ((√‘𝑛) − (√‘(𝑛 − 1)))) = 1)
67 2cn 12320 . . . . . . . . . . 11 2 ∈ ℂ
6867a1i 11 . . . . . . . . . 10 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → 2 ∈ ℂ)
6944recnd 11268 . . . . . . . . . 10 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → ((√‘𝑛) − (√‘(𝑛 − 1))) ∈ ℂ)
7052, 68, 69mulassd 11263 . . . . . . . . 9 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (((√‘𝑛) · 2) · ((√‘𝑛) − (√‘(𝑛 − 1)))) = ((√‘𝑛) · (2 · ((√‘𝑛) − (√‘(𝑛 − 1))))))
7155, 66, 703brtr3d 5155 . . . . . . . 8 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → 1 ≤ ((√‘𝑛) · (2 · ((√‘𝑛) − (√‘(𝑛 − 1))))))
72 1red 11241 . . . . . . . . 9 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → 1 ∈ ℝ)
73 remulcl 11219 . . . . . . . . . . 11 ((2 ∈ ℝ ∧ ((√‘𝑛) − (√‘(𝑛 − 1))) ∈ ℝ) → (2 · ((√‘𝑛) − (√‘(𝑛 − 1)))) ∈ ℝ)
7414, 44, 73sylancr 587 . . . . . . . . . 10 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (2 · ((√‘𝑛) − (√‘(𝑛 − 1)))) ∈ ℝ)
7540, 74remulcld 11270 . . . . . . . . 9 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → ((√‘𝑛) · (2 · ((√‘𝑛) − (√‘(𝑛 − 1))))) ∈ ℝ)
7672, 75, 16lemul1d 13099 . . . . . . . 8 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (1 ≤ ((√‘𝑛) · (2 · ((√‘𝑛) − (√‘(𝑛 − 1))))) ↔ (1 · (√‘(𝑛 − 1))) ≤ (((√‘𝑛) · (2 · ((√‘𝑛) − (√‘(𝑛 − 1))))) · (√‘(𝑛 − 1)))))
7771, 76mpbid 232 . . . . . . 7 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (1 · (√‘(𝑛 − 1))) ≤ (((√‘𝑛) · (2 · ((√‘𝑛) − (√‘(𝑛 − 1))))) · (√‘(𝑛 − 1))))
7861mullidd 11258 . . . . . . 7 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (1 · (√‘(𝑛 − 1))) = (√‘(𝑛 − 1)))
7974recnd 11268 . . . . . . . 8 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (2 · ((√‘𝑛) − (√‘(𝑛 − 1)))) ∈ ℂ)
8052, 79, 61mul32d 11450 . . . . . . 7 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (((√‘𝑛) · (2 · ((√‘𝑛) − (√‘(𝑛 − 1))))) · (√‘(𝑛 − 1))) = (((√‘𝑛) · (√‘(𝑛 − 1))) · (2 · ((√‘𝑛) − (√‘(𝑛 − 1))))))
8177, 78, 803brtr3d 5155 . . . . . 6 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (√‘(𝑛 − 1)) ≤ (((√‘𝑛) · (√‘(𝑛 − 1))) · (2 · ((√‘𝑛) − (√‘(𝑛 − 1))))))
82 remsqsqrt 15280 . . . . . . . . . . 11 ((𝑛 ∈ ℝ ∧ 0 ≤ 𝑛) → ((√‘𝑛) · (√‘𝑛)) = 𝑛)
8326, 46, 82syl2anc 584 . . . . . . . . . 10 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → ((√‘𝑛) · (√‘𝑛)) = 𝑛)
84 remsqsqrt 15280 . . . . . . . . . . 11 (((𝑛 − 1) ∈ ℝ ∧ 0 ≤ (𝑛 − 1)) → ((√‘(𝑛 − 1)) · (√‘(𝑛 − 1))) = (𝑛 − 1))
8528, 36, 84syl2anc 584 . . . . . . . . . 10 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → ((√‘(𝑛 − 1)) · (√‘(𝑛 − 1))) = (𝑛 − 1))
8683, 85oveq12d 7428 . . . . . . . . 9 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (((√‘𝑛) · (√‘𝑛)) · ((√‘(𝑛 − 1)) · (√‘(𝑛 − 1)))) = (𝑛 · (𝑛 − 1)))
8752, 52, 61, 61mul4d 11452 . . . . . . . . 9 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (((√‘𝑛) · (√‘𝑛)) · ((√‘(𝑛 − 1)) · (√‘(𝑛 − 1)))) = (((√‘𝑛) · (√‘(𝑛 − 1))) · ((√‘𝑛) · (√‘(𝑛 − 1)))))
8886, 87eqtr3d 2773 . . . . . . . 8 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (𝑛 · (𝑛 − 1)) = (((√‘𝑛) · (√‘(𝑛 − 1))) · ((√‘𝑛) · (√‘(𝑛 − 1)))))
8916rpcnne0d 13065 . . . . . . . . . 10 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → ((√‘(𝑛 − 1)) ∈ ℂ ∧ (√‘(𝑛 − 1)) ≠ 0))
9019rpcnne0d 13065 . . . . . . . . . 10 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → ((√‘𝑛) ∈ ℂ ∧ (√‘𝑛) ≠ 0))
91 divsubdiv 11962 . . . . . . . . . 10 (((2 ∈ ℂ ∧ 2 ∈ ℂ) ∧ (((√‘(𝑛 − 1)) ∈ ℂ ∧ (√‘(𝑛 − 1)) ≠ 0) ∧ ((√‘𝑛) ∈ ℂ ∧ (√‘𝑛) ≠ 0))) → ((2 / (√‘(𝑛 − 1))) − (2 / (√‘𝑛))) = (((2 · (√‘𝑛)) − (2 · (√‘(𝑛 − 1)))) / ((√‘(𝑛 − 1)) · (√‘𝑛))))
9268, 68, 89, 90, 91syl22anc 838 . . . . . . . . 9 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → ((2 / (√‘(𝑛 − 1))) − (2 / (√‘𝑛))) = (((2 · (√‘𝑛)) − (2 · (√‘(𝑛 − 1)))) / ((√‘(𝑛 − 1)) · (√‘𝑛))))
9368, 52, 61subdid 11698 . . . . . . . . . 10 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (2 · ((√‘𝑛) − (√‘(𝑛 − 1)))) = ((2 · (√‘𝑛)) − (2 · (√‘(𝑛 − 1)))))
9452, 61mulcomd 11261 . . . . . . . . . 10 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → ((√‘𝑛) · (√‘(𝑛 − 1))) = ((√‘(𝑛 − 1)) · (√‘𝑛)))
9593, 94oveq12d 7428 . . . . . . . . 9 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → ((2 · ((√‘𝑛) − (√‘(𝑛 − 1)))) / ((√‘𝑛) · (√‘(𝑛 − 1)))) = (((2 · (√‘𝑛)) − (2 · (√‘(𝑛 − 1)))) / ((√‘(𝑛 − 1)) · (√‘𝑛))))
9692, 95eqtr4d 2774 . . . . . . . 8 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → ((2 / (√‘(𝑛 − 1))) − (2 / (√‘𝑛))) = ((2 · ((√‘𝑛) − (√‘(𝑛 − 1)))) / ((√‘𝑛) · (√‘(𝑛 − 1)))))
9788, 96oveq12d 7428 . . . . . . 7 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → ((𝑛 · (𝑛 − 1)) · ((2 / (√‘(𝑛 − 1))) − (2 / (√‘𝑛)))) = ((((√‘𝑛) · (√‘(𝑛 − 1))) · ((√‘𝑛) · (√‘(𝑛 − 1)))) · ((2 · ((√‘𝑛) − (√‘(𝑛 − 1)))) / ((√‘𝑛) · (√‘(𝑛 − 1))))))
9852, 61mulcld 11260 . . . . . . . 8 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → ((√‘𝑛) · (√‘(𝑛 − 1))) ∈ ℂ)
9919, 16rpmulcld 13072 . . . . . . . . . 10 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → ((√‘𝑛) · (√‘(𝑛 − 1))) ∈ ℝ+)
10074, 99rerpdivcld 13087 . . . . . . . . 9 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → ((2 · ((√‘𝑛) − (√‘(𝑛 − 1)))) / ((√‘𝑛) · (√‘(𝑛 − 1)))) ∈ ℝ)
101100recnd 11268 . . . . . . . 8 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → ((2 · ((√‘𝑛) − (√‘(𝑛 − 1)))) / ((√‘𝑛) · (√‘(𝑛 − 1)))) ∈ ℂ)
10298, 98, 101mulassd 11263 . . . . . . 7 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → ((((√‘𝑛) · (√‘(𝑛 − 1))) · ((√‘𝑛) · (√‘(𝑛 − 1)))) · ((2 · ((√‘𝑛) − (√‘(𝑛 − 1)))) / ((√‘𝑛) · (√‘(𝑛 − 1))))) = (((√‘𝑛) · (√‘(𝑛 − 1))) · (((√‘𝑛) · (√‘(𝑛 − 1))) · ((2 · ((√‘𝑛) − (√‘(𝑛 − 1)))) / ((√‘𝑛) · (√‘(𝑛 − 1)))))))
10399rpne0d 13061 . . . . . . . . 9 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → ((√‘𝑛) · (√‘(𝑛 − 1))) ≠ 0)
10479, 98, 103divcan2d 12024 . . . . . . . 8 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (((√‘𝑛) · (√‘(𝑛 − 1))) · ((2 · ((√‘𝑛) − (√‘(𝑛 − 1)))) / ((√‘𝑛) · (√‘(𝑛 − 1))))) = (2 · ((√‘𝑛) − (√‘(𝑛 − 1)))))
105104oveq2d 7426 . . . . . . 7 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (((√‘𝑛) · (√‘(𝑛 − 1))) · (((√‘𝑛) · (√‘(𝑛 − 1))) · ((2 · ((√‘𝑛) − (√‘(𝑛 − 1)))) / ((√‘𝑛) · (√‘(𝑛 − 1)))))) = (((√‘𝑛) · (√‘(𝑛 − 1))) · (2 · ((√‘𝑛) − (√‘(𝑛 − 1))))))
10697, 102, 1053eqtrd 2775 . . . . . 6 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → ((𝑛 · (𝑛 − 1)) · ((2 / (√‘(𝑛 − 1))) − (2 / (√‘𝑛)))) = (((√‘𝑛) · (√‘(𝑛 − 1))) · (2 · ((√‘𝑛) − (√‘(𝑛 − 1))))))
10781, 106breqtrrd 5152 . . . . 5 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (√‘(𝑛 − 1)) ≤ ((𝑛 · (𝑛 − 1)) · ((2 / (√‘(𝑛 − 1))) − (2 / (√‘𝑛)))))
1087, 25, 30, 39, 107letrd 11397 . . . 4 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (log‘𝑛) ≤ ((𝑛 · (𝑛 − 1)) · ((2 / (√‘(𝑛 − 1))) − (2 / (√‘𝑛)))))
10911nngt0d 12294 . . . . 5 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → 0 < (𝑛 · (𝑛 − 1)))
110 ledivmul 12123 . . . . 5 (((log‘𝑛) ∈ ℝ ∧ ((2 / (√‘(𝑛 − 1))) − (2 / (√‘𝑛))) ∈ ℝ ∧ ((𝑛 · (𝑛 − 1)) ∈ ℝ ∧ 0 < (𝑛 · (𝑛 − 1)))) → (((log‘𝑛) / (𝑛 · (𝑛 − 1))) ≤ ((2 / (√‘(𝑛 − 1))) − (2 / (√‘𝑛))) ↔ (log‘𝑛) ≤ ((𝑛 · (𝑛 − 1)) · ((2 / (√‘(𝑛 − 1))) − (2 / (√‘𝑛))))))
1117, 22, 29, 109, 110syl112anc 1376 . . . 4 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (((log‘𝑛) / (𝑛 · (𝑛 − 1))) ≤ ((2 / (√‘(𝑛 − 1))) − (2 / (√‘𝑛))) ↔ (log‘𝑛) ≤ ((𝑛 · (𝑛 − 1)) · ((2 / (√‘(𝑛 − 1))) − (2 / (√‘𝑛))))))
112108, 111mpbird 257 . . 3 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → ((log‘𝑛) / (𝑛 · (𝑛 − 1))) ≤ ((2 / (√‘(𝑛 − 1))) − (2 / (√‘𝑛))))
1131, 12, 22, 112fsumle 15820 . 2 (𝐴 ∈ ℕ → Σ𝑛 ∈ (2...𝐴)((log‘𝑛) / (𝑛 · (𝑛 − 1))) ≤ Σ𝑛 ∈ (2...𝐴)((2 / (√‘(𝑛 − 1))) − (2 / (√‘𝑛))))
114 fvoveq1 7433 . . . . . 6 (𝑘 = 𝑛 → (√‘(𝑘 − 1)) = (√‘(𝑛 − 1)))
115114oveq2d 7426 . . . . 5 (𝑘 = 𝑛 → (2 / (√‘(𝑘 − 1))) = (2 / (√‘(𝑛 − 1))))
116 fvoveq1 7433 . . . . . 6 (𝑘 = (𝑛 + 1) → (√‘(𝑘 − 1)) = (√‘((𝑛 + 1) − 1)))
117116oveq2d 7426 . . . . 5 (𝑘 = (𝑛 + 1) → (2 / (√‘(𝑘 − 1))) = (2 / (√‘((𝑛 + 1) − 1))))
118 oveq1 7417 . . . . . . . . . 10 (𝑘 = 2 → (𝑘 − 1) = (2 − 1))
119 2m1e1 12371 . . . . . . . . . 10 (2 − 1) = 1
120118, 119eqtrdi 2787 . . . . . . . . 9 (𝑘 = 2 → (𝑘 − 1) = 1)
121120fveq2d 6885 . . . . . . . 8 (𝑘 = 2 → (√‘(𝑘 − 1)) = (√‘1))
122 sqrt1 15295 . . . . . . . 8 (√‘1) = 1
123121, 122eqtrdi 2787 . . . . . . 7 (𝑘 = 2 → (√‘(𝑘 − 1)) = 1)
124123oveq2d 7426 . . . . . 6 (𝑘 = 2 → (2 / (√‘(𝑘 − 1))) = (2 / 1))
12567div1i 11974 . . . . . 6 (2 / 1) = 2
126124, 125eqtrdi 2787 . . . . 5 (𝑘 = 2 → (2 / (√‘(𝑘 − 1))) = 2)
127 fvoveq1 7433 . . . . . 6 (𝑘 = (𝐴 + 1) → (√‘(𝑘 − 1)) = (√‘((𝐴 + 1) − 1)))
128127oveq2d 7426 . . . . 5 (𝑘 = (𝐴 + 1) → (2 / (√‘(𝑘 − 1))) = (2 / (√‘((𝐴 + 1) − 1))))
129 nnz 12614 . . . . 5 (𝐴 ∈ ℕ → 𝐴 ∈ ℤ)
130 eluzp1p1 12885 . . . . . . 7 (𝐴 ∈ (ℤ‘1) → (𝐴 + 1) ∈ (ℤ‘(1 + 1)))
131 nnuz 12900 . . . . . . 7 ℕ = (ℤ‘1)
132130, 131eleq2s 2853 . . . . . 6 (𝐴 ∈ ℕ → (𝐴 + 1) ∈ (ℤ‘(1 + 1)))
133 df-2 12308 . . . . . . 7 2 = (1 + 1)
134133fveq2i 6884 . . . . . 6 (ℤ‘2) = (ℤ‘(1 + 1))
135132, 134eleqtrrdi 2846 . . . . 5 (𝐴 ∈ ℕ → (𝐴 + 1) ∈ (ℤ‘2))
136 elfzuz 13542 . . . . . . . . . . 11 (𝑘 ∈ (2...(𝐴 + 1)) → 𝑘 ∈ (ℤ‘2))
137 uz2m1nn 12944 . . . . . . . . . . 11 (𝑘 ∈ (ℤ‘2) → (𝑘 − 1) ∈ ℕ)
138136, 137syl 17 . . . . . . . . . 10 (𝑘 ∈ (2...(𝐴 + 1)) → (𝑘 − 1) ∈ ℕ)
139138adantl 481 . . . . . . . . 9 ((𝐴 ∈ ℕ ∧ 𝑘 ∈ (2...(𝐴 + 1))) → (𝑘 − 1) ∈ ℕ)
140139nnrpd 13054 . . . . . . . 8 ((𝐴 ∈ ℕ ∧ 𝑘 ∈ (2...(𝐴 + 1))) → (𝑘 − 1) ∈ ℝ+)
141140rpsqrtcld 15435 . . . . . . 7 ((𝐴 ∈ ℕ ∧ 𝑘 ∈ (2...(𝐴 + 1))) → (√‘(𝑘 − 1)) ∈ ℝ+)
142 rerpdivcl 13044 . . . . . . 7 ((2 ∈ ℝ ∧ (√‘(𝑘 − 1)) ∈ ℝ+) → (2 / (√‘(𝑘 − 1))) ∈ ℝ)
14314, 141, 142sylancr 587 . . . . . 6 ((𝐴 ∈ ℕ ∧ 𝑘 ∈ (2...(𝐴 + 1))) → (2 / (√‘(𝑘 − 1))) ∈ ℝ)
144143recnd 11268 . . . . 5 ((𝐴 ∈ ℕ ∧ 𝑘 ∈ (2...(𝐴 + 1))) → (2 / (√‘(𝑘 − 1))) ∈ ℂ)
145115, 117, 126, 128, 129, 135, 144telfsum 15825 . . . 4 (𝐴 ∈ ℕ → Σ𝑛 ∈ (2...𝐴)((2 / (√‘(𝑛 − 1))) − (2 / (√‘((𝑛 + 1) − 1)))) = (2 − (2 / (√‘((𝐴 + 1) − 1)))))
146 pncan 11493 . . . . . . . . 9 ((𝑛 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝑛 + 1) − 1) = 𝑛)
14731, 32, 146sylancl 586 . . . . . . . 8 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → ((𝑛 + 1) − 1) = 𝑛)
148147fveq2d 6885 . . . . . . 7 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (√‘((𝑛 + 1) − 1)) = (√‘𝑛))
149148oveq2d 7426 . . . . . 6 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → (2 / (√‘((𝑛 + 1) − 1))) = (2 / (√‘𝑛)))
150149oveq2d 7426 . . . . 5 ((𝐴 ∈ ℕ ∧ 𝑛 ∈ (2...𝐴)) → ((2 / (√‘(𝑛 − 1))) − (2 / (√‘((𝑛 + 1) − 1)))) = ((2 / (√‘(𝑛 − 1))) − (2 / (√‘𝑛))))
151150sumeq2dv 15723 . . . 4 (𝐴 ∈ ℕ → Σ𝑛 ∈ (2...𝐴)((2 / (√‘(𝑛 − 1))) − (2 / (√‘((𝑛 + 1) − 1)))) = Σ𝑛 ∈ (2...𝐴)((2 / (√‘(𝑛 − 1))) − (2 / (√‘𝑛))))
152 nncn 12253 . . . . . . . 8 (𝐴 ∈ ℕ → 𝐴 ∈ ℂ)
153 pncan 11493 . . . . . . . 8 ((𝐴 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝐴 + 1) − 1) = 𝐴)
154152, 32, 153sylancl 586 . . . . . . 7 (𝐴 ∈ ℕ → ((𝐴 + 1) − 1) = 𝐴)
155154fveq2d 6885 . . . . . 6 (𝐴 ∈ ℕ → (√‘((𝐴 + 1) − 1)) = (√‘𝐴))
156155oveq2d 7426 . . . . 5 (𝐴 ∈ ℕ → (2 / (√‘((𝐴 + 1) − 1))) = (2 / (√‘𝐴)))
157156oveq2d 7426 . . . 4 (𝐴 ∈ ℕ → (2 − (2 / (√‘((𝐴 + 1) − 1)))) = (2 − (2 / (√‘𝐴))))
158145, 151, 1573eqtr3d 2779 . . 3 (𝐴 ∈ ℕ → Σ𝑛 ∈ (2...𝐴)((2 / (√‘(𝑛 − 1))) − (2 / (√‘𝑛))) = (2 − (2 / (√‘𝐴))))
159 2rp 13018 . . . . . 6 2 ∈ ℝ+
160 nnrp 13025 . . . . . . 7 (𝐴 ∈ ℕ → 𝐴 ∈ ℝ+)
161160rpsqrtcld 15435 . . . . . 6 (𝐴 ∈ ℕ → (√‘𝐴) ∈ ℝ+)
162 rpdivcl 13039 . . . . . 6 ((2 ∈ ℝ+ ∧ (√‘𝐴) ∈ ℝ+) → (2 / (√‘𝐴)) ∈ ℝ+)
163159, 161, 162sylancr 587 . . . . 5 (𝐴 ∈ ℕ → (2 / (√‘𝐴)) ∈ ℝ+)
164163rpge0d 13060 . . . 4 (𝐴 ∈ ℕ → 0 ≤ (2 / (√‘𝐴)))
165163rpred 13056 . . . . 5 (𝐴 ∈ ℕ → (2 / (√‘𝐴)) ∈ ℝ)
166 subge02 11758 . . . . 5 ((2 ∈ ℝ ∧ (2 / (√‘𝐴)) ∈ ℝ) → (0 ≤ (2 / (√‘𝐴)) ↔ (2 − (2 / (√‘𝐴))) ≤ 2))
16714, 165, 166sylancr 587 . . . 4 (𝐴 ∈ ℕ → (0 ≤ (2 / (√‘𝐴)) ↔ (2 − (2 / (√‘𝐴))) ≤ 2))
168164, 167mpbid 232 . . 3 (𝐴 ∈ ℕ → (2 − (2 / (√‘𝐴))) ≤ 2)
169158, 168eqbrtrd 5146 . 2 (𝐴 ∈ ℕ → Σ𝑛 ∈ (2...𝐴)((2 / (√‘(𝑛 − 1))) − (2 / (√‘𝑛))) ≤ 2)
17013, 23, 24, 113, 169letrd 11397 1 (𝐴 ∈ ℕ → Σ𝑛 ∈ (2...𝐴)((log‘𝑛) / (𝑛 · (𝑛 − 1))) ≤ 2)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 206  wa 395   = wceq 1540  wcel 2109  wne 2933   class class class wbr 5124  cfv 6536  (class class class)co 7410  cc 11132  cr 11133  0cc0 11134  1c1 11135   + caddc 11137   · cmul 11139   < clt 11274  cle 11275  cmin 11471   / cdiv 11899  cn 12245  2c2 12300  cuz 12857  +crp 13013  ...cfz 13529  cexp 14084  csqrt 15257  Σcsu 15707  logclog 26520
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2708  ax-rep 5254  ax-sep 5271  ax-nul 5281  ax-pow 5340  ax-pr 5407  ax-un 7734  ax-inf2 9660  ax-cnex 11190  ax-resscn 11191  ax-1cn 11192  ax-icn 11193  ax-addcl 11194  ax-addrcl 11195  ax-mulcl 11196  ax-mulrcl 11197  ax-mulcom 11198  ax-addass 11199  ax-mulass 11200  ax-distr 11201  ax-i2m1 11202  ax-1ne0 11203  ax-1rid 11204  ax-rnegex 11205  ax-rrecex 11206  ax-cnre 11207  ax-pre-lttri 11208  ax-pre-lttrn 11209  ax-pre-ltadd 11210  ax-pre-mulgt0 11211  ax-pre-sup 11212  ax-addf 11213
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2540  df-eu 2569  df-clab 2715  df-cleq 2728  df-clel 2810  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3062  df-rmo 3364  df-reu 3365  df-rab 3421  df-v 3466  df-sbc 3771  df-csb 3880  df-dif 3934  df-un 3936  df-in 3938  df-ss 3948  df-pss 3951  df-nul 4314  df-if 4506  df-pw 4582  df-sn 4607  df-pr 4609  df-tp 4611  df-op 4613  df-uni 4889  df-int 4928  df-iun 4974  df-iin 4975  df-br 5125  df-opab 5187  df-mpt 5207  df-tr 5235  df-id 5553  df-eprel 5558  df-po 5566  df-so 5567  df-fr 5611  df-se 5612  df-we 5613  df-xp 5665  df-rel 5666  df-cnv 5667  df-co 5668  df-dm 5669  df-rn 5670  df-res 5671  df-ima 5672  df-pred 6295  df-ord 6360  df-on 6361  df-lim 6362  df-suc 6363  df-iota 6489  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-isom 6545  df-riota 7367  df-ov 7413  df-oprab 7414  df-mpo 7415  df-of 7676  df-om 7867  df-1st 7993  df-2nd 7994  df-supp 8165  df-frecs 8285  df-wrecs 8316  df-recs 8390  df-rdg 8429  df-1o 8485  df-2o 8486  df-er 8724  df-map 8847  df-pm 8848  df-ixp 8917  df-en 8965  df-dom 8966  df-sdom 8967  df-fin 8968  df-fsupp 9379  df-fi 9428  df-sup 9459  df-inf 9460  df-oi 9529  df-card 9958  df-pnf 11276  df-mnf 11277  df-xr 11278  df-ltxr 11279  df-le 11280  df-sub 11473  df-neg 11474  df-div 11900  df-nn 12246  df-2 12308  df-3 12309  df-4 12310  df-5 12311  df-6 12312  df-7 12313  df-8 12314  df-9 12315  df-n0 12507  df-z 12594  df-dec 12714  df-uz 12858  df-q 12970  df-rp 13014  df-xneg 13133  df-xadd 13134  df-xmul 13135  df-ioo 13371  df-ioc 13372  df-ico 13373  df-icc 13374  df-fz 13530  df-fzo 13677  df-fl 13814  df-mod 13892  df-seq 14025  df-exp 14085  df-fac 14297  df-bc 14326  df-hash 14354  df-shft 15091  df-cj 15123  df-re 15124  df-im 15125  df-sqrt 15259  df-abs 15260  df-limsup 15492  df-clim 15509  df-rlim 15510  df-sum 15708  df-ef 16088  df-sin 16090  df-cos 16091  df-tan 16092  df-pi 16093  df-struct 17171  df-sets 17188  df-slot 17206  df-ndx 17218  df-base 17234  df-ress 17257  df-plusg 17289  df-mulr 17290  df-starv 17291  df-sca 17292  df-vsca 17293  df-ip 17294  df-tset 17295  df-ple 17296  df-ds 17298  df-unif 17299  df-hom 17300  df-cco 17301  df-rest 17441  df-topn 17442  df-0g 17460  df-gsum 17461  df-topgen 17462  df-pt 17463  df-prds 17466  df-xrs 17521  df-qtop 17526  df-imas 17527  df-xps 17529  df-mre 17603  df-mrc 17604  df-acs 17606  df-mgm 18623  df-sgrp 18702  df-mnd 18718  df-submnd 18767  df-mulg 19056  df-cntz 19305  df-cmn 19768  df-psmet 21312  df-xmet 21313  df-met 21314  df-bl 21315  df-mopn 21316  df-fbas 21317  df-fg 21318  df-cnfld 21321  df-top 22837  df-topon 22854  df-topsp 22876  df-bases 22889  df-cld 22962  df-ntr 22963  df-cls 22964  df-nei 23041  df-lp 23079  df-perf 23080  df-cn 23170  df-cnp 23171  df-haus 23258  df-cmp 23330  df-tx 23505  df-hmeo 23698  df-fil 23789  df-fm 23881  df-flim 23882  df-flf 23883  df-xms 24264  df-ms 24265  df-tms 24266  df-cncf 24827  df-limc 25824  df-dv 25825  df-log 26522  df-cxp 26523
This theorem is referenced by:  rplogsumlem2  27453
  Copyright terms: Public domain W3C validator