Users' Mathboxes Mathbox for Glauco Siliprandi < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  stirlinglem12 Structured version   Visualization version   GIF version

Theorem stirlinglem12 43191
Description: The sequence 𝐵 is bounded below. (Contributed by Glauco Siliprandi, 29-Jun-2017.)
Hypotheses
Ref Expression
stirlinglem12.1 𝐴 = (𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
stirlinglem12.2 𝐵 = (𝑛 ∈ ℕ ↦ (log‘(𝐴𝑛)))
stirlinglem12.3 𝐹 = (𝑛 ∈ ℕ ↦ (1 / (𝑛 · (𝑛 + 1))))
Assertion
Ref Expression
stirlinglem12 (𝑁 ∈ ℕ → ((𝐵‘1) − (1 / 4)) ≤ (𝐵𝑁))
Distinct variable group:   𝑛,𝑁
Allowed substitution hints:   𝐴(𝑛)   𝐵(𝑛)   𝐹(𝑛)

Proof of Theorem stirlinglem12
Dummy variables 𝑖 𝑗 𝑘 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 1nn 11730 . . . . 5 1 ∈ ℕ
2 stirlinglem12.1 . . . . . . 7 𝐴 = (𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
32stirlinglem2 43181 . . . . . 6 (1 ∈ ℕ → (𝐴‘1) ∈ ℝ+)
4 relogcl 25322 . . . . . 6 ((𝐴‘1) ∈ ℝ+ → (log‘(𝐴‘1)) ∈ ℝ)
51, 3, 4mp2b 10 . . . . 5 (log‘(𝐴‘1)) ∈ ℝ
6 nfcv 2900 . . . . . 6 𝑛1
7 nfcv 2900 . . . . . . 7 𝑛log
8 nfmpt1 5129 . . . . . . . . 9 𝑛(𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
92, 8nfcxfr 2898 . . . . . . . 8 𝑛𝐴
109, 6nffv 6687 . . . . . . 7 𝑛(𝐴‘1)
117, 10nffv 6687 . . . . . 6 𝑛(log‘(𝐴‘1))
12 2fveq3 6682 . . . . . 6 (𝑛 = 1 → (log‘(𝐴𝑛)) = (log‘(𝐴‘1)))
13 stirlinglem12.2 . . . . . 6 𝐵 = (𝑛 ∈ ℕ ↦ (log‘(𝐴𝑛)))
146, 11, 12, 13fvmptf 6799 . . . . 5 ((1 ∈ ℕ ∧ (log‘(𝐴‘1)) ∈ ℝ) → (𝐵‘1) = (log‘(𝐴‘1)))
151, 5, 14mp2an 692 . . . 4 (𝐵‘1) = (log‘(𝐴‘1))
1615, 5eqeltri 2830 . . 3 (𝐵‘1) ∈ ℝ
1716a1i 11 . 2 (𝑁 ∈ ℕ → (𝐵‘1) ∈ ℝ)
182stirlinglem2 43181 . . . . 5 (𝑁 ∈ ℕ → (𝐴𝑁) ∈ ℝ+)
1918relogcld 25369 . . . 4 (𝑁 ∈ ℕ → (log‘(𝐴𝑁)) ∈ ℝ)
20 nfcv 2900 . . . . 5 𝑛𝑁
219, 20nffv 6687 . . . . . 6 𝑛(𝐴𝑁)
227, 21nffv 6687 . . . . 5 𝑛(log‘(𝐴𝑁))
23 2fveq3 6682 . . . . 5 (𝑛 = 𝑁 → (log‘(𝐴𝑛)) = (log‘(𝐴𝑁)))
2420, 22, 23, 13fvmptf 6799 . . . 4 ((𝑁 ∈ ℕ ∧ (log‘(𝐴𝑁)) ∈ ℝ) → (𝐵𝑁) = (log‘(𝐴𝑁)))
2519, 24mpdan 687 . . 3 (𝑁 ∈ ℕ → (𝐵𝑁) = (log‘(𝐴𝑁)))
2625, 19eqeltrd 2834 . 2 (𝑁 ∈ ℕ → (𝐵𝑁) ∈ ℝ)
27 4re 11803 . . . 4 4 ∈ ℝ
28 4ne0 11827 . . . 4 4 ≠ 0
2927, 28rereccli 11486 . . 3 (1 / 4) ∈ ℝ
3029a1i 11 . 2 (𝑁 ∈ ℕ → (1 / 4) ∈ ℝ)
31 fveq2 6677 . . . . 5 (𝑘 = 𝑗 → (𝐵𝑘) = (𝐵𝑗))
32 fveq2 6677 . . . . 5 (𝑘 = (𝑗 + 1) → (𝐵𝑘) = (𝐵‘(𝑗 + 1)))
33 fveq2 6677 . . . . 5 (𝑘 = 1 → (𝐵𝑘) = (𝐵‘1))
34 fveq2 6677 . . . . 5 (𝑘 = 𝑁 → (𝐵𝑘) = (𝐵𝑁))
35 elnnuz 12367 . . . . . 6 (𝑁 ∈ ℕ ↔ 𝑁 ∈ (ℤ‘1))
3635biimpi 219 . . . . 5 (𝑁 ∈ ℕ → 𝑁 ∈ (ℤ‘1))
37 elfznn 13030 . . . . . . . 8 (𝑘 ∈ (1...𝑁) → 𝑘 ∈ ℕ)
382stirlinglem2 43181 . . . . . . . . . 10 (𝑘 ∈ ℕ → (𝐴𝑘) ∈ ℝ+)
3937, 38syl 17 . . . . . . . . 9 (𝑘 ∈ (1...𝑁) → (𝐴𝑘) ∈ ℝ+)
4039relogcld 25369 . . . . . . . 8 (𝑘 ∈ (1...𝑁) → (log‘(𝐴𝑘)) ∈ ℝ)
41 nfcv 2900 . . . . . . . . 9 𝑛𝑘
429, 41nffv 6687 . . . . . . . . . 10 𝑛(𝐴𝑘)
437, 42nffv 6687 . . . . . . . . 9 𝑛(log‘(𝐴𝑘))
44 2fveq3 6682 . . . . . . . . 9 (𝑛 = 𝑘 → (log‘(𝐴𝑛)) = (log‘(𝐴𝑘)))
4541, 43, 44, 13fvmptf 6799 . . . . . . . 8 ((𝑘 ∈ ℕ ∧ (log‘(𝐴𝑘)) ∈ ℝ) → (𝐵𝑘) = (log‘(𝐴𝑘)))
4637, 40, 45syl2anc 587 . . . . . . 7 (𝑘 ∈ (1...𝑁) → (𝐵𝑘) = (log‘(𝐴𝑘)))
4746adantl 485 . . . . . 6 ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (1...𝑁)) → (𝐵𝑘) = (log‘(𝐴𝑘)))
4839rpcnd 12519 . . . . . . . 8 (𝑘 ∈ (1...𝑁) → (𝐴𝑘) ∈ ℂ)
4948adantl 485 . . . . . . 7 ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (1...𝑁)) → (𝐴𝑘) ∈ ℂ)
5038rpne0d 12522 . . . . . . . . 9 (𝑘 ∈ ℕ → (𝐴𝑘) ≠ 0)
5137, 50syl 17 . . . . . . . 8 (𝑘 ∈ (1...𝑁) → (𝐴𝑘) ≠ 0)
5251adantl 485 . . . . . . 7 ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (1...𝑁)) → (𝐴𝑘) ≠ 0)
5349, 52logcld 25317 . . . . . 6 ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (1...𝑁)) → (log‘(𝐴𝑘)) ∈ ℂ)
5447, 53eqeltrd 2834 . . . . 5 ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (1...𝑁)) → (𝐵𝑘) ∈ ℂ)
5531, 32, 33, 34, 36, 54telfsumo 15253 . . . 4 (𝑁 ∈ ℕ → Σ𝑗 ∈ (1..^𝑁)((𝐵𝑗) − (𝐵‘(𝑗 + 1))) = ((𝐵‘1) − (𝐵𝑁)))
56 nnz 12088 . . . . . 6 (𝑁 ∈ ℕ → 𝑁 ∈ ℤ)
57 fzoval 13133 . . . . . 6 (𝑁 ∈ ℤ → (1..^𝑁) = (1...(𝑁 − 1)))
5856, 57syl 17 . . . . 5 (𝑁 ∈ ℕ → (1..^𝑁) = (1...(𝑁 − 1)))
5958sumeq1d 15154 . . . 4 (𝑁 ∈ ℕ → Σ𝑗 ∈ (1..^𝑁)((𝐵𝑗) − (𝐵‘(𝑗 + 1))) = Σ𝑗 ∈ (1...(𝑁 − 1))((𝐵𝑗) − (𝐵‘(𝑗 + 1))))
6055, 59eqtr3d 2776 . . 3 (𝑁 ∈ ℕ → ((𝐵‘1) − (𝐵𝑁)) = Σ𝑗 ∈ (1...(𝑁 − 1))((𝐵𝑗) − (𝐵‘(𝑗 + 1))))
61 fzfid 13435 . . . . 5 (𝑁 ∈ ℕ → (1...(𝑁 − 1)) ∈ Fin)
62 elfznn 13030 . . . . . . . 8 (𝑗 ∈ (1...(𝑁 − 1)) → 𝑗 ∈ ℕ)
6362adantl 485 . . . . . . 7 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (1...(𝑁 − 1))) → 𝑗 ∈ ℕ)
642stirlinglem2 43181 . . . . . . . . . 10 (𝑗 ∈ ℕ → (𝐴𝑗) ∈ ℝ+)
6564relogcld 25369 . . . . . . . . 9 (𝑗 ∈ ℕ → (log‘(𝐴𝑗)) ∈ ℝ)
66 nfcv 2900 . . . . . . . . . 10 𝑛𝑗
679, 66nffv 6687 . . . . . . . . . . 11 𝑛(𝐴𝑗)
687, 67nffv 6687 . . . . . . . . . 10 𝑛(log‘(𝐴𝑗))
69 2fveq3 6682 . . . . . . . . . 10 (𝑛 = 𝑗 → (log‘(𝐴𝑛)) = (log‘(𝐴𝑗)))
7066, 68, 69, 13fvmptf 6799 . . . . . . . . 9 ((𝑗 ∈ ℕ ∧ (log‘(𝐴𝑗)) ∈ ℝ) → (𝐵𝑗) = (log‘(𝐴𝑗)))
7165, 70mpdan 687 . . . . . . . 8 (𝑗 ∈ ℕ → (𝐵𝑗) = (log‘(𝐴𝑗)))
7271, 65eqeltrd 2834 . . . . . . 7 (𝑗 ∈ ℕ → (𝐵𝑗) ∈ ℝ)
7363, 72syl 17 . . . . . 6 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (1...(𝑁 − 1))) → (𝐵𝑗) ∈ ℝ)
74 peano2nn 11731 . . . . . . . . . 10 (𝑗 ∈ ℕ → (𝑗 + 1) ∈ ℕ)
752stirlinglem2 43181 . . . . . . . . . . . 12 ((𝑗 + 1) ∈ ℕ → (𝐴‘(𝑗 + 1)) ∈ ℝ+)
7674, 75syl 17 . . . . . . . . . . 11 (𝑗 ∈ ℕ → (𝐴‘(𝑗 + 1)) ∈ ℝ+)
7776relogcld 25369 . . . . . . . . . 10 (𝑗 ∈ ℕ → (log‘(𝐴‘(𝑗 + 1))) ∈ ℝ)
78 nfcv 2900 . . . . . . . . . . 11 𝑛(𝑗 + 1)
799, 78nffv 6687 . . . . . . . . . . . 12 𝑛(𝐴‘(𝑗 + 1))
807, 79nffv 6687 . . . . . . . . . . 11 𝑛(log‘(𝐴‘(𝑗 + 1)))
81 2fveq3 6682 . . . . . . . . . . 11 (𝑛 = (𝑗 + 1) → (log‘(𝐴𝑛)) = (log‘(𝐴‘(𝑗 + 1))))
8278, 80, 81, 13fvmptf 6799 . . . . . . . . . 10 (((𝑗 + 1) ∈ ℕ ∧ (log‘(𝐴‘(𝑗 + 1))) ∈ ℝ) → (𝐵‘(𝑗 + 1)) = (log‘(𝐴‘(𝑗 + 1))))
8374, 77, 82syl2anc 587 . . . . . . . . 9 (𝑗 ∈ ℕ → (𝐵‘(𝑗 + 1)) = (log‘(𝐴‘(𝑗 + 1))))
8483, 77eqeltrd 2834 . . . . . . . 8 (𝑗 ∈ ℕ → (𝐵‘(𝑗 + 1)) ∈ ℝ)
8562, 84syl 17 . . . . . . 7 (𝑗 ∈ (1...(𝑁 − 1)) → (𝐵‘(𝑗 + 1)) ∈ ℝ)
8685adantl 485 . . . . . 6 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (1...(𝑁 − 1))) → (𝐵‘(𝑗 + 1)) ∈ ℝ)
8773, 86resubcld 11149 . . . . 5 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (1...(𝑁 − 1))) → ((𝐵𝑗) − (𝐵‘(𝑗 + 1))) ∈ ℝ)
8861, 87fsumrecl 15187 . . . 4 (𝑁 ∈ ℕ → Σ𝑗 ∈ (1...(𝑁 − 1))((𝐵𝑗) − (𝐵‘(𝑗 + 1))) ∈ ℝ)
8929a1i 11 . . . . . 6 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (1...(𝑁 − 1))) → (1 / 4) ∈ ℝ)
9062nnred 11734 . . . . . . . . 9 (𝑗 ∈ (1...(𝑁 − 1)) → 𝑗 ∈ ℝ)
91 1red 10723 . . . . . . . . . 10 (𝑗 ∈ (1...(𝑁 − 1)) → 1 ∈ ℝ)
9290, 91readdcld 10751 . . . . . . . . 9 (𝑗 ∈ (1...(𝑁 − 1)) → (𝑗 + 1) ∈ ℝ)
9390, 92remulcld 10752 . . . . . . . 8 (𝑗 ∈ (1...(𝑁 − 1)) → (𝑗 · (𝑗 + 1)) ∈ ℝ)
9490recnd 10750 . . . . . . . . 9 (𝑗 ∈ (1...(𝑁 − 1)) → 𝑗 ∈ ℂ)
95 1cnd 10717 . . . . . . . . . 10 (𝑗 ∈ (1...(𝑁 − 1)) → 1 ∈ ℂ)
9694, 95addcld 10741 . . . . . . . . 9 (𝑗 ∈ (1...(𝑁 − 1)) → (𝑗 + 1) ∈ ℂ)
9762nnne0d 11769 . . . . . . . . 9 (𝑗 ∈ (1...(𝑁 − 1)) → 𝑗 ≠ 0)
9874nnne0d 11769 . . . . . . . . . 10 (𝑗 ∈ ℕ → (𝑗 + 1) ≠ 0)
9962, 98syl 17 . . . . . . . . 9 (𝑗 ∈ (1...(𝑁 − 1)) → (𝑗 + 1) ≠ 0)
10094, 96, 97, 99mulne0d 11373 . . . . . . . 8 (𝑗 ∈ (1...(𝑁 − 1)) → (𝑗 · (𝑗 + 1)) ≠ 0)
10193, 100rereccld 11548 . . . . . . 7 (𝑗 ∈ (1...(𝑁 − 1)) → (1 / (𝑗 · (𝑗 + 1))) ∈ ℝ)
102101adantl 485 . . . . . 6 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (1...(𝑁 − 1))) → (1 / (𝑗 · (𝑗 + 1))) ∈ ℝ)
10389, 102remulcld 10752 . . . . 5 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (1...(𝑁 − 1))) → ((1 / 4) · (1 / (𝑗 · (𝑗 + 1)))) ∈ ℝ)
10461, 103fsumrecl 15187 . . . 4 (𝑁 ∈ ℕ → Σ𝑗 ∈ (1...(𝑁 − 1))((1 / 4) · (1 / (𝑗 · (𝑗 + 1)))) ∈ ℝ)
105 eqid 2739 . . . . . . 7 (𝑖 ∈ ℕ ↦ ((1 / ((2 · 𝑖) + 1)) · ((1 / ((2 · 𝑗) + 1))↑(2 · 𝑖)))) = (𝑖 ∈ ℕ ↦ ((1 / ((2 · 𝑖) + 1)) · ((1 / ((2 · 𝑗) + 1))↑(2 · 𝑖))))
106 eqid 2739 . . . . . . 7 (𝑖 ∈ ℕ ↦ ((1 / (((2 · 𝑗) + 1)↑2))↑𝑖)) = (𝑖 ∈ ℕ ↦ ((1 / (((2 · 𝑗) + 1)↑2))↑𝑖))
1072, 13, 105, 106stirlinglem10 43189 . . . . . 6 (𝑗 ∈ ℕ → ((𝐵𝑗) − (𝐵‘(𝑗 + 1))) ≤ ((1 / 4) · (1 / (𝑗 · (𝑗 + 1)))))
10863, 107syl 17 . . . . 5 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (1...(𝑁 − 1))) → ((𝐵𝑗) − (𝐵‘(𝑗 + 1))) ≤ ((1 / 4) · (1 / (𝑗 · (𝑗 + 1)))))
10961, 87, 103, 108fsumle 15250 . . . 4 (𝑁 ∈ ℕ → Σ𝑗 ∈ (1...(𝑁 − 1))((𝐵𝑗) − (𝐵‘(𝑗 + 1))) ≤ Σ𝑗 ∈ (1...(𝑁 − 1))((1 / 4) · (1 / (𝑗 · (𝑗 + 1)))))
11061, 102fsumrecl 15187 . . . . . 6 (𝑁 ∈ ℕ → Σ𝑗 ∈ (1...(𝑁 − 1))(1 / (𝑗 · (𝑗 + 1))) ∈ ℝ)
111 1red 10723 . . . . . 6 (𝑁 ∈ ℕ → 1 ∈ ℝ)
112 4pos 11826 . . . . . . . . 9 0 < 4
11327, 112elrpii 12478 . . . . . . . 8 4 ∈ ℝ+
114113a1i 11 . . . . . . 7 (𝑁 ∈ ℕ → 4 ∈ ℝ+)
115 0red 10725 . . . . . . . 8 (𝑁 ∈ ℕ → 0 ∈ ℝ)
116 0lt1 11243 . . . . . . . . 9 0 < 1
117116a1i 11 . . . . . . . 8 (𝑁 ∈ ℕ → 0 < 1)
118115, 111, 117ltled 10869 . . . . . . 7 (𝑁 ∈ ℕ → 0 ≤ 1)
119111, 114, 118divge0d 12557 . . . . . 6 (𝑁 ∈ ℕ → 0 ≤ (1 / 4))
120 eqid 2739 . . . . . . . . . 10 (ℤ𝑁) = (ℤ𝑁)
121 eluznn 12403 . . . . . . . . . . 11 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → 𝑗 ∈ ℕ)
122 stirlinglem12.3 . . . . . . . . . . . . 13 𝐹 = (𝑛 ∈ ℕ ↦ (1 / (𝑛 · (𝑛 + 1))))
123122a1i 11 . . . . . . . . . . . 12 (𝑗 ∈ ℕ → 𝐹 = (𝑛 ∈ ℕ ↦ (1 / (𝑛 · (𝑛 + 1)))))
124 simpr 488 . . . . . . . . . . . . . 14 ((𝑗 ∈ ℕ ∧ 𝑛 = 𝑗) → 𝑛 = 𝑗)
125124oveq1d 7188 . . . . . . . . . . . . . 14 ((𝑗 ∈ ℕ ∧ 𝑛 = 𝑗) → (𝑛 + 1) = (𝑗 + 1))
126124, 125oveq12d 7191 . . . . . . . . . . . . 13 ((𝑗 ∈ ℕ ∧ 𝑛 = 𝑗) → (𝑛 · (𝑛 + 1)) = (𝑗 · (𝑗 + 1)))
127126oveq2d 7189 . . . . . . . . . . . 12 ((𝑗 ∈ ℕ ∧ 𝑛 = 𝑗) → (1 / (𝑛 · (𝑛 + 1))) = (1 / (𝑗 · (𝑗 + 1))))
128 id 22 . . . . . . . . . . . 12 (𝑗 ∈ ℕ → 𝑗 ∈ ℕ)
129 nnre 11726 . . . . . . . . . . . . . 14 (𝑗 ∈ ℕ → 𝑗 ∈ ℝ)
130 1red 10723 . . . . . . . . . . . . . . 15 (𝑗 ∈ ℕ → 1 ∈ ℝ)
131129, 130readdcld 10751 . . . . . . . . . . . . . 14 (𝑗 ∈ ℕ → (𝑗 + 1) ∈ ℝ)
132129, 131remulcld 10752 . . . . . . . . . . . . 13 (𝑗 ∈ ℕ → (𝑗 · (𝑗 + 1)) ∈ ℝ)
133 nncn 11727 . . . . . . . . . . . . . 14 (𝑗 ∈ ℕ → 𝑗 ∈ ℂ)
134 1cnd 10717 . . . . . . . . . . . . . . 15 (𝑗 ∈ ℕ → 1 ∈ ℂ)
135133, 134addcld 10741 . . . . . . . . . . . . . 14 (𝑗 ∈ ℕ → (𝑗 + 1) ∈ ℂ)
136 nnne0 11753 . . . . . . . . . . . . . 14 (𝑗 ∈ ℕ → 𝑗 ≠ 0)
137133, 135, 136, 98mulne0d 11373 . . . . . . . . . . . . 13 (𝑗 ∈ ℕ → (𝑗 · (𝑗 + 1)) ≠ 0)
138132, 137rereccld 11548 . . . . . . . . . . . 12 (𝑗 ∈ ℕ → (1 / (𝑗 · (𝑗 + 1))) ∈ ℝ)
139123, 127, 128, 138fvmptd 6785 . . . . . . . . . . 11 (𝑗 ∈ ℕ → (𝐹𝑗) = (1 / (𝑗 · (𝑗 + 1))))
140121, 139syl 17 . . . . . . . . . 10 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → (𝐹𝑗) = (1 / (𝑗 · (𝑗 + 1))))
141121nnred 11734 . . . . . . . . . . . 12 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → 𝑗 ∈ ℝ)
142 1red 10723 . . . . . . . . . . . . 13 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → 1 ∈ ℝ)
143141, 142readdcld 10751 . . . . . . . . . . . 12 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → (𝑗 + 1) ∈ ℝ)
144141, 143remulcld 10752 . . . . . . . . . . 11 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → (𝑗 · (𝑗 + 1)) ∈ ℝ)
145141recnd 10750 . . . . . . . . . . . 12 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → 𝑗 ∈ ℂ)
146 1cnd 10717 . . . . . . . . . . . . 13 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → 1 ∈ ℂ)
147145, 146addcld 10741 . . . . . . . . . . . 12 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → (𝑗 + 1) ∈ ℂ)
148121nnne0d 11769 . . . . . . . . . . . 12 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → 𝑗 ≠ 0)
149121, 98syl 17 . . . . . . . . . . . 12 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → (𝑗 + 1) ≠ 0)
150145, 147, 148, 149mulne0d 11373 . . . . . . . . . . 11 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → (𝑗 · (𝑗 + 1)) ≠ 0)
151144, 150rereccld 11548 . . . . . . . . . 10 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → (1 / (𝑗 · (𝑗 + 1))) ∈ ℝ)
152 seqeq1 13466 . . . . . . . . . . . . 13 (𝑁 = 1 → seq𝑁( + , 𝐹) = seq1( + , 𝐹))
153122trireciplem 15313 . . . . . . . . . . . . . 14 seq1( + , 𝐹) ⇝ 1
154 climrel 14942 . . . . . . . . . . . . . . 15 Rel ⇝
155154releldmi 5792 . . . . . . . . . . . . . 14 (seq1( + , 𝐹) ⇝ 1 → seq1( + , 𝐹) ∈ dom ⇝ )
156153, 155mp1i 13 . . . . . . . . . . . . 13 (𝑁 = 1 → seq1( + , 𝐹) ∈ dom ⇝ )
157152, 156eqeltrd 2834 . . . . . . . . . . . 12 (𝑁 = 1 → seq𝑁( + , 𝐹) ∈ dom ⇝ )
158157adantl 485 . . . . . . . . . . 11 ((𝑁 ∈ ℕ ∧ 𝑁 = 1) → seq𝑁( + , 𝐹) ∈ dom ⇝ )
159 simpl 486 . . . . . . . . . . . 12 ((𝑁 ∈ ℕ ∧ ¬ 𝑁 = 1) → 𝑁 ∈ ℕ)
160 simpr 488 . . . . . . . . . . . . . 14 ((𝑁 ∈ ℕ ∧ ¬ 𝑁 = 1) → ¬ 𝑁 = 1)
161 elnn1uz2 12410 . . . . . . . . . . . . . . . 16 (𝑁 ∈ ℕ ↔ (𝑁 = 1 ∨ 𝑁 ∈ (ℤ‘2)))
162159, 161sylib 221 . . . . . . . . . . . . . . 15 ((𝑁 ∈ ℕ ∧ ¬ 𝑁 = 1) → (𝑁 = 1 ∨ 𝑁 ∈ (ℤ‘2)))
163162ord 863 . . . . . . . . . . . . . 14 ((𝑁 ∈ ℕ ∧ ¬ 𝑁 = 1) → (¬ 𝑁 = 1 → 𝑁 ∈ (ℤ‘2)))
164160, 163mpd 15 . . . . . . . . . . . . 13 ((𝑁 ∈ ℕ ∧ ¬ 𝑁 = 1) → 𝑁 ∈ (ℤ‘2))
165 uz2m1nn 12408 . . . . . . . . . . . . 13 (𝑁 ∈ (ℤ‘2) → (𝑁 − 1) ∈ ℕ)
166164, 165syl 17 . . . . . . . . . . . 12 ((𝑁 ∈ ℕ ∧ ¬ 𝑁 = 1) → (𝑁 − 1) ∈ ℕ)
167 nncn 11727 . . . . . . . . . . . . . . . . . 18 (𝑁 ∈ ℕ → 𝑁 ∈ ℂ)
168167adantr 484 . . . . . . . . . . . . . . . . 17 ((𝑁 ∈ ℕ ∧ (𝑁 − 1) ∈ ℕ) → 𝑁 ∈ ℂ)
169 1cnd 10717 . . . . . . . . . . . . . . . . 17 ((𝑁 ∈ ℕ ∧ (𝑁 − 1) ∈ ℕ) → 1 ∈ ℂ)
170168, 169npcand 11082 . . . . . . . . . . . . . . . 16 ((𝑁 ∈ ℕ ∧ (𝑁 − 1) ∈ ℕ) → ((𝑁 − 1) + 1) = 𝑁)
171170eqcomd 2745 . . . . . . . . . . . . . . 15 ((𝑁 ∈ ℕ ∧ (𝑁 − 1) ∈ ℕ) → 𝑁 = ((𝑁 − 1) + 1))
172171seqeq1d 13469 . . . . . . . . . . . . . 14 ((𝑁 ∈ ℕ ∧ (𝑁 − 1) ∈ ℕ) → seq𝑁( + , 𝐹) = seq((𝑁 − 1) + 1)( + , 𝐹))
173 nnuz 12366 . . . . . . . . . . . . . . . 16 ℕ = (ℤ‘1)
174 id 22 . . . . . . . . . . . . . . . 16 ((𝑁 − 1) ∈ ℕ → (𝑁 − 1) ∈ ℕ)
175138recnd 10750 . . . . . . . . . . . . . . . . . 18 (𝑗 ∈ ℕ → (1 / (𝑗 · (𝑗 + 1))) ∈ ℂ)
176139, 175eqeltrd 2834 . . . . . . . . . . . . . . . . 17 (𝑗 ∈ ℕ → (𝐹𝑗) ∈ ℂ)
177176adantl 485 . . . . . . . . . . . . . . . 16 (((𝑁 − 1) ∈ ℕ ∧ 𝑗 ∈ ℕ) → (𝐹𝑗) ∈ ℂ)
178153a1i 11 . . . . . . . . . . . . . . . 16 ((𝑁 − 1) ∈ ℕ → seq1( + , 𝐹) ⇝ 1)
179173, 174, 177, 178clim2ser 15107 . . . . . . . . . . . . . . 15 ((𝑁 − 1) ∈ ℕ → seq((𝑁 − 1) + 1)( + , 𝐹) ⇝ (1 − (seq1( + , 𝐹)‘(𝑁 − 1))))
180179adantl 485 . . . . . . . . . . . . . 14 ((𝑁 ∈ ℕ ∧ (𝑁 − 1) ∈ ℕ) → seq((𝑁 − 1) + 1)( + , 𝐹) ⇝ (1 − (seq1( + , 𝐹)‘(𝑁 − 1))))
181172, 180eqbrtrd 5053 . . . . . . . . . . . . 13 ((𝑁 ∈ ℕ ∧ (𝑁 − 1) ∈ ℕ) → seq𝑁( + , 𝐹) ⇝ (1 − (seq1( + , 𝐹)‘(𝑁 − 1))))
182154releldmi 5792 . . . . . . . . . . . . 13 (seq𝑁( + , 𝐹) ⇝ (1 − (seq1( + , 𝐹)‘(𝑁 − 1))) → seq𝑁( + , 𝐹) ∈ dom ⇝ )
183181, 182syl 17 . . . . . . . . . . . 12 ((𝑁 ∈ ℕ ∧ (𝑁 − 1) ∈ ℕ) → seq𝑁( + , 𝐹) ∈ dom ⇝ )
184159, 166, 183syl2anc 587 . . . . . . . . . . 11 ((𝑁 ∈ ℕ ∧ ¬ 𝑁 = 1) → seq𝑁( + , 𝐹) ∈ dom ⇝ )
185158, 184pm2.61dan 813 . . . . . . . . . 10 (𝑁 ∈ ℕ → seq𝑁( + , 𝐹) ∈ dom ⇝ )
186120, 56, 140, 151, 185isumrecl 15216 . . . . . . . . 9 (𝑁 ∈ ℕ → Σ𝑗 ∈ (ℤ𝑁)(1 / (𝑗 · (𝑗 + 1))) ∈ ℝ)
187121nnrpd 12515 . . . . . . . . . . . 12 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → 𝑗 ∈ ℝ+)
188187rpge0d 12521 . . . . . . . . . . . . 13 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → 0 ≤ 𝑗)
189141, 188ge0p1rpd 12547 . . . . . . . . . . . 12 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → (𝑗 + 1) ∈ ℝ+)
190187, 189rpmulcld 12533 . . . . . . . . . . 11 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → (𝑗 · (𝑗 + 1)) ∈ ℝ+)
191118adantr 484 . . . . . . . . . . 11 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → 0 ≤ 1)
192142, 190, 191divge0d 12557 . . . . . . . . . 10 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → 0 ≤ (1 / (𝑗 · (𝑗 + 1))))
193120, 56, 140, 151, 185, 192isumge0 15217 . . . . . . . . 9 (𝑁 ∈ ℕ → 0 ≤ Σ𝑗 ∈ (ℤ𝑁)(1 / (𝑗 · (𝑗 + 1))))
194115, 186, 110, 193leadd2dd 11336 . . . . . . . 8 (𝑁 ∈ ℕ → (Σ𝑗 ∈ (1...(𝑁 − 1))(1 / (𝑗 · (𝑗 + 1))) + 0) ≤ (Σ𝑗 ∈ (1...(𝑁 − 1))(1 / (𝑗 · (𝑗 + 1))) + Σ𝑗 ∈ (ℤ𝑁)(1 / (𝑗 · (𝑗 + 1)))))
195110recnd 10750 . . . . . . . . . 10 (𝑁 ∈ ℕ → Σ𝑗 ∈ (1...(𝑁 − 1))(1 / (𝑗 · (𝑗 + 1))) ∈ ℂ)
196195addid1d 10921 . . . . . . . . 9 (𝑁 ∈ ℕ → (Σ𝑗 ∈ (1...(𝑁 − 1))(1 / (𝑗 · (𝑗 + 1))) + 0) = Σ𝑗 ∈ (1...(𝑁 − 1))(1 / (𝑗 · (𝑗 + 1))))
197196eqcomd 2745 . . . . . . . 8 (𝑁 ∈ ℕ → Σ𝑗 ∈ (1...(𝑁 − 1))(1 / (𝑗 · (𝑗 + 1))) = (Σ𝑗 ∈ (1...(𝑁 − 1))(1 / (𝑗 · (𝑗 + 1))) + 0))
198 id 22 . . . . . . . . 9 (𝑁 ∈ ℕ → 𝑁 ∈ ℕ)
199139adantl 485 . . . . . . . . 9 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ ℕ) → (𝐹𝑗) = (1 / (𝑗 · (𝑗 + 1))))
200133adantl 485 . . . . . . . . . . 11 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ ℕ) → 𝑗 ∈ ℂ)
201 1cnd 10717 . . . . . . . . . . . 12 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ ℕ) → 1 ∈ ℂ)
202200, 201addcld 10741 . . . . . . . . . . 11 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ ℕ) → (𝑗 + 1) ∈ ℂ)
203200, 202mulcld 10742 . . . . . . . . . 10 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ ℕ) → (𝑗 · (𝑗 + 1)) ∈ ℂ)
204136adantl 485 . . . . . . . . . . 11 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ ℕ) → 𝑗 ≠ 0)
20598adantl 485 . . . . . . . . . . 11 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ ℕ) → (𝑗 + 1) ≠ 0)
206200, 202, 204, 205mulne0d 11373 . . . . . . . . . 10 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ ℕ) → (𝑗 · (𝑗 + 1)) ≠ 0)
207203, 206reccld 11490 . . . . . . . . 9 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ ℕ) → (1 / (𝑗 · (𝑗 + 1))) ∈ ℂ)
208153, 155mp1i 13 . . . . . . . . 9 (𝑁 ∈ ℕ → seq1( + , 𝐹) ∈ dom ⇝ )
209173, 120, 198, 199, 207, 208isumsplit 15291 . . . . . . . 8 (𝑁 ∈ ℕ → Σ𝑗 ∈ ℕ (1 / (𝑗 · (𝑗 + 1))) = (Σ𝑗 ∈ (1...(𝑁 − 1))(1 / (𝑗 · (𝑗 + 1))) + Σ𝑗 ∈ (ℤ𝑁)(1 / (𝑗 · (𝑗 + 1)))))
210194, 197, 2093brtr4d 5063 . . . . . . 7 (𝑁 ∈ ℕ → Σ𝑗 ∈ (1...(𝑁 − 1))(1 / (𝑗 · (𝑗 + 1))) ≤ Σ𝑗 ∈ ℕ (1 / (𝑗 · (𝑗 + 1))))
211 1zzd 12097 . . . . . . . . 9 (⊤ → 1 ∈ ℤ)
212139adantl 485 . . . . . . . . 9 ((⊤ ∧ 𝑗 ∈ ℕ) → (𝐹𝑗) = (1 / (𝑗 · (𝑗 + 1))))
213175adantl 485 . . . . . . . . 9 ((⊤ ∧ 𝑗 ∈ ℕ) → (1 / (𝑗 · (𝑗 + 1))) ∈ ℂ)
214153a1i 11 . . . . . . . . 9 (⊤ → seq1( + , 𝐹) ⇝ 1)
215173, 211, 212, 213, 214isumclim 15208 . . . . . . . 8 (⊤ → Σ𝑗 ∈ ℕ (1 / (𝑗 · (𝑗 + 1))) = 1)
216215mptru 1549 . . . . . . 7 Σ𝑗 ∈ ℕ (1 / (𝑗 · (𝑗 + 1))) = 1
217210, 216breqtrdi 5072 . . . . . 6 (𝑁 ∈ ℕ → Σ𝑗 ∈ (1...(𝑁 − 1))(1 / (𝑗 · (𝑗 + 1))) ≤ 1)
218110, 111, 30, 119, 217lemul2ad 11661 . . . . 5 (𝑁 ∈ ℕ → ((1 / 4) · Σ𝑗 ∈ (1...(𝑁 − 1))(1 / (𝑗 · (𝑗 + 1)))) ≤ ((1 / 4) · 1))
219 4cn 11804 . . . . . . . 8 4 ∈ ℂ
220219a1i 11 . . . . . . 7 (𝑁 ∈ ℕ → 4 ∈ ℂ)
221112a1i 11 . . . . . . . 8 (𝑁 ∈ ℕ → 0 < 4)
222221gt0ne0d 11285 . . . . . . 7 (𝑁 ∈ ℕ → 4 ≠ 0)
223220, 222reccld 11490 . . . . . 6 (𝑁 ∈ ℕ → (1 / 4) ∈ ℂ)
224102recnd 10750 . . . . . 6 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (1...(𝑁 − 1))) → (1 / (𝑗 · (𝑗 + 1))) ∈ ℂ)
22561, 223, 224fsummulc2 15235 . . . . 5 (𝑁 ∈ ℕ → ((1 / 4) · Σ𝑗 ∈ (1...(𝑁 − 1))(1 / (𝑗 · (𝑗 + 1)))) = Σ𝑗 ∈ (1...(𝑁 − 1))((1 / 4) · (1 / (𝑗 · (𝑗 + 1)))))
226223mulid1d 10739 . . . . 5 (𝑁 ∈ ℕ → ((1 / 4) · 1) = (1 / 4))
227218, 225, 2263brtr3d 5062 . . . 4 (𝑁 ∈ ℕ → Σ𝑗 ∈ (1...(𝑁 − 1))((1 / 4) · (1 / (𝑗 · (𝑗 + 1)))) ≤ (1 / 4))
22888, 104, 30, 109, 227letrd 10878 . . 3 (𝑁 ∈ ℕ → Σ𝑗 ∈ (1...(𝑁 − 1))((𝐵𝑗) − (𝐵‘(𝑗 + 1))) ≤ (1 / 4))
22960, 228eqbrtrd 5053 . 2 (𝑁 ∈ ℕ → ((𝐵‘1) − (𝐵𝑁)) ≤ (1 / 4))
23017, 26, 30, 229subled 11324 1 (𝑁 ∈ ℕ → ((𝐵‘1) − (1 / 4)) ≤ (𝐵𝑁))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 399  wo 846   = wceq 1542  wtru 1543  wcel 2114  wne 2935   class class class wbr 5031  cmpt 5111  dom cdm 5526  cfv 6340  (class class class)co 7173  cc 10616  cr 10617  0cc0 10618  1c1 10619   + caddc 10621   · cmul 10623   < clt 10756  cle 10757  cmin 10951   / cdiv 11378  cn 11719  2c2 11774  4c4 11776  cz 12065  cuz 12327  +crp 12475  ...cfz 12984  ..^cfzo 13127  seqcseq 13463  cexp 13524  !cfa 13728  csqrt 14685  cli 14934  Σcsu 15138  eceu 15511  logclog 25301
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1975  ax-7 2020  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2162  ax-12 2179  ax-ext 2711  ax-rep 5155  ax-sep 5168  ax-nul 5175  ax-pow 5233  ax-pr 5297  ax-un 7482  ax-inf2 9180  ax-cnex 10674  ax-resscn 10675  ax-1cn 10676  ax-icn 10677  ax-addcl 10678  ax-addrcl 10679  ax-mulcl 10680  ax-mulrcl 10681  ax-mulcom 10682  ax-addass 10683  ax-mulass 10684  ax-distr 10685  ax-i2m1 10686  ax-1ne0 10687  ax-1rid 10688  ax-rnegex 10689  ax-rrecex 10690  ax-cnre 10691  ax-pre-lttri 10692  ax-pre-lttrn 10693  ax-pre-ltadd 10694  ax-pre-mulgt0 10695  ax-pre-sup 10696  ax-addf 10697  ax-mulf 10698
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1787  df-nf 1791  df-sb 2075  df-mo 2541  df-eu 2571  df-clab 2718  df-cleq 2731  df-clel 2812  df-nfc 2882  df-ne 2936  df-nel 3040  df-ral 3059  df-rex 3060  df-reu 3061  df-rmo 3062  df-rab 3063  df-v 3401  df-sbc 3682  df-csb 3792  df-dif 3847  df-un 3849  df-in 3851  df-ss 3861  df-pss 3863  df-nul 4213  df-if 4416  df-pw 4491  df-sn 4518  df-pr 4520  df-tp 4522  df-op 4524  df-uni 4798  df-int 4838  df-iun 4884  df-iin 4885  df-br 5032  df-opab 5094  df-mpt 5112  df-tr 5138  df-id 5430  df-eprel 5435  df-po 5443  df-so 5444  df-fr 5484  df-se 5485  df-we 5486  df-xp 5532  df-rel 5533  df-cnv 5534  df-co 5535  df-dm 5536  df-rn 5537  df-res 5538  df-ima 5539  df-pred 6130  df-ord 6176  df-on 6177  df-lim 6178  df-suc 6179  df-iota 6298  df-fun 6342  df-fn 6343  df-f 6344  df-f1 6345  df-fo 6346  df-f1o 6347  df-fv 6348  df-isom 6349  df-riota 7130  df-ov 7176  df-oprab 7177  df-mpo 7178  df-of 7428  df-om 7603  df-1st 7717  df-2nd 7718  df-supp 7860  df-wrecs 7979  df-recs 8040  df-rdg 8078  df-1o 8134  df-2o 8135  df-oadd 8138  df-er 8323  df-map 8442  df-pm 8443  df-ixp 8511  df-en 8559  df-dom 8560  df-sdom 8561  df-fin 8562  df-fsupp 8910  df-fi 8951  df-sup 8982  df-inf 8983  df-oi 9050  df-card 9444  df-pnf 10758  df-mnf 10759  df-xr 10760  df-ltxr 10761  df-le 10762  df-sub 10953  df-neg 10954  df-div 11379  df-nn 11720  df-2 11782  df-3 11783  df-4 11784  df-5 11785  df-6 11786  df-7 11787  df-8 11788  df-9 11789  df-n0 11980  df-xnn0 12052  df-z 12066  df-dec 12183  df-uz 12328  df-q 12434  df-rp 12476  df-xneg 12593  df-xadd 12594  df-xmul 12595  df-ioo 12828  df-ioc 12829  df-ico 12830  df-icc 12831  df-fz 12985  df-fzo 13128  df-fl 13256  df-mod 13332  df-seq 13464  df-exp 13525  df-fac 13729  df-bc 13758  df-hash 13786  df-shft 14519  df-cj 14551  df-re 14552  df-im 14553  df-sqrt 14687  df-abs 14688  df-limsup 14921  df-clim 14938  df-rlim 14939  df-sum 15139  df-ef 15516  df-e 15517  df-sin 15518  df-cos 15519  df-tan 15520  df-pi 15521  df-dvds 15703  df-struct 16591  df-ndx 16592  df-slot 16593  df-base 16595  df-sets 16596  df-ress 16597  df-plusg 16684  df-mulr 16685  df-starv 16686  df-sca 16687  df-vsca 16688  df-ip 16689  df-tset 16690  df-ple 16691  df-ds 16693  df-unif 16694  df-hom 16695  df-cco 16696  df-rest 16802  df-topn 16803  df-0g 16821  df-gsum 16822  df-topgen 16823  df-pt 16824  df-prds 16827  df-xrs 16881  df-qtop 16886  df-imas 16887  df-xps 16889  df-mre 16963  df-mrc 16964  df-acs 16966  df-mgm 17971  df-sgrp 18020  df-mnd 18031  df-submnd 18076  df-mulg 18346  df-cntz 18568  df-cmn 19029  df-psmet 20212  df-xmet 20213  df-met 20214  df-bl 20215  df-mopn 20216  df-fbas 20217  df-fg 20218  df-cnfld 20221  df-top 21648  df-topon 21665  df-topsp 21687  df-bases 21700  df-cld 21773  df-ntr 21774  df-cls 21775  df-nei 21852  df-lp 21890  df-perf 21891  df-cn 21981  df-cnp 21982  df-haus 22069  df-cmp 22141  df-tx 22316  df-hmeo 22509  df-fil 22600  df-fm 22692  df-flim 22693  df-flf 22694  df-xms 23076  df-ms 23077  df-tms 23078  df-cncf 23633  df-limc 24621  df-dv 24622  df-ulm 25127  df-log 25303  df-cxp 25304
This theorem is referenced by:  stirlinglem13  43192
  Copyright terms: Public domain W3C validator