MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  efcllem Unicode version

Theorem efcllem 12609
Description: Lemma for efcl 12614. The series that defines the exponential function converges, in the case where its argument is nonzero. The ratio test cvgrat 12589 is used to show convergence. (Contributed by NM, 26-Apr-2005.) (Proof shortened by Mario Carneiro, 28-Apr-2014.)
Hypothesis
Ref Expression
eftval.1  |-  F  =  ( n  e.  NN0  |->  ( ( A ^
n )  /  ( ! `  n )
) )
Assertion
Ref Expression
efcllem  |-  ( A  e.  CC  ->  seq  0 (  +  ,  F )  e.  dom  ~~>  )
Distinct variable group:    A, n
Allowed substitution hint:    F( n)

Proof of Theorem efcllem
Dummy variable  k is distinct from all other variables.
StepHypRef Expression
1 nn0uz 10454 . 2  |-  NN0  =  ( ZZ>= `  0 )
2 eqid 2389 . 2  |-  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) )  =  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) )
3 2nn 10067 . . . 4  |-  2  e.  NN
4 nnrecre 9970 . . . 4  |-  ( 2  e.  NN  ->  (
1  /  2 )  e.  RR )
53, 4ax-mp 8 . . 3  |-  ( 1  /  2 )  e.  RR
65a1i 11 . 2  |-  ( A  e.  CC  ->  (
1  /  2 )  e.  RR )
7 halflt1 10123 . . 3  |-  ( 1  /  2 )  <  1
87a1i 11 . 2  |-  ( A  e.  CC  ->  (
1  /  2 )  <  1 )
9 2re 10003 . . . 4  |-  2  e.  RR
10 abscl 12012 . . . 4  |-  ( A  e.  CC  ->  ( abs `  A )  e.  RR )
11 remulcl 9010 . . . 4  |-  ( ( 2  e.  RR  /\  ( abs `  A )  e.  RR )  -> 
( 2  x.  ( abs `  A ) )  e.  RR )
129, 10, 11sylancr 645 . . 3  |-  ( A  e.  CC  ->  (
2  x.  ( abs `  A ) )  e.  RR )
13 absge0 12021 . . . 4  |-  ( A  e.  CC  ->  0  <_  ( abs `  A
) )
14 0re 9026 . . . . . 6  |-  0  e.  RR
15 2pos 10016 . . . . . 6  |-  0  <  2
1614, 9, 15ltleii 9129 . . . . 5  |-  0  <_  2
17 mulge0 9479 . . . . 5  |-  ( ( ( 2  e.  RR  /\  0  <_  2 )  /\  ( ( abs `  A )  e.  RR  /\  0  <_  ( abs `  A ) ) )  ->  0  <_  (
2  x.  ( abs `  A ) ) )
189, 16, 17mpanl12 664 . . . 4  |-  ( ( ( abs `  A
)  e.  RR  /\  0  <_  ( abs `  A
) )  ->  0  <_  ( 2  x.  ( abs `  A ) ) )
1910, 13, 18syl2anc 643 . . 3  |-  ( A  e.  CC  ->  0  <_  ( 2  x.  ( abs `  A ) ) )
20 flge0nn0 11154 . . 3  |-  ( ( ( 2  x.  ( abs `  A ) )  e.  RR  /\  0  <_  ( 2  x.  ( abs `  A ) ) )  ->  ( |_ `  ( 2  x.  ( abs `  A ) ) )  e.  NN0 )
2112, 19, 20syl2anc 643 . 2  |-  ( A  e.  CC  ->  ( |_ `  ( 2  x.  ( abs `  A
) ) )  e. 
NN0 )
22 eftval.1 . . . . 5  |-  F  =  ( n  e.  NN0  |->  ( ( A ^
n )  /  ( ! `  n )
) )
2322eftval 12608 . . . 4  |-  ( k  e.  NN0  ->  ( F `
 k )  =  ( ( A ^
k )  /  ( ! `  k )
) )
2423adantl 453 . . 3  |-  ( ( A  e.  CC  /\  k  e.  NN0 )  -> 
( F `  k
)  =  ( ( A ^ k )  /  ( ! `  k ) ) )
25 eftcl 12605 . . 3  |-  ( ( A  e.  CC  /\  k  e.  NN0 )  -> 
( ( A ^
k )  /  ( ! `  k )
)  e.  CC )
2624, 25eqeltrd 2463 . 2  |-  ( ( A  e.  CC  /\  k  e.  NN0 )  -> 
( F `  k
)  e.  CC )
2710adantr 452 . . . . 5  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( abs `  A )  e.  RR )
28 eluznn0 10480 . . . . . . 7  |-  ( ( ( |_ `  (
2  x.  ( abs `  A ) ) )  e.  NN0  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A ) ) ) ) )  -> 
k  e.  NN0 )
2921, 28sylan 458 . . . . . 6  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  k  e.  NN0 )
30 nn0p1nn 10193 . . . . . 6  |-  ( k  e.  NN0  ->  ( k  +  1 )  e.  NN )
3129, 30syl 16 . . . . 5  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( k  +  1 )  e.  NN )
3227, 31nndivred 9982 . . . 4  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( ( abs `  A )  / 
( k  +  1 ) )  e.  RR )
335a1i 11 . . . 4  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( 1  /  2 )  e.  RR )
3427, 29reexpcld 11469 . . . . 5  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( ( abs `  A ) ^
k )  e.  RR )
35 faccl 11505 . . . . . 6  |-  ( k  e.  NN0  ->  ( ! `
 k )  e.  NN )
3629, 35syl 16 . . . . 5  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( ! `  k )  e.  NN )
3734, 36nndivred 9982 . . . 4  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( (
( abs `  A
) ^ k )  /  ( ! `  k ) )  e.  RR )
38 expcl 11328 . . . . . . . 8  |-  ( ( A  e.  CC  /\  k  e.  NN0 )  -> 
( A ^ k
)  e.  CC )
3929, 38syldan 457 . . . . . . 7  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( A ^ k )  e.  CC )
4039absge0d 12175 . . . . . 6  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  0  <_  ( abs `  ( A ^ k ) ) )
41 absexp 12038 . . . . . . 7  |-  ( ( A  e.  CC  /\  k  e.  NN0 )  -> 
( abs `  ( A ^ k ) )  =  ( ( abs `  A ) ^ k
) )
4229, 41syldan 457 . . . . . 6  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( abs `  ( A ^ k
) )  =  ( ( abs `  A
) ^ k ) )
4340, 42breqtrd 4179 . . . . 5  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  0  <_  ( ( abs `  A
) ^ k ) )
4436nnred 9949 . . . . 5  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( ! `  k )  e.  RR )
4536nngt0d 9977 . . . . 5  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  0  <  ( ! `  k ) )
46 divge0 9813 . . . . 5  |-  ( ( ( ( ( abs `  A ) ^ k
)  e.  RR  /\  0  <_  ( ( abs `  A ) ^ k
) )  /\  (
( ! `  k
)  e.  RR  /\  0  <  ( ! `  k ) ) )  ->  0  <_  (
( ( abs `  A
) ^ k )  /  ( ! `  k ) ) )
4734, 43, 44, 45, 46syl22anc 1185 . . . 4  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  0  <_  ( ( ( abs `  A
) ^ k )  /  ( ! `  k ) ) )
4812adantr 452 . . . . . . . 8  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( 2  x.  ( abs `  A
) )  e.  RR )
49 peano2nn0 10194 . . . . . . . . . . 11  |-  ( ( |_ `  ( 2  x.  ( abs `  A
) ) )  e. 
NN0  ->  ( ( |_
`  ( 2  x.  ( abs `  A
) ) )  +  1 )  e.  NN0 )
5021, 49syl 16 . . . . . . . . . 10  |-  ( A  e.  CC  ->  (
( |_ `  (
2  x.  ( abs `  A ) ) )  +  1 )  e. 
NN0 )
5150nn0red 10209 . . . . . . . . 9  |-  ( A  e.  CC  ->  (
( |_ `  (
2  x.  ( abs `  A ) ) )  +  1 )  e.  RR )
5251adantr 452 . . . . . . . 8  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( ( |_ `  ( 2  x.  ( abs `  A
) ) )  +  1 )  e.  RR )
5331nnred 9949 . . . . . . . 8  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( k  +  1 )  e.  RR )
54 flltp1 11138 . . . . . . . . 9  |-  ( ( 2  x.  ( abs `  A ) )  e.  RR  ->  ( 2  x.  ( abs `  A
) )  <  (
( |_ `  (
2  x.  ( abs `  A ) ) )  +  1 ) )
5548, 54syl 16 . . . . . . . 8  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( 2  x.  ( abs `  A
) )  <  (
( |_ `  (
2  x.  ( abs `  A ) ) )  +  1 ) )
56 eluzp1p1 10445 . . . . . . . . . 10  |-  ( k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) )  ->  ( k  +  1 )  e.  (
ZZ>= `  ( ( |_
`  ( 2  x.  ( abs `  A
) ) )  +  1 ) ) )
5756adantl 453 . . . . . . . . 9  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( k  +  1 )  e.  ( ZZ>= `  ( ( |_ `  ( 2  x.  ( abs `  A
) ) )  +  1 ) ) )
58 eluzle 10432 . . . . . . . . 9  |-  ( ( k  +  1 )  e.  ( ZZ>= `  (
( |_ `  (
2  x.  ( abs `  A ) ) )  +  1 ) )  ->  ( ( |_
`  ( 2  x.  ( abs `  A
) ) )  +  1 )  <_  (
k  +  1 ) )
5957, 58syl 16 . . . . . . . 8  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( ( |_ `  ( 2  x.  ( abs `  A
) ) )  +  1 )  <_  (
k  +  1 ) )
6048, 52, 53, 55, 59ltletrd 9164 . . . . . . 7  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( 2  x.  ( abs `  A
) )  <  (
k  +  1 ) )
6127recnd 9049 . . . . . . . 8  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( abs `  A )  e.  CC )
62 2cn 10004 . . . . . . . 8  |-  2  e.  CC
63 mulcom 9011 . . . . . . . 8  |-  ( ( ( abs `  A
)  e.  CC  /\  2  e.  CC )  ->  ( ( abs `  A
)  x.  2 )  =  ( 2  x.  ( abs `  A
) ) )
6461, 62, 63sylancl 644 . . . . . . 7  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( ( abs `  A )  x.  2 )  =  ( 2  x.  ( abs `  A ) ) )
6531nncnd 9950 . . . . . . . 8  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( k  +  1 )  e.  CC )
6665mulid2d 9041 . . . . . . 7  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( 1  x.  ( k  +  1 ) )  =  ( k  +  1 ) )
6760, 64, 663brtr4d 4185 . . . . . 6  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( ( abs `  A )  x.  2 )  <  (
1  x.  ( k  +  1 ) ) )
689, 15pm3.2i 442 . . . . . . . 8  |-  ( 2  e.  RR  /\  0  <  2 )
6968a1i 11 . . . . . . 7  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( 2  e.  RR  /\  0  <  2 ) )
70 1re 9025 . . . . . . . 8  |-  1  e.  RR
7170a1i 11 . . . . . . 7  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  1  e.  RR )
7231nngt0d 9977 . . . . . . . 8  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  0  <  ( k  +  1 ) )
7353, 72jca 519 . . . . . . 7  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( (
k  +  1 )  e.  RR  /\  0  <  ( k  +  1 ) ) )
74 lt2mul2div 9820 . . . . . . 7  |-  ( ( ( ( abs `  A
)  e.  RR  /\  ( 2  e.  RR  /\  0  <  2 ) )  /\  ( 1  e.  RR  /\  (
( k  +  1 )  e.  RR  /\  0  <  ( k  +  1 ) ) ) )  ->  ( (
( abs `  A
)  x.  2 )  <  ( 1  x.  ( k  +  1 ) )  <->  ( ( abs `  A )  / 
( k  +  1 ) )  <  (
1  /  2 ) ) )
7527, 69, 71, 73, 74syl22anc 1185 . . . . . 6  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( (
( abs `  A
)  x.  2 )  <  ( 1  x.  ( k  +  1 ) )  <->  ( ( abs `  A )  / 
( k  +  1 ) )  <  (
1  /  2 ) ) )
7667, 75mpbid 202 . . . . 5  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( ( abs `  A )  / 
( k  +  1 ) )  <  (
1  /  2 ) )
77 ltle 9098 . . . . . 6  |-  ( ( ( ( abs `  A
)  /  ( k  +  1 ) )  e.  RR  /\  (
1  /  2 )  e.  RR )  -> 
( ( ( abs `  A )  /  (
k  +  1 ) )  <  ( 1  /  2 )  -> 
( ( abs `  A
)  /  ( k  +  1 ) )  <_  ( 1  / 
2 ) ) )
7832, 5, 77sylancl 644 . . . . 5  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( (
( abs `  A
)  /  ( k  +  1 ) )  <  ( 1  / 
2 )  ->  (
( abs `  A
)  /  ( k  +  1 ) )  <_  ( 1  / 
2 ) ) )
7976, 78mpd 15 . . . 4  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( ( abs `  A )  / 
( k  +  1 ) )  <_  (
1  /  2 ) )
8032, 33, 37, 47, 79lemul2ad 9885 . . 3  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( (
( ( abs `  A
) ^ k )  /  ( ! `  k ) )  x.  ( ( abs `  A
)  /  ( k  +  1 ) ) )  <_  ( (
( ( abs `  A
) ^ k )  /  ( ! `  k ) )  x.  ( 1  /  2
) ) )
81 peano2nn0 10194 . . . . . . 7  |-  ( k  e.  NN0  ->  ( k  +  1 )  e. 
NN0 )
8229, 81syl 16 . . . . . 6  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( k  +  1 )  e. 
NN0 )
8322eftval 12608 . . . . . 6  |-  ( ( k  +  1 )  e.  NN0  ->  ( F `
 ( k  +  1 ) )  =  ( ( A ^
( k  +  1 ) )  /  ( ! `  ( k  +  1 ) ) ) )
8482, 83syl 16 . . . . 5  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( F `  ( k  +  1 ) )  =  ( ( A ^ (
k  +  1 ) )  /  ( ! `
 ( k  +  1 ) ) ) )
