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 46329
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 12156 . . . . 5 1 ∈ ℕ
2 stirlinglem12.1 . . . . . . 7 𝐴 = (𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
32stirlinglem2 46319 . . . . . 6 (1 ∈ ℕ → (𝐴‘1) ∈ ℝ+)
4 relogcl 26540 . . . . . 6 ((𝐴‘1) ∈ ℝ+ → (log‘(𝐴‘1)) ∈ ℝ)
51, 3, 4mp2b 10 . . . . 5 (log‘(𝐴‘1)) ∈ ℝ
6 nfcv 2898 . . . . . 6 𝑛1
7 nfcv 2898 . . . . . . 7 𝑛log
8 nfmpt1 5197 . . . . . . . . 9 𝑛(𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
92, 8nfcxfr 2896 . . . . . . . 8 𝑛𝐴
109, 6nffv 6844 . . . . . . 7 𝑛(𝐴‘1)
117, 10nffv 6844 . . . . . 6 𝑛(log‘(𝐴‘1))
12 2fveq3 6839 . . . . . 6 (𝑛 = 1 → (log‘(𝐴𝑛)) = (log‘(𝐴‘1)))
13 stirlinglem12.2 . . . . . 6 𝐵 = (𝑛 ∈ ℕ ↦ (log‘(𝐴𝑛)))
146, 11, 12, 13fvmptf 6962 . . . . 5 ((1 ∈ ℕ ∧ (log‘(𝐴‘1)) ∈ ℝ) → (𝐵‘1) = (log‘(𝐴‘1)))
151, 5, 14mp2an 692 . . . 4 (𝐵‘1) = (log‘(𝐴‘1))
1615, 5eqeltri 2832 . . 3 (𝐵‘1) ∈ ℝ
1716a1i 11 . 2 (𝑁 ∈ ℕ → (𝐵‘1) ∈ ℝ)
182stirlinglem2 46319 . . . . 5 (𝑁 ∈ ℕ → (𝐴𝑁) ∈ ℝ+)
1918relogcld 26588 . . . 4 (𝑁 ∈ ℕ → (log‘(𝐴𝑁)) ∈ ℝ)
20 nfcv 2898 . . . . 5 𝑛𝑁
219, 20nffv 6844 . . . . . 6 𝑛(𝐴𝑁)
227, 21nffv 6844 . . . . 5 𝑛(log‘(𝐴𝑁))
23 2fveq3 6839 . . . . 5 (𝑛 = 𝑁 → (log‘(𝐴𝑛)) = (log‘(𝐴𝑁)))
2420, 22, 23, 13fvmptf 6962 . . . 4 ((𝑁 ∈ ℕ ∧ (log‘(𝐴𝑁)) ∈ ℝ) → (𝐵𝑁) = (log‘(𝐴𝑁)))
2519, 24mpdan 687 . . 3 (𝑁 ∈ ℕ → (𝐵𝑁) = (log‘(𝐴𝑁)))
2625, 19eqeltrd 2836 . 2 (𝑁 ∈ ℕ → (𝐵𝑁) ∈ ℝ)
27 4re 12229 . . . 4 4 ∈ ℝ
28 4ne0 12253 . . . 4 4 ≠ 0
2927, 28rereccli 11906 . . 3 (1 / 4) ∈ ℝ
3029a1i 11 . 2 (𝑁 ∈ ℕ → (1 / 4) ∈ ℝ)
31 fveq2 6834 . . . . 5 (𝑘 = 𝑗 → (𝐵𝑘) = (𝐵𝑗))
32 fveq2 6834 . . . . 5 (𝑘 = (𝑗 + 1) → (𝐵𝑘) = (𝐵‘(𝑗 + 1)))
33 fveq2 6834 . . . . 5 (𝑘 = 1 → (𝐵𝑘) = (𝐵‘1))
34 fveq2 6834 . . . . 5 (𝑘 = 𝑁 → (𝐵𝑘) = (𝐵𝑁))
35 elnnuz 12791 . . . . . 6 (𝑁 ∈ ℕ ↔ 𝑁 ∈ (ℤ‘1))
3635biimpi 216 . . . . 5 (𝑁 ∈ ℕ → 𝑁 ∈ (ℤ‘1))
37 elfznn 13469 . . . . . . . 8 (𝑘 ∈ (1...𝑁) → 𝑘 ∈ ℕ)
382stirlinglem2 46319 . . . . . . . . . 10 (𝑘 ∈ ℕ → (𝐴𝑘) ∈ ℝ+)
3937, 38syl 17 . . . . . . . . 9 (𝑘 ∈ (1...𝑁) → (𝐴𝑘) ∈ ℝ+)
4039relogcld 26588 . . . . . . . 8 (𝑘 ∈ (1...𝑁) → (log‘(𝐴𝑘)) ∈ ℝ)
41 nfcv 2898 . . . . . . . . 9 𝑛𝑘
429, 41nffv 6844 . . . . . . . . . 10 𝑛(𝐴𝑘)
437, 42nffv 6844 . . . . . . . . 9 𝑛(log‘(𝐴𝑘))
44 2fveq3 6839 . . . . . . . . 9 (𝑛 = 𝑘 → (log‘(𝐴𝑛)) = (log‘(𝐴𝑘)))
4541, 43, 44, 13fvmptf 6962 . . . . . . . 8 ((𝑘 ∈ ℕ ∧ (log‘(𝐴𝑘)) ∈ ℝ) → (𝐵𝑘) = (log‘(𝐴𝑘)))
4637, 40, 45syl2anc 584 . . . . . . 7 (𝑘 ∈ (1...𝑁) → (𝐵𝑘) = (log‘(𝐴𝑘)))
4746adantl 481 . . . . . 6 ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (1...𝑁)) → (𝐵𝑘) = (log‘(𝐴𝑘)))
4839rpcnd 12951 . . . . . . . 8 (𝑘 ∈ (1...𝑁) → (𝐴𝑘) ∈ ℂ)
4948adantl 481 . . . . . . 7 ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (1...𝑁)) → (𝐴𝑘) ∈ ℂ)
5038rpne0d 12954 . . . . . . . . 9 (𝑘 ∈ ℕ → (𝐴𝑘) ≠ 0)
5137, 50syl 17 . . . . . . . 8 (𝑘 ∈ (1...𝑁) → (𝐴𝑘) ≠ 0)
5251adantl 481 . . . . . . 7 ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (1...𝑁)) → (𝐴𝑘) ≠ 0)
5349, 52logcld 26535 . . . . . 6 ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (1...𝑁)) → (log‘(𝐴𝑘)) ∈ ℂ)
5447, 53eqeltrd 2836 . . . . 5 ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (1...𝑁)) → (𝐵𝑘) ∈ ℂ)
5531, 32, 33, 34, 36, 54telfsumo 15725 . . . 4 (𝑁 ∈ ℕ → Σ𝑗 ∈ (1..^𝑁)((𝐵𝑗) − (𝐵‘(𝑗 + 1))) = ((𝐵‘1) − (𝐵𝑁)))
56 nnz 12509 . . . . . 6 (𝑁 ∈ ℕ → 𝑁 ∈ ℤ)
57 fzoval 13576 . . . . . 6 (𝑁 ∈ ℤ → (1..^𝑁) = (1...(𝑁 − 1)))
5856, 57syl 17 . . . . 5 (𝑁 ∈ ℕ → (1..^𝑁) = (1...(𝑁 − 1)))
5958sumeq1d 15623 . . . 4 (𝑁 ∈ ℕ → Σ𝑗 ∈ (1..^𝑁)((𝐵𝑗) − (𝐵‘(𝑗 + 1))) = Σ𝑗 ∈ (1...(𝑁 − 1))((𝐵𝑗) − (𝐵‘(𝑗 + 1))))
6055, 59eqtr3d 2773 . . 3 (𝑁 ∈ ℕ → ((𝐵‘1) − (𝐵𝑁)) = Σ𝑗 ∈ (1...(𝑁 − 1))((𝐵𝑗) − (𝐵‘(𝑗 + 1))))
61 fzfid 13896 . . . . 5 (𝑁 ∈ ℕ → (1...(𝑁 − 1)) ∈ Fin)
62 elfznn 13469 . . . . . . . 8 (𝑗 ∈ (1...(𝑁 − 1)) → 𝑗 ∈ ℕ)
6362adantl 481 . . . . . . 7 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (1...(𝑁 − 1))) → 𝑗 ∈ ℕ)
642stirlinglem2 46319 . . . . . . . . . 10 (𝑗 ∈ ℕ → (𝐴𝑗) ∈ ℝ+)
6564relogcld 26588 . . . . . . . . 9 (𝑗 ∈ ℕ → (log‘(𝐴𝑗)) ∈ ℝ)
66 nfcv 2898 . . . . . . . . . 10 𝑛𝑗
679, 66nffv 6844 . . . . . . . . . . 11 𝑛(𝐴𝑗)
687, 67nffv 6844 . . . . . . . . . 10 𝑛(log‘(𝐴𝑗))
69 2fveq3 6839 . . . . . . . . . 10 (𝑛 = 𝑗 → (log‘(𝐴𝑛)) = (log‘(𝐴𝑗)))
7066, 68, 69, 13fvmptf 6962 . . . . . . . . 9 ((𝑗 ∈ ℕ ∧ (log‘(𝐴𝑗)) ∈ ℝ) → (𝐵𝑗) = (log‘(𝐴𝑗)))
7165, 70mpdan 687 . . . . . . . 8 (𝑗 ∈ ℕ → (𝐵𝑗) = (log‘(𝐴𝑗)))
7271, 65eqeltrd 2836 . . . . . . 7 (𝑗 ∈ ℕ → (𝐵𝑗) ∈ ℝ)
7363, 72syl 17 . . . . . 6 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (1...(𝑁 − 1))) → (𝐵𝑗) ∈ ℝ)
74 peano2nn 12157 . . . . . . . . . 10 (𝑗 ∈ ℕ → (𝑗 + 1) ∈ ℕ)
752stirlinglem2 46319 . . . . . . . . . . . 12 ((𝑗 + 1) ∈ ℕ → (𝐴‘(𝑗 + 1)) ∈ ℝ+)
7674, 75syl 17 . . . . . . . . . . 11 (𝑗 ∈ ℕ → (𝐴‘(𝑗 + 1)) ∈ ℝ+)
7776relogcld 26588 . . . . . . . . . 10 (𝑗 ∈ ℕ → (log‘(𝐴‘(𝑗 + 1))) ∈ ℝ)
78 nfcv 2898 . . . . . . . . . . 11 𝑛(𝑗 + 1)
799, 78nffv 6844 . . . . . . . . . . . 12 𝑛(𝐴‘(𝑗 + 1))
807, 79nffv 6844 . . . . . . . . . . 11 𝑛(log‘(𝐴‘(𝑗 + 1)))
81 2fveq3 6839 . . . . . . . . . . 11 (𝑛 = (𝑗 + 1) → (log‘(𝐴𝑛)) = (log‘(𝐴‘(𝑗 + 1))))
8278, 80, 81, 13fvmptf 6962 . . . . . . . . . 10 (((𝑗 + 1) ∈ ℕ ∧ (log‘(𝐴‘(𝑗 + 1))) ∈ ℝ) → (𝐵‘(𝑗 + 1)) = (log‘(𝐴‘(𝑗 + 1))))
8374, 77, 82syl2anc 584 . . . . . . . . 9 (𝑗 ∈ ℕ → (𝐵‘(𝑗 + 1)) = (log‘(𝐴‘(𝑗 + 1))))
8483, 77eqeltrd 2836 . . . . . . . 8 (𝑗 ∈ ℕ → (𝐵‘(𝑗 + 1)) ∈ ℝ)
8562, 84syl 17 . . . . . . 7 (𝑗 ∈ (1...(𝑁 − 1)) → (𝐵‘(𝑗 + 1)) ∈ ℝ)
8685adantl 481 . . . . . 6 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (1...(𝑁 − 1))) → (𝐵‘(𝑗 + 1)) ∈ ℝ)
8773, 86resubcld 11565 . . . . 5 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (1...(𝑁 − 1))) → ((𝐵𝑗) − (𝐵‘(𝑗 + 1))) ∈ ℝ)
8861, 87fsumrecl 15657 . . . 4 (𝑁 ∈ ℕ → Σ𝑗 ∈ (1...(𝑁 − 1))((𝐵𝑗) − (𝐵‘(𝑗 + 1))) ∈ ℝ)
8929a1i 11 . . . . . 6 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (1...(𝑁 − 1))) → (1 / 4) ∈ ℝ)
9062nnred 12160 . . . . . . . . 9 (𝑗 ∈ (1...(𝑁 − 1)) → 𝑗 ∈ ℝ)
91 1red 11133 . . . . . . . . . 10 (𝑗 ∈ (1...(𝑁 − 1)) → 1 ∈ ℝ)
9290, 91readdcld 11161 . . . . . . . . 9 (𝑗 ∈ (1...(𝑁 − 1)) → (𝑗 + 1) ∈ ℝ)
9390, 92remulcld 11162 . . . . . . . 8 (𝑗 ∈ (1...(𝑁 − 1)) → (𝑗 · (𝑗 + 1)) ∈ ℝ)
9490recnd 11160 . . . . . . . . 9 (𝑗 ∈ (1...(𝑁 − 1)) → 𝑗 ∈ ℂ)
95 1cnd 11127 . . . . . . . . . 10 (𝑗 ∈ (1...(𝑁 − 1)) → 1 ∈ ℂ)
9694, 95addcld 11151 . . . . . . . . 9 (𝑗 ∈ (1...(𝑁 − 1)) → (𝑗 + 1) ∈ ℂ)
9762nnne0d 12195 . . . . . . . . 9 (𝑗 ∈ (1...(𝑁 − 1)) → 𝑗 ≠ 0)
9874nnne0d 12195 . . . . . . . . . 10 (𝑗 ∈ ℕ → (𝑗 + 1) ≠ 0)
9962, 98syl 17 . . . . . . . . 9 (𝑗 ∈ (1...(𝑁 − 1)) → (𝑗 + 1) ≠ 0)
10094, 96, 97, 99mulne0d 11789 . . . . . . . 8 (𝑗 ∈ (1...(𝑁 − 1)) → (𝑗 · (𝑗 + 1)) ≠ 0)
10193, 100rereccld 11968 . . . . . . 7 (𝑗 ∈ (1...(𝑁 − 1)) → (1 / (𝑗 · (𝑗 + 1))) ∈ ℝ)
102101adantl 481 . . . . . 6 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (1...(𝑁 − 1))) → (1 / (𝑗 · (𝑗 + 1))) ∈ ℝ)
10389, 102remulcld 11162 . . . . 5 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (1...(𝑁 − 1))) → ((1 / 4) · (1 / (𝑗 · (𝑗 + 1)))) ∈ ℝ)
10461, 103fsumrecl 15657 . . . 4 (𝑁 ∈ ℕ → Σ𝑗 ∈ (1...(𝑁 − 1))((1 / 4) · (1 / (𝑗 · (𝑗 + 1)))) ∈ ℝ)
105 eqid 2736 . . . . . . 7 (𝑖 ∈ ℕ ↦ ((1 / ((2 · 𝑖) + 1)) · ((1 / ((2 · 𝑗) + 1))↑(2 · 𝑖)))) = (𝑖 ∈ ℕ ↦ ((1 / ((2 · 𝑖) + 1)) · ((1 / ((2 · 𝑗) + 1))↑(2 · 𝑖))))
106 eqid 2736 . . . . . . 7 (𝑖 ∈ ℕ ↦ ((1 / (((2 · 𝑗) + 1)↑2))↑𝑖)) = (𝑖 ∈ ℕ ↦ ((1 / (((2 · 𝑗) + 1)↑2))↑𝑖))
1072, 13, 105, 106stirlinglem10 46327 . . . . . 6 (𝑗 ∈ ℕ → ((𝐵𝑗) − (𝐵‘(𝑗 + 1))) ≤ ((1 / 4) · (1 / (𝑗 · (𝑗 + 1)))))
10863, 107syl 17 . . . . 5 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (1...(𝑁 − 1))) → ((𝐵𝑗) − (𝐵‘(𝑗 + 1))) ≤ ((1 / 4) · (1 / (𝑗 · (𝑗 + 1)))))
10961, 87, 103, 108fsumle 15722 . . . 4 (𝑁 ∈ ℕ → Σ𝑗 ∈ (1...(𝑁 − 1))((𝐵𝑗) − (𝐵‘(𝑗 + 1))) ≤ Σ𝑗 ∈ (1...(𝑁 − 1))((1 / 4) · (1 / (𝑗 · (𝑗 + 1)))))
11061, 102fsumrecl 15657 . . . . . 6 (𝑁 ∈ ℕ → Σ𝑗 ∈ (1...(𝑁 − 1))(1 / (𝑗 · (𝑗 + 1))) ∈ ℝ)
111 1red 11133 . . . . . 6 (𝑁 ∈ ℕ → 1 ∈ ℝ)
112 4pos 12252 . . . . . . . . 9 0 < 4
11327, 112elrpii 12908 . . . . . . . 8 4 ∈ ℝ+
114113a1i 11 . . . . . . 7 (𝑁 ∈ ℕ → 4 ∈ ℝ+)
115 0red 11135 . . . . . . . 8 (𝑁 ∈ ℕ → 0 ∈ ℝ)
116 0lt1 11659 . . . . . . . . 9 0 < 1
117116a1i 11 . . . . . . . 8 (𝑁 ∈ ℕ → 0 < 1)
118115, 111, 117ltled 11281 . . . . . . 7 (𝑁 ∈ ℕ → 0 ≤ 1)
119111, 114, 118divge0d 12989 . . . . . 6 (𝑁 ∈ ℕ → 0 ≤ (1 / 4))
120 eqid 2736 . . . . . . . . . 10 (ℤ𝑁) = (ℤ𝑁)
121 eluznn 12831 . . . . . . . . . . 11 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → 𝑗 ∈ ℕ)
122 stirlinglem12.3 . . . . . . . . . . . . 13 𝐹 = (𝑛 ∈ ℕ ↦ (1 / (𝑛 · (𝑛 + 1))))
123122a1i 11 . . . . . . . . . . . 12 (𝑗 ∈ ℕ → 𝐹 = (𝑛 ∈ ℕ ↦ (1 / (𝑛 · (𝑛 + 1)))))
124 simpr 484 . . . . . . . . . . . . . 14 ((𝑗 ∈ ℕ ∧ 𝑛 = 𝑗) → 𝑛 = 𝑗)
125124oveq1d 7373 . . . . . . . . . . . . . 14 ((𝑗 ∈ ℕ ∧ 𝑛 = 𝑗) → (𝑛 + 1) = (𝑗 + 1))
126124, 125oveq12d 7376 . . . . . . . . . . . . 13 ((𝑗 ∈ ℕ ∧ 𝑛 = 𝑗) → (𝑛 · (𝑛 + 1)) = (𝑗 · (𝑗 + 1)))
127126oveq2d 7374 . . . . . . . . . . . 12 ((𝑗 ∈ ℕ ∧ 𝑛 = 𝑗) → (1 / (𝑛 · (𝑛 + 1))) = (1 / (𝑗 · (𝑗 + 1))))
128 id 22 . . . . . . . . . . . 12 (𝑗 ∈ ℕ → 𝑗 ∈ ℕ)
129 nnre 12152 . . . . . . . . . . . . . 14 (𝑗 ∈ ℕ → 𝑗 ∈ ℝ)
130 1red 11133 . . . . . . . . . . . . . . 15 (𝑗 ∈ ℕ → 1 ∈ ℝ)
131129, 130readdcld 11161 . . . . . . . . . . . . . 14 (𝑗 ∈ ℕ → (𝑗 + 1) ∈ ℝ)
132129, 131remulcld 11162 . . . . . . . . . . . . 13 (𝑗 ∈ ℕ → (𝑗 · (𝑗 + 1)) ∈ ℝ)
133 nncn 12153 . . . . . . . . . . . . . 14 (𝑗 ∈ ℕ → 𝑗 ∈ ℂ)
134 1cnd 11127 . . . . . . . . . . . . . . 15 (𝑗 ∈ ℕ → 1 ∈ ℂ)
135133, 134addcld 11151 . . . . . . . . . . . . . 14 (𝑗 ∈ ℕ → (𝑗 + 1) ∈ ℂ)
136 nnne0 12179 . . . . . . . . . . . . . 14 (𝑗 ∈ ℕ → 𝑗 ≠ 0)
137133, 135, 136, 98mulne0d 11789 . . . . . . . . . . . . 13 (𝑗 ∈ ℕ → (𝑗 · (𝑗 + 1)) ≠ 0)
138132, 137rereccld 11968 . . . . . . . . . . . 12 (𝑗 ∈ ℕ → (1 / (𝑗 · (𝑗 + 1))) ∈ ℝ)
139123, 127, 128, 138fvmptd 6948 . . . . . . . . . . 11 (𝑗 ∈ ℕ → (𝐹𝑗) = (1 / (𝑗 · (𝑗 + 1))))
140121, 139syl 17 . . . . . . . . . 10 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → (𝐹𝑗) = (1 / (𝑗 · (𝑗 + 1))))
141121nnred 12160 . . . . . . . . . . . 12 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → 𝑗 ∈ ℝ)
142 1red 11133 . . . . . . . . . . . . 13 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → 1 ∈ ℝ)
143141, 142readdcld 11161 . . . . . . . . . . . 12 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → (𝑗 + 1) ∈ ℝ)
144141, 143remulcld 11162 . . . . . . . . . . 11 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → (𝑗 · (𝑗 + 1)) ∈ ℝ)
145141recnd 11160 . . . . . . . . . . . 12 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → 𝑗 ∈ ℂ)
146 1cnd 11127 . . . . . . . . . . . . 13 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → 1 ∈ ℂ)
147145, 146addcld 11151 . . . . . . . . . . . 12 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → (𝑗 + 1) ∈ ℂ)
148121nnne0d 12195 . . . . . . . . . . . 12 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → 𝑗 ≠ 0)
149121, 98syl 17 . . . . . . . . . . . 12 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → (𝑗 + 1) ≠ 0)
150145, 147, 148, 149mulne0d 11789 . . . . . . . . . . 11 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → (𝑗 · (𝑗 + 1)) ≠ 0)
151144, 150rereccld 11968 . . . . . . . . . 10 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → (1 / (𝑗 · (𝑗 + 1))) ∈ ℝ)
152 seqeq1 13927 . . . . . . . . . . . . 13 (𝑁 = 1 → seq𝑁( + , 𝐹) = seq1( + , 𝐹))
153122trireciplem 15785 . . . . . . . . . . . . . 14 seq1( + , 𝐹) ⇝ 1
154 climrel 15415 . . . . . . . . . . . . . . 15 Rel ⇝
155154releldmi 5897 . . . . . . . . . . . . . 14 (seq1( + , 𝐹) ⇝ 1 → seq1( + , 𝐹) ∈ dom ⇝ )
156153, 155mp1i 13 . . . . . . . . . . . . 13 (𝑁 = 1 → seq1( + , 𝐹) ∈ dom ⇝ )
157152, 156eqeltrd 2836 . . . . . . . . . . . 12 (𝑁 = 1 → seq𝑁( + , 𝐹) ∈ dom ⇝ )
158157adantl 481 . . . . . . . . . . 11 ((𝑁 ∈ ℕ ∧ 𝑁 = 1) → seq𝑁( + , 𝐹) ∈ dom ⇝ )
159 simpl 482 . . . . . . . . . . . 12 ((𝑁 ∈ ℕ ∧ ¬ 𝑁 = 1) → 𝑁 ∈ ℕ)
160 simpr 484 . . . . . . . . . . . . . 14 ((𝑁 ∈ ℕ ∧ ¬ 𝑁 = 1) → ¬ 𝑁 = 1)
161 elnn1uz2 12838 . . . . . . . . . . . . . . . 16 (𝑁 ∈ ℕ ↔ (𝑁 = 1 ∨ 𝑁 ∈ (ℤ‘2)))
162159, 161sylib 218 . . . . . . . . . . . . . . 15 ((𝑁 ∈ ℕ ∧ ¬ 𝑁 = 1) → (𝑁 = 1 ∨ 𝑁 ∈ (ℤ‘2)))
163162ord 864 . . . . . . . . . . . . . 14 ((𝑁 ∈ ℕ ∧ ¬ 𝑁 = 1) → (¬ 𝑁 = 1 → 𝑁 ∈ (ℤ‘2)))
164160, 163mpd 15 . . . . . . . . . . . . 13 ((𝑁 ∈ ℕ ∧ ¬ 𝑁 = 1) → 𝑁 ∈ (ℤ‘2))
165 uz2m1nn 12836 . . . . . . . . . . . . 13 (𝑁 ∈ (ℤ‘2) → (𝑁 − 1) ∈ ℕ)
166164, 165syl 17 . . . . . . . . . . . 12 ((𝑁 ∈ ℕ ∧ ¬ 𝑁 = 1) → (𝑁 − 1) ∈ ℕ)
167 nncn 12153 . . . . . . . . . . . . . . . . . 18 (𝑁 ∈ ℕ → 𝑁 ∈ ℂ)
168167adantr 480 . . . . . . . . . . . . . . . . 17 ((𝑁 ∈ ℕ ∧ (𝑁 − 1) ∈ ℕ) → 𝑁 ∈ ℂ)
169 1cnd 11127 . . . . . . . . . . . . . . . . 17 ((𝑁 ∈ ℕ ∧ (𝑁 − 1) ∈ ℕ) → 1 ∈ ℂ)
170168, 169npcand 11496 . . . . . . . . . . . . . . . 16 ((𝑁 ∈ ℕ ∧ (𝑁 − 1) ∈ ℕ) → ((𝑁 − 1) + 1) = 𝑁)
171170eqcomd 2742 . . . . . . . . . . . . . . 15 ((𝑁 ∈ ℕ ∧ (𝑁 − 1) ∈ ℕ) → 𝑁 = ((𝑁 − 1) + 1))
172171seqeq1d 13930 . . . . . . . . . . . . . 14 ((𝑁 ∈ ℕ ∧ (𝑁 − 1) ∈ ℕ) → seq𝑁( + , 𝐹) = seq((𝑁 − 1) + 1)( + , 𝐹))
173 nnuz 12790 . . . . . . . . . . . . . . . 16 ℕ = (ℤ‘1)
174 id 22 . . . . . . . . . . . . . . . 16 ((𝑁 − 1) ∈ ℕ → (𝑁 − 1) ∈ ℕ)
175138recnd 11160 . . . . . . . . . . . . . . . . . 18 (𝑗 ∈ ℕ → (1 / (𝑗 · (𝑗 + 1))) ∈ ℂ)
176139, 175eqeltrd 2836 . . . . . . . . . . . . . . . . 17 (𝑗 ∈ ℕ → (𝐹𝑗) ∈ ℂ)
177176adantl 481 . . . . . . . . . . . . . . . 16 (((𝑁 − 1) ∈ ℕ ∧ 𝑗 ∈ ℕ) → (𝐹𝑗) ∈ ℂ)
178153a1i 11 . . . . . . . . . . . . . . . 16 ((𝑁 − 1) ∈ ℕ → seq1( + , 𝐹) ⇝ 1)
179173, 174, 177, 178clim2ser 15578 . . . . . . . . . . . . . . 15 ((𝑁 − 1) ∈ ℕ → seq((𝑁 − 1) + 1)( + , 𝐹) ⇝ (1 − (seq1( + , 𝐹)‘(𝑁 − 1))))
180179adantl 481 . . . . . . . . . . . . . 14 ((𝑁 ∈ ℕ ∧ (𝑁 − 1) ∈ ℕ) → seq((𝑁 − 1) + 1)( + , 𝐹) ⇝ (1 − (seq1( + , 𝐹)‘(𝑁 − 1))))
181172, 180eqbrtrd 5120 . . . . . . . . . . . . 13 ((𝑁 ∈ ℕ ∧ (𝑁 − 1) ∈ ℕ) → seq𝑁( + , 𝐹) ⇝ (1 − (seq1( + , 𝐹)‘(𝑁 − 1))))
182154releldmi 5897 . . . . . . . . . . . . 13 (seq𝑁( + , 𝐹) ⇝ (1 − (seq1( + , 𝐹)‘(𝑁 − 1))) → seq𝑁( + , 𝐹) ∈ dom ⇝ )
183181, 182syl 17 . . . . . . . . . . . 12 ((𝑁 ∈ ℕ ∧ (𝑁 − 1) ∈ ℕ) → seq𝑁( + , 𝐹) ∈ dom ⇝ )
184159, 166, 183syl2anc 584 . . . . . . . . . . 11 ((𝑁 ∈ ℕ ∧ ¬ 𝑁 = 1) → seq𝑁( + , 𝐹) ∈ dom ⇝ )
185158, 184pm2.61dan 812 . . . . . . . . . 10 (𝑁 ∈ ℕ → seq𝑁( + , 𝐹) ∈ dom ⇝ )
186120, 56, 140, 151, 185isumrecl 15688 . . . . . . . . 9 (𝑁 ∈ ℕ → Σ𝑗 ∈ (ℤ𝑁)(1 / (𝑗 · (𝑗 + 1))) ∈ ℝ)
187121nnrpd 12947 . . . . . . . . . . . 12 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → 𝑗 ∈ ℝ+)
188187rpge0d 12953 . . . . . . . . . . . . 13 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → 0 ≤ 𝑗)
189141, 188ge0p1rpd 12979 . . . . . . . . . . . 12 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → (𝑗 + 1) ∈ ℝ+)
190187, 189rpmulcld 12965 . . . . . . . . . . 11 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → (𝑗 · (𝑗 + 1)) ∈ ℝ+)
191118adantr 480 . . . . . . . . . . 11 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → 0 ≤ 1)
192142, 190, 191divge0d 12989 . . . . . . . . . 10 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (ℤ𝑁)) → 0 ≤ (1 / (𝑗 · (𝑗 + 1))))
193120, 56, 140, 151, 185, 192isumge0 15689 . . . . . . . . 9 (𝑁 ∈ ℕ → 0 ≤ Σ𝑗 ∈ (ℤ𝑁)(1 / (𝑗 · (𝑗 + 1))))
194115, 186, 110, 193leadd2dd 11752 . . . . . . . 8 (𝑁 ∈ ℕ → (Σ𝑗 ∈ (1...(𝑁 − 1))(1 / (𝑗 · (𝑗 + 1))) + 0) ≤ (Σ𝑗 ∈ (1...(𝑁 − 1))(1 / (𝑗 · (𝑗 + 1))) + Σ𝑗 ∈ (ℤ𝑁)(1 / (𝑗 · (𝑗 + 1)))))
195110recnd 11160 . . . . . . . . . 10 (𝑁 ∈ ℕ → Σ𝑗 ∈ (1...(𝑁 − 1))(1 / (𝑗 · (𝑗 + 1))) ∈ ℂ)
196195addridd 11333 . . . . . . . . 9 (𝑁 ∈ ℕ → (Σ𝑗 ∈ (1...(𝑁 − 1))(1 / (𝑗 · (𝑗 + 1))) + 0) = Σ𝑗 ∈ (1...(𝑁 − 1))(1 / (𝑗 · (𝑗 + 1))))
197196eqcomd 2742 . . . . . . . 8 (𝑁 ∈ ℕ → Σ𝑗 ∈ (1...(𝑁 − 1))(1 / (𝑗 · (𝑗 + 1))) = (Σ𝑗 ∈ (1...(𝑁 − 1))(1 / (𝑗 · (𝑗 + 1))) + 0))
198 id 22 . . . . . . . . 9 (𝑁 ∈ ℕ → 𝑁 ∈ ℕ)
199139adantl 481 . . . . . . . . 9 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ ℕ) → (𝐹𝑗) = (1 / (𝑗 · (𝑗 + 1))))
200133adantl 481 . . . . . . . . . . 11 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ ℕ) → 𝑗 ∈ ℂ)
201 1cnd 11127 . . . . . . . . . . . 12 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ ℕ) → 1 ∈ ℂ)
202200, 201addcld 11151 . . . . . . . . . . 11 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ ℕ) → (𝑗 + 1) ∈ ℂ)
203200, 202mulcld 11152 . . . . . . . . . 10 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ ℕ) → (𝑗 · (𝑗 + 1)) ∈ ℂ)
204136adantl 481 . . . . . . . . . . 11 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ ℕ) → 𝑗 ≠ 0)
20598adantl 481 . . . . . . . . . . 11 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ ℕ) → (𝑗 + 1) ≠ 0)
206200, 202, 204, 205mulne0d 11789 . . . . . . . . . 10 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ ℕ) → (𝑗 · (𝑗 + 1)) ≠ 0)
207203, 206reccld 11910 . . . . . . . . 9 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ ℕ) → (1 / (𝑗 · (𝑗 + 1))) ∈ ℂ)
208153, 155mp1i 13 . . . . . . . . 9 (𝑁 ∈ ℕ → seq1( + , 𝐹) ∈ dom ⇝ )
209173, 120, 198, 199, 207, 208isumsplit 15763 . . . . . . . 8 (𝑁 ∈ ℕ → Σ𝑗 ∈ ℕ (1 / (𝑗 · (𝑗 + 1))) = (Σ𝑗 ∈ (1...(𝑁 − 1))(1 / (𝑗 · (𝑗 + 1))) + Σ𝑗 ∈ (ℤ𝑁)(1 / (𝑗 · (𝑗 + 1)))))
210194, 197, 2093brtr4d 5130 . . . . . . 7 (𝑁 ∈ ℕ → Σ𝑗 ∈ (1...(𝑁 − 1))(1 / (𝑗 · (𝑗 + 1))) ≤ Σ𝑗 ∈ ℕ (1 / (𝑗 · (𝑗 + 1))))
211 1zzd 12522 . . . . . . . . 9 (⊤ → 1 ∈ ℤ)
212139adantl 481 . . . . . . . . 9 ((⊤ ∧ 𝑗 ∈ ℕ) → (𝐹𝑗) = (1 / (𝑗 · (𝑗 + 1))))
213175adantl 481 . . . . . . . . 9 ((⊤ ∧ 𝑗 ∈ ℕ) → (1 / (𝑗 · (𝑗 + 1))) ∈ ℂ)
214153a1i 11 . . . . . . . . 9 (⊤ → seq1( + , 𝐹) ⇝ 1)
215173, 211, 212, 213, 214isumclim 15680 . . . . . . . 8 (⊤ → Σ𝑗 ∈ ℕ (1 / (𝑗 · (𝑗 + 1))) = 1)
216215mptru 1548 . . . . . . 7 Σ𝑗 ∈ ℕ (1 / (𝑗 · (𝑗 + 1))) = 1
217210, 216breqtrdi 5139 . . . . . 6 (𝑁 ∈ ℕ → Σ𝑗 ∈ (1...(𝑁 − 1))(1 / (𝑗 · (𝑗 + 1))) ≤ 1)
218110, 111, 30, 119, 217lemul2ad 12082 . . . . 5 (𝑁 ∈ ℕ → ((1 / 4) · Σ𝑗 ∈ (1...(𝑁 − 1))(1 / (𝑗 · (𝑗 + 1)))) ≤ ((1 / 4) · 1))
219 4cn 12230 . . . . . . . 8 4 ∈ ℂ
220219a1i 11 . . . . . . 7 (𝑁 ∈ ℕ → 4 ∈ ℂ)
221112a1i 11 . . . . . . . 8 (𝑁 ∈ ℕ → 0 < 4)
222221gt0ne0d 11701 . . . . . . 7 (𝑁 ∈ ℕ → 4 ≠ 0)
223220, 222reccld 11910 . . . . . 6 (𝑁 ∈ ℕ → (1 / 4) ∈ ℂ)
224102recnd 11160 . . . . . 6 ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (1...(𝑁 − 1))) → (1 / (𝑗 · (𝑗 + 1))) ∈ ℂ)
22561, 223, 224fsummulc2 15707 . . . . 5 (𝑁 ∈ ℕ → ((1 / 4) · Σ𝑗 ∈ (1...(𝑁 − 1))(1 / (𝑗 · (𝑗 + 1)))) = Σ𝑗 ∈ (1...(𝑁 − 1))((1 / 4) · (1 / (𝑗 · (𝑗 + 1)))))
226223mulridd 11149 . . . . 5 (𝑁 ∈ ℕ → ((1 / 4) · 1) = (1 / 4))
227218, 225, 2263brtr3d 5129 . . . 4 (𝑁 ∈ ℕ → Σ𝑗 ∈ (1...(𝑁 − 1))((1 / 4) · (1 / (𝑗 · (𝑗 + 1)))) ≤ (1 / 4))
22888, 104, 30, 109, 227letrd 11290 . . 3 (𝑁 ∈ ℕ → Σ𝑗 ∈ (1...(𝑁 − 1))((𝐵𝑗) − (𝐵‘(𝑗 + 1))) ≤ (1 / 4))
22960, 228eqbrtrd 5120 . 2 (𝑁 ∈ ℕ → ((𝐵‘1) − (𝐵𝑁)) ≤ (1 / 4))
23017, 26, 30, 229subled 11740 1 (𝑁 ∈ ℕ → ((𝐵‘1) − (1 / 4)) ≤ (𝐵𝑁))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 395  wo 847   = wceq 1541  wtru 1542  wcel 2113  wne 2932   class class class wbr 5098  cmpt 5179  dom cdm 5624  cfv 6492  (class class class)co 7358  cc 11024  cr 11025  0cc0 11026  1c1 11027   + caddc 11029   · cmul 11031   < clt 11166  cle 11167  cmin 11364   / cdiv 11794  cn 12145  2c2 12200  4c4 12202  cz 12488  cuz 12751  +crp 12905  ...cfz 13423  ..^cfzo 13570  seqcseq 13924  cexp 13984  !cfa 14196  csqrt 15156  cli 15407  Σcsu 15609  eceu 15985  logclog 26519
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2115  ax-9 2123  ax-10 2146  ax-11 2162  ax-12 2184  ax-ext 2708  ax-rep 5224  ax-sep 5241  ax-nul 5251  ax-pow 5310  ax-pr 5377  ax-un 7680  ax-inf2 9550  ax-cnex 11082  ax-resscn 11083  ax-1cn 11084  ax-icn 11085  ax-addcl 11086  ax-addrcl 11087  ax-mulcl 11088  ax-mulrcl 11089  ax-mulcom 11090  ax-addass 11091  ax-mulass 11092  ax-distr 11093  ax-i2m1 11094  ax-1ne0 11095  ax-1rid 11096  ax-rnegex 11097  ax-rrecex 11098  ax-cnre 11099  ax-pre-lttri 11100  ax-pre-lttrn 11101  ax-pre-ltadd 11102  ax-pre-mulgt0 11103  ax-pre-sup 11104  ax-addf 11105
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2539  df-eu 2569  df-clab 2715  df-cleq 2728  df-clel 2811  df-nfc 2885  df-ne 2933  df-nel 3037  df-ral 3052  df-rex 3061  df-rmo 3350  df-reu 3351  df-rab 3400  df-v 3442  df-sbc 3741  df-csb 3850  df-dif 3904  df-un 3906  df-in 3908  df-ss 3918  df-pss 3921  df-nul 4286  df-if 4480  df-pw 4556  df-sn 4581  df-pr 4583  df-tp 4585  df-op 4587  df-uni 4864  df-int 4903  df-iun 4948  df-iin 4949  df-br 5099  df-opab 5161  df-mpt 5180  df-tr 5206  df-id 5519  df-eprel 5524  df-po 5532  df-so 5533  df-fr 5577  df-se 5578  df-we 5579  df-xp 5630  df-rel 5631  df-cnv 5632  df-co 5633  df-dm 5634  df-rn 5635  df-res 5636  df-ima 5637  df-pred 6259  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6494  df-fn 6495  df-f 6496  df-f1 6497  df-fo 6498  df-f1o 6499  df-fv 6500  df-isom 6501  df-riota 7315  df-ov 7361  df-oprab 7362  df-mpo 7363  df-of 7622  df-om 7809  df-1st 7933  df-2nd 7934  df-supp 8103  df-frecs 8223  df-wrecs 8254  df-recs 8303  df-rdg 8341  df-1o 8397  df-2o 8398  df-oadd 8401  df-er 8635  df-map 8765  df-pm 8766  df-ixp 8836  df-en 8884  df-dom 8885  df-sdom 8886  df-fin 8887  df-fsupp 9265  df-fi 9314  df-sup 9345  df-inf 9346  df-oi 9415  df-card 9851  df-pnf 11168  df-mnf 11169  df-xr 11170  df-ltxr 11171  df-le 11172  df-sub 11366  df-neg 11367  df-div 11795  df-nn 12146  df-2 12208  df-3 12209  df-4 12210  df-5 12211  df-6 12212  df-7 12213  df-8 12214  df-9 12215  df-n0 12402  df-xnn0 12475  df-z 12489  df-dec 12608  df-uz 12752  df-q 12862  df-rp 12906  df-xneg 13026  df-xadd 13027  df-xmul 13028  df-ioo 13265  df-ioc 13266  df-ico 13267  df-icc 13268  df-fz 13424  df-fzo 13571  df-fl 13712  df-mod 13790  df-seq 13925  df-exp 13985  df-fac 14197  df-bc 14226  df-hash 14254  df-shft 14990  df-cj 15022  df-re 15023  df-im 15024  df-sqrt 15158  df-abs 15159  df-limsup 15394  df-clim 15411  df-rlim 15412  df-sum 15610  df-ef 15990  df-e 15991  df-sin 15992  df-cos 15993  df-tan 15994  df-pi 15995  df-dvds 16180  df-struct 17074  df-sets 17091  df-slot 17109  df-ndx 17121  df-base 17137  df-ress 17158  df-plusg 17190  df-mulr 17191  df-starv 17192  df-sca 17193  df-vsca 17194  df-ip 17195  df-tset 17196  df-ple 17197  df-ds 17199  df-unif 17200  df-hom 17201  df-cco 17202  df-rest 17342  df-topn 17343  df-0g 17361  df-gsum 17362  df-topgen 17363  df-pt 17364  df-prds 17367  df-xrs 17423  df-qtop 17428  df-imas 17429  df-xps 17431  df-mre 17505  df-mrc 17506  df-acs 17508  df-mgm 18565  df-sgrp 18644  df-mnd 18660  df-submnd 18709  df-mulg 18998  df-cntz 19246  df-cmn 19711  df-psmet 21301  df-xmet 21302  df-met 21303  df-bl 21304  df-mopn 21305  df-fbas 21306  df-fg 21307  df-cnfld 21310  df-top 22838  df-topon 22855  df-topsp 22877  df-bases 22890  df-cld 22963  df-ntr 22964  df-cls 22965  df-nei 23042  df-lp 23080  df-perf 23081  df-cn 23171  df-cnp 23172  df-haus 23259  df-cmp 23331  df-tx 23506  df-hmeo 23699  df-fil 23790  df-fm 23882  df-flim 23883  df-flf 23884  df-xms 24264  df-ms 24265  df-tms 24266  df-cncf 24827  df-limc 25823  df-dv 25824  df-ulm 26342  df-log 26521  df-cxp 26522
This theorem is referenced by:  stirlinglem13  46330
  Copyright terms: Public domain W3C validator