Metamath Proof Explorer


Theorem stirlinglem10

Description: A bound for any B(N)-B(N + 1) that will allow to find a lower bound for the whole B sequence. (Contributed by Glauco Siliprandi, 29-Jun-2017)

Ref Expression
Hypotheses stirlinglem10.1 A = n n ! 2 n n e n
stirlinglem10.2 B = n log A n
stirlinglem10.4 K = k 1 2 k + 1 1 2 N + 1 2 k
stirlinglem10.5 L = k 1 2 N + 1 2 k
Assertion stirlinglem10 N B N B N + 1 1 4 1 N N + 1

Proof

Step Hyp Ref Expression
1 stirlinglem10.1 A = n n ! 2 n n e n
2 stirlinglem10.2 B = n log A n
3 stirlinglem10.4 K = k 1 2 k + 1 1 2 N + 1 2 k
4 stirlinglem10.5 L = k 1 2 N + 1 2 k
5 nnuz = 1
6 1zzd N 1
7 eqid n 1 + 2 n 2 log n + 1 n 1 = n 1 + 2 n 2 log n + 1 n 1
8 1 2 7 3 stirlinglem9 N seq 1 + K B N B N + 1
9 2cnd N 2
10 nncn N N
11 9 10 mulcld N 2 N
12 1cnd N 1
13 11 12 addcld N 2 N + 1
14 13 sqcld N 2 N + 1 2
15 0red N 0
16 1red N 1
17 2re 2
18 17 a1i N 2
19 nnre N N
20 18 19 remulcld N 2 N
21 20 16 readdcld N 2 N + 1
22 0lt1 0 < 1
23 22 a1i N 0 < 1
24 2rp 2 +
25 24 a1i N 2 +
26 nnrp N N +
27 25 26 rpmulcld N 2 N +
28 16 27 ltaddrp2d N 1 < 2 N + 1
29 15 16 21 23 28 lttrd N 0 < 2 N + 1
30 29 gt0ne0d N 2 N + 1 0
31 2z 2
32 31 a1i N 2
33 13 30 32 expne0d N 2 N + 1 2 0
34 14 33 reccld N 1 2 N + 1 2
35 16 renegcld N 1
36 21 resqcld N 2 N + 1 2
37 36 33 rereccld N 1 2 N + 1 2
38 1re 1
39 lt0neg2 1 0 < 1 1 < 0
40 38 39 ax-mp 0 < 1 1 < 0
41 23 40 sylib N 1 < 0
42 21 30 sqgt0d N 0 < 2 N + 1 2
43 36 42 recgt0d N 0 < 1 2 N + 1 2
44 35 15 37 41 43 lttrd N 1 < 1 2 N + 1 2
45 2nn 2
46 45 a1i N 2
47 expgt1 2 N + 1 2 1 < 2 N + 1 1 < 2 N + 1 2
48 21 46 28 47 syl3anc N 1 < 2 N + 1 2
49 36 42 elrpd N 2 N + 1 2 +
50 49 recgt1d N 1 < 2 N + 1 2 1 2 N + 1 2 < 1
51 48 50 mpbid N 1 2 N + 1 2 < 1
52 37 16 absltd N 1 2 N + 1 2 < 1 1 < 1 2 N + 1 2 1 2 N + 1 2 < 1
53 44 51 52 mpbir2and N 1 2 N + 1 2 < 1
54 1nn0 1 0
55 54 a1i N 1 0
56 4 a1i N j 1 L = k 1 2 N + 1 2 k
57 simpr N j 1 k = j k = j
58 57 oveq2d N j 1 k = j 1 2 N + 1 2 k = 1 2 N + 1 2 j
59 elnnuz j j 1
60 59 bilanri N j 1 j
61 34 adantr N j 1 1 2 N + 1 2
62 60 nnnn0d N j 1 j 0
63 61 62 expcld N j 1 1 2 N + 1 2 j
64 56 58 60 63 fvmptd N j 1 L j = 1 2 N + 1 2 j
65 34 53 55 64 geolim2 N seq 1 + L 1 2 N + 1 2 1 1 1 2 N + 1 2
66 34 exp1d N 1 2 N + 1 2 1 = 1 2 N + 1 2
67 14 33 dividd N 2 N + 1 2 2 N + 1 2 = 1
68 67 eqcomd N 1 = 2 N + 1 2 2 N + 1 2
69 68 oveq1d N 1 1 2 N + 1 2 = 2 N + 1 2 2 N + 1 2 1 2 N + 1 2
70 49 rpcnne0d N 2 N + 1 2 2 N + 1 2 0
71 divsubdir 2 N + 1 2 1 2 N + 1 2 2 N + 1 2 0 2 N + 1 2 1 2 N + 1 2 = 2 N + 1 2 2 N + 1 2 1 2 N + 1 2
72 14 12 70 71 syl3anc N 2 N + 1 2 1 2 N + 1 2 = 2 N + 1 2 2 N + 1 2 1 2 N + 1 2
73 ax-1cn 1
74 binom2 2 N 1 2 N + 1 2 = 2 N 2 + 2 2 N 1 + 1 2
75 11 73 74 sylancl N 2 N + 1 2 = 2 N 2 + 2 2 N 1 + 1 2
76 75 oveq1d N 2 N + 1 2 1 = 2 N 2 + 2 2 N 1 + 1 2 - 1
77 9 10 sqmuld N 2 N 2 = 2 2 N 2
78 sq2 2 2 = 4
79 78 a1i N 2 2 = 4
80 79 oveq1d N 2 2 N 2 = 4 N 2
81 77 80 eqtrd N 2 N 2 = 4 N 2
82 11 mulridd N 2 N 1 = 2 N
83 82 oveq2d N 2 2 N 1 = 2 2 N
84 9 9 10 mulassd N 2 2 N = 2 2 N
85 2t2e4 2 2 = 4
86 85 a1i N 2 2 = 4
87 86 oveq1d N 2 2 N = 4 N
88 83 84 87 3eqtr2d N 2 2 N 1 = 4 N
89 81 88 oveq12d N 2 N 2 + 2 2 N 1 = 4 N 2 + 4 N
90 4cn 4
91 90 a1i N 4
92 10 sqcld N N 2
93 91 92 10 adddid N 4 N 2 + N = 4 N 2 + 4 N
94 10 sqvald N N 2 = N N
95 10 mulridd N N 1 = N
96 95 eqcomd N N = N 1
97 94 96 oveq12d N N 2 + N = N N + N 1
98 10 10 12 adddid N N N + 1 = N N + N 1
99 97 98 eqtr4d N N 2 + N = N N + 1
100 99 oveq2d N 4 N 2 + N = 4 N N + 1
101 89 93 100 3eqtr2d N 2 N 2 + 2 2 N 1 = 4 N N + 1
102 sq1 1 2 = 1
103 102 a1i N 1 2 = 1
104 101 103 oveq12d N 2 N 2 + 2 2 N 1 + 1 2 = 4 N N + 1 + 1
105 104 oveq1d N 2 N 2 + 2 2 N 1 + 1 2 - 1 = 4 N N + 1 + 1 - 1
106 10 12 addcld N N + 1
107 10 106 mulcld N N N + 1
108 91 107 mulcld N 4 N N + 1
109 108 12 pncand N 4 N N + 1 + 1 - 1 = 4 N N + 1
110 76 105 109 3eqtrd N 2 N + 1 2 1 = 4 N N + 1
111 110 oveq1d N 2 N + 1 2 1 2 N + 1 2 = 4 N N + 1 2 N + 1 2
112 69 72 111 3eqtr2d N 1 1 2 N + 1 2 = 4 N N + 1 2 N + 1 2
113 66 112 oveq12d N 1 2 N + 1 2 1 1 1 2 N + 1 2 = 1 2 N + 1 2 4 N N + 1 2 N + 1 2
114 4pos 0 < 4
115 114 a1i N 0 < 4
116 115 gt0ne0d N 4 0
117 nnne0 N N 0
118 19 16 readdcld N N + 1
119 nngt0 N 0 < N
120 19 ltp1d N N < N + 1
121 15 19 118 119 120 lttrd N 0 < N + 1
122 121 gt0ne0d N N + 1 0
123 10 106 117 122 mulne0d N N N + 1 0
124 91 107 116 123 mulne0d N 4 N N + 1 0
125 12 14 108 14 33 33 124 divdivdivd N 1 2 N + 1 2 4 N N + 1 2 N + 1 2 = 1 2 N + 1 2 2 N + 1 2 4 N N + 1
126 12 14 mulcomd N 1 2 N + 1 2 = 2 N + 1 2 1
127 126 oveq1d N 1 2 N + 1 2 2 N + 1 2 4 N N + 1 = 2 N + 1 2 1 2 N + 1 2 4 N N + 1
128 12 mulridd N 1 1 = 1
129 128 eqcomd N 1 = 1 1
130 129 oveq1d N 1 4 N N + 1 = 1 1 4 N N + 1
131 12 91 12 107 116 123 divmuldivd N 1 4 1 N N + 1 = 1 1 4 N N + 1
132 130 131 eqtr4d N 1 4 N N + 1 = 1 4 1 N N + 1
133 67 132 oveq12d N 2 N + 1 2 2 N + 1 2 1 4 N N + 1 = 1 1 4 1 N N + 1
134 14 14 12 108 33 124 divmuldivd N 2 N + 1 2 2 N + 1 2 1 4 N N + 1 = 2 N + 1 2 1 2 N + 1 2 4 N N + 1
135 91 116 reccld N 1 4
136 107 123 reccld N 1 N N + 1
137 135 136 mulcld N 1 4 1 N N + 1
138 137 mullidd N 1 1 4 1 N N + 1 = 1 4 1 N N + 1
139 133 134 138 3eqtr3d N 2 N + 1 2 1 2 N + 1 2 4 N N + 1 = 1 4 1 N N + 1
140 125 127 139 3eqtrd N 1 2 N + 1 2 4 N N + 1 2 N + 1 2 = 1 4 1 N N + 1
141 113 140 eqtrd N 1 2 N + 1 2 1 1 1 2 N + 1 2 = 1 4 1 N N + 1
142 65 141 breqtrd N seq 1 + L 1 4 1 N N + 1
143 59 bilani N j j 1
144 oveq2 k = n 2 k = 2 n
145 144 oveq1d k = n 2 k + 1 = 2 n + 1
146 145 oveq2d k = n 1 2 k + 1 = 1 2 n + 1
147 144 oveq2d k = n 1 2 N + 1 2 k = 1 2 N + 1 2 n
148 146 147 oveq12d k = n 1 2 k + 1 1 2 N + 1 2 k = 1 2 n + 1 1 2 N + 1 2 n
149 elfznn n 1 j n
150 149 adantl N n 1 j n
151 2cnd N n 1 j 2
152 150 nncnd N n 1 j n
153 151 152 mulcld N n 1 j 2 n
154 1cnd N n 1 j 1
155 153 154 addcld N n 1 j 2 n + 1
156 0red n 0
157 1red n 1
158 17 a1i n 2
159 nnre n n
160 158 159 remulcld n 2 n
161 160 157 readdcld n 2 n + 1
162 22 a1i n 0 < 1
163 24 a1i n 2 +
164 nnrp n n +
165 163 164 rpmulcld n 2 n +
166 157 165 ltaddrp2d n 1 < 2 n + 1
167 156 157 161 162 166 lttrd n 0 < 2 n + 1
168 149 167 syl n 1 j 0 < 2 n + 1
169 168 gt0ne0d n 1 j 2 n + 1 0
170 169 adantl N n 1 j 2 n + 1 0
171 155 170 reccld N n 1 j 1 2 n + 1
172 10 adantr N n 1 j N
173 151 172 mulcld N n 1 j 2 N
174 173 154 addcld N n 1 j 2 N + 1
175 30 adantr N n 1 j 2 N + 1 0
176 174 175 reccld N n 1 j 1 2 N + 1
177 2nn0 2 0
178 177 a1i N n 1 j 2 0
179 150 nnnn0d N n 1 j n 0
180 178 179 nn0mulcld N n 1 j 2 n 0
181 176 180 expcld N n 1 j 1 2 N + 1 2 n
182 171 181 mulcld N n 1 j 1 2 n + 1 1 2 N + 1 2 n
183 3 148 150 182 fvmptd3 N n 1 j K n = 1 2 n + 1 1 2 N + 1 2 n
184 183 adantlr N j n 1 j K n = 1 2 n + 1 1 2 N + 1 2 n
185 167 gt0ne0d n 2 n + 1 0
186 161 185 rereccld n 1 2 n + 1
187 149 186 syl n 1 j 1 2 n + 1
188 187 adantl N j n 1 j 1 2 n + 1
189 21 30 rereccld N 1 2 N + 1
190 189 adantr N n 1 j 1 2 N + 1
191 190 180 reexpcld N n 1 j 1 2 N + 1 2 n
192 191 adantlr N j n 1 j 1 2 N + 1 2 n
193 188 192 remulcld N j n 1 j 1 2 n + 1 1 2 N + 1 2 n
194 184 193 eqeltrd N j n 1 j K n
195 readdcl n i n + i
196 195 adantl N j n i n + i
197 143 194 196 seqcl N j seq 1 + K j
198 oveq2 k = n 1 2 N + 1 2 k = 1 2 N + 1 2 n
199 34 adantr N n 1 j 1 2 N + 1 2
200 199 179 expcld N n 1 j 1 2 N + 1 2 n
201 4 198 150 200 fvmptd3 N n 1 j L n = 1 2 N + 1 2 n
202 37 adantr N n 1 j 1 2 N + 1 2
203 202 179 reexpcld N n 1 j 1 2 N + 1 2 n
204 201 203 eqeltrd N n 1 j L n
205 204 adantlr N j n 1 j L n
206 143 205 196 seqcl N j seq 1 + L j
207 31 a1i n 1 j 2
208 elfzelz n 1 j n
209 207 208 zmulcld n 1 j 2 n
210 1exp 2 n 1 2 n = 1
211 209 210 syl n 1 j 1 2 n = 1
212 1exp n 1 n = 1
213 208 212 syl n 1 j 1 n = 1
214 211 213 eqtr4d n 1 j 1 2 n = 1 n
215 214 adantl N n 1 j 1 2 n = 1 n
216 174 179 178 expmuld N n 1 j 2 N + 1 2 n = 2 N + 1 2 n
217 215 216 oveq12d N n 1 j 1 2 n 2 N + 1 2 n = 1 n 2 N + 1 2 n
218 154 174 175 180 expdivd N n 1 j 1 2 N + 1 2 n = 1 2 n 2 N + 1 2 n
219 174 sqcld N n 1 j 2 N + 1 2
220 31 a1i N n 1 j 2
221 174 175 220 expne0d N n 1 j 2 N + 1 2 0
222 154 219 221 179 expdivd N n 1 j 1 2 N + 1 2 n = 1 n 2 N + 1 2 n
223 217 218 222 3eqtr4d N n 1 j 1 2 N + 1 2 n = 1 2 N + 1 2 n
224 223 oveq2d N n 1 j 1 2 n + 1 1 2 N + 1 2 n = 1 2 n + 1 1 2 N + 1 2 n
225 1rp 1 +
226 225 a1i N n 1 j 1 +
227 17 a1i N n 1 j 2
228 150 nnred N n 1 j n
229 227 228 remulcld N n 1 j 2 n
230 178 nn0ge0d N n 1 j 0 2
231 179 nn0ge0d N n 1 j 0 n
232 227 228 230 231 mulge0d N n 1 j 0 2 n
233 229 232 ge0p1rpd N n 1 j 2 n + 1 +
234 1red N n 1 j 1
235 226 rpge0d N n 1 j 0 1
236 157 161 166 ltled n 1 2 n + 1
237 149 236 syl n 1 j 1 2 n + 1
238 237 adantl N n 1 j 1 2 n + 1
239 226 233 234 235 238 lediv2ad N n 1 j 1 2 n + 1 1 1
240 154 div1d N n 1 j 1 1 = 1
241 239 240 breqtrd N n 1 j 1 2 n + 1 1
242 150 186 syl N n 1 j 1 2 n + 1
243 19 adantr N n 1 j N
244 227 243 remulcld N n 1 j 2 N
245 15 19 119 ltled N 0 N
246 245 adantr N n 1 j 0 N
247 227 243 230 246 mulge0d N n 1 j 0 2 N
248 244 247 ge0p1rpd N n 1 j 2 N + 1 +
249 248 220 rpexpcld N n 1 j 2 N + 1 2 +
250 249 rpreccld N n 1 j 1 2 N + 1 2 +
251 208 adantl N n 1 j n
252 250 251 rpexpcld N n 1 j 1 2 N + 1 2 n +
253 242 234 252 lemul1d N n 1 j 1 2 n + 1 1 1 2 n + 1 1 2 N + 1 2 n 1 1 2 N + 1 2 n
254 241 253 mpbid N n 1 j 1 2 n + 1 1 2 N + 1 2 n 1 1 2 N + 1 2 n
255 200 mullidd N n 1 j 1 1 2 N + 1 2 n = 1 2 N + 1 2 n
256 254 255 breqtrd N n 1 j 1 2 n + 1 1 2 N + 1 2 n 1 2 N + 1 2 n
257 224 256 eqbrtrd N n 1 j 1 2 n + 1 1 2 N + 1 2 n 1 2 N + 1 2 n
258 257 183 201 3brtr4d N n 1 j K n L n
259 258 adantlr N j n 1 j K n L n
260 143 194 205 259 serle N j seq 1 + K j seq 1 + L j
261 5 6 8 142 197 206 260 climle N B N B N + 1 1 4 1 N N + 1