8584fveq2d 5674 . . . 4  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( abs `  ( F `  (
k  +  1 ) ) )  =  ( abs `  ( ( A ^ ( k  +  1 ) )  /  ( ! `  ( k  +  1 ) ) ) ) )
86 absexp 12038 . . . . . . . 8  |-  ( ( A  e.  CC  /\  ( k  +  1 )  e.  NN0 )  ->  ( abs `  ( A ^ ( k  +  1 ) ) )  =  ( ( abs `  A ) ^ (
k  +  1 ) ) )
8782, 86syldan 457 . . . . . . 7  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( abs `  ( A ^ (
k  +  1 ) ) )  =  ( ( abs `  A
) ^ ( k  +  1 ) ) )
8861, 29expp1d 11453 . . . . . . 7  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( ( abs `  A ) ^
( k  +  1 ) )  =  ( ( ( abs `  A
) ^ k )  x.  ( abs `  A
) ) )
8987, 88eqtrd 2421 . . . . . 6  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( abs `  ( A ^ (
k  +  1 ) ) )  =  ( ( ( abs `  A
) ^ k )  x.  ( abs `  A
) ) )
90 faccl 11505 . . . . . . . . . 10  |-  ( ( k  +  1 )  e.  NN0  ->  ( ! `
 ( k  +  1 ) )  e.  NN )
9182, 90syl 16 . . . . . . . . 9  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( ! `  ( k  +  1 ) )  e.  NN )
9291nnred 9949 . . . . . . . 8  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( ! `  ( k  +  1 ) )  e.  RR )
9391nnnn0d 10208 . . . . . . . . 9  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( ! `  ( k  +  1 ) )  e.  NN0 )
9493nn0ge0d 10211 . . . . . . . 8  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  0  <_  ( ! `  ( k  +  1 ) ) )
9592, 94absidd 12154 . . . . . . 7  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( abs `  ( ! `  (
k  +  1 ) ) )  =  ( ! `  ( k  +  1 ) ) )
96 facp1 11500 . . . . . . . 8  |-  ( k  e.  NN0  ->  ( ! `
 ( k  +  1 ) )  =  ( ( ! `  k )  x.  (
k  +  1 ) ) )
9729, 96syl 16 . . . . . . 7  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( ! `  ( k  +  1 ) )  =  ( ( ! `  k
)  x.  ( k  +  1 ) ) )
9895, 97eqtrd 2421 . . . . . 6  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( abs `  ( ! `  (
k  +  1 ) ) )  =  ( ( ! `  k
)  x.  ( k  +  1 ) ) )
9989, 98oveq12d 6040 . . . . 5  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( ( abs `  ( A ^
( k  +  1 ) ) )  / 
( abs `  ( ! `  ( k  +  1 ) ) ) )  =  ( ( ( ( abs `  A ) ^ k
)  x.  ( abs `  A ) )  / 
( ( ! `  k )  x.  (
k  +  1 ) ) ) )
100 expcl 11328 . . . . . . 7  |-  ( ( A  e.  CC  /\  ( k  +  1 )  e.  NN0 )  ->  ( A ^ (
k  +  1 ) )  e.  CC )
10182, 100syldan 457 . . . . . 6  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( A ^ ( k  +  1 ) )  e.  CC )
10291nncnd 9950 . . . . . 6  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( ! `  ( k  +  1 ) )  e.  CC )
10391nnne0d 9978 . . . . . 6  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( ! `  ( k  +  1 ) )  =/=  0
)
104101, 102, 103absdivd 12186 . . . . 5  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( abs `  ( ( A ^
( k  +  1 ) )  /  ( ! `  ( k  +  1 ) ) ) )  =  ( ( abs `  ( A ^ ( k  +  1 ) ) )  /  ( abs `  ( ! `  ( k  +  1 ) ) ) ) )
10534recnd 9049 . . . . . 6  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( ( abs `  A ) ^
k )  e.  CC )
10636nncnd 9950 . . . . . 6  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( ! `  k )  e.  CC )
10736nnne0d 9978 . . . . . 6  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( ! `  k )  =/=  0
)
10831nnne0d 9978 . . . . . 6  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( k  +  1 )  =/=  0 )
109105, 106, 61, 65, 107, 108divmuldivd 9765 . . . . 5  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( (
( ( abs `  A
) ^ k )  /  ( ! `  k ) )  x.  ( ( abs `  A
)  /  ( k  +  1 ) ) )  =  ( ( ( ( abs `  A
) ^ k )  x.  ( abs `  A
) )  /  (
( ! `  k
)  x.  ( k  +  1 ) ) ) )
11099, 104, 1093eqtr4d 2431 . . . 4  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( abs `  ( ( A ^
( k  +  1 ) )  /  ( ! `  ( k  +  1 ) ) ) )  =  ( ( ( ( abs `  A ) ^ k
)  /  ( ! `
 k ) )  x.  ( ( abs `  A )  /  (
k  +  1 ) ) ) )
11185, 110eqtrd 2421 . . 3  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( abs `  ( F `  (
k  +  1 ) ) )  =  ( ( ( ( abs `  A ) ^ k
)  /  ( ! `
 k ) )  x.  ( ( abs `  A )  /  (
k  +  1 ) ) ) )
1125recni 9037 . . . . 5  |-  ( 1  /  2 )  e.  CC
11329, 26syldan 457 . . . . . . 7  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( F `  k )  e.  CC )
114113abscld 12167 . . . . . 6  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( abs `  ( F `  k
) )  e.  RR )
115114recnd 9049 . . . . 5  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( abs `  ( F `  k
) )  e.  CC )
116 mulcom 9011 . . . . 5  |-  ( ( ( 1  /  2
)  e.  CC  /\  ( abs `  ( F `
 k ) )  e.  CC )  -> 
