Metamath Proof Explorer


Theorem stirlinglem7

Description: Algebraic manipulation of the formula for J(n). (Contributed by Glauco Siliprandi, 29-Jun-2017)

Ref Expression
Hypotheses stirlinglem7.1 J = n 1 + 2 n 2 log n + 1 n 1
stirlinglem7.2 K = k 1 2 k + 1 1 2 N + 1 2 k
stirlinglem7.3 H = k 0 2 1 2 k + 1 1 2 N + 1 2 k + 1
Assertion stirlinglem7 N seq 1 + K J N

Proof

Step Hyp Ref Expression
1 stirlinglem7.1 J = n 1 + 2 n 2 log n + 1 n 1
2 stirlinglem7.2 K = k 1 2 k + 1 1 2 N + 1 2 k
3 stirlinglem7.3 H = k 0 2 1 2 k + 1 1 2 N + 1 2 k + 1
4 nnuz = 1
5 1zzd N 1
6 1e0p1 1 = 0 + 1
7 6 a1i N 1 = 0 + 1
8 7 seqeq1d N seq 1 + H = seq 0 + 1 + H
9 nn0uz 0 = 0
10 0nn0 0 0
11 10 a1i N 0 0
12 oveq2 k = j 2 k = 2 j
13 12 oveq1d k = j 2 k + 1 = 2 j + 1
14 13 oveq2d k = j 1 2 k + 1 = 1 2 j + 1
15 13 oveq2d k = j 1 2 N + 1 2 k + 1 = 1 2 N + 1 2 j + 1
16 14 15 oveq12d k = j 1 2 k + 1 1 2 N + 1 2 k + 1 = 1 2 j + 1 1 2 N + 1 2 j + 1
17 16 oveq2d k = j 2 1 2 k + 1 1 2 N + 1 2 k + 1 = 2 1 2 j + 1 1 2 N + 1 2 j + 1
18 simpr N j 0 j 0
19 2cnd N j 0 2
20 2cnd j 0 2
21 nn0cn j 0 j
22 20 21 mulcld j 0 2 j
23 1cnd j 0 1
24 22 23 addcld j 0 2 j + 1
25 24 adantl N j 0 2 j + 1
26 0red j 0 0
27 2re 2
28 27 a1i j 0 2
29 nn0re j 0 j
30 28 29 remulcld j 0 2 j
31 1red j 0 1
32 0le2 0 2
33 32 a1i j 0 0 2
34 nn0ge0 j 0 0 j
35 28 29 33 34 mulge0d j 0 0 2 j
36 0lt1 0 < 1
37 36 a1i j 0 0 < 1
38 30 31 35 37 addgegt0d j 0 0 < 2 j + 1
39 26 38 ltned j 0 0 2 j + 1
40 39 adantl N j 0 0 2 j + 1
41 40 necomd N j 0 2 j + 1 0
42 25 41 reccld N j 0 1 2 j + 1
43 nncn N N
44 43 adantr N j 0 N
45 19 44 mulcld N j 0 2 N
46 1cnd N j 0 1
47 45 46 addcld N j 0 2 N + 1
48 27 a1i N 2
49 nnre N N
50 48 49 remulcld N 2 N
51 1red N 1
52 32 a1i N 0 2
53 0red N 0
54 nngt0 N 0 < N
55 53 49 54 ltled N 0 N
56 48 49 52 55 mulge0d N 0 2 N
57 36 a1i N 0 < 1
58 50 51 56 57 addgegt0d N 0 < 2 N + 1
59 58 gt0ne0d N 2 N + 1 0
60 59 adantr N j 0 2 N + 1 0
61 47 60 reccld N j 0 1 2 N + 1
62 2nn0 2 0
63 62 a1i N j 0 2 0
64 63 18 nn0mulcld N j 0 2 j 0
65 1nn0 1 0
66 65 a1i N j 0 1 0
67 64 66 nn0addcld N j 0 2 j + 1 0
68 61 67 expcld N j 0 1 2 N + 1 2 j + 1
69 42 68 mulcld N j 0 1 2 j + 1 1 2 N + 1 2 j + 1
70 19 69 mulcld N j 0 2 1 2 j + 1 1 2 N + 1 2 j + 1
71 3 17 18 70 fvmptd3 N j 0 H j = 2 1 2 j + 1 1 2 N + 1 2 j + 1
72 71 70 eqeltrd N j 0 H j
73 3 stirlinglem6 N seq 0 + H log N + 1 N
74 9 11 72 73 clim2ser N seq 0 + 1 + H log N + 1 N seq 0 + H 0
75 8 74 eqbrtrd N seq 1 + H log N + 1 N seq 0 + H 0
76 0z 0
77 seq1 0 seq 0 + H 0 = H 0
78 76 77 mp1i N seq 0 + H 0 = H 0
79 3 a1i N H = k 0 2 1 2 k + 1 1 2 N + 1 2 k + 1
80 simpr N k = 0 k = 0
81 80 oveq2d N k = 0 2 k = 2 0
82 81 oveq1d N k = 0 2 k + 1 = 2 0 + 1
83 82 oveq2d N k = 0 1 2 k + 1 = 1 2 0 + 1
84 82 oveq2d N k = 0 1 2 N + 1 2 k + 1 = 1 2 N + 1 2 0 + 1
85 83 84 oveq12d N k = 0 1 2 k + 1 1 2 N + 1 2 k + 1 = 1 2 0 + 1 1 2 N + 1 2 0 + 1
86 85 oveq2d N k = 0 2 1 2 k + 1 1 2 N + 1 2 k + 1 = 2 1 2 0 + 1 1 2 N + 1 2 0 + 1
87 2cnd N 2
88 0cnd N 0
89 87 88 mulcld N 2 0
90 1cnd N 1
91 89 90 addcld N 2 0 + 1
92 87 mul01d N 2 0 = 0
93 92 eqcomd N 0 = 2 0
94 93 oveq1d N 0 + 1 = 2 0 + 1
95 7 94 eqtrd N 1 = 2 0 + 1
96 57 95 breqtrd N 0 < 2 0 + 1
97 96 gt0ne0d N 2 0 + 1 0
98 91 97 reccld N 1 2 0 + 1
99 87 43 mulcld N 2 N
100 99 90 addcld N 2 N + 1
101 100 59 reccld N 1 2 N + 1
102 95 65 eqeltrrdi N 2 0 + 1 0
103 101 102 expcld N 1 2 N + 1 2 0 + 1
104 98 103 mulcld N 1 2 0 + 1 1 2 N + 1 2 0 + 1
105 87 104 mulcld N 2 1 2 0 + 1 1 2 N + 1 2 0 + 1
106 79 86 11 105 fvmptd N H 0 = 2 1 2 0 + 1 1 2 N + 1 2 0 + 1
107 92 oveq1d N 2 0 + 1 = 0 + 1
108 107 6 eqtr4di N 2 0 + 1 = 1
109 108 oveq2d N 1 2 0 + 1 = 1 1
110 90 div1d N 1 1 = 1
111 109 110 eqtrd N 1 2 0 + 1 = 1
112 108 oveq2d N 1 2 N + 1 2 0 + 1 = 1 2 N + 1 1
113 101 exp1d N 1 2 N + 1 1 = 1 2 N + 1
114 112 113 eqtrd N 1 2 N + 1 2 0 + 1 = 1 2 N + 1
115 111 114 oveq12d N 1 2 0 + 1 1 2 N + 1 2 0 + 1 = 1 1 2 N + 1
116 101 mullidd N 1 1 2 N + 1 = 1 2 N + 1
117 115 116 eqtrd N 1 2 0 + 1 1 2 N + 1 2 0 + 1 = 1 2 N + 1
118 117 oveq2d N 2 1 2 0 + 1 1 2 N + 1 2 0 + 1 = 2 1 2 N + 1
119 87 90 100 59 divassd N 2 1 2 N + 1 = 2 1 2 N + 1
120 87 mulridd N 2 1 = 2
121 120 oveq1d N 2 1 2 N + 1 = 2 2 N + 1
122 118 119 121 3eqtr2d N 2 1 2 0 + 1 1 2 N + 1 2 0 + 1 = 2 2 N + 1
123 78 106 122 3eqtrd N seq 0 + H 0 = 2 2 N + 1
124 123 oveq2d N log N + 1 N seq 0 + H 0 = log N + 1 N 2 2 N + 1
125 75 124 breqtrd N seq 1 + H log N + 1 N 2 2 N + 1
126 90 99 addcld N 1 + 2 N
127 126 halfcld N 1 + 2 N 2
128 seqex seq 1 + K V
129 128 a1i N seq 1 + K V
130 elnnuz j j 1
131 130 bilani N j j 1
132 oveq2 k = n 2 k = 2 n
133 132 oveq1d k = n 2 k + 1 = 2 n + 1
134 133 oveq2d k = n 1 2 k + 1 = 1 2 n + 1
135 133 oveq2d k = n 1 2 N + 1 2 k + 1 = 1 2 N + 1 2 n + 1
136 134 135 oveq12d k = n 1 2 k + 1 1 2 N + 1 2 k + 1 = 1 2 n + 1 1 2 N + 1 2 n + 1
137 136 oveq2d k = n 2 1 2 k + 1 1 2 N + 1 2 k + 1 = 2 1 2 n + 1 1 2 N + 1 2 n + 1
138 elfzuz n 1 j n 1
139 elnnuz n n 1
140 139 biimpri n 1 n
141 nnnn0 n n 0
142 138 140 141 3syl n 1 j n 0
143 142 adantl N j n 1 j n 0
144 2cnd N j n 1 j 2
145 143 nn0cnd N j n 1 j n
146 144 145 mulcld N j n 1 j 2 n
147 1cnd N j n 1 j 1
148 146 147 addcld N j n 1 j 2 n + 1
149 elfznn n 1 j n
150 0red n 0
151 1red n 1
152 27 a1i n 2
153 nnre n n
154 152 153 remulcld n 2 n
155 154 151 readdcld n 2 n + 1
156 36 a1i n 0 < 1
157 2rp 2 +
158 157 a1i n 2 +
159 nnrp n n +
160 158 159 rpmulcld n 2 n +
161 151 160 ltaddrp2d n 1 < 2 n + 1
162 150 151 155 156 161 lttrd n 0 < 2 n + 1
163 162 gt0ne0d n 2 n + 1 0
164 149 163 syl n 1 j 2 n + 1 0
165 164 adantl N j n 1 j 2 n + 1 0
166 148 165 reccld N j n 1 j 1 2 n + 1
167 101 ad2antrr N j n 1 j 1 2 N + 1
168 62 a1i N j n 1 j 2 0
169 168 143 nn0mulcld N j n 1 j 2 n 0
170 65 a1i N j n 1 j 1 0
171 169 170 nn0addcld N j n 1 j 2 n + 1 0
172 167 171 expcld N j n 1 j 1 2 N + 1 2 n + 1
173 166 172 mulcld N j n 1 j 1 2 n + 1 1 2 N + 1 2 n + 1
174 144 173 mulcld N j n 1 j 2 1 2 n + 1 1 2 N + 1 2 n + 1
175 3 137 143 174 fvmptd3 N j n 1 j H n = 2 1 2 n + 1 1 2 N + 1 2 n + 1
176 175 174 eqeltrd N j n 1 j H n
177 addcl n i n + i
178 177 adantl N j n i n + i
179 131 176 178 seqcl N j seq 1 + H j
180 1cnd N j n i 1
181 2cnd N j n i 2
182 43 ad2antrr N j n i N
183 181 182 mulcld N j n i 2 N
184 180 183 addcld N j n i 1 + 2 N
185 184 halfcld N j n i 1 + 2 N 2
186 simprl N j n i n
187 simprr N j n i i
188 185 186 187 adddid N j n i 1 + 2 N 2 n + i = 1 + 2 N 2 n + 1 + 2 N 2 i
189 132 oveq2d k = n 1 2 N + 1 2 k = 1 2 N + 1 2 n
190 134 189 oveq12d k = n 1 2 k + 1 1 2 N + 1 2 k = 1 2 n + 1 1 2 N + 1 2 n
191 149 adantl N j n 1 j n
192 167 169 expcld N j n 1 j 1 2 N + 1 2 n
193 166 192 mulcld N j n 1 j 1 2 n + 1 1 2 N + 1 2 n
194 2 190 191 193 fvmptd3 N j n 1 j K n = 1 2 n + 1 1 2 N + 1 2 n
195 126 ad2antrr N j n 1 j 1 + 2 N
196 2ne0 2 0
197 196 a1i N j n 1 j 2 0
198 195 144 174 197 div32d N j n 1 j 1 + 2 N 2 2 1 2 n + 1 1 2 N + 1 2 n + 1 = 1 + 2 N 2 1 2 n + 1 1 2 N + 1 2 n + 1 2
199 173 144 197 divcan3d N j n 1 j 2 1 2 n + 1 1 2 N + 1 2 n + 1 2 = 1 2 n + 1 1 2 N + 1 2 n + 1
200 199 oveq2d N j n 1 j 1 + 2 N 2 1 2 n + 1 1 2 N + 1 2 n + 1 2 = 1 + 2 N 1 2 n + 1 1 2 N + 1 2 n + 1
201 195 166 172 mul12d N j n 1 j 1 + 2 N 1 2 n + 1 1 2 N + 1 2 n + 1 = 1 2 n + 1 1 + 2 N 1 2 N + 1 2 n + 1
202 100 ad2antrr N j n 1 j 2 N + 1
203 59 ad2antrr N j n 1 j 2 N + 1 0
204 171 nn0zd N j n 1 j 2 n + 1
205 202 203 204 exprecd N j n 1 j 1 2 N + 1 2 n + 1 = 1 2 N + 1 2 n + 1
206 205 oveq2d N j n 1 j 1 + 2 N 1 2 N + 1 2 n + 1 = 1 + 2 N 1 2 N + 1 2 n + 1
207 202 171 expcld N j n 1 j 2 N + 1 2 n + 1
208 202 203 204 expne0d N j n 1 j 2 N + 1 2 n + 1 0
209 195 207 208 divrecd N j n 1 j 1 + 2 N 2 N + 1 2 n + 1 = 1 + 2 N 1 2 N + 1 2 n + 1
210 43 ad2antrr N j n 1 j N
211 144 210 mulcld N j n 1 j 2 N
212 147 211 addcomd N j n 1 j 1 + 2 N = 2 N + 1
213 202 169 expcld N j n 1 j 2 N + 1 2 n
214 213 202 mulcomd N j n 1 j 2 N + 1 2 n 2 N + 1 = 2 N + 1 2 N + 1 2 n
215 212 214 oveq12d N j n 1 j 1 + 2 N 2 N + 1 2 n 2 N + 1 = 2 N + 1 2 N + 1 2 N + 1 2 n
216 202 169 expp1d N j n 1 j 2 N + 1 2 n + 1 = 2 N + 1 2 n 2 N + 1
217 216 oveq2d N j n 1 j 1 + 2 N 2 N + 1 2 n + 1 = 1 + 2 N 2 N + 1 2 n 2 N + 1
218 2z 2
219 218 a1i N j n 1 j 2
220 143 nn0zd N j n 1 j n
221 219 220 zmulcld N j n 1 j 2 n
222 202 203 221 expne0d N j n 1 j 2 N + 1 2 n 0
223 202 202 213 203 222 divdiv1d N j n 1 j 2 N + 1 2 N + 1 2 N + 1 2 n = 2 N + 1 2 N + 1 2 N + 1 2 n
224 215 217 223 3eqtr4d N j n 1 j 1 + 2 N 2 N + 1 2 n + 1 = 2 N + 1 2 N + 1 2 N + 1 2 n
225 206 209 224 3eqtr2d N j n 1 j 1 + 2 N 1 2 N + 1 2 n + 1 = 2 N + 1 2 N + 1 2 N + 1 2 n
226 225 oveq2d N j n 1 j 1 2 n + 1 1 + 2 N 1 2 N + 1 2 n + 1 = 1 2 n + 1 2 N + 1 2 N + 1 2 N + 1 2 n
227 202 203 dividd N j n 1 j 2 N + 1 2 N + 1 = 1
228 1exp 2 n 1 2 n = 1
229 221 228 syl N j n 1 j 1 2 n = 1
230 227 229 eqtr4d N j n 1 j 2 N + 1 2 N + 1 = 1 2 n
231 230 oveq1d N j n 1 j 2 N + 1 2 N + 1 2 N + 1 2 n = 1 2 n 2 N + 1 2 n
232 147 202 203 169 expdivd N j n 1 j 1 2 N + 1 2 n = 1 2 n 2 N + 1 2 n
233 231 232 eqtr4d N j n 1 j 2 N + 1 2 N + 1 2 N + 1 2 n = 1 2 N + 1 2 n
234 233 oveq2d N j n 1 j 1 2 n + 1 2 N + 1 2 N + 1 2 N + 1 2 n = 1 2 n + 1 1 2 N + 1 2 n
235 201 226 234 3eqtrd N j n 1 j 1 + 2 N 1 2 n + 1 1 2 N + 1 2 n + 1 = 1 2 n + 1 1 2 N + 1 2 n
236 198 200 235 3eqtrd N j n 1 j 1 + 2 N 2 2 1 2 n + 1 1 2 N + 1 2 n + 1 = 1 2 n + 1 1 2 N + 1 2 n
237 175 eqcomd N j n 1 j 2 1 2 n + 1 1 2 N + 1 2 n + 1 = H n
238 237 oveq2d N j n 1 j 1 + 2 N 2 2 1 2 n + 1 1 2 N + 1 2 n + 1 = 1 + 2 N 2 H n
239 194 236 238 3eqtr2d N j n 1 j K n = 1 + 2 N 2 H n
240 178 188 131 176 239 seqdistr N j seq 1 + K j = 1 + 2 N 2 seq 1 + H j
241 4 5 125 127 129 179 240 climmulc2 N seq 1 + K 1 + 2 N 2 log N + 1 N 2 2 N + 1
242 90 99 addcomd N 1 + 2 N = 2 N + 1
243 242 oveq1d N 1 + 2 N 2 = 2 N + 1 2
244 243 oveq1d N 1 + 2 N 2 log N + 1 N 2 2 N + 1 = 2 N + 1 2 log N + 1 N 2 2 N + 1
245 243 127 eqeltrrd N 2 N + 1 2
246 43 90 addcld N N + 1
247 nnne0 N N 0
248 246 43 247 divcld N N + 1 N
249 49 51 readdcld N N + 1
250 49 ltp1d N N < N + 1
251 53 49 249 54 250 lttrd N 0 < N + 1
252 251 gt0ne0d N N + 1 0
253 246 43 252 247 divne0d N N + 1 N 0
254 248 253 logcld N log N + 1 N
255 87 100 59 divcld N 2 2 N + 1
256 245 254 255 subdid N 2 N + 1 2 log N + 1 N 2 2 N + 1 = 2 N + 1 2 log N + 1 N 2 N + 1 2 2 2 N + 1
257 99 90 addcomd N 2 N + 1 = 1 + 2 N
258 257 oveq1d N 2 N + 1 2 = 1 + 2 N 2
259 258 oveq1d N 2 N + 1 2 log N + 1 N = 1 + 2 N 2 log N + 1 N
260 196 a1i N 2 0
261 100 87 59 260 divcan6d N 2 N + 1 2 2 2 N + 1 = 1
262 259 261 oveq12d N 2 N + 1 2 log N + 1 N 2 N + 1 2 2 2 N + 1 = 1 + 2 N 2 log N + 1 N 1
263 244 256 262 3eqtrd N 1 + 2 N 2 log N + 1 N 2 2 N + 1 = 1 + 2 N 2 log N + 1 N 1
264 241 263 breqtrd N seq 1 + K 1 + 2 N 2 log N + 1 N 1
265 oveq2 n = N 2 n = 2 N
266 265 oveq2d n = N 1 + 2 n = 1 + 2 N
267 266 oveq1d n = N 1 + 2 n 2 = 1 + 2 N 2
268 oveq1 n = N n + 1 = N + 1
269 id n = N n = N
270 268 269 oveq12d n = N n + 1 n = N + 1 N
271 270 fveq2d n = N log n + 1 n = log N + 1 N
272 267 271 oveq12d n = N 1 + 2 n 2 log n + 1 n = 1 + 2 N 2 log N + 1 N
273 272 oveq1d n = N 1 + 2 n 2 log n + 1 n 1 = 1 + 2 N 2 log N + 1 N 1
274 id N N
275 127 254 mulcld N 1 + 2 N 2 log N + 1 N
276 275 90 subcld N 1 + 2 N 2 log N + 1 N 1
277 1 273 274 276 fvmptd3 N J N = 1 + 2 N 2 log N + 1 N 1
278 264 277 breqtrrd N seq 1 + K J N