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

Theorem stirlinglem10 29876
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.)
Hypotheses
Ref Expression
stirlinglem10.1  |-  A  =  ( n  e.  NN  |->  ( ( ! `  n )  /  (
( sqr `  (
2  x.  n ) )  x.  ( ( n  /  _e ) ^ n ) ) ) )
stirlinglem10.2  |-  B  =  ( n  e.  NN  |->  ( log `  ( A `
 n ) ) )
stirlinglem10.4  |-  K  =  ( k  e.  NN  |->  ( ( 1  / 
( ( 2  x.  k )  +  1 ) )  x.  (
( 1  /  (
( 2  x.  N
)  +  1 ) ) ^ ( 2  x.  k ) ) ) )
stirlinglem10.5  |-  L  =  ( k  e.  NN  |->  ( ( 1  / 
( ( ( 2  x.  N )  +  1 ) ^ 2 ) ) ^ k
) )
Assertion
Ref Expression
stirlinglem10  |-  ( N  e.  NN  ->  (
( B `  N
)  -  ( B `
 ( N  + 
1 ) ) )  <_  ( ( 1  /  4 )  x.  ( 1  /  ( N  x.  ( N  +  1 ) ) ) ) )
Distinct variable groups:    k, n    n, K    n, L    k, N, n
Allowed substitution hints:    A( k, n)    B( k, n)    K( k)    L( k)

Proof of Theorem stirlinglem10
Dummy variables  i 
j are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 nnuz 10895 . 2  |-  NN  =  ( ZZ>= `  1 )
2 1nn0 10594 . . . 4  |-  1  e.  NN0
32a1i 11 . . 3  |-  ( N  e.  NN  ->  1  e.  NN0 )
43nn0zd 10744 . 2  |-  ( N  e.  NN  ->  1  e.  ZZ )
5 stirlinglem10.1 . . 3  |-  A  =  ( n  e.  NN  |->  ( ( ! `  n )  /  (
( sqr `  (
2  x.  n ) )  x.  ( ( n  /  _e ) ^ n ) ) ) )
6 stirlinglem10.2 . . 3  |-  B  =  ( n  e.  NN  |->  ( log `  ( A `
 n ) ) )
7 eqid 2442 . . 3  |-  ( n  e.  NN  |->  ( ( ( ( 1  +  ( 2  x.  n
) )  /  2
)  x.  ( log `  ( ( n  + 
1 )  /  n
) ) )  - 
1 ) )  =  ( n  e.  NN  |->  ( ( ( ( 1  +  ( 2  x.  n ) )  /  2 )  x.  ( log `  (
( n  +  1 )  /  n ) ) )  -  1 ) )
8 stirlinglem10.4 . . 3  |-  K  =  ( k  e.  NN  |->  ( ( 1  / 
( ( 2  x.  k )  +  1 ) )  x.  (
( 1  /  (
( 2  x.  N
)  +  1 ) ) ^ ( 2  x.  k ) ) ) )
95, 6, 7, 8stirlinglem9 29875 . 2  |-  ( N  e.  NN  ->  seq 1 (  +  ,  K )  ~~>  ( ( B `  N )  -  ( B `  ( N  +  1
) ) ) )
10 2cnd 10393 . . . . . . . 8  |-  ( N  e.  NN  ->  2  e.  CC )
11 nncn 10329 . . . . . . . 8  |-  ( N  e.  NN  ->  N  e.  CC )
1210, 11mulcld 9405 . . . . . . 7  |-  ( N  e.  NN  ->  (
2  x.  N )  e.  CC )
13 ax-1cn 9339 . . . . . . . 8  |-  1  e.  CC
1413a1i 11 . . . . . . 7  |-  ( N  e.  NN  ->  1  e.  CC )
1512, 14addcld 9404 . . . . . 6  |-  ( N  e.  NN  ->  (
( 2  x.  N
)  +  1 )  e.  CC )
1615sqcld 12005 . . . . 5  |-  ( N  e.  NN  ->  (
( ( 2  x.  N )  +  1 ) ^ 2 )  e.  CC )
17 0re 9385 . . . . . . . . 9  |-  0  e.  RR
1817a1i 11 . . . . . . . 8  |-  ( N  e.  NN  ->  0  e.  RR )
19 1re 9384 . . . . . . . . 9  |-  1  e.  RR
2019a1i 11 . . . . . . . 8  |-  ( N  e.  NN  ->  1  e.  RR )
21 2re 10390 . . . . . . . . . . 11  |-  2  e.  RR
2221a1i 11 . . . . . . . . . 10  |-  ( N  e.  NN  ->  2  e.  RR )
23 nnre 10328 . . . . . . . . . 10  |-  ( N  e.  NN  ->  N  e.  RR )
2422, 23remulcld 9413 . . . . . . . . 9  |-  ( N  e.  NN  ->  (
2  x.  N )  e.  RR )
2524, 20readdcld 9412 . . . . . . . 8  |-  ( N  e.  NN  ->  (
( 2  x.  N
)  +  1 )  e.  RR )
26 0lt1 9861 . . . . . . . . 9  |-  0  <  1
2726a1i 11 . . . . . . . 8  |-  ( N  e.  NN  ->  0  <  1 )
28 2rp 10995 . . . . . . . . . . 11  |-  2  e.  RR+
2928a1i 11 . . . . . . . . . 10  |-  ( N  e.  NN  ->  2  e.  RR+ )
30 nnrp 10999 . . . . . . . . . 10  |-  ( N  e.  NN  ->  N  e.  RR+ )
3129, 30rpmulcld 11042 . . . . . . . . 9  |-  ( N  e.  NN  ->  (
2  x.  N )  e.  RR+ )
3220, 31ltaddrp2d 11056 . . . . . . . 8  |-  ( N  e.  NN  ->  1  <  ( ( 2  x.  N )  +  1 ) )
3318, 20, 25, 27, 32lttrd 9531 . . . . . . 7  |-  ( N  e.  NN  ->  0  <  ( ( 2  x.  N )  +  1 ) )
3433gt0ne0d 9903 . . . . . 6  |-  ( N  e.  NN  ->  (
( 2  x.  N
)  +  1 )  =/=  0 )
35 2z 10677 . . . . . . 7  |-  2  e.  ZZ
3635a1i 11 . . . . . 6  |-  ( N  e.  NN  ->  2  e.  ZZ )
3715, 34, 36expne0d 12013 . . . . 5  |-  ( N  e.  NN  ->  (
( ( 2  x.  N )  +  1 ) ^ 2 )  =/=  0 )
3816, 37reccld 10099 . . . 4  |-  ( N  e.  NN  ->  (
1  /  ( ( ( 2  x.  N
)  +  1 ) ^ 2 ) )  e.  CC )
3920renegcld 9774 . . . . . 6  |-  ( N  e.  NN  ->  -u 1  e.  RR )
4025resqcld 12033 . . . . . . 7  |-  ( N  e.  NN  ->  (
( ( 2  x.  N )  +  1 ) ^ 2 )  e.  RR )
4140, 37rereccld 10157 . . . . . 6  |-  ( N  e.  NN  ->  (
1  /  ( ( ( 2  x.  N
)  +  1 ) ^ 2 ) )  e.  RR )
42 lt0neg2 9845 . . . . . . . 8  |-  ( 1  e.  RR  ->  (
0  <  1  <->  -u 1  <  0 ) )
4319, 42ax-mp 5 . . . . . . 7  |-  ( 0  <  1  <->  -u 1  <  0 )
4427, 43sylib 196 . . . . . 6  |-  ( N  e.  NN  ->  -u 1  <  0 )
4525, 34sqgt0d 12035 . . . . . . 7  |-  ( N  e.  NN  ->  0  <  ( ( ( 2  x.  N )  +  1 ) ^ 2 ) )
4640, 45recgt0d 10266 . . . . . 6  |-  ( N  e.  NN  ->  0  <  ( 1  /  (
( ( 2  x.  N )  +  1 ) ^ 2 ) ) )
4739, 18, 41, 44, 46lttrd 9531 . . . . 5  |-  ( N  e.  NN  ->  -u 1  <  ( 1  /  (
( ( 2  x.  N )  +  1 ) ^ 2 ) ) )
48 2nn 10478 . . . . . . . 8  |-  2  e.  NN
4948a1i 11 . . . . . . 7  |-  ( N  e.  NN  ->  2  e.  NN )
50 expgt1 11901 . . . . . . 7  |-  ( ( ( ( 2  x.  N )  +  1 )  e.  RR  /\  2  e.  NN  /\  1  <  ( ( 2  x.  N )  +  1 ) )  ->  1  <  ( ( ( 2  x.  N )  +  1 ) ^ 2 ) )
5125, 49, 32, 50syl3anc 1218 . . . . . 6  |-  ( N  e.  NN  ->  1  <  ( ( ( 2  x.  N )  +  1 ) ^ 2 ) )
5240, 45elrpd 11024 . . . . . . 7  |-  ( N  e.  NN  ->  (
( ( 2  x.  N )  +  1 ) ^ 2 )  e.  RR+ )
5352recgt1d 11040 . . . . . 6  |-  ( N  e.  NN  ->  (
1  <  ( (
( 2  x.  N
)  +  1 ) ^ 2 )  <->  ( 1  /  ( ( ( 2  x.  N )  +  1 ) ^
2 ) )  <  1 ) )
5451, 53mpbid 210 . . . . 5  |-  ( N  e.  NN  ->  (
1  /  ( ( ( 2  x.  N
)  +  1 ) ^ 2 ) )  <  1 )
5541, 20absltd 12915 . . . . 5  |-  ( N  e.  NN  ->  (
( abs `  (
1  /  ( ( ( 2  x.  N
)  +  1 ) ^ 2 ) ) )  <  1  <->  ( -u 1  <  ( 1  /  ( ( ( 2  x.  N )  +  1 ) ^
2 ) )  /\  ( 1  /  (
( ( 2  x.  N )  +  1 ) ^ 2 ) )  <  1 ) ) )
5647, 54, 55mpbir2and 913 . . . 4  |-  ( N  e.  NN  ->  ( abs `  ( 1  / 
( ( ( 2  x.  N )  +  1 ) ^ 2 ) ) )  <  1 )
57 stirlinglem10.5 . . . . . 6  |-  L  =  ( k  e.  NN  |->  ( ( 1  / 
( ( ( 2  x.  N )  +  1 ) ^ 2 ) ) ^ k
) )
5857a1i 11 . . . . 5  |-  ( ( N  e.  NN  /\  j  e.  ( ZZ>= ` 
1 ) )  ->  L  =  ( k  e.  NN  |->  ( ( 1  /  ( ( ( 2  x.  N )  +  1 ) ^
2 ) ) ^
k ) ) )
59 simpr 461 . . . . . 6  |-  ( ( ( N  e.  NN  /\  j  e.  ( ZZ>= ` 
1 ) )  /\  k  =  j )  ->  k  =  j )
6059oveq2d 6106 . . . . 5  |-  ( ( ( N  e.  NN  /\  j  e.  ( ZZ>= ` 
1 ) )  /\  k  =  j )  ->  ( ( 1  / 
( ( ( 2  x.  N )  +  1 ) ^ 2 ) ) ^ k
)  =  ( ( 1  /  ( ( ( 2  x.  N
)  +  1 ) ^ 2 ) ) ^ j ) )
61 elnnuz 10896 . . . . . . 7  |-  ( j  e.  NN  <->  j  e.  ( ZZ>= `  1 )
)
6261biimpri 206 . . . . . 6  |-  ( j  e.  ( ZZ>= `  1
)  ->  j  e.  NN )
6362adantl 466 . . . . 5  |-  ( ( N  e.  NN  /\  j  e.  ( ZZ>= ` 
1 ) )  -> 
j  e.  NN )
6438adantr 465 . . . . . 6  |-  ( ( N  e.  NN  /\  j  e.  ( ZZ>= ` 
1 ) )  -> 
( 1  /  (
( ( 2  x.  N )  +  1 ) ^ 2 ) )  e.  CC )
6563nnnn0d 10635 . . . . . 6  |-  ( ( N  e.  NN  /\  j  e.  ( ZZ>= ` 
1 ) )  -> 
j  e.  NN0 )
6664, 65expcld 12007 . . . . 5  |-  ( ( N  e.  NN  /\  j  e.  ( ZZ>= ` 
1 ) )  -> 
( ( 1  / 
( ( ( 2  x.  N )  +  1 ) ^ 2 ) ) ^ j
)  e.  CC )
6758, 60, 63, 66fvmptd 5778 . . . 4  |-  ( ( N  e.  NN  /\  j  e.  ( ZZ>= ` 
1 ) )  -> 
( L `  j
)  =  ( ( 1  /  ( ( ( 2  x.  N
)  +  1 ) ^ 2 ) ) ^ j ) )
6838, 56, 3, 67geolim2 13330 . . 3  |-  ( N  e.  NN  ->  seq 1 (  +  ,  L )  ~~>  ( ( ( 1  /  (
( ( 2  x.  N )  +  1 ) ^ 2 ) ) ^ 1 )  /  ( 1  -  ( 1  /  (
( ( 2  x.  N )  +  1 ) ^ 2 ) ) ) ) )
6938exp1d 12002 . . . . 5  |-  ( N  e.  NN  ->  (
( 1  /  (
( ( 2  x.  N )  +  1 ) ^ 2 ) ) ^ 1 )  =  ( 1  / 
( ( ( 2  x.  N )  +  1 ) ^ 2 ) ) )
7016, 37dividd 10104 . . . . . . . 8  |-  ( N  e.  NN  ->  (
( ( ( 2  x.  N )  +  1 ) ^ 2 )  /  ( ( ( 2  x.  N
)  +  1 ) ^ 2 ) )  =  1 )
7170eqcomd 2447 . . . . . . 7  |-  ( N  e.  NN  ->  1  =  ( ( ( ( 2  x.  N
)  +  1 ) ^ 2 )  / 
( ( ( 2  x.  N )  +  1 ) ^ 2 ) ) )
7271oveq1d 6105 . . . . . 6  |-  ( N  e.  NN  ->  (
1  -  ( 1  /  ( ( ( 2  x.  N )  +  1 ) ^
2 ) ) )  =  ( ( ( ( ( 2  x.  N )  +  1 ) ^ 2 )  /  ( ( ( 2  x.  N )  +  1 ) ^
2 ) )  -  ( 1  /  (
( ( 2  x.  N )  +  1 ) ^ 2 ) ) ) )
7352rpcnne0d 11035 . . . . . . 7  |-  ( N  e.  NN  ->  (
( ( ( 2  x.  N )  +  1 ) ^ 2 )  e.  CC  /\  ( ( ( 2  x.  N )  +  1 ) ^ 2 )  =/=  0 ) )
74 divsubdir 10026 . . . . . . 7  |-  ( ( ( ( ( 2  x.  N )  +  1 ) ^ 2 )  e.  CC  /\  1  e.  CC  /\  (
( ( ( 2  x.  N )  +  1 ) ^ 2 )  e.  CC  /\  ( ( ( 2  x.  N )  +  1 ) ^ 2 )  =/=  0 ) )  ->  ( (
( ( ( 2  x.  N )  +  1 ) ^ 2 )  -  1 )  /  ( ( ( 2  x.  N )  +  1 ) ^
2 ) )  =  ( ( ( ( ( 2  x.  N
)  +  1 ) ^ 2 )  / 
( ( ( 2  x.  N )  +  1 ) ^ 2 ) )  -  (
1  /  ( ( ( 2  x.  N
)  +  1 ) ^ 2 ) ) ) )
7516, 14, 73, 74syl3anc 1218 . . . . . 6  |-  ( N  e.  NN  ->  (
( ( ( ( 2  x.  N )  +  1 ) ^
2 )  -  1 )  /  ( ( ( 2  x.  N
)  +  1 ) ^ 2 ) )  =  ( ( ( ( ( 2  x.  N )  +  1 ) ^ 2 )  /  ( ( ( 2  x.  N )  +  1 ) ^
2 ) )  -  ( 1  /  (
( ( 2  x.  N )  +  1 ) ^ 2 ) ) ) )
76 binom2 11980 . . . . . . . . . 10  |-  ( ( ( 2  x.  N
)  e.  CC  /\  1  e.  CC )  ->  ( ( ( 2  x.  N )  +  1 ) ^ 2 )  =  ( ( ( ( 2  x.  N ) ^ 2 )  +  ( 2  x.  ( ( 2  x.  N )  x.  1 ) ) )  +  ( 1 ^ 2 ) ) )
7712, 13, 76sylancl 662 . . . . . . . . 9  |-  ( N  e.  NN  ->  (
( ( 2  x.  N )  +  1 ) ^ 2 )  =  ( ( ( ( 2  x.  N
) ^ 2 )  +  ( 2  x.  ( ( 2  x.  N )  x.  1 ) ) )  +  ( 1 ^ 2 ) ) )
7877oveq1d 6105 . . . . . . . 8  |-  ( N  e.  NN  ->  (
( ( ( 2  x.  N )  +  1 ) ^ 2 )  -  1 )  =  ( ( ( ( ( 2  x.  N ) ^ 2 )  +  ( 2  x.  ( ( 2  x.  N )  x.  1 ) ) )  +  ( 1 ^ 2 ) )  - 
1 ) )
7910, 11sqmuld 12019 . . . . . . . . . . . . 13  |-  ( N  e.  NN  ->  (
( 2  x.  N
) ^ 2 )  =  ( ( 2 ^ 2 )  x.  ( N ^ 2 ) ) )
80 sq2 11961 . . . . . . . . . . . . . . 15  |-  ( 2 ^ 2 )  =  4
8180a1i 11 . . . . . . . . . . . . . 14  |-  ( N  e.  NN  ->  (
2 ^ 2 )  =  4 )
8281oveq1d 6105 . . . . . . . . . . . . 13  |-  ( N  e.  NN  ->  (
( 2 ^ 2 )  x.  ( N ^ 2 ) )  =  ( 4  x.  ( N ^ 2 ) ) )
8379, 82eqtrd 2474 . . . . . . . . . . . 12  |-  ( N  e.  NN  ->  (
( 2  x.  N
) ^ 2 )  =  ( 4  x.  ( N ^ 2 ) ) )
8412mulid1d 9402 . . . . . . . . . . . . . 14  |-  ( N  e.  NN  ->  (
( 2  x.  N
)  x.  1 )  =  ( 2  x.  N ) )
8584oveq2d 6106 . . . . . . . . . . . . 13  |-  ( N  e.  NN  ->  (
2  x.  ( ( 2  x.  N )  x.  1 ) )  =  ( 2  x.  ( 2  x.  N
) ) )
8610, 10, 11mulassd 9408 . . . . . . . . . . . . 13  |-  ( N  e.  NN  ->  (
( 2  x.  2 )  x.  N )  =  ( 2  x.  ( 2  x.  N
) ) )
87 2t2e4 10470 . . . . . . . . . . . . . . 15  |-  ( 2  x.  2 )  =  4
8887a1i 11 . . . . . . . . . . . . . 14  |-  ( N  e.  NN  ->  (
2  x.  2 )  =  4 )
8988oveq1d 6105 . . . . . . . . . . . . 13  |-  ( N  e.  NN  ->  (
( 2  x.  2 )  x.  N )  =  ( 4  x.  N ) )
9085, 86, 893eqtr2d 2480 . . . . . . . . . . . 12  |-  ( N  e.  NN  ->  (
2  x.  ( ( 2  x.  N )  x.  1 ) )  =  ( 4  x.  N ) )
9183, 90oveq12d 6108 . . . . . . . . . . 11  |-  ( N  e.  NN  ->  (
( ( 2  x.  N ) ^ 2 )  +  ( 2  x.  ( ( 2  x.  N )  x.  1 ) ) )  =  ( ( 4  x.  ( N ^
2 ) )  +  ( 4  x.  N
) ) )
92 4cn 10398 . . . . . . . . . . . . 13  |-  4  e.  CC
9392a1i 11 . . . . . . . . . . . 12  |-  ( N  e.  NN  ->  4  e.  CC )
9411sqcld 12005 . . . . . . . . . . . 12  |-  ( N  e.  NN  ->  ( N ^ 2 )  e.  CC )
9593, 94, 11adddid 9409 . . . . . . . . . . 11  |-  ( N  e.  NN  ->  (
4  x.  ( ( N ^ 2 )  +  N ) )  =  ( ( 4  x.  ( N ^
2 ) )  +  ( 4  x.  N
) ) )
9611sqvald 12004 . . . . . . . . . . . . . 14  |-  ( N  e.  NN  ->  ( N ^ 2 )  =  ( N  x.  N
) )
9711mulid1d 9402 . . . . . . . . . . . . . . 15  |-  ( N  e.  NN  ->  ( N  x.  1 )  =  N )
9897eqcomd 2447 . . . . . . . . . . . . . 14  |-  ( N  e.  NN  ->  N  =  ( N  x.  1 ) )
9996, 98oveq12d 6108 . . . . . . . . . . . . 13  |-  ( N  e.  NN  ->  (
( N ^ 2 )  +  N )  =  ( ( N  x.  N )  +  ( N  x.  1 ) ) )
10011, 11, 14adddid 9409 . . . . . . . . . . . . 13  |-  ( N  e.  NN  ->  ( N  x.  ( N  +  1 ) )  =  ( ( N  x.  N )  +  ( N  x.  1 ) ) )
10199, 100eqtr4d 2477 . . . . . . . . . . . 12  |-  ( N  e.  NN  ->  (
( N ^ 2 )  +  N )  =  ( N  x.  ( N  +  1
) ) )
102101oveq2d 6106 . . . . . . . . . . 11  |-  ( N  e.  NN  ->  (
4  x.  ( ( N ^ 2 )  +  N ) )  =  ( 4  x.  ( N  x.  ( N  +  1 ) ) ) )
10391, 95, 1023eqtr2d 2480 . . . . . . . . . 10  |-  ( N  e.  NN  ->  (
( ( 2  x.  N ) ^ 2 )  +  ( 2  x.  ( ( 2  x.  N )  x.  1 ) ) )  =  ( 4  x.  ( N  x.  ( N  +  1 ) ) ) )
104 sq1 11959 . . . . . . . . . . 11  |-  ( 1 ^ 2 )  =  1
105104a1i 11 . . . . . . . . . 10  |-  ( N  e.  NN  ->  (
1 ^ 2 )  =  1 )
106103, 105oveq12d 6108 . . . . . . . . 9  |-  ( N  e.  NN  ->  (
( ( ( 2  x.  N ) ^
2 )  +  ( 2  x.  ( ( 2  x.  N )  x.  1 ) ) )  +  ( 1 ^ 2 ) )  =  ( ( 4  x.  ( N  x.  ( N  +  1
) ) )  +  1 ) )
107106oveq1d 6105 . . . . . . . 8  |-  ( N  e.  NN  ->  (
( ( ( ( 2  x.  N ) ^ 2 )  +  ( 2  x.  (
( 2  x.  N
)  x.  1 ) ) )  +  ( 1 ^ 2 ) )  -  1 )  =  ( ( ( 4  x.  ( N  x.  ( N  + 
1 ) ) )  +  1 )  - 
1 ) )
10811, 14addcld 9404 . . . . . . . . . . 11  |-  ( N  e.  NN  ->  ( N  +  1 )  e.  CC )
10911, 108mulcld 9405 . . . . . . . . . 10  |-  ( N  e.  NN  ->  ( N  x.  ( N  +  1 ) )  e.  CC )
11093, 109mulcld 9405 . . . . . . . . 9  |-  ( N  e.  NN  ->  (
4  x.  ( N  x.  ( N  + 
1 ) ) )  e.  CC )
111110, 14pncand 9719 . . . . . . . 8  |-  ( N  e.  NN  ->  (
( ( 4  x.  ( N  x.  ( N  +  1 ) ) )  +  1 )  -  1 )  =  ( 4  x.  ( N  x.  ( N  +  1 ) ) ) )
11278, 107, 1113eqtrd 2478 . . . . . . 7  |-  ( N  e.  NN  ->  (
( ( ( 2  x.  N )  +  1 ) ^ 2 )  -  1 )  =  ( 4  x.  ( N  x.  ( N  +  1 ) ) ) )
113112oveq1d 6105 . . . . . 6  |-  ( N  e.  NN  ->  (
( ( ( ( 2  x.  N )  +  1 ) ^
2 )  -  1 )  /  ( ( ( 2  x.  N
)  +  1 ) ^ 2 ) )  =  ( ( 4  x.  ( N  x.  ( N  +  1
) ) )  / 
( ( ( 2  x.  N )  +  1 ) ^ 2 ) ) )
11472, 75, 1133eqtr2d 2480 . . . . 5  |-  ( N  e.  NN  ->  (
1  -  ( 1  /  ( ( ( 2  x.  N )  +  1 ) ^
2 ) ) )  =  ( ( 4  x.  ( N  x.  ( N  +  1
) ) )  / 
( ( ( 2  x.  N )  +  1 ) ^ 2 ) ) )
11569, 114oveq12d 6108 . . . 4  |-  ( N  e.  NN  ->  (
( ( 1  / 
( ( ( 2  x.  N )  +  1 ) ^ 2 ) ) ^ 1 )  /  ( 1  -  ( 1  / 
( ( ( 2  x.  N )  +  1 ) ^ 2 ) ) ) )  =  ( ( 1  /  ( ( ( 2  x.  N )  +  1 ) ^
2 ) )  / 
( ( 4  x.  ( N  x.  ( N  +  1 ) ) )  /  (
( ( 2  x.  N )  +  1 ) ^ 2 ) ) ) )
116 4pos 10416 . . . . . . . . 9  |-  0  <  4
117116a1i 11 . . . . . . . 8  |-  ( N  e.  NN  ->  0  <  4 )
118117gt0ne0d 9903 . . . . . . 7  |-  ( N  e.  NN  ->  4  =/=  0 )
119 nnne0 10353 . . . . . . . 8  |-  ( N  e.  NN  ->  N  =/=  0 )
12023, 20readdcld 9412 . . . . . . . . . 10  |-  ( N  e.  NN  ->  ( N  +  1 )  e.  RR )
121 nngt0 10350 . . . . . . . . . 10  |-  ( N  e.  NN  ->  0  <  N )
12223ltp1d 10262 . . . . . . . . . 10  |-  ( N  e.  NN  ->  N  <  ( N  +  1 ) )
12318, 23, 120, 121, 122lttrd 9531 . . . . . . . . 9  |-  ( N  e.  NN  ->  0  <  ( N  +  1 ) )
124123gt0ne0d 9903 . . . . . . . 8  |-  ( N  e.  NN  ->  ( N  +  1 )  =/=  0 )
12511, 108, 119, 124mulne0d 9987 . . . . . . 7  |-  ( N  e.  NN  ->  ( N  x.  ( N  +  1 ) )  =/=  0 )
12693, 109, 118, 125mulne0d 9987 . . . . . 6  |-  ( N  e.  NN  ->  (
4  x.  ( N  x.  ( N  + 
1 ) ) )  =/=  0 )
12714, 16, 110, 16, 37, 37, 126divdivdivd 10153 . . . . 5  |-  ( N  e.  NN  ->  (
( 1  /  (
( ( 2  x.  N )  +  1 ) ^ 2 ) )  /  ( ( 4  x.  ( N  x.  ( N  + 
1 ) ) )  /  ( ( ( 2  x.  N )  +  1 ) ^
2 ) ) )  =  ( ( 1  x.  ( ( ( 2  x.  N )  +  1 ) ^
2 ) )  / 
( ( ( ( 2  x.  N )  +  1 ) ^
2 )  x.  (
4  x.  ( N  x.  ( N  + 
1 ) ) ) ) ) )
12814, 16mulcomd 9406 . . . . . 6  |-  ( N  e.  NN  ->  (
1  x.  ( ( ( 2  x.  N
)  +  1 ) ^ 2 ) )  =  ( ( ( ( 2  x.  N
)  +  1 ) ^ 2 )  x.  1 ) )
129128oveq1d 6105 . . . . 5  |-  ( N  e.  NN  ->  (
( 1  x.  (
( ( 2  x.  N )  +  1 ) ^ 2 ) )  /  ( ( ( ( 2  x.  N )  +  1 ) ^ 2 )  x.  ( 4  x.  ( N  x.  ( N  +  1 ) ) ) ) )  =  ( ( ( ( ( 2  x.  N )  +  1 ) ^ 2 )  x.  1 )  / 
( ( ( ( 2  x.  N )  +  1 ) ^
2 )  x.  (
4  x.  ( N  x.  ( N  + 
1 ) ) ) ) ) )
13014mulid1d 9402 . . . . . . . . . 10  |-  ( N  e.  NN  ->  (
1  x.  1 )  =  1 )
131130eqcomd 2447 . . . . . . . . 9  |-  ( N  e.  NN  ->  1  =  ( 1  x.  1 ) )
132131oveq1d 6105 . . . . . . . 8  |-  ( N  e.  NN  ->  (
1  /  ( 4  x.  ( N  x.  ( N  +  1
) ) ) )  =  ( ( 1  x.  1 )  / 
( 4  x.  ( N  x.  ( N  +  1 ) ) ) ) )
13314, 93, 14, 109, 118, 125divmuldivd 10147 . . . . . . . 8  |-  ( N  e.  NN  ->  (
( 1  /  4
)  x.  ( 1  /  ( N  x.  ( N  +  1
) ) ) )  =  ( ( 1  x.  1 )  / 
( 4  x.  ( N  x.  ( N  +  1 ) ) ) ) )
134132, 133eqtr4d 2477 . . . . . . 7  |-  ( N  e.  NN  ->  (
1  /  ( 4  x.  ( N  x.  ( N  +  1
) ) ) )  =  ( ( 1  /  4 )  x.  ( 1  /  ( N  x.  ( N  +  1 ) ) ) ) )
13570, 134oveq12d 6108 . . . . . 6  |-  ( N  e.  NN  ->  (
( ( ( ( 2  x.  N )  +  1 ) ^
2 )  /  (
( ( 2  x.  N )  +  1 ) ^ 2 ) )  x.  ( 1  /  ( 4  x.  ( N  x.  ( N  +  1 ) ) ) ) )  =  ( 1  x.  ( ( 1  / 
4 )  x.  (
1  /  ( N  x.  ( N  + 
1 ) ) ) ) ) )
13616, 16, 14, 110, 37, 126divmuldivd 10147 . . . . . 6  |-  ( N  e.  NN  ->  (
( ( ( ( 2  x.  N )  +  1 ) ^
2 )  /  (
( ( 2  x.  N )  +  1 ) ^ 2 ) )  x.  ( 1  /  ( 4  x.  ( N  x.  ( N  +  1 ) ) ) ) )  =  ( ( ( ( ( 2  x.  N )  +  1 ) ^ 2 )  x.  1 )  / 
( ( ( ( 2  x.  N )  +  1 ) ^
2 )  x.  (
4  x.  ( N  x.  ( N  + 
1 ) ) ) ) ) )
13793, 118reccld 10099 . . . . . . . 8  |-  ( N  e.  NN  ->  (
1  /  4 )  e.  CC )
138109, 125reccld 10099 . . . . . . . 8  |-  ( N  e.  NN  ->  (
1  /  ( N  x.  ( N  + 
1 ) ) )  e.  CC )
139137, 138mulcld 9405 . . . . . . 7  |-  ( N  e.  NN  ->  (
( 1  /  4
)  x.  ( 1  /  ( N  x.  ( N  +  1
) ) ) )  e.  CC )
140139mulid2d 9403 . . . . . 6  |-  ( N  e.  NN  ->  (
1  x.  ( ( 1  /  4 )  x.  ( 1  / 
( N  x.  ( N  +  1 ) ) ) ) )  =  ( ( 1  /  4 )  x.  ( 1  /  ( N  x.  ( N  +  1 ) ) ) ) )
141135, 136, 1403eqtr3d 2482 . . . . 5  |-  ( N  e.  NN  ->  (
( ( ( ( 2  x.  N )  +  1 ) ^
2 )  x.  1 )  /  ( ( ( ( 2  x.  N )  +  1 ) ^ 2 )  x.  ( 4  x.  ( N  x.  ( N  +  1 ) ) ) ) )  =  ( ( 1  /  4 )  x.  ( 1  /  ( N  x.  ( N  +  1 ) ) ) ) )
142127, 129, 1413eqtrd 2478 . . . 4  |-  ( N  e.  NN  ->  (
( 1  /  (
( ( 2  x.  N )  +  1 ) ^ 2 ) )  /  ( ( 4  x.  ( N  x.  ( N  + 
1 ) ) )  /  ( ( ( 2  x.  N )  +  1 ) ^
2 ) ) )  =  ( ( 1  /  4 )  x.  ( 1  /  ( N  x.  ( N  +  1 ) ) ) ) )
143115, 142eqtrd 2474 . . 3  |-  ( N  e.  NN  ->  (
( ( 1  / 
( ( ( 2  x.  N )  +  1 ) ^ 2 ) ) ^ 1 )  /  ( 1  -  ( 1  / 
( ( ( 2  x.  N )  +  1 ) ^ 2 ) ) ) )  =  ( ( 1  /  4 )  x.  ( 1  /  ( N  x.  ( N  +  1 ) ) ) ) )
14468, 143breqtrd 4315 . 2  |-  ( N  e.  NN  ->  seq 1 (  +  ,  L )  ~~>  ( ( 1  /  4 )  x.  ( 1  / 
( N  x.  ( N  +  1 ) ) ) ) )
14561biimpi 194 . . . 4  |-  ( j  e.  NN  ->  j  e.  ( ZZ>= `  1 )
)
146145adantl 466 . . 3  |-  ( ( N  e.  NN  /\  j  e.  NN )  ->  j  e.  ( ZZ>= ` 
1 ) )
1478a1i 11 . . . . . 6  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  K  =  ( k  e.  NN  |->  ( ( 1  /  (
( 2  x.  k
)  +  1 ) )  x.  ( ( 1  /  ( ( 2  x.  N )  +  1 ) ) ^ ( 2  x.  k ) ) ) ) )
148 oveq2 6098 . . . . . . . . . 10  |-  ( k  =  n  ->  (
2  x.  k )  =  ( 2  x.  n ) )
149148oveq1d 6105 . . . . . . . . 9  |-  ( k  =  n  ->  (
( 2  x.  k
)  +  1 )  =  ( ( 2  x.  n )  +  1 ) )
150149oveq2d 6106 . . . . . . . 8  |-  ( k  =  n  ->  (
1  /  ( ( 2  x.  k )  +  1 ) )  =  ( 1  / 
( ( 2  x.  n )  +  1 ) ) )
151148oveq2d 6106 . . . . . . . 8  |-  ( k  =  n  ->  (
( 1  /  (
( 2  x.  N
)  +  1 ) ) ^ ( 2  x.  k ) )  =  ( ( 1  /  ( ( 2  x.  N )  +  1 ) ) ^
( 2  x.  n
) ) )
152150, 151oveq12d 6108 . . . . . . 7  |-  ( k  =  n  ->  (
( 1  /  (
( 2  x.  k
)  +  1 ) )  x.  ( ( 1  /  ( ( 2  x.  N )  +  1 ) ) ^ ( 2  x.  k ) ) )  =  ( ( 1  /  ( ( 2  x.  n )  +  1 ) )  x.  ( ( 1  / 
( ( 2  x.  N )  +  1 ) ) ^ (
2  x.  n ) ) ) )
153152adantl 466 . . . . . 6  |-  ( ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  /\  k  =  n )  ->  ( (
1  /  ( ( 2  x.  k )  +  1 ) )  x.  ( ( 1  /  ( ( 2  x.  N )  +  1 ) ) ^
( 2  x.  k
) ) )  =  ( ( 1  / 
( ( 2  x.  n )  +  1 ) )  x.  (
( 1  /  (
( 2  x.  N
)  +  1 ) ) ^ ( 2  x.  n ) ) ) )
154 elfznn 11477 . . . . . . 7  |-  ( n  e.  ( 1 ... j )  ->  n  e.  NN )
155154adantl 466 . . . . . 6  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  n  e.  NN )
156 2cnd 10393 . . . . . . . . . 10  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  2  e.  CC )
157155nncnd 10337 . . . . . . . . . 10  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  n  e.  CC )
158156, 157mulcld 9405 . . . . . . . . 9  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( 2  x.  n )  e.  CC )
15913a1i 11 . . . . . . . . 9  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  1  e.  CC )
160158, 159addcld 9404 . . . . . . . 8  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( ( 2  x.  n )  +  1 )  e.  CC )
16117a1i 11 . . . . . . . . . . . 12  |-  ( n  e.  NN  ->  0  e.  RR )
16219a1i 11 . . . . . . . . . . . 12  |-  ( n  e.  NN  ->  1  e.  RR )
16321a1i 11 . . . . . . . . . . . . . 14  |-  ( n  e.  NN  ->  2  e.  RR )
164 nnre 10328 . . . . . . . . . . . . . 14  |-  ( n  e.  NN  ->  n  e.  RR )
165163, 164remulcld 9413 . . . . . . . . . . . . 13  |-  ( n  e.  NN  ->  (
2  x.  n )  e.  RR )
166165, 162readdcld 9412 . . . . . . . . . . . 12  |-  ( n  e.  NN  ->  (
( 2  x.  n
)  +  1 )  e.  RR )
16726a1i 11 . . . . . . . . . . . 12  |-  ( n  e.  NN  ->  0  <  1 )
16828a1i 11 . . . . . . . . . . . . . 14  |-  ( n  e.  NN  ->  2  e.  RR+ )
169 nnrp 10999 . . . . . . . . . . . . . 14  |-  ( n  e.  NN  ->  n  e.  RR+ )
170168, 169rpmulcld 11042 . . . . . . . . . . . . 13  |-  ( n  e.  NN  ->  (
2  x.  n )  e.  RR+ )
171162, 170ltaddrp2d 11056 . . . . . . . . . . . 12  |-  ( n  e.  NN  ->  1  <  ( ( 2  x.  n )  +  1 ) )
172161, 162, 166, 167, 171lttrd 9531 . . . . . . . . . . 11  |-  ( n  e.  NN  ->  0  <  ( ( 2  x.  n )  +  1 ) )
173154, 172syl 16 . . . . . . . . . 10  |-  ( n  e.  ( 1 ... j )  ->  0  <  ( ( 2  x.  n )  +  1 ) )
174173gt0ne0d 9903 . . . . . . . . 9  |-  ( n  e.  ( 1 ... j )  ->  (
( 2  x.  n
)  +  1 )  =/=  0 )
175174adantl 466 . . . . . . . 8  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( ( 2  x.  n )  +  1 )  =/=  0
)
176160, 175reccld 10099 . . . . . . 7  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( 1  / 
( ( 2  x.  n )  +  1 ) )  e.  CC )
17711adantr 465 . . . . . . . . . . 11  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  N  e.  CC )
178156, 177mulcld 9405 . . . . . . . . . 10  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( 2  x.  N )  e.  CC )
179178, 159addcld 9404 . . . . . . . . 9  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( ( 2  x.  N )  +  1 )  e.  CC )
18034adantr 465 . . . . . . . . 9  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( ( 2  x.  N )  +  1 )  =/=  0
)
181179, 180reccld 10099 . . . . . . . 8  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( 1  / 
( ( 2  x.  N )  +  1 ) )  e.  CC )
182 2nn0 10595 . . . . . . . . . 10  |-  2  e.  NN0
183182a1i 11 . . . . . . . . 9  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  2  e.  NN0 )
184155nnnn0d 10635 . . . . . . . . 9  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  n  e.  NN0 )
185183, 184nn0mulcld 10640 . . . . . . . 8  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( 2  x.  n )  e.  NN0 )
186181, 185expcld 12007 . . . . . . 7  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( ( 1  /  ( ( 2  x.  N )  +  1 ) ) ^
( 2  x.  n
) )  e.  CC )
187176, 186mulcld 9405 . . . . . 6  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( ( 1  /  ( ( 2  x.  n )  +  1 ) )  x.  ( ( 1  / 
( ( 2  x.  N )  +  1 ) ) ^ (
2  x.  n ) ) )  e.  CC )
188147, 153, 155, 187fvmptd 5778 . . . . 5  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( K `  n )  =  ( ( 1  /  (
( 2  x.  n
)  +  1 ) )  x.  ( ( 1  /  ( ( 2  x.  N )  +  1 ) ) ^ ( 2  x.  n ) ) ) )
189188adantlr 714 . . . 4  |-  ( ( ( N  e.  NN  /\  j  e.  NN )  /\  n  e.  ( 1 ... j ) )  ->  ( K `  n )  =  ( ( 1  /  (
( 2  x.  n
)  +  1 ) )  x.  ( ( 1  /  ( ( 2  x.  N )  +  1 ) ) ^ ( 2  x.  n ) ) ) )
190172gt0ne0d 9903 . . . . . . . 8  |-  ( n  e.  NN  ->  (
( 2  x.  n
)  +  1 )  =/=  0 )
191166, 190rereccld 10157 . . . . . . 7  |-  ( n  e.  NN  ->  (
1  /  ( ( 2  x.  n )  +  1 ) )  e.  RR )
192154, 191syl 16 . . . . . 6  |-  ( n  e.  ( 1 ... j )  ->  (
1  /  ( ( 2  x.  n )  +  1 ) )  e.  RR )
193192adantl 466 . . . . 5  |-  ( ( ( N  e.  NN  /\  j  e.  NN )  /\  n  e.  ( 1 ... j ) )  ->  ( 1  /  ( ( 2  x.  n )  +  1 ) )  e.  RR )
19425, 34rereccld 10157 . . . . . . . 8  |-  ( N  e.  NN  ->  (
1  /  ( ( 2  x.  N )  +  1 ) )  e.  RR )
195194adantr 465 . . . . . . 7  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( 1  / 
( ( 2  x.  N )  +  1 ) )  e.  RR )
196195, 185reexpcld 12024 . . . . . 6  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( ( 1  /  ( ( 2  x.  N )  +  1 ) ) ^
( 2  x.  n
) )  e.  RR )
197196adantlr 714 . . . . 5  |-  ( ( ( N  e.  NN  /\  j  e.  NN )  /\  n  e.  ( 1 ... j ) )  ->  ( (
1  /  ( ( 2  x.  N )  +  1 ) ) ^ ( 2  x.  n ) )  e.  RR )
198193, 197remulcld 9413 . . . 4  |-  ( ( ( N  e.  NN  /\  j  e.  NN )  /\  n  e.  ( 1 ... j ) )  ->  ( (
1  /  ( ( 2  x.  n )  +  1 ) )  x.  ( ( 1  /  ( ( 2  x.  N )  +  1 ) ) ^
( 2  x.  n
) ) )  e.  RR )
199189, 198eqeltrd 2516 . . 3  |-  ( ( ( N  e.  NN  /\  j  e.  NN )  /\  n  e.  ( 1 ... j ) )  ->  ( K `  n )  e.  RR )
200 readdcl 9364 . . . 4  |-  ( ( n  e.  RR  /\  i  e.  RR )  ->  ( n  +  i )  e.  RR )
201200adantl 466 . . 3  |-  ( ( ( N  e.  NN  /\  j  e.  NN )  /\  ( n  e.  RR  /\  i  e.  RR ) )  -> 
( n  +  i )  e.  RR )
202146, 199, 201seqcl 11825 . 2  |-  ( ( N  e.  NN  /\  j  e.  NN )  ->  (  seq 1 (  +  ,  K ) `
 j )  e.  RR )