( ( 1  / 
2 )  x.  ( abs `  ( F `  k ) ) )  =  ( ( abs `  ( F `  k
) )  x.  (
1  /  2 ) ) )
117112, 115, 116sylancr 645 . . . 4  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( (
1  /  2 )  x.  ( abs `  ( F `  k )
) )  =  ( ( abs `  ( F `  k )
)  x.  ( 1  /  2 ) ) )
11829, 23syl 16 . . . . . . 7  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( F `  k )  =  ( ( A ^ k
)  /  ( ! `
 k ) ) )
119118fveq2d 5674 . . . . . 6  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( abs `  ( F `  k
) )  =  ( abs `  ( ( A ^ k )  /  ( ! `  k ) ) ) )
120 eftabs 12607 . . . . . . 7  |-  ( ( A  e.  CC  /\  k  e.  NN0 )  -> 
( abs `  (
( A ^ k
)  /  ( ! `
 k ) ) )  =  ( ( ( abs `  A
) ^ k )  /  ( ! `  k ) ) )
12129, 120syldan 457 . . . . . 6  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( abs `  ( ( A ^
k )  /  ( ! `  k )
) )  =  ( ( ( abs `  A
) ^ k )  /  ( ! `  k ) ) )
122119, 121eqtrd 2421 . . . . 5  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( abs `  ( F `  k
) )  =  ( ( ( abs `  A
) ^ k )  /  ( ! `  k ) ) )
123122oveq1d 6037 . . . 4  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( ( abs `  ( F `  k ) )  x.  ( 1  /  2
) )  =  ( ( ( ( abs `  A ) ^ k
)  /  ( ! `
 k ) )  x.  ( 1  / 
2 ) ) )
124117, 123eqtrd 2421 . . 3  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( (
1  /  2 )  x.  ( abs `  ( F `  k )
) )  =  ( ( ( ( abs `  A ) ^ k
)  /  ( ! `
 k ) )  x.  ( 1  / 
2 ) ) )
12580, 111, 1243brtr4d 4185 . 2  |-  ( ( A  e.  CC  /\  k  e.  ( ZZ>= `  ( |_ `  ( 2  x.  ( abs `  A
) ) ) ) )  ->  ( abs `  ( F `  (
k  +  1 ) ) )  <_  (
( 1  /  2
)  x.  ( abs `  ( F `  k
) ) ) )
1261, 2, 6, 8, 21, 26, 125cvgrat 12589 1  |-  ( A  e.  CC  ->  seq  0 (  +  ,  F )  e.  dom  ~~>  )
Colors of variables: wff set class
Syntax hints:    -> wi 4    <-> wb 177    /\ wa 359    = wceq 1649    e. wcel 1717   class class class wbr 4155    e. cmpt 4209   dom cdm 4820   ` cfv 5396  (class class class)co 6022   CCcc 8923   RRcr 8924   0cc0 8925   1c1 8926    + caddc 8928    x. cmul 8930    < clt 9055    <_ cle 9056    / cdiv 9611   NNcn 9934   2c2 9983   NN0cn0 10155   ZZ>=cuz 10422   |_cfl 11130    seq cseq 11252   ^cexp 11311   !cfa 11495   abscabs 11968    ~~> cli 12207
This theorem is referenced by:  eff  12613  efcvg  12616  reefcl  12618  efaddlem  12624  eftlcvg  12636  effsumlt  12641  eflegeo  12651  eirrlem  12732
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1552  ax-5 1563  ax-17 1623  ax-9 1661  ax-8 1682  ax-13 1719  ax-14 1721  ax-6 1736  ax-7 1741  ax-11 1753  ax-12 1939  ax-ext 2370  ax-rep 4263  ax-sep 4273  ax-nul 4281  ax-pow 4320  ax-pr 4346  ax-un 4643  ax-inf2 7531  ax-cnex 8981  ax-resscn 8982  ax-1cn 8983  ax-icn 8984  ax-addcl 8985  ax-addrcl 8986  ax-mulcl 8987  ax-mulrcl 8988  ax-mulcom 8989  ax-addass 8990  ax-mulass 8991  ax-distr 8992  ax-i2m1 8993  ax-1ne0 8994  ax-1rid 8995  ax-rnegex 8996  ax-rrecex 8997  ax-cnre 8998  ax-pre-lttri 8999  ax-pre-lttrn 9000  ax-pre-ltadd 9001  ax-pre-mulgt0 9002  ax-pre-sup 9003  ax-addf 9004  ax-mulf 9005
This theorem depends on definitions:  df-bi 178  df-or 360  df-an 361  df-3or 937  df-3an 938  df-tru 1325  df-ex 1548  df-nf 1551  df-sb 1656  df-eu 2244  df-mo 2245  df-clab 2376  df-cleq 2382  df-clel 2385  df-nfc 2514  df-ne 2554  df-nel 2555  df-ral 2656  df-rex 2657  df-reu 2658  df-rmo 2659  df-rab 2660  df-v 2903  df-sbc 3107  df-csb 3197  df-dif 3268  df-un 3270  df-in 3272  df-ss 3279  df-pss 3281  df-nul 3574  df-if 3685  df-pw 3746  df-sn 3765  df-pr 3766  df-tp 3767  df-op 3768  df-uni 3960  df-int 3995  df-iun 4039  df-br 4156  df-opab 4210  df-mpt 4211  df-tr 4246  df-eprel 4437  df-id 4441  df-po 4446  df-so 4447  df-fr 4484  df-se 4485  df-we 4486  df-ord 4527  df-on 4528  df-lim 4529  df-suc 4530  df-om 4788  df-xp 4826  df-rel 4827  df-cnv 4828  df-co 4829  df-dm 4830  df-rn 4831  df-res 4832  df-ima 4833  df-iota 5360  df-fun 5398  df-fn 5399  df-f 5400  df-f1 5401  df-fo 5402  df-f1o 5403  df-fv 5404  df-isom 5405  df-ov 6025  df-oprab 6026  df-mpt2 6027  df-1st 6290  df-2nd 6291  df-riota 6487  df-recs 6571  df-rdg 6606  df-1o 6662  df-oadd 6666  df-er 6843  df-pm 6959  df-en 7048  df-dom 7049  df-sdom 7050  df-fin 7051  df-sup 7383  df-oi 7414  df-card 7761  df-pnf 9057  df-mnf 9058  df-xr 9059  df-ltxr 9060  df-le 9061  df-sub 9227  df-neg 9228  df-div 9612  df-nn 9935  df-2 9992  df-3 9993  df-n0 10156  df-z 10217  df-uz 10423  df-rp 10547  df-ico 10856  df-fz 10978  df-fzo 11068  df-fl 11131  df-seq 11253  df-exp 11312  df-fac 11496  df-hash 11548  df-shft 11811  df-cj 11833  df-re 11834  df-im 11835  df-sqr 11969  df-abs 11970  df-limsup 12194  df-clim 12211  df-rlim 12212  df-sum 12409
  Copyright terms: Public domain W3C validator