Metamath Proof Explorer


Theorem stirlinglem13

Description: B is decreasing and has a lower bound, then it converges. Since B is log A , in another theorem it is proven that A converges as well. (Contributed by Glauco Siliprandi, 29-Jun-2017)

Ref Expression
Hypotheses stirlinglem13.1 ⊢ A = n ∈ ℕ ⟼ n ! 2 ⁢ n ⁢ n e n
stirlinglem13.2 ⊢ B = n ∈ ℕ ⟼ log ⁡ A ⁡ n
Assertion stirlinglem13 ⊢ ∃ d ∈ ℝ B ⇝ d

Proof

Step Hyp Ref Expression
1 stirlinglem13.1 ⊢ A = n ∈ ℕ ⟼ n ! 2 ⁢ n ⁢ n e n
2 stirlinglem13.2 ⊢ B = n ∈ ℕ ⟼ log ⁡ A ⁡ n
3 vex ⊢ y ∈ V
4 2 elrnmpt ⊢ y ∈ V → y ∈ ran ⁡ B ↔ ∃ n ∈ ℕ y = log ⁡ A ⁡ n
5 3 4 ax-mp ⊢ y ∈ ran ⁡ B ↔ ∃ n ∈ ℕ y = log ⁡ A ⁡ n
6 simpr ⊢ n ∈ ℕ ∧ y = log ⁡ A ⁡ n → y = log ⁡ A ⁡ n
7 1 stirlinglem2 ⊢ n ∈ ℕ → A ⁡ n ∈ ℝ +
8 7 relogcld ⊢ n ∈ ℕ → log ⁡ A ⁡ n ∈ ℝ
9 8 adantr ⊢ n ∈ ℕ ∧ y = log ⁡ A ⁡ n → log ⁡ A ⁡ n ∈ ℝ
10 6 9 eqeltrd ⊢ n ∈ ℕ ∧ y = log ⁡ A ⁡ n → y ∈ ℝ
11 10 rexlimiva ⊢ ∃ n ∈ ℕ y = log ⁡ A ⁡ n → y ∈ ℝ
12 5 11 sylbi ⊢ y ∈ ran ⁡ B → y ∈ ℝ
13 12 ssriv ⊢ ran ⁡ B ⊆ ℝ
14 1nn ⊢ 1 ∈ ℕ
15 1 stirlinglem2 ⊢ 1 ∈ ℕ → A ⁡ 1 ∈ ℝ +
16 relogcl ⊢ A ⁡ 1 ∈ ℝ + → log ⁡ A ⁡ 1 ∈ ℝ
17 14 15 16 mp2b ⊢ log ⁡ A ⁡ 1 ∈ ℝ
18 nfcv ⊢ Ⅎ _ n 1
19 nfcv ⊢ Ⅎ _ n log
20 nfmpt1 ⊢ Ⅎ _ n n ∈ ℕ ⟼ n ! 2 ⁢ n ⁢ n e n
21 1 20 nfcxfr ⊢ Ⅎ _ n A
22 21 18 nffv ⊢ Ⅎ _ n A ⁡ 1
23 19 22 nffv ⊢ Ⅎ _ n log ⁡ A ⁡ 1
24 2fveq3 ⊢ n = 1 → log ⁡ A ⁡ n = log ⁡ A ⁡ 1
25 18 23 24 2 fvmptf ⊢ 1 ∈ ℕ ∧ log ⁡ A ⁡ 1 ∈ ℝ → B ⁡ 1 = log ⁡ A ⁡ 1
26 14 17 25 mp2an ⊢ B ⁡ 1 = log ⁡ A ⁡ 1
27 2fveq3 ⊢ j = 1 → log ⁡ A ⁡ j = log ⁡ A ⁡ 1
28 27 rspceeqv ⊢ 1 ∈ ℕ ∧ B ⁡ 1 = log ⁡ A ⁡ 1 → ∃ j ∈ ℕ B ⁡ 1 = log ⁡ A ⁡ j
29 14 26 28 mp2an ⊢ ∃ j ∈ ℕ B ⁡ 1 = log ⁡ A ⁡ j
30 26 17 eqeltri ⊢ B ⁡ 1 ∈ ℝ
31 nfcv ⊢ Ⅎ _ j log ⁡ A ⁡ n
32 nfcv ⊢ Ⅎ _ n j
33 21 32 nffv ⊢ Ⅎ _ n A ⁡ j
34 19 33 nffv ⊢ Ⅎ _ n log ⁡ A ⁡ j
35 2fveq3 ⊢ n = j → log ⁡ A ⁡ n = log ⁡ A ⁡ j
36 31 34 35 cbvmpt ⊢ n ∈ ℕ ⟼ log ⁡ A ⁡ n = j ∈ ℕ ⟼ log ⁡ A ⁡ j
37 2 36 eqtri ⊢ B = j ∈ ℕ ⟼ log ⁡ A ⁡ j
38 37 elrnmpt ⊢ B ⁡ 1 ∈ ℝ → B ⁡ 1 ∈ ran ⁡ B ↔ ∃ j ∈ ℕ B ⁡ 1 = log ⁡ A ⁡ j
39 30 38 ax-mp ⊢ B ⁡ 1 ∈ ran ⁡ B ↔ ∃ j ∈ ℕ B ⁡ 1 = log ⁡ A ⁡ j
40 29 39 mpbir ⊢ B ⁡ 1 ∈ ran ⁡ B
41 40 ne0ii ⊢ ran ⁡ B ≠ ∅
42 4re ⊢ 4 ∈ ℝ
43 4ne0 ⊢ 4 ≠ 0
44 42 43 rereccli ⊢ 1 4 ∈ ℝ
45 30 44 resubcli ⊢ B ⁡ 1 − 1 4 ∈ ℝ
46 eqid ⊢ n ∈ ℕ ⟼ 1 n ⁢ n + 1 = n ∈ ℕ ⟼ 1 n ⁢ n + 1
47 1 2 46 stirlinglem12 ⊢ j ∈ ℕ → B ⁡ 1 − 1 4 ≤ B ⁡ j
48 47 rgen ⊢ ∀ j ∈ ℕ B ⁡ 1 − 1 4 ≤ B ⁡ j
49 breq1 ⊢ x = B ⁡ 1 − 1 4 → x ≤ B ⁡ j ↔ B ⁡ 1 − 1 4 ≤ B ⁡ j
50 49 ralbidv ⊢ x = B ⁡ 1 − 1 4 → ∀ j ∈ ℕ x ≤ B ⁡ j ↔ ∀ j ∈ ℕ B ⁡ 1 − 1 4 ≤ B ⁡ j
51 50 rspcev ⊢ B ⁡ 1 − 1 4 ∈ ℝ ∧ ∀ j ∈ ℕ B ⁡ 1 − 1 4 ≤ B ⁡ j → ∃ x ∈ ℝ ∀ j ∈ ℕ x ≤ B ⁡ j
52 45 48 51 mp2an ⊢ ∃ x ∈ ℝ ∀ j ∈ ℕ x ≤ B ⁡ j
53 8 rgen ⊢ ∀ n ∈ ℕ log ⁡ A ⁡ n ∈ ℝ
54 2 fnmpt ⊢ ∀ n ∈ ℕ log ⁡ A ⁡ n ∈ ℝ → B Fn ℕ
55 fvelrnb ⊢ B Fn ℕ → y ∈ ran ⁡ B ↔ ∃ j ∈ ℕ B ⁡ j = y
56 53 54 55 mp2b ⊢ y ∈ ran ⁡ B ↔ ∃ j ∈ ℕ B ⁡ j = y
57 56 bilani ⊢ ∀ j ∈ ℕ x ≤ B ⁡ j ∧ y ∈ ran ⁡ B → ∃ j ∈ ℕ B ⁡ j = y
58 nfra1 ⊢ Ⅎ j ∀ j ∈ ℕ x ≤ B ⁡ j
59 nfv ⊢ Ⅎ j y ∈ ran ⁡ B
60 58 59 nfan ⊢ Ⅎ j ∀ j ∈ ℕ x ≤ B ⁡ j ∧ y ∈ ran ⁡ B
61 nfv ⊢ Ⅎ j x ≤ y
62 simp1l ⊢ ∀ j ∈ ℕ x ≤ B ⁡ j ∧ y ∈ ran ⁡ B ∧ j ∈ ℕ ∧ B ⁡ j = y → ∀ j ∈ ℕ x ≤ B ⁡ j
63 simp2 ⊢ ∀ j ∈ ℕ x ≤ B ⁡ j ∧ y ∈ ran ⁡ B ∧ j ∈ ℕ ∧ B ⁡ j = y → j ∈ ℕ
64 rsp ⊢ ∀ j ∈ ℕ x ≤ B ⁡ j → j ∈ ℕ → x ≤ B ⁡ j
65 62 63 64 sylc ⊢ ∀ j ∈ ℕ x ≤ B ⁡ j ∧ y ∈ ran ⁡ B ∧ j ∈ ℕ ∧ B ⁡ j = y → x ≤ B ⁡ j
66 simp3 ⊢ ∀ j ∈ ℕ x ≤ B ⁡ j ∧ y ∈ ran ⁡ B ∧ j ∈ ℕ ∧ B ⁡ j = y → B ⁡ j = y
67 65 66 breqtrd ⊢ ∀ j ∈ ℕ x ≤ B ⁡ j ∧ y ∈ ran ⁡ B ∧ j ∈ ℕ ∧ B ⁡ j = y → x ≤ y
68 67 3exp ⊢ ∀ j ∈ ℕ x ≤ B ⁡ j ∧ y ∈ ran ⁡ B → j ∈ ℕ → B ⁡ j = y → x ≤ y
69 60 61 68 rexlimd ⊢ ∀ j ∈ ℕ x ≤ B ⁡ j ∧ y ∈ ran ⁡ B → ∃ j ∈ ℕ B ⁡ j = y → x ≤ y
70 57 69 mpd ⊢ ∀ j ∈ ℕ x ≤ B ⁡ j ∧ y ∈ ran ⁡ B → x ≤ y
71 70 ralrimiva ⊢ ∀ j ∈ ℕ x ≤ B ⁡ j → ∀ y ∈ ran ⁡ B x ≤ y
72 71 reximi ⊢ ∃ x ∈ ℝ ∀ j ∈ ℕ x ≤ B ⁡ j → ∃ x ∈ ℝ ∀ y ∈ ran ⁡ B x ≤ y
73 52 72 ax-mp ⊢ ∃ x ∈ ℝ ∀ y ∈ ran ⁡ B x ≤ y
74 infrecl ⊢ ran ⁡ B ⊆ ℝ ∧ ran ⁡ B ≠ ∅ ∧ ∃ x ∈ ℝ ∀ y ∈ ran ⁡ B x ≤ y → inf ran ⁡ B ℝ < ∈ ℝ
75 13 41 73 74 mp3an ⊢ inf ran ⁡ B ℝ < ∈ ℝ
76 nnuz ⊢ ℕ = ℤ ≥ 1
77 1zzd ⊢ ⊤ → 1 ∈ ℤ
78 2 8 fmpti ⊢ B : ℕ ⟶ ℝ
79 78 a1i ⊢ ⊤ → B : ℕ ⟶ ℝ
80 peano2nn ⊢ j ∈ ℕ → j + 1 ∈ ℕ
81 1 a1i ⊢ j ∈ ℕ → A = n ∈ ℕ ⟼ n ! 2 ⁢ n ⁢ n e n
82 simpr ⊢ j ∈ ℕ ∧ n = j + 1 → n = j + 1
83 82 fveq2d ⊢ j ∈ ℕ ∧ n = j + 1 → n ! = j + 1 !
84 82 oveq2d ⊢ j ∈ ℕ ∧ n = j + 1 → 2 ⁢ n = 2 ⁢ j + 1
85 84 fveq2d ⊢ j ∈ ℕ ∧ n = j + 1 → 2 ⁢ n = 2 ⁢ j + 1
86 82 oveq1d ⊢ j ∈ ℕ ∧ n = j + 1 → n e = j + 1 e
87 86 82 oveq12d ⊢ j ∈ ℕ ∧ n = j + 1 → n e n = j + 1 e j + 1
88 85 87 oveq12d ⊢ j ∈ ℕ ∧ n = j + 1 → 2 ⁢ n ⁢ n e n = 2 ⁢ j + 1 ⁢ j + 1 e j + 1
89 83 88 oveq12d ⊢ j ∈ ℕ ∧ n = j + 1 → n ! 2 ⁢ n ⁢ n e n = j + 1 ! 2 ⁢ j + 1 ⁢ j + 1 e j + 1
90 80 nnnn0d ⊢ j ∈ ℕ → j + 1 ∈ ℕ 0
91 faccl ⊢ j + 1 ∈ ℕ 0 → j + 1 ! ∈ ℕ
92 nncn ⊢ j + 1 ! ∈ ℕ → j + 1 ! ∈ ℂ
93 90 91 92 3syl ⊢ j ∈ ℕ → j + 1 ! ∈ ℂ
94 2cnd ⊢ j ∈ ℕ → 2 ∈ ℂ
95 nncn ⊢ j ∈ ℕ → j ∈ ℂ
96 1cnd ⊢ j ∈ ℕ → 1 ∈ ℂ
97 95 96 addcld ⊢ j ∈ ℕ → j + 1 ∈ ℂ
98 94 97 mulcld ⊢ j ∈ ℕ → 2 ⁢ j + 1 ∈ ℂ
99 98 sqrtcld ⊢ j ∈ ℕ → 2 ⁢ j + 1 ∈ ℂ
100 ere ⊢ e ∈ ℝ
101 100 recni ⊢ e ∈ ℂ
102 101 a1i ⊢ j ∈ ℕ → e ∈ ℂ
103 0re ⊢ 0 ∈ ℝ
104 epos ⊢ 0 < e
105 103 104 gtneii ⊢ e ≠ 0
106 105 a1i ⊢ j ∈ ℕ → e ≠ 0
107 97 102 106 divcld ⊢ j ∈ ℕ → j + 1 e ∈ ℂ
108 107 90 expcld ⊢ j ∈ ℕ → j + 1 e j + 1 ∈ ℂ
109 99 108 mulcld ⊢ j ∈ ℕ → 2 ⁢ j + 1 ⁢ j + 1 e j + 1 ∈ ℂ
110 2rp ⊢ 2 ∈ ℝ +
111 110 a1i ⊢ j ∈ ℕ → 2 ∈ ℝ +
112 nnre ⊢ j ∈ ℕ → j ∈ ℝ
113 103 a1i ⊢ j ∈ ℕ → 0 ∈ ℝ
114 1red ⊢ j ∈ ℕ → 1 ∈ ℝ
115 0le1 ⊢ 0 ≤ 1
116 115 a1i ⊢ j ∈ ℕ → 0 ≤ 1
117 nnge1 ⊢ j ∈ ℕ → 1 ≤ j
118 113 114 112 116 117 letrd ⊢ j ∈ ℕ → 0 ≤ j
119 112 118 ge0p1rpd ⊢ j ∈ ℕ → j + 1 ∈ ℝ +
120 111 119 rpmulcld ⊢ j ∈ ℕ → 2 ⁢ j + 1 ∈ ℝ +
121 120 sqrtgt0d ⊢ j ∈ ℕ → 0 < 2 ⁢ j + 1
122 121 gt0ne0d ⊢ j ∈ ℕ → 2 ⁢ j + 1 ≠ 0
123 80 nnne0d ⊢ j ∈ ℕ → j + 1 ≠ 0
124 97 102 123 106 divne0d ⊢ j ∈ ℕ → j + 1 e ≠ 0
125 nnz ⊢ j ∈ ℕ → j ∈ ℤ
126 125 peano2zd ⊢ j ∈ ℕ → j + 1 ∈ ℤ
127 107 124 126 expne0d ⊢ j ∈ ℕ → j + 1 e j + 1 ≠ 0
128 99 108 122 127 mulne0d ⊢ j ∈ ℕ → 2 ⁢ j + 1 ⁢ j + 1 e j + 1 ≠ 0
129 93 109 128 divcld ⊢ j ∈ ℕ → j + 1 ! 2 ⁢ j + 1 ⁢ j + 1 e j + 1 ∈ ℂ
130 81 89 80 129 fvmptd ⊢ j ∈ ℕ → A ⁡ j + 1 = j + 1 ! 2 ⁢ j + 1 ⁢ j + 1 e j + 1
131 nnrp ⊢ j + 1 ! ∈ ℕ → j + 1 ! ∈ ℝ +
132 90 91 131 3syl ⊢ j ∈ ℕ → j + 1 ! ∈ ℝ +
133 120 rpsqrtcld ⊢ j ∈ ℕ → 2 ⁢ j + 1 ∈ ℝ +
134 epr ⊢ e ∈ ℝ +
135 134 a1i ⊢ j ∈ ℕ → e ∈ ℝ +
136 119 135 rpdivcld ⊢ j ∈ ℕ → j + 1 e ∈ ℝ +
137 136 126 rpexpcld ⊢ j ∈ ℕ → j + 1 e j + 1 ∈ ℝ +
138 133 137 rpmulcld ⊢ j ∈ ℕ → 2 ⁢ j + 1 ⁢ j + 1 e j + 1 ∈ ℝ +
139 132 138 rpdivcld ⊢ j ∈ ℕ → j + 1 ! 2 ⁢ j + 1 ⁢ j + 1 e j + 1 ∈ ℝ +
140 130 139 eqeltrd ⊢ j ∈ ℕ → A ⁡ j + 1 ∈ ℝ +
141 140 relogcld ⊢ j ∈ ℕ → log ⁡ A ⁡ j + 1 ∈ ℝ
142 nfcv ⊢ Ⅎ _ n j + 1
143 21 142 nffv ⊢ Ⅎ _ n A ⁡ j + 1
144 19 143 nffv ⊢ Ⅎ _ n log ⁡ A ⁡ j + 1
145 2fveq3 ⊢ n = j + 1 → log ⁡ A ⁡ n = log ⁡ A ⁡ j + 1
146 142 144 145 2 fvmptf ⊢ j + 1 ∈ ℕ ∧ log ⁡ A ⁡ j + 1 ∈ ℝ → B ⁡ j + 1 = log ⁡ A ⁡ j + 1
147 80 141 146 syl2anc ⊢ j ∈ ℕ → B ⁡ j + 1 = log ⁡ A ⁡ j + 1
148 147 141 eqeltrd ⊢ j ∈ ℕ → B ⁡ j + 1 ∈ ℝ
149 78 ffvelcdmi ⊢ j ∈ ℕ → B ⁡ j ∈ ℝ
150 eqid ⊢ z ∈ ℕ ⟼ 1 2 ⁢ z + 1 ⁢ 1 2 ⁢ j + 1 2 ⁢ z = z ∈ ℕ ⟼ 1 2 ⁢ z + 1 ⁢ 1 2 ⁢ j + 1 2 ⁢ z
151 1 2 150 stirlinglem11 ⊢ j ∈ ℕ → B ⁡ j + 1 < B ⁡ j
152 148 149 151 ltled ⊢ j ∈ ℕ → B ⁡ j + 1 ≤ B ⁡ j
153 152 adantl ⊢ ⊤ ∧ j ∈ ℕ → B ⁡ j + 1 ≤ B ⁡ j
154 52 a1i ⊢ ⊤ → ∃ x ∈ ℝ ∀ j ∈ ℕ x ≤ B ⁡ j
155 76 77 79 153 154 climinf ⊢ ⊤ → B ⇝ inf ran ⁡ B ℝ <
156 155 mptru ⊢ B ⇝ inf ran ⁡ B ℝ <
157 breq2 ⊢ d = inf ran ⁡ B ℝ < → B ⇝ d ↔ B ⇝ inf ran ⁡ B ℝ <
158 157 rspcev ⊢ inf ran ⁡ B ℝ < ∈ ℝ ∧ B ⇝ inf ran ⁡ B ℝ < → ∃ d ∈ ℝ B ⇝ d
159 75 156 158 mp2an ⊢ ∃ d ∈ ℝ B ⇝ d