20357a1i 11 . . . . . 6  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  L  =  ( k  e.  NN  |->  ( ( 1  /  (
( ( 2  x.  N )  +  1 ) ^ 2 ) ) ^ k ) ) )
204 oveq2 6098 . . . . . . 7  |-  ( k  =  n  ->  (
( 1  /  (
( ( 2  x.  N )  +  1 ) ^ 2 ) ) ^ k )  =  ( ( 1  /  ( ( ( 2  x.  N )  +  1 ) ^
2 ) ) ^
n ) )
205204adantl 466 . . . . . 6  |-  ( ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  /\  k  =  n )  ->  ( (
1  /  ( ( ( 2  x.  N
)  +  1 ) ^ 2 ) ) ^ k )  =  ( ( 1  / 
( ( ( 2  x.  N )  +  1 ) ^ 2 ) ) ^ n
) )
20638adantr 465 . . . . . . 7  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( 1  / 
( ( ( 2  x.  N )  +  1 ) ^ 2 ) )  e.  CC )
207206, 184expcld 12007 . . . . . 6  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( ( 1  /  ( ( ( 2  x.  N )  +  1 ) ^
2 ) ) ^
n )  e.  CC )
208203, 205, 155, 207fvmptd 5778 . . . . 5  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( L `  n )  =  ( ( 1  /  (
( ( 2  x.  N )  +  1 ) ^ 2 ) ) ^ n ) )
20941adantr 465 . . . . . 6  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( 1  / 
( ( ( 2  x.  N )  +  1 ) ^ 2 ) )  e.  RR )
210209, 184reexpcld 12024 . . . . 5  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( ( 1  /  ( ( ( 2  x.  N )  +  1 ) ^
2 ) ) ^
n )  e.  RR )
211208, 210eqeltrd 2516 . . . 4  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( L `  n )  e.  RR )
212211adantlr 714 . . 3  |-  ( ( ( N  e.  NN  /\  j  e.  NN )  /\  n  e.  ( 1 ... j ) )  ->  ( L `  n )  e.  RR )
213146, 212, 201seqcl 11825 . 2  |-  ( ( N  e.  NN  /\  j  e.  NN )  ->  (  seq 1 (  +  ,  L ) `
 j )  e.  RR )
21435a1i 11 . . . . . . . . . . . . 13  |-  ( n  e.  ( 1 ... j )  ->  2  e.  ZZ )
215 elfzelz 11452 . . . . . . . . . . . . 13  |-  ( n  e.  ( 1 ... j )  ->  n  e.  ZZ )
216214, 215zmulcld 10752 . . . . . . . . . . . 12  |-  ( n  e.  ( 1 ... j )  ->  (
2  x.  n )  e.  ZZ )
217 1exp 11892 . . . . . . . . . . . 12  |-  ( ( 2  x.  n )  e.  ZZ  ->  (
1 ^ ( 2  x.  n ) )  =  1 )
218216, 217syl 16 . . . . . . . . . . 11  |-  ( n  e.  ( 1 ... j )  ->  (
1 ^ ( 2  x.  n ) )  =  1 )
219 1exp 11892 . . . . . . . . . . . 12  |-  ( n  e.  ZZ  ->  (
1 ^ n )  =  1 )
220215, 219syl 16 . . . . . . . . . . 11  |-  ( n  e.  ( 1 ... j )  ->  (
1 ^ n )  =  1 )
221218, 220eqtr4d 2477 . . . . . . . . . 10  |-  ( n  e.  ( 1 ... j )  ->  (
1 ^ ( 2  x.  n ) )  =  ( 1 ^ n ) )
222221adantl 466 . . . . . . . . 9  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( 1 ^ ( 2  x.  n
) )  =  ( 1 ^ n ) )
223179, 184, 183expmuld 12010 . . . . . . . . 9  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( ( ( 2  x.  N )  +  1 ) ^
( 2  x.  n
) )  =  ( ( ( ( 2  x.  N )  +  1 ) ^ 2 ) ^ n ) )
224222, 223oveq12d 6108 . . . . . . . 8  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( ( 1 ^ ( 2  x.  n ) )  / 
( ( ( 2  x.  N )  +  1 ) ^ (
2  x.  n ) ) )  =  ( ( 1 ^ n
)  /  ( ( ( ( 2  x.  N )  +  1 ) ^ 2 ) ^ n ) ) )
225159, 179, 180, 185expdivd 12021 . . . . . . . 8  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( ( 1  /  ( ( 2  x.  N )  +  1 ) ) ^
( 2  x.  n
) )  =  ( ( 1 ^ (
2  x.  n ) )  /  ( ( ( 2  x.  N
)  +  1 ) ^ ( 2  x.  n ) ) ) )
226179sqcld 12005 . . . . . . . . 9  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( ( ( 2  x.  N )  +  1 ) ^
2 )  e.  CC )
22735a1i 11 . . . . . . . . . 10  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  2  e.  ZZ )
228179, 180, 227expne0d 12013 . . . . . . . . 9  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( ( ( 2  x.  N )  +  1 ) ^
2 )  =/=  0
)
229159, 226, 228, 184expdivd 12021 . . . . . . . 8  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( ( 1  /  ( ( ( 2  x.  N )  +  1 ) ^
2 ) ) ^
n )  =  ( ( 1 ^ n
)  /  ( ( ( ( 2  x.  N )  +  1 ) ^ 2 ) ^ n ) ) )
230224, 225, 2293eqtr4d 2484 . . . . . . 7  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( ( 1  /  ( ( 2  x.  N )  +  1 ) ) ^
( 2  x.  n
) )  =  ( ( 1  /  (
( ( 2  x.  N )  +  1 ) ^ 2 ) ) ^ n ) )
231230oveq2d 6106 . . . . . 6  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( ( 1  /  ( ( 2  x.  n )  +  1 ) )  x.  ( ( 1  / 
( ( 2  x.  N )  +  1 ) ) ^ (
2  x.  n ) ) )  =  ( ( 1  /  (
( 2  x.  n
)  +  1 ) )  x.  ( ( 1  /  ( ( ( 2  x.  N
)  +  1 ) ^ 2 ) ) ^ n ) ) )
232 1rp 10994 . . . . . . . . . . 11  |-  1  e.  RR+
233232a1i 11 . . . . . . . . . 10  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  1  e.  RR+ )
23421a1i 11 . . . . . . . . . . . 12  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  2  e.  RR )
235155nnred 10336 . . . . . . . . . . . 12  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  n  e.  RR )
236234, 235remulcld 9413 . . . . . . . . . . 11  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( 2  x.  n )  e.  RR )
237183nn0ge0d 10638 . . . . . . . . . . . 12  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  0  <_  2
)
238184nn0ge0d 10638 . . . . . . . . . . . 12  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  0  <_  n
)
239234, 235, 237, 238mulge0d 9915 . . . . . . . . . . 11  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  0  <_  (
2  x.  n ) )
240236, 239ge0p1rpd 11052 . . . . . . . . . 10  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( ( 2  x.  n )  +  1 )  e.  RR+ )
24119a1i 11 . . . . . . . . . 10  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  1  e.  RR )
242233rpge0d 11030 . . . . . . . . . 10  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  0  <_  1
)
243162, 166, 171ltled 9521 . . . . . . . . . . . 12  |-  ( n  e.  NN  ->  1  <_  ( ( 2  x.  n )  +  1 ) )
244154, 243syl 16 . . . . . . . . . . 11  |-  ( n  e.  ( 1 ... j )  ->  1  <_  ( ( 2  x.  n )  +  1 ) )
245244adantl 466 . . . . . . . . . 10  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  1  <_  (
( 2  x.  n
)  +  1 ) )
246233, 240, 241, 242, 245lediv2ad 11048 . . . . . . . . 9  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( 1  / 
( ( 2  x.  n )  +  1 ) )  <_  (
1  /  1 ) )
247159div1d 10098 . . . . . . . . 9  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( 1  / 
1 )  =  1 )
248246, 247breqtrd 4315 . . . . . . . 8  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( 1  / 
( ( 2  x.  n )  +  1 ) )  <_  1
)
249155, 191syl 16 . . . . . . . . 9  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( 1  / 
( ( 2  x.  n )  +  1 ) )  e.  RR )
25023adantr 465 . . . . . . . . . . . . . 14  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  N  e.  RR )
251234, 250remulcld 9413 . . . . . . . . . . . . 13  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( 2  x.  N )  e.  RR )
25218, 23, 121ltled 9521 . . . . . . . . . . . . . . 15  |-  ( N  e.  NN  ->  0  <_  N )
253252adantr 465 . . . . . . . . . . . . . 14  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  0  <_  N
)
254234, 250, 237, 253mulge0d 9915 . . . . . . . . . . . . 13  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  0  <_  (
2  x.  N ) )
255251, 254ge0p1rpd 11052 . . . . . . . . . . . 12  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( ( 2  x.  N )  +  1 )  e.  RR+ )
256255, 227rpexpcld 12030 . . . . . . . . . . 11  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( ( ( 2  x.  N )  +  1 ) ^
2 )  e.  RR+ )
257256rpreccld 11036 . . . . . . . . . 10  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( 1  / 
( ( ( 2  x.  N )  +  1 ) ^ 2 ) )  e.  RR+ )
258215adantl 466 . . . . . . . . . 10  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  n  e.  ZZ )
259257, 258rpexpcld 12030 . . . . . . . . 9  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( ( 1  /  ( ( ( 2  x.  N )  +  1 ) ^
2 ) ) ^
n )  e.  RR+ )
260249, 241, 259lemul1d 11065 . . . . . . . 8  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( ( 1  /  ( ( 2  x.  n )  +  1 ) )  <_ 
1  <->  ( ( 1  /  ( ( 2  x.  n )  +  1 ) )  x.  ( ( 1  / 
( ( ( 2  x.  N )  +  1 ) ^ 2 ) ) ^ n
) )  <_  (
1  x.  ( ( 1  /  ( ( ( 2  x.  N
)  +  1 ) ^ 2 ) ) ^ n ) ) ) )
261248, 260mpbid 210 . . . . . . 7  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( ( 1  /  ( ( 2  x.  n )  +  1 ) )  x.  ( ( 1  / 
( ( ( 2  x.  N )  +  1 ) ^ 2 ) ) ^ n
) )  <_  (
1  x.  ( ( 1  /  ( ( ( 2  x.  N
)  +  1 ) ^ 2 ) ) ^ n ) ) )
262207mulid2d 9403 . . . . . . 7  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( 1  x.  ( ( 1  / 
( ( ( 2  x.  N )  +  1 ) ^ 2 ) ) ^ n
) )  =  ( ( 1  /  (
( ( 2  x.  N )  +  1 ) ^ 2 ) ) ^ n ) )
263261, 262breqtrd 4315 . . . . . 6  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( ( 1  /  ( ( 2  x.  n )  +  1 ) )  x.  ( ( 1  / 
( ( ( 2  x.  N )  +  1 ) ^ 2 ) ) ^ n
) )  <_  (
( 1  /  (
( ( 2  x.  N )  +  1 ) ^ 2 ) ) ^ n ) )
264231, 263eqbrtrd 4311 . . . . 5  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( ( 1  /  ( ( 2  x.  n )  +  1 ) )  x.  ( ( 1  / 
( ( 2  x.  N )  +  1 ) ) ^ (
2  x.  n ) ) )  <_  (
( 1  /  (
( ( 2  x.  N )  +  1 ) ^ 2 ) ) ^ n ) )
265264, 188, 2083brtr4d 4321 . . . 4  |-  ( ( N  e.  NN  /\  n  e.  ( 1 ... j ) )  ->  ( K `  n )  <_  ( L `  n )
)
266265adantlr 714 . . 3  |-  ( ( ( N  e.  NN  /\  j  e.  NN )  /\  n  e.  ( 1 ... j ) )  ->  ( K `  n )  <_  ( L `  n )
)
267146, 199, 212, 266serle 11860 . 2  |-  ( ( N  e.  NN  /\  j  e.  NN )  ->  (  seq 1 (  +  ,  K ) `
 j )  <_ 
(  seq 1 (  +  ,  L ) `  j ) )
2681, 4, 9, 144, 202, 213, 267climle 13116 1  |-  ( N  e.  NN  ->  (
( B `  N
)  -  ( B `
 ( N  + 
1 ) ) )  <_  ( ( 1  /  4 )  x.  ( 1  /  ( N  x.  ( N  +  1 ) ) ) ) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 184    /\ wa 369    = wceq 1369    e. wcel 1756    =/= wne 2605   class class class wbr 4291    e. cmpt 4349   ` cfv 5417  (class class class)co 6090   CCcc 9279   RRcr 9280   0cc0 9281   1c1 9282    + caddc 9284    x. cmul 9286    < clt 9417    <_ cle 9418    - cmin 9594   -ucneg 9595    / cdiv 9992   NNcn 10321   2c2 10370   4c4 10372   NN0cn0 10578   ZZcz 10645   ZZ>=cuz 10860   RR+crp 10990   ...cfz 11436    seqcseq 11805   ^cexp 11864   !cfa 12050   sqrcsqr 12721   abscabs 12722    ~~> cli 12961   _eceu 13347   logclog 22005
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1591  ax-4 1602  ax-5 1670  ax-6 1708  ax-7 1728  ax-8 1758  ax-9 1760  ax-10 1775  ax-11 1780  ax-12 1792  ax-13 1943  ax-ext 2423  ax-rep 4402  ax-sep 4412  ax-nul 4420  ax-pow 4469  ax-pr 4530  ax-un 6371  ax-inf2 7846  ax-cnex 9337  ax-resscn 9338  ax-1cn 9339  ax-icn 9340  ax-addcl 9341  ax-addrcl 9342  ax-mulcl 9343  ax-mulrcl 9344  ax-mulcom 9345  ax-addass 9346  ax-mulass 9347  ax-distr 9348  ax-i2m1 9349  ax-1ne0 9350  ax-1rid 9351  ax-rnegex 9352  ax-rrecex 9353  ax-cnre 9354  ax-pre-lttri 9355  ax-pre-lttrn 9356  ax-pre-ltadd 9357  ax-pre-mulgt0 9358  ax-pre-sup 9359  ax-addf 9360  ax-mulf 9361
This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 966  df-3an 967  df-tru 1372  df-fal 1375  df-ex 1587  df-nf 1590  df-sb 1701  df-eu 2257  df-mo 2258  df-clab 2429  df-cleq 2435  df-clel 2438  df-nfc 2567  df-ne 2607  df-nel 2608  df-ral 2719  df-rex 2720  df-reu 2721  df-rmo 2722  df-rab 2723  df-v 2973  df-sbc 3186  df-csb 3288  df-dif 3330  df-un 3332  df-in 3334  df-ss 3341  df-pss 3343  df-nul 3637  df-if 3791  df-pw 3861  df-sn 3877  df-pr 3879  df-tp 3881  df-op 3883  df-uni 4091  df-int 4128  df-iun 4172  df-iin 4173  df-br 4292  df-opab 4350  df-mpt 4351  df-tr 4385  df-eprel 4631  df-id 4635  df-po 4640  df-so 4641  df-fr 4678  df-se 4679  df-we 4680  df-ord 4721  df-on 4722  df-lim 4723  df-suc 4724  df-xp 4845  df-rel 4846  df-cnv 4847  df-co 4848  df-dm 4849  df-rn 4850  df-res 4851  df-ima 4852  df-iota 5380  df-fun 5419  df-fn 5420  df-f 5421  df-f1 5422  df-fo 5423  df-f1o 5424  df-fv 5425  df-isom 5426  df-riota 6051  df-ov 6093  df-oprab 6094  df-mpt2 6095  df-of 6319  df-om 6476  df-1st 6576  df-2nd 6577  df-supp 6690  df-recs 6831  df-rdg 6865  df-1o 6919  df-2o 6920  df-oadd 6923  df-er 7100  df-map 7215  df-pm 7216  df-ixp 7263  df-en 7310  df-dom 7311  df-sdom 7312  df-fin 7313  df-fsupp 7620  df-fi 7660  df-sup 7690  df-oi 7723  df-card 8108  df-cda 8336  df-pnf 9419  df-mnf 9420  df-xr 9421  df-ltxr 9422  df-le 9423  df-sub 9596  df-neg 9597  df-div 9993  df-nn 10322  df-2 10379  df-3 10380  df-4 10381  df-5 10382  df-6 10383  df-7 10384  df-8 10385  df-9 10386  df-10 10387  df-n0 10579  df-z 10646  df-dec 10755  df-uz 10861  df-q 10953  df-rp 10991  df-xneg 11088  df-xadd 11089  df-xmul 11090  df-ioo 11303  df-ioc 11304  df-ico 11305  df-icc 11306  df-fz 11437  df-fzo 11548  df-fl 11641  df-mod 11708  df-seq 11806  df-exp 11865  df-fac 12051  df-bc 12078  df-hash 12103  df-shft 12555  df-cj 12587  df-re 12588  df-im 12589  df-sqr 12723  df-abs 12724  df-limsup 12948  df-clim 12965  df-rlim 12966  df-sum 13163  df-ef 13352  df-e 13353  df-sin 13354  df-cos 13355  df-tan 13356  df-pi 13357  df-dvds 13535  df-struct 14175  df-ndx 14176  df-slot 14177  df-base 14178  df-sets 14179  df-ress 14180  df-plusg 14250  df-mulr 14251  df-starv 14252  df-sca 14253  df-vsca 14254  df-ip 14255  df-tset 14256  df-ple 14257  df-ds 14259  df-unif 14260  df-hom 14261  df-cco 14262  df-rest 14360  df-topn 14361  df-0g 14379  df-gsum 14380  df-topgen 14381  df-pt 14382  df-prds 14385  df-xrs 14439  df-qtop 14444  df-imas 14445  df-xps 14447  df-mre 14523  df-mrc 14524  df-acs 14526  df-mnd 15414  df-submnd 15464  df-mulg 15547  df-cntz 15834  df-cmn 16278  df-psmet 17808  df-xmet 17809  df-met 17810  df-bl 17811  df-mopn 17812  df-fbas 17813  df-fg 17814  df-cnfld 17818  df-top 18502  df-bases 18504  df-topon 18505  df-topsp 18506  df-cld 18622  df-ntr 18623  df-cls 18624  df-nei 18701  df-lp 18739  df-perf 18740  df-cn 18830  df-cnp 18831  df-haus 18918  df-cmp 18989  df-tx 19134  df-hmeo 19327  df-fil 19418  df-fm 19510  df-flim 19511  df-flf 19512  df-xms 19894  df-ms 19895  df-tms 19896  df-cncf 20453  df-limc 21340  df-dv 21341  df-ulm 21841  df-log 22007  df-cxp 22008
This theorem is referenced by:  stirlinglem12  29878
  Copyright terms: Public domain W3C validator