ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  cvgratz Unicode version

Theorem cvgratz 11539
Description: Ratio test for convergence of a complex infinite series. If the ratio  A of the absolute values of successive terms in an infinite sequence  F is less than 1 for all terms, then the infinite sum of the terms of  F converges to a complex number. (Contributed by NM, 26-Apr-2005.) (Revised by Jim Kingdon, 11-Nov-2022.)
Hypotheses
Ref Expression
cvgratz.1  |-  Z  =  ( ZZ>= `  M )
cvgratz.m  |-  ( ph  ->  M  e.  ZZ )
cvgratz.3  |-  ( ph  ->  A  e.  RR )
cvgratz.4  |-  ( ph  ->  A  <  1 )
cvgratz.gt0  |-  ( ph  ->  0  <  A )
cvgratz.6  |-  ( (
ph  /\  k  e.  Z )  ->  ( F `  k )  e.  CC )
cvgratz.7  |-  ( (
ph  /\  k  e.  Z )  ->  ( abs `  ( F `  ( k  +  1 ) ) )  <_ 
( A  x.  ( abs `  ( F `  k ) ) ) )
Assertion
Ref Expression
cvgratz  |-  ( ph  ->  seq M (  +  ,  F )  e. 
dom 
~~>  )
Distinct variable groups:    A, k    k, F    k, M    k, Z    ph, k

Proof of Theorem cvgratz
Dummy variables  i  x  y  a are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 cvgratz.m . . . . 5  |-  ( ph  ->  M  e.  ZZ )
21adantr 276 . . . 4  |-  ( (
ph  /\  1  <_  M )  ->  M  e.  ZZ )
3 fveq2 5515 . . . . . 6  |-  ( k  =  x  ->  ( F `  k )  =  ( F `  x ) )
43eleq1d 2246 . . . . 5  |-  ( k  =  x  ->  (
( F `  k
)  e.  CC  <->  ( F `  x )  e.  CC ) )
5 cvgratz.6 . . . . . . 7  |-  ( (
ph  /\  k  e.  Z )  ->  ( F `  k )  e.  CC )
65ralrimiva 2550 . . . . . 6  |-  ( ph  ->  A. k  e.  Z  ( F `  k )  e.  CC )
76ad2antrr 488 . . . . 5  |-  ( ( ( ph  /\  1  <_  M )  /\  x  e.  ( ZZ>= `  M )
)  ->  A. k  e.  Z  ( F `  k )  e.  CC )
8 cvgratz.1 . . . . . . . 8  |-  Z  =  ( ZZ>= `  M )
98eleq2i 2244 . . . . . . 7  |-  ( x  e.  Z  <->  x  e.  ( ZZ>= `  M )
)
109biimpri 133 . . . . . 6  |-  ( x  e.  ( ZZ>= `  M
)  ->  x  e.  Z )
1110adantl 277 . . . . 5  |-  ( ( ( ph  /\  1  <_  M )  /\  x  e.  ( ZZ>= `  M )
)  ->  x  e.  Z )
124, 7, 11rspcdva 2846 . . . 4  |-  ( ( ( ph  /\  1  <_  M )  /\  x  e.  ( ZZ>= `  M )
)  ->  ( F `  x )  e.  CC )
13 eluzelz 9536 . . . . . . . 8  |-  ( k  e.  ( ZZ>= `  M
)  ->  k  e.  ZZ )
1413adantl 277 . . . . . . 7  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= `  M )
)  ->  k  e.  ZZ )
15 1red 7971 . . . . . . . 8  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= `  M )
)  ->  1  e.  RR )
161zred 9374 . . . . . . . . 9  |-  ( ph  ->  M  e.  RR )
1716ad2antrr 488 . . . . . . . 8  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= `  M )
)  ->  M  e.  RR )
1814zred 9374 . . . . . . . 8  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= `  M )
)  ->  k  e.  RR )
19 simplr 528 . . . . . . . 8  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= `  M )
)  ->  1  <_  M )
20 eluzle 9539 . . . . . . . . 9  |-  ( k  e.  ( ZZ>= `  M
)  ->  M  <_  k )
2120adantl 277 . . . . . . . 8  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= `  M )
)  ->  M  <_  k )
2215, 17, 18, 19, 21letrd 8080 . . . . . . 7  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= `  M )
)  ->  1  <_  k )
23 elnnz1 9275 . . . . . . 7  |-  ( k  e.  NN  <->  ( k  e.  ZZ  /\  1  <_ 
k ) )
2414, 22, 23sylanbrc 417 . . . . . 6  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= `  M )
)  ->  k  e.  NN )
25 elnnuz 9563 . . . . . . . 8  |-  ( k  e.  NN  <->  k  e.  ( ZZ>= `  1 )
)
26 fveq2 5515 . . . . . . . . . . . . 13  |-  ( k  =  M  ->  ( F `  k )  =  ( F `  M ) )
2726eleq1d 2246 . . . . . . . . . . . 12  |-  ( k  =  M  ->  (
( F `  k
)  e.  CC  <->  ( F `  M )  e.  CC ) )
28 uzid 9541 . . . . . . . . . . . . . 14  |-  ( M  e.  ZZ  ->  M  e.  ( ZZ>= `  M )
)
291, 28syl 14 . . . . . . . . . . . . 13  |-  ( ph  ->  M  e.  ( ZZ>= `  M ) )
3029, 8eleqtrrdi 2271 . . . . . . . . . . . 12  |-  ( ph  ->  M  e.  Z )
3127, 6, 30rspcdva 2846 . . . . . . . . . . 11  |-  ( ph  ->  ( F `  M
)  e.  CC )
3231ad3antrrr 492 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= ` 
1 ) )  /\  k  <  M )  -> 
( F `  M
)  e.  CC )
33 cvgratz.3 . . . . . . . . . . . . . 14  |-  ( ph  ->  A  e.  RR )
34 cvgratz.gt0 . . . . . . . . . . . . . 14  |-  ( ph  ->  0  <  A )
3533, 34elrpd 9692 . . . . . . . . . . . . 13  |-  ( ph  ->  A  e.  RR+ )
3635ad3antrrr 492 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= ` 
1 ) )  /\  k  <  M )  ->  A  e.  RR+ )
372adantr 276 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= `  1 )
)  ->  M  e.  ZZ )
3837adantr 276 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= ` 
1 ) )  /\  k  <  M )  ->  M  e.  ZZ )
3925biimpri 133 . . . . . . . . . . . . . . . 16  |-  ( k  e.  ( ZZ>= `  1
)  ->  k  e.  NN )
4039adantl 277 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= `  1 )
)  ->  k  e.  NN )
4140nnzd 9373 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= `  1 )
)  ->  k  e.  ZZ )
4241adantr 276 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= ` 
1 ) )  /\  k  <  M )  -> 
k  e.  ZZ )
4338, 42zsubcld 9379 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= ` 
1 ) )  /\  k  <  M )  -> 
( M  -  k
)  e.  ZZ )
4436, 43rpexpcld 10677 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= ` 
1 ) )  /\  k  <  M )  -> 
( A ^ ( M  -  k )
)  e.  RR+ )
4544rpcnd 9697 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= ` 
1 ) )  /\  k  <  M )  -> 
( A ^ ( M  -  k )
)  e.  CC )
4644rpap0d 9701 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= ` 
1 ) )  /\  k  <  M )  -> 
( A ^ ( M  -  k )
) #  0 )
4732, 45, 46divclapd 8746 . . . . . . . . 9  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= ` 
1 ) )  /\  k  <  M )  -> 
( ( F `  M )  /  ( A ^ ( M  -  k ) ) )  e.  CC )
48 simplll 533 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= ` 
1 ) )  /\  -.  k  <  M )  ->  ph )
4937adantr 276 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= ` 
1 ) )  /\  -.  k  <  M )  ->  M  e.  ZZ )
5041adantr 276 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= ` 
1 ) )  /\  -.  k  <  M )  ->  k  e.  ZZ )
5116ad3antrrr 492 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= ` 
1 ) )  /\  -.  k  <  M )  ->  M  e.  RR )
5250zred 9374 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= ` 
1 ) )  /\  -.  k  <  M )  ->  k  e.  RR )
53 simpr 110 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= ` 
1 ) )  /\  -.  k  <  M )  ->  -.  k  <  M )
5451, 52, 53nltled 8077 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= ` 
1 ) )  /\  -.  k  <  M )  ->  M  <_  k
)
55 eluz2 9533 . . . . . . . . . . . 12  |-  ( k  e.  ( ZZ>= `  M
)  <->  ( M  e.  ZZ  /\  k  e.  ZZ  /\  M  <_ 
k ) )
5649, 50, 54, 55syl3anbrc 1181 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= ` 
1 ) )  /\  -.  k  <  M )  ->  k  e.  (
ZZ>= `  M ) )
5756, 8eleqtrrdi 2271 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= ` 
1 ) )  /\  -.  k  <  M )  ->  k  e.  Z
)
5848, 57, 5syl2anc 411 . . . . . . . . 9  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= ` 
1 ) )  /\  -.  k  <  M )  ->  ( F `  k )  e.  CC )
59 zdclt 9329 . . . . . . . . . 10  |-  ( ( k  e.  ZZ  /\  M  e.  ZZ )  -> DECID  k  <  M )
6041, 37, 59syl2anc 411 . . . . . . . . 9  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= `  1 )
)  -> DECID  k  <  M )
6147, 58, 60ifcldadc 3563 . . . . . . . 8  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= `  1 )
)  ->  if (
k  <  M , 
( ( F `  M )  /  ( A ^ ( M  -  k ) ) ) ,  ( F `  k ) )  e.  CC )
6225, 61sylan2b 287 . . . . . . 7  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  if ( k  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  k )
) ) ,  ( F `  k ) )  e.  CC )
6324, 62syldan 282 . . . . . 6  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= `  M )
)  ->  if (
k  <  M , 
( ( F `  M )  /  ( A ^ ( M  -  k ) ) ) ,  ( F `  k ) )  e.  CC )
64 breq1 4006 . . . . . . . 8  |-  ( i  =  k  ->  (
i  <  M  <->  k  <  M ) )
65 oveq2 5882 . . . . . . . . . 10  |-  ( i  =  k  ->  ( M  -  i )  =  ( M  -  k ) )
6665oveq2d 5890 . . . . . . . . 9  |-  ( i  =  k  ->  ( A ^ ( M  -  i ) )  =  ( A ^ ( M  -  k )
) )
6766oveq2d 5890 . . . . . . . 8  |-  ( i  =  k  ->  (
( F `  M
)  /  ( A ^ ( M  -  i ) ) )  =  ( ( F `
 M )  / 
( A ^ ( M  -  k )
) ) )
68 fveq2 5515 . . . . . . . 8  |-  ( i  =  k  ->  ( F `  i )  =  ( F `  k ) )
6964, 67, 68ifbieq12d 3560 . . . . . . 7  |-  ( i  =  k  ->  if ( i  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  i )
) ) ,  ( F `  i ) )  =  if ( k  <  M , 
( ( F `  M )  /  ( A ^ ( M  -  k ) ) ) ,  ( F `  k ) ) )
70 eqid 2177 . . . . . . 7  |-  ( i  e.  NN  |->  if ( i  <  M , 
( ( F `  M )  /  ( A ^ ( M  -  i ) ) ) ,  ( F `  i ) ) )  =  ( i  e.  NN  |->  if ( i  <  M ,  ( ( F `  M
)  /  ( A ^ ( M  -  i ) ) ) ,  ( F `  i ) ) )
7169, 70fvmptg 5592 . . . . . 6  |-  ( ( k  e.  NN  /\  if ( k  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  k )
) ) ,  ( F `  k ) )  e.  CC )  ->  ( ( i  e.  NN  |->  if ( i  <  M , 
( ( F `  M )  /  ( A ^ ( M  -  i ) ) ) ,  ( F `  i ) ) ) `
 k )  =  if ( k  < 
M ,  ( ( F `  M )  /  ( A ^
( M  -  k
) ) ) ,  ( F `  k
) ) )
7224, 63, 71syl2anc 411 . . . . 5  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= `  M )
)  ->  ( (
i  e.  NN  |->  if ( i  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  i )
) ) ,  ( F `  i ) ) ) `  k
)  =  if ( k  <  M , 
( ( F `  M )  /  ( A ^ ( M  -  k ) ) ) ,  ( F `  k ) ) )
7317, 18, 21lensymd 8078 . . . . . 6  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= `  M )
)  ->  -.  k  <  M )
7473iffalsed 3544 . . . . 5  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= `  M )
)  ->  if (
k  <  M , 
( ( F `  M )  /  ( A ^ ( M  -  k ) ) ) ,  ( F `  k ) )  =  ( F `  k
) )
7572, 74eqtr2d 2211 . . . 4  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= `  M )
)  ->  ( F `  k )  =  ( ( i  e.  NN  |->  if ( i  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  i )
) ) ,  ( F `  i ) ) ) `  k
) )
76 addcl 7935 . . . . 5  |-  ( ( x  e.  CC  /\  y  e.  CC )  ->  ( x  +  y )  e.  CC )
7776adantl 277 . . . 4  |-  ( ( ( ph  /\  1  <_  M )  /\  (
x  e.  CC  /\  y  e.  CC )
)  ->  ( x  +  y )  e.  CC )
782, 12, 75, 77seq3feq 10471 . . 3  |-  ( (
ph  /\  1  <_  M )  ->  seq M (  +  ,  F )  =  seq M (  +  ,  ( i  e.  NN  |->  if ( i  <  M , 
( ( F `  M )  /  ( A ^ ( M  -  i ) ) ) ,  ( F `  i ) ) ) ) )
7933adantr 276 . . . . 5  |-  ( (
ph  /\  1  <_  M )  ->  A  e.  RR )
80 cvgratz.4 . . . . . 6  |-  ( ph  ->  A  <  1 )
8180adantr 276 . . . . 5  |-  ( (
ph  /\  1  <_  M )  ->  A  <  1 )
8234adantr 276 . . . . 5  |-  ( (
ph  /\  1  <_  M )  ->  0  <  A )
8371eleq1d 2246 . . . . . . . 8  |-  ( ( k  e.  NN  /\  if ( k  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  k )
) ) ,  ( F `  k ) )  e.  CC )  ->  ( ( ( i  e.  NN  |->  if ( i  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  i )
) ) ,  ( F `  i ) ) ) `  k
)  e.  CC  <->  if (
k  <  M , 
( ( F `  M )  /  ( A ^ ( M  -  k ) ) ) ,  ( F `  k ) )  e.  CC ) )
8440, 61, 83syl2anc 411 . . . . . . 7  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= `  1 )
)  ->  ( (
( i  e.  NN  |->  if ( i  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  i )
) ) ,  ( F `  i ) ) ) `  k
)  e.  CC  <->  if (
k  <  M , 
( ( F `  M )  /  ( A ^ ( M  -  k ) ) ) ,  ( F `  k ) )  e.  CC ) )
8561, 84mpbird 167 . . . . . 6  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  ( ZZ>= `  1 )
)  ->  ( (
i  e.  NN  |->  if ( i  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  i )
) ) ,  ( F `  i ) ) ) `  k
)  e.  CC )
8625, 85sylan2b 287 . . . . 5  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  (
( i  e.  NN  |->  if ( i  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  i )
) ) ,  ( F `  i ) ) ) `  k
)  e.  CC )
8731ad3antrrr 492 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  <  M )  ->  ( F `  M )  e.  CC )
8835ad3antrrr 492 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  <  M )  ->  A  e.  RR+ )
892ad2antrr 488 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  <  M )  ->  M  e.  ZZ )
9025, 41sylan2b 287 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  k  e.  ZZ )
9190adantr 276 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  <  M )  ->  k  e.  ZZ )
9291peano2zd 9377 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  <  M )  ->  ( k  +  1 )  e.  ZZ )
9389, 92zsubcld 9379 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  <  M )  ->  ( M  -  ( k  +  1 ) )  e.  ZZ )
9488, 93rpexpcld 10677 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  <  M )  ->  ( A ^
( M  -  (
k  +  1 ) ) )  e.  RR+ )
9594rpcnd 9697 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  <  M )  ->  ( A ^
( M  -  (
k  +  1 ) ) )  e.  CC )
9694rpap0d 9701 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  <  M )  ->  ( A ^
( M  -  (
k  +  1 ) ) ) #  0 )
9787, 95, 96divclapd 8746 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  <  M )  ->  ( ( F `
 M )  / 
( A ^ ( M  -  ( k  +  1 ) ) ) )  e.  CC )
98 fveq2 5515 . . . . . . . . . . . 12  |-  ( a  =  ( k  +  1 )  ->  ( F `  a )  =  ( F `  ( k  +  1 ) ) )
9998eleq1d 2246 . . . . . . . . . . 11  |-  ( a  =  ( k  +  1 )  ->  (
( F `  a
)  e.  CC  <->  ( F `  ( k  +  1 ) )  e.  CC ) )
100 fveq2 5515 . . . . . . . . . . . . . . 15  |-  ( k  =  a  ->  ( F `  k )  =  ( F `  a ) )
101100eleq1d 2246 . . . . . . . . . . . . . 14  |-  ( k  =  a  ->  (
( F `  k
)  e.  CC  <->  ( F `  a )  e.  CC ) )
102101cbvralv 2703 . . . . . . . . . . . . 13  |-  ( A. k  e.  Z  ( F `  k )  e.  CC  <->  A. a  e.  Z  ( F `  a )  e.  CC )
1036, 102sylib 122 . . . . . . . . . . . 12  |-  ( ph  ->  A. a  e.  Z  ( F `  a )  e.  CC )
104103ad3antrrr 492 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  -.  ( k  +  1 )  <  M
)  ->  A. a  e.  Z  ( F `  a )  e.  CC )
1052ad2antrr 488 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  -.  ( k  +  1 )  <  M
)  ->  M  e.  ZZ )
106 peano2nn 8930 . . . . . . . . . . . . . . . 16  |-  ( k  e.  NN  ->  (
k  +  1 )  e.  NN )
107106adantl 277 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  (
k  +  1 )  e.  NN )
108107nnzd 9373 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  (
k  +  1 )  e.  ZZ )
109108adantr 276 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  -.  ( k  +  1 )  <  M
)  ->  ( k  +  1 )  e.  ZZ )
11016ad3antrrr 492 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  -.  ( k  +  1 )  <  M
)  ->  M  e.  RR )
111107nnred 8931 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  (
k  +  1 )  e.  RR )
112111adantr 276 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  -.  ( k  +  1 )  <  M
)  ->  ( k  +  1 )  e.  RR )
113 simpr 110 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  -.  ( k  +  1 )  <  M
)  ->  -.  (
k  +  1 )  <  M )
114110, 112, 113nltled 8077 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  -.  ( k  +  1 )  <  M
)  ->  M  <_  ( k  +  1 ) )
115 eluz2 9533 . . . . . . . . . . . . 13  |-  ( ( k  +  1 )  e.  ( ZZ>= `  M
)  <->  ( M  e.  ZZ  /\  ( k  +  1 )  e.  ZZ  /\  M  <_ 
( k  +  1 ) ) )
116105, 109, 114, 115syl3anbrc 1181 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  -.  ( k  +  1 )  <  M
)  ->  ( k  +  1 )  e.  ( ZZ>= `  M )
)
117116, 8eleqtrrdi 2271 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  -.  ( k  +  1 )  <  M
)  ->  ( k  +  1 )  e.  Z )
11899, 104, 117rspcdva 2846 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  -.  ( k  +  1 )  <  M
)  ->  ( F `  ( k  +  1 ) )  e.  CC )
1192adantr 276 . . . . . . . . . . 11  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  M  e.  ZZ )
120 zdclt 9329 . . . . . . . . . . 11  |-  ( ( ( k  +  1 )  e.  ZZ  /\  M  e.  ZZ )  -> DECID  ( k  +  1 )  <  M )
121108, 119, 120syl2anc 411 . . . . . . . . . 10  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  -> DECID  ( k  +  1 )  <  M )
12297, 118, 121ifcldadc 3563 . . . . . . . . 9  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  if ( ( k  +  1 )  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  ( k  +  1 ) ) ) ) ,  ( F `  ( k  +  1 ) ) )  e.  CC )
123122abscld 11189 . . . . . . . 8  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  ( abs `  if ( ( k  +  1 )  <  M ,  ( ( F `  M
)  /  ( A ^ ( M  -  ( k  +  1 ) ) ) ) ,  ( F `  ( k  +  1 ) ) ) )  e.  RR )
12416recnd 7985 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  M  e.  CC )
125124ad2antrr 488 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  M  e.  CC )
126 simpr 110 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  k  e.  NN )
127126nncnd 8932 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  k  e.  CC )
128 1cnd 7972 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  1  e.  CC )
129125, 127, 128subsub4d 8298 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  (
( M  -  k
)  -  1 )  =  ( M  -  ( k  +  1 ) ) )
130129oveq2d 5890 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  ( A ^ ( ( M  -  k )  - 
1 ) )  =  ( A ^ ( M  -  ( k  +  1 ) ) ) )
13133recnd 7985 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  A  e.  CC )
132131ad2antrr 488 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  A  e.  CC )
13333, 34gt0ap0d 8585 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  A #  0 )
134133ad2antrr 488 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  A #  0 )
135119, 90zsubcld 9379 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  ( M  -  k )  e.  ZZ )
136132, 134, 135expm1apd 10663 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  ( A ^ ( ( M  -  k )  - 
1 ) )  =  ( ( A ^
( M  -  k
) )  /  A
) )
137130, 136eqtr3d 2212 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  ( A ^ ( M  -  ( k  +  1 ) ) )  =  ( ( A ^
( M  -  k
) )  /  A
) )
138137oveq2d 5890 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  (
( F `  M
)  /  ( A ^ ( M  -  ( k  +  1 ) ) ) )  =  ( ( F `
 M )  / 
( ( A ^
( M  -  k
) )  /  A
) ) )
139138adantr 276 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  <  M )  ->  ( ( F `
 M )  / 
( A ^ ( M  -  ( k  +  1 ) ) ) )  =  ( ( F `  M
)  /  ( ( A ^ ( M  -  k ) )  /  A ) ) )
140 simpr 110 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  <  M )  ->  ( k  +  1 )  <  M
)
141140iftrued 3541 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  <  M )  ->  if ( ( k  +  1 )  <  M ,  ( ( F `  M
)  /  ( A ^ ( M  -  ( k  +  1 ) ) ) ) ,  ( F `  ( k  +  1 ) ) )  =  ( ( F `  M )  /  ( A ^ ( M  -  ( k  +  1 ) ) ) ) )
142126nnred 8931 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  k  e.  RR )
143142adantr 276 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  <  M )  ->  k  e.  RR )
144 peano2re 8092 . . . . . . . . . . . . . . . 16  |-  ( k  e.  RR  ->  (
k  +  1 )  e.  RR )
145143, 144syl 14 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  <  M )  ->  ( k  +  1 )  e.  RR )
14616ad3antrrr 492 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  <  M )  ->  M  e.  RR )
147143ltp1d 8886 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  <  M )  ->  k  <  (
k  +  1 ) )
148143, 145, 146, 147, 140lttrd 8082 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  <  M )  ->  k  <  M
)
149148iftrued 3541 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  <  M )  ->  if ( k  <  M ,  ( ( F `  M
)  /  ( A ^ ( M  -  k ) ) ) ,  ( F `  k ) )  =  ( ( F `  M )  /  ( A ^ ( M  -  k ) ) ) )
150149oveq2d 5890 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  <  M )  ->  ( A  x.  if ( k  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  k )
) ) ,  ( F `  k ) ) )  =  ( A  x.  ( ( F `  M )  /  ( A ^
( M  -  k
) ) ) ) )
15131ad2antrr 488 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  ( F `  M )  e.  CC )
152132, 134, 135expclzapd 10658 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  ( A ^ ( M  -  k ) )  e.  CC )
153132, 134, 135expap0d 10659 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  ( A ^ ( M  -  k ) ) #  0 )
154151, 152, 132, 153, 134divdivap2d 8779 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  (
( F `  M
)  /  ( ( A ^ ( M  -  k ) )  /  A ) )  =  ( ( ( F `  M )  x.  A )  / 
( A ^ ( M  -  k )
) ) )
155151, 132mulcomd 7978 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  (
( F `  M
)  x.  A )  =  ( A  x.  ( F `  M ) ) )
156155oveq1d 5889 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  (
( ( F `  M )  x.  A
)  /  ( A ^ ( M  -  k ) ) )  =  ( ( A  x.  ( F `  M ) )  / 
( A ^ ( M  -  k )
) ) )
157132, 151, 152, 153divassapd 8782 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  (
( A  x.  ( F `  M )
)  /  ( A ^ ( M  -  k ) ) )  =  ( A  x.  ( ( F `  M )  /  ( A ^ ( M  -  k ) ) ) ) )
158154, 156, 1573eqtrd 2214 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  (
( F `  M
)  /  ( ( A ^ ( M  -  k ) )  /  A ) )  =  ( A  x.  ( ( F `  M )  /  ( A ^ ( M  -  k ) ) ) ) )
159158adantr 276 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  <  M )  ->  ( ( F `
 M )  / 
( ( A ^
( M  -  k
) )  /  A
) )  =  ( A  x.  ( ( F `  M )  /  ( A ^
( M  -  k
) ) ) ) )
160150, 159eqtr4d 2213 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  <  M )  ->  ( A  x.  if ( k  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  k )
) ) ,  ( F `  k ) ) )  =  ( ( F `  M
)  /  ( ( A ^ ( M  -  k ) )  /  A ) ) )
161139, 141, 1603eqtr4d 2220 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  <  M )  ->  if ( ( k  +  1 )  <  M ,  ( ( F `  M
)  /  ( A ^ ( M  -  ( k  +  1 ) ) ) ) ,  ( F `  ( k  +  1 ) ) )  =  ( A  x.  if ( k  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  k )
) ) ,  ( F `  k ) ) ) )
162161fveq2d 5519 . . . . . . . . 9  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  <  M )  ->  ( abs `  if ( ( k  +  1 )  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  ( k  +  1 ) ) ) ) ,  ( F `  ( k  +  1 ) ) ) )  =  ( abs `  ( A  x.  if ( k  <  M ,  ( ( F `  M
)  /  ( A ^ ( M  -  k ) ) ) ,  ( F `  k ) ) ) ) )
163132, 62absmuld 11202 . . . . . . . . . 10  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  ( abs `  ( A  x.  if ( k  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  k )
) ) ,  ( F `  k ) ) ) )  =  ( ( abs `  A
)  x.  ( abs `  if ( k  < 
M ,  ( ( F `  M )  /  ( A ^
( M  -  k
) ) ) ,  ( F `  k
) ) ) ) )
164163adantr 276 . . . . . . . . 9  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  <  M )  ->  ( abs `  ( A  x.  if (
k  <  M , 
( ( F `  M )  /  ( A ^ ( M  -  k ) ) ) ,  ( F `  k ) ) ) )  =  ( ( abs `  A )  x.  ( abs `  if ( k  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  k )
) ) ,  ( F `  k ) ) ) ) )
16535rpge0d 9699 . . . . . . . . . . . 12  |-  ( ph  ->  0  <_  A )
16633, 165absidd 11175 . . . . . . . . . . 11  |-  ( ph  ->  ( abs `  A
)  =  A )
167166oveq1d 5889 . . . . . . . . . 10  |-  ( ph  ->  ( ( abs `  A
)  x.  ( abs `  if ( k  < 
M ,  ( ( F `  M )  /  ( A ^
( M  -  k
) ) ) ,  ( F `  k
) ) ) )  =  ( A  x.  ( abs `  if ( k  <  M , 
( ( F `  M )  /  ( A ^ ( M  -  k ) ) ) ,  ( F `  k ) ) ) ) )
168167ad3antrrr 492 . . . . . . . . 9  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  <  M )  ->  ( ( abs `  A )  x.  ( abs `  if ( k  <  M ,  ( ( F `  M
)  /  ( A ^ ( M  -  k ) ) ) ,  ( F `  k ) ) ) )  =  ( A  x.  ( abs `  if ( k  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  k )
) ) ,  ( F `  k ) ) ) ) )
169162, 164, 1683eqtrd 2214 . . . . . . . 8  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  <  M )  ->  ( abs `  if ( ( k  +  1 )  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  ( k  +  1 ) ) ) ) ,  ( F `  ( k  +  1 ) ) ) )  =  ( A  x.  ( abs `  if ( k  < 
M ,  ( ( F `  M )  /  ( A ^
( M  -  k
) ) ) ,  ( F `  k
) ) ) ) )
170 eqle 8048 . . . . . . . 8  |-  ( ( ( abs `  if ( ( k  +  1 )  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  ( k  +  1 ) ) ) ) ,  ( F `  ( k  +  1 ) ) ) )  e.  RR  /\  ( abs `  if ( ( k  +  1 )  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  ( k  +  1 ) ) ) ) ,  ( F `  ( k  +  1 ) ) ) )  =  ( A  x.  ( abs `  if ( k  < 
M ,  ( ( F `  M )  /  ( A ^
( M  -  k
) ) ) ,  ( F `  k
) ) ) ) )  ->  ( abs `  if ( ( k  +  1 )  < 
M ,  ( ( F `  M )  /  ( A ^
( M  -  (
k  +  1 ) ) ) ) ,  ( F `  (
k  +  1 ) ) ) )  <_ 
( A  x.  ( abs `  if ( k  <  M ,  ( ( F `  M
)  /  ( A ^ ( M  -  k ) ) ) ,  ( F `  k ) ) ) ) )
171123, 169, 170syl2an2r 595 . . . . . . 7  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  <  M )  ->  ( abs `  if ( ( k  +  1 )  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  ( k  +  1 ) ) ) ) ,  ( F `  ( k  +  1 ) ) ) )  <_  ( A  x.  ( abs `  if ( k  < 
M ,  ( ( F `  M )  /  ( A ^
( M  -  k
) ) ) ,  ( F `  k
) ) ) ) )
17216ad2antrr 488 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  M  e.  RR )
173111, 172lttri3d 8071 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  (
( k  +  1 )  =  M  <->  ( -.  ( k  +  1 )  <  M  /\  -.  M  <  ( k  +  1 ) ) ) )
174173simprbda 383 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  =  M )  ->  -.  ( k  +  1 )  < 
M )
175174iffalsed 3544 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  =  M )  ->  if ( ( k  +  1 )  <  M ,  ( ( F `  M
)  /  ( A ^ ( M  -  ( k  +  1 ) ) ) ) ,  ( F `  ( k  +  1 ) ) )  =  ( F `  (
k  +  1 ) ) )
176 simpr 110 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  =  M )  ->  ( k  +  1 )  =  M )
177176fveq2d 5519 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  =  M )  ->  ( F `  ( k  +  1 ) )  =  ( F `  M ) )
178175, 177eqtrd 2210 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  =  M )  ->  if ( ( k  +  1 )  <  M ,  ( ( F `  M
)  /  ( A ^ ( M  -  ( k  +  1 ) ) ) ) ,  ( F `  ( k  +  1 ) ) )  =  ( F `  M
) )
179178fveq2d 5519 . . . . . . . . 9  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  =  M )  ->  ( abs `  if ( ( k  +  1 )  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  ( k  +  1 ) ) ) ) ,  ( F `  ( k  +  1 ) ) ) )  =  ( abs `  ( F `
 M ) ) )
180142adantr 276 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  =  M )  ->  k  e.  RR )
181180ltp1d 8886 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  =  M )  ->  k  <  (
k  +  1 ) )
182 breq2 4007 . . . . . . . . . . . . . . . 16  |-  ( ( k  +  1 )  =  M  ->  (
k  <  ( k  +  1 )  <->  k  <  M ) )
183182adantl 277 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  =  M )  ->  ( k  < 
( k  +  1 )  <->  k  <  M
) )
184181, 183mpbid 147 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  =  M )  ->  k  <  M
)
185184iftrued 3541 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  =  M )  ->  if ( k  <  M ,  ( ( F `  M
)  /  ( A ^ ( M  -  k ) ) ) ,  ( F `  k ) )  =  ( ( F `  M )  /  ( A ^ ( M  -  k ) ) ) )
186176oveq1d 5889 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  =  M )  ->  ( ( k  +  1 )  -  k )  =  ( M  -  k ) )
187127adantr 276 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  =  M )  ->  k  e.  CC )
188 1cnd 7972 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  =  M )  ->  1  e.  CC )
189187, 188pncan2d 8269 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  =  M )  ->  ( ( k  +  1 )  -  k )  =  1 )
190186, 189eqtr3d 2212 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  =  M )  ->  ( M  -  k )  =  1 )
191190oveq2d 5890 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  =  M )  ->  ( A ^
( M  -  k
) )  =  ( A ^ 1 ) )
192132adantr 276 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  =  M )  ->  A  e.  CC )
193192exp1d 10648 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  =  M )  ->  ( A ^
1 )  =  A )
194191, 193eqtrd 2210 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  =  M )  ->  ( A ^
( M  -  k
) )  =  A )
195194oveq2d 5890 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  =  M )  ->  ( ( F `
 M )  / 
( A ^ ( M  -  k )
) )  =  ( ( F `  M
)  /  A ) )
196185, 195eqtrd 2210 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  =  M )  ->  if ( k  <  M ,  ( ( F `  M
)  /  ( A ^ ( M  -  k ) ) ) ,  ( F `  k ) )  =  ( ( F `  M )  /  A
) )
197196oveq2d 5890 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  =  M )  ->  ( A  x.  if ( k  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  k )
) ) ,  ( F `  k ) ) )  =  ( A  x.  ( ( F `  M )  /  A ) ) )
19831, 131, 133divcanap2d 8748 . . . . . . . . . . . 12  |-  ( ph  ->  ( A  x.  (
( F `  M
)  /  A ) )  =  ( F `
 M ) )
199198ad3antrrr 492 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  =  M )  ->  ( A  x.  ( ( F `  M )  /  A
) )  =  ( F `  M ) )
200197, 199eqtrd 2210 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  =  M )  ->  ( A  x.  if ( k  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  k )
) ) ,  ( F `  k ) ) )  =  ( F `  M ) )
201200fveq2d 5519 . . . . . . . . 9  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  =  M )  ->  ( abs `  ( A  x.  if (
k  <  M , 
( ( F `  M )  /  ( A ^ ( M  -  k ) ) ) ,  ( F `  k ) ) ) )  =  ( abs `  ( F `  M
) ) )
202167ad2antrr 488 . . . . . . . . . . 11  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  (
( abs `  A
)  x.  ( abs `  if ( k  < 
M ,  ( ( F `  M )  /  ( A ^
( M  -  k
) ) ) ,  ( F `  k
) ) ) )  =  ( A  x.  ( abs `  if ( k  <  M , 
( ( F `  M )  /  ( A ^ ( M  -  k ) ) ) ,  ( F `  k ) ) ) ) )
203163, 202eqtrd 2210 . . . . . . . . . 10  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  ( abs `  ( A  x.  if ( k  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  k )
) ) ,  ( F `  k ) ) ) )  =  ( A  x.  ( abs `  if ( k  <  M ,  ( ( F `  M
)  /  ( A ^ ( M  -  k ) ) ) ,  ( F `  k ) ) ) ) )
204203adantr 276 . . . . . . . . 9  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  =  M )  ->  ( abs `  ( A  x.  if (
k  <  M , 
( ( F `  M )  /  ( A ^ ( M  -  k ) ) ) ,  ( F `  k ) ) ) )  =  ( A  x.  ( abs `  if ( k  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  k )
) ) ,  ( F `  k ) ) ) ) )
205179, 201, 2043eqtr2d 2216 . . . . . . . 8  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  =  M )  ->  ( abs `  if ( ( k  +  1 )  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  ( k  +  1 ) ) ) ) ,  ( F `  ( k  +  1 ) ) ) )  =  ( A  x.  ( abs `  if ( k  < 
M ,  ( ( F `  M )  /  ( A ^
( M  -  k
) ) ) ,  ( F `  k
) ) ) ) )
206123, 205, 170syl2an2r 595 . . . . . . 7  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  ( k  +  1 )  =  M )  ->  ( abs `  if ( ( k  +  1 )  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  ( k  +  1 ) ) ) ) ,  ( F `  ( k  +  1 ) ) ) )  <_  ( A  x.  ( abs `  if ( k  < 
M ,  ( ( F `  M )  /  ( A ^
( M  -  k
) ) ) ,  ( F `  k
) ) ) ) )
207 simplll 533 . . . . . . . . 9  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  M  <  ( k  +  1 ) )  ->  ph )
208119adantr 276 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  M  <  ( k  +  1 ) )  ->  M  e.  ZZ )
20990adantr 276 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  M  <  ( k  +  1 ) )  ->  k  e.  ZZ )
210 simpr 110 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  M  <  ( k  +  1 ) )  ->  M  <  (
k  +  1 ) )
211 zleltp1 9307 . . . . . . . . . . . . 13  |-  ( ( M  e.  ZZ  /\  k  e.  ZZ )  ->  ( M  <_  k  <->  M  <  ( k  +  1 ) ) )
212119, 209, 211syl2an2r 595 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  M  <  ( k  +  1 ) )  ->  ( M  <_ 
k  <->  M  <  ( k  +  1 ) ) )
213210, 212mpbird 167 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  M  <  ( k  +  1 ) )  ->  M  <_  k
)
214208, 209, 213, 55syl3anbrc 1181 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  M  <  ( k  +  1 ) )  ->  k  e.  (
ZZ>= `  M ) )
215214, 8eleqtrrdi 2271 . . . . . . . . 9  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  M  <  ( k  +  1 ) )  ->  k  e.  Z
)
216 cvgratz.7 . . . . . . . . 9  |-  ( (
ph  /\  k  e.  Z )  ->  ( abs `  ( F `  ( k  +  1 ) ) )  <_ 
( A  x.  ( abs `  ( F `  k ) ) ) )
217207, 215, 216syl2anc 411 . . . . . . . 8  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  M  <  ( k  +  1 ) )  ->  ( abs `  ( F `  ( k  +  1 ) ) )  <_  ( A  x.  ( abs `  ( F `  k )
) ) )
218172adantr 276 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  M  <  ( k  +  1 ) )  ->  M  e.  RR )
219111adantr 276 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  M  <  ( k  +  1 ) )  ->  ( k  +  1 )  e.  RR )
220218, 219, 210ltnsymd 8076 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  M  <  ( k  +  1 ) )  ->  -.  ( k  +  1 )  < 
M )
221220iffalsed 3544 . . . . . . . . 9  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  M  <  ( k  +  1 ) )  ->  if ( ( k  +  1 )  <  M ,  ( ( F `  M
)  /  ( A ^ ( M  -  ( k  +  1 ) ) ) ) ,  ( F `  ( k  +  1 ) ) )  =  ( F `  (
k  +  1 ) ) )
222221fveq2d 5519 . . . . . . . 8  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  M  <  ( k  +  1 ) )  ->  ( abs `  if ( ( k  +  1 )  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  ( k  +  1 ) ) ) ) ,  ( F `  ( k  +  1 ) ) ) )  =  ( abs `  ( F `
 ( k  +  1 ) ) ) )
223142adantr 276 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  M  <  ( k  +  1 ) )  ->  k  e.  RR )
224218, 223, 213lensymd 8078 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  M  <  ( k  +  1 ) )  ->  -.  k  <  M )
225224iffalsed 3544 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  M  <  ( k  +  1 ) )  ->  if ( k  <  M ,  ( ( F `  M
)  /  ( A ^ ( M  -  k ) ) ) ,  ( F `  k ) )  =  ( F `  k
) )
226225fveq2d 5519 . . . . . . . . 9  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  M  <  ( k  +  1 ) )  ->  ( abs `  if ( k  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  k )
) ) ,  ( F `  k ) ) )  =  ( abs `  ( F `
 k ) ) )
227226oveq2d 5890 . . . . . . . 8  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  M  <  ( k  +  1 ) )  ->  ( A  x.  ( abs `  if ( k  <  M , 
( ( F `  M )  /  ( A ^ ( M  -  k ) ) ) ,  ( F `  k ) ) ) )  =  ( A  x.  ( abs `  ( F `  k )
) ) )
228217, 222, 2273brtr4d 4035 . . . . . . 7  |-  ( ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  /\  M  <  ( k  +  1 ) )  ->  ( abs `  if ( ( k  +  1 )  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  ( k  +  1 ) ) ) ) ,  ( F `  ( k  +  1 ) ) ) )  <_  ( A  x.  ( abs `  if ( k  < 
M ,  ( ( F `  M )  /  ( A ^
( M  -  k
) ) ) ,  ( F `  k
) ) ) ) )
229 ztri3or 9295 . . . . . . . 8  |-  ( ( ( k  +  1 )  e.  ZZ  /\  M  e.  ZZ )  ->  ( ( k  +  1 )  <  M  \/  ( k  +  1 )  =  M  \/  M  <  ( k  +  1 ) ) )
230108, 119, 229syl2anc 411 . . . . . . 7  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  (
( k  +  1 )  <  M  \/  ( k  +  1 )  =  M  \/  M  <  ( k  +  1 ) ) )
231171, 206, 228, 230mpjao3dan 1307 . . . . . 6  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  ( abs `  if ( ( k  +  1 )  <  M ,  ( ( F `  M
)  /  ( A ^ ( M  -  ( k  +  1 ) ) ) ) ,  ( F `  ( k  +  1 ) ) ) )  <_  ( A  x.  ( abs `  if ( k  <  M , 
( ( F `  M )  /  ( A ^ ( M  -  k ) ) ) ,  ( F `  k ) ) ) ) )
232 breq1 4006 . . . . . . . . . 10  |-  ( i  =  ( k  +  1 )  ->  (
i  <  M  <->  ( k  +  1 )  < 
M ) )
233 oveq2 5882 . . . . . . . . . . . 12  |-  ( i  =  ( k  +  1 )  ->  ( M  -  i )  =  ( M  -  ( k  +  1 ) ) )
234233oveq2d 5890 . . . . . . . . . . 11  |-  ( i  =  ( k  +  1 )  ->  ( A ^ ( M  -  i ) )  =  ( A ^ ( M  -  ( k  +  1 ) ) ) )
235234oveq2d 5890 . . . . . . . . . 10  |-  ( i  =  ( k  +  1 )  ->  (
( F `  M
)  /  ( A ^ ( M  -  i ) ) )  =  ( ( F `
 M )  / 
( A ^ ( M  -  ( k  +  1 ) ) ) ) )
236 fveq2 5515 . . . . . . . . . 10  |-  ( i  =  ( k  +  1 )  ->  ( F `  i )  =  ( F `  ( k  +  1 ) ) )
237232, 235, 236ifbieq12d 3560 . . . . . . . . 9  |-  ( i  =  ( k  +  1 )  ->  if ( i  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  i )
) ) ,  ( F `  i ) )  =  if ( ( k  +  1 )  <  M , 
( ( F `  M )  /  ( A ^ ( M  -  ( k  +  1 ) ) ) ) ,  ( F `  ( k  +  1 ) ) ) )
238237, 70fvmptg 5592 . . . . . . . 8  |-  ( ( ( k  +  1 )  e.  NN  /\  if ( ( k  +  1 )  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  ( k  +  1 ) ) ) ) ,  ( F `  ( k  +  1 ) ) )  e.  CC )  ->  ( ( i  e.  NN  |->  if ( i  <  M , 
( ( F `  M )  /  ( A ^ ( M  -  i ) ) ) ,  ( F `  i ) ) ) `
 ( k  +  1 ) )  =  if ( ( k  +  1 )  < 
M ,  ( ( F `  M )  /  ( A ^
( M  -  (
k  +  1 ) ) ) ) ,  ( F `  (
k  +  1 ) ) ) )
239107, 122, 238syl2anc 411 . . . . . . 7  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  (
( i  e.  NN  |->  if ( i  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  i )
) ) ,  ( F `  i ) ) ) `  (
k  +  1 ) )  =  if ( ( k  +  1 )  <  M , 
( ( F `  M )  /  ( A ^ ( M  -  ( k  +  1 ) ) ) ) ,  ( F `  ( k  +  1 ) ) ) )
240239fveq2d 5519 . . . . . 6  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  ( abs `  ( ( i  e.  NN  |->  if ( i  <  M , 
( ( F `  M )  /  ( A ^ ( M  -  i ) ) ) ,  ( F `  i ) ) ) `
 ( k  +  1 ) ) )  =  ( abs `  if ( ( k  +  1 )  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  ( k  +  1 ) ) ) ) ,  ( F `  ( k  +  1 ) ) ) ) )
241126, 62, 71syl2anc 411 . . . . . . . 8  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  (
( i  e.  NN  |->  if ( i  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  i )
) ) ,  ( F `  i ) ) ) `  k
)  =  if ( k  <  M , 
( ( F `  M )  /  ( A ^ ( M  -  k ) ) ) ,  ( F `  k ) ) )
242241fveq2d 5519 . . . . . . 7  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  ( abs `  ( ( i  e.  NN  |->  if ( i  <  M , 
( ( F `  M )  /  ( A ^ ( M  -  i ) ) ) ,  ( F `  i ) ) ) `
 k ) )  =  ( abs `  if ( k  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  k )
) ) ,  ( F `  k ) ) ) )
243242oveq2d 5890 . . . . . 6  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  ( A  x.  ( abs `  ( ( i  e.  NN  |->  if ( i  <  M ,  ( ( F `  M
)  /  ( A ^ ( M  -  i ) ) ) ,  ( F `  i ) ) ) `
 k ) ) )  =  ( A  x.  ( abs `  if ( k  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  k )
) ) ,  ( F `  k ) ) ) ) )
244231, 240, 2433brtr4d 4035 . . . . 5  |-  ( ( ( ph  /\  1  <_  M )  /\  k  e.  NN )  ->  ( abs `  ( ( i  e.  NN  |->  if ( i  <  M , 
( ( F `  M )  /  ( A ^ ( M  -  i ) ) ) ,  ( F `  i ) ) ) `
 ( k  +  1 ) ) )  <_  ( A  x.  ( abs `  ( ( i  e.  NN  |->  if ( i  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  i )
) ) ,  ( F `  i ) ) ) `  k
) ) ) )
24579, 81, 82, 86, 244cvgratnn 11538 . . . 4  |-  ( (
ph  /\  1  <_  M )  ->  seq 1
(  +  ,  ( i  e.  NN  |->  if ( i  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  i )
) ) ,  ( F `  i ) ) ) )  e. 
dom 
~~>  )
246 eqid 2177 . . . . 5  |-  ( ZZ>= ` 
1 )  =  (
ZZ>= `  1 )
247 1zzd 9279 . . . . . 6  |-  ( (
ph  /\  1  <_  M )  ->  1  e.  ZZ )
248 simpr 110 . . . . . 6  |-  ( (
ph  /\  1  <_  M )  ->  1  <_  M )
249 eluz2 9533 . . . . . 6  |-  ( M  e.  ( ZZ>= `  1
)  <->  ( 1  e.  ZZ  /\  M  e.  ZZ  /\  1  <_  M ) )
250247, 2, 248, 249syl3anbrc 1181 . . . . 5  |-  ( (
ph  /\  1  <_  M )  ->  M  e.  ( ZZ>= `  1 )
)
251246, 250, 85iserex 11346 . . . 4  |-  ( (
ph  /\  1  <_  M )  ->  (  seq 1 (  +  , 
( i  e.  NN  |->  if ( i  <  M ,  ( ( F `
 M )  / 
( A ^ ( M  -  i )
) ) ,  ( F `  i ) ) ) )  e. 
dom 
~~> 
<->  seq M (  +  ,  ( i  e.  NN  |->  if ( i  <  M ,  ( ( F `  M
)  /  ( A ^ ( M  -  i ) ) ) ,  ( F `  i ) ) ) )  e.  dom  ~~>  ) )
252245, 251mpbid 147 . . 3  |-  ( (
ph  /\  1  <_  M )  ->  seq M (  +  ,  ( i  e.  NN  |->  if ( i  <  M , 
( ( F `  M )  /  ( A ^ ( M  -  i ) ) ) ,  ( F `  i ) ) ) )  e.  dom  ~~>  )
25378, 252eqeltrd 2254 . 2  |-  ( (
ph  /\  1  <_  M )  ->  seq M (  +  ,  F )  e.  dom  ~~>  )
25433adantr 276 . . . 4  |-  ( (
ph  /\  M  <_  1 )  ->  A  e.  RR )
25580adantr 276 . . . 4  |-  ( (
ph  /\  M  <_  1 )  ->  A  <  1 )
25634adantr 276 . . . 4  |-  ( (
ph  /\  M  <_  1 )  ->  0  <  A )
2571adantr 276 . . . . . . 7  |-  ( (
ph  /\  M  <_  1 )  ->  M  e.  ZZ )
258257adantr 276 . . . . . 6  |-  ( ( ( ph  /\  M  <_  1 )  /\  k  e.  NN )  ->  M  e.  ZZ )
259 nnz 9271 . . . . . . 7  |-  ( k  e.  NN  ->  k  e.  ZZ )
260259adantl 277 . . . . . 6  |-  ( ( ( ph  /\  M  <_  1 )  /\  k  e.  NN )  ->  k  e.  ZZ )
261258zred 9374 . . . . . . 7  |-  ( ( ( ph  /\  M  <_  1 )  /\  k  e.  NN )  ->  M  e.  RR )
262 1red 7971 . . . . . . 7  |-  ( ( ( ph  /\  M  <_  1 )  /\  k  e.  NN )  ->  1  e.  RR )
263260zred 9374 . . . . . . 7  |-  ( ( ( ph  /\  M  <_  1 )  /\  k  e.  NN )  ->  k  e.  RR )
264 simplr 528 . . . . . . 7  |-  ( ( ( ph  /\  M  <_  1 )  /\  k  e.  NN )  ->  M  <_  1 )
265 nnge1 8941 . . . . . . . 8  |-  ( k  e.  NN  ->  1  <_  k )
266265adantl 277 . . . . . . 7  |-  ( ( ( ph  /\  M  <_  1 )  /\  k  e.  NN )  ->  1  <_  k )
267261, 262, 263, 264, 266letrd 8080 . . . . . 6  |-  ( ( ( ph  /\  M  <_  1 )  /\  k  e.  NN )  ->  M  <_  k )
268258, 260, 267, 55syl3anbrc 1181 . . . . 5  |-  ( ( ( ph  /\  M  <_  1 )  /\  k  e.  NN )  ->  k  e.  ( ZZ>= `  M )
)
2698eleq2i 2244 . . . . . . 7  |-  ( k  e.  Z  <->  k  e.  ( ZZ>= `  M )
)
270269, 5sylan2br 288 . . . . . 6  |-  ( (
ph  /\  k  e.  ( ZZ>= `  M )
)  ->  ( F `  k )  e.  CC )
271270adantlr 477 . . . . 5  |-  ( ( ( ph  /\  M  <_  1 )  /\  k  e.  ( ZZ>= `  M )
)  ->  ( F `  k )  e.  CC )
272268, 271syldan 282 . . . 4  |-  ( ( ( ph  /\  M  <_  1 )  /\  k  e.  NN )  ->  ( F `  k )  e.  CC )
273269, 216sylan2br 288 . . . . . 6  |-  ( (
ph  /\  k  e.  ( ZZ>= `  M )
)  ->  ( abs `  ( F `  (
k  +  1 ) ) )  <_  ( A  x.  ( abs `  ( F `  k
) ) ) )
274273adantlr 477 . . . . 5  |-  ( ( ( ph  /\  M  <_  1 )  /\  k  e.  ( ZZ>= `  M )
)  ->  ( abs `  ( F `  (
k  +  1 ) ) )  <_  ( A  x.  ( abs `  ( F `  k
) ) ) )
275268, 274syldan 282 . . . 4  |-  ( ( ( ph  /\  M  <_  1 )  /\  k  e.  NN )  ->  ( abs `  ( F `  ( k  +  1 ) ) )  <_ 
( A  x.  ( abs `  ( F `  k ) ) ) )
276254, 255, 256, 272, 275cvgratnn 11538 . . 3  |-  ( (
ph  /\  M  <_  1 )  ->  seq 1
(  +  ,  F
)  e.  dom  ~~>  )
277 eqid 2177 . . . 4  |-  ( ZZ>= `  M )  =  (
ZZ>= `  M )
278 1zzd 9279 . . . . 5  |-  ( (
ph  /\  M  <_  1 )  ->  1  e.  ZZ )
279 simpr 110 . . . . 5  |-  ( (
ph  /\  M  <_  1 )  ->  M  <_  1 )
280 eluz2 9533 . . . . 5  |-  ( 1  e.  ( ZZ>= `  M
)  <->  ( M  e.  ZZ  /\  1  e.  ZZ  /\  M  <_ 
1 ) )
281257, 278, 279, 280syl3anbrc 1181 . . . 4  |-  ( (
ph  /\  M  <_  1 )  ->  1  e.  ( ZZ>= `  M )
)
282277, 281, 271iserex 11346 . . 3  |-  ( (
ph  /\  M  <_  1 )  ->  (  seq M (  +  ,  F )  e.  dom  ~~>  <->  seq 1 (  +  ,  F )  e.  dom  ~~>  ) )
283276, 282mpbird 167 . 2  |-  ( (
ph  /\  M  <_  1 )  ->  seq M (  +  ,  F )  e.  dom  ~~>  )
284 1z 9278 . . 3  |-  1  e.  ZZ
285 zletric 9296 . . 3  |-  ( ( 1  e.  ZZ  /\  M  e.  ZZ )  ->  ( 1  <_  M  \/  M  <_  1 ) )
286284, 1, 285sylancr 414 . 2  |-  ( ph  ->  ( 1  <_  M  \/  M  <_  1 ) )
287253, 283, 286mpjaodan 798 1  |-  ( ph  ->  seq M (  +  ,  F )  e. 
dom 
~~>  )
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 104    <-> wb 105    \/ wo 708  DECID wdc 834    \/ w3o 977    = wceq 1353    e. wcel 2148   A.wral 2455   ifcif 3534   class class class wbr 4003    |-> cmpt 4064   dom cdm 4626   ` cfv 5216  (class class class)co 5874   CCcc 7808   RRcr 7809   0cc0 7810   1c1 7811    + caddc 7813    x. cmul 7815    < clt 7991    <_ cle 7992    - cmin 8127   # cap 8537    / cdiv 8628   NNcn 8918   ZZcz 9252   ZZ>=cuz 9527   RR+crp 9652    seqcseq 10444   ^cexp 10518   abscabs 11005    ~~> cli 11285
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 614  ax-in2 615  ax-io 709  ax-5 1447  ax-7 1448  ax-gen 1449  ax-ie1 1493  ax-ie2 1494  ax-8 1504  ax-10 1505  ax-11 1506  ax-i12 1507  ax-bndl 1509  ax-4 1510  ax-17 1526  ax-i9 1530  ax-ial 1534  ax-i5r 1535  ax-13 2150  ax-14 2151  ax-ext 2159  ax-coll 4118  ax-sep 4121  ax-nul 4129  ax-pow 4174  ax-pr 4209  ax-un 4433  ax-setind 4536  ax-iinf 4587  ax-cnex 7901  ax-resscn 7902  ax-1cn 7903  ax-1re 7904  ax-icn 7905  ax-addcl 7906  ax-addrcl 7907  ax-mulcl 7908  ax-mulrcl 7909  ax-addcom 7910  ax-mulcom 7911  ax-addass 7912  ax-mulass 7913  ax-distr 7914  ax-i2m1 7915  ax-0lt1 7916  ax-1rid 7917  ax-0id 7918  ax-rnegex 7919  ax-precex 7920  ax-cnre 7921  ax-pre-ltirr 7922  ax-pre-ltwlin 7923  ax-pre-lttrn 7924  ax-pre-apti 7925  ax-pre-ltadd 7926  ax-pre-mulgt0 7927  ax-pre-mulext 7928  ax-arch 7929  ax-caucvg 7930
This theorem depends on definitions:  df-bi 117  df-dc 835  df-3or 979  df-3an 980  df-tru 1356  df-fal 1359  df-nf 1461  df-sb 1763  df-eu 2029  df-mo 2030  df-clab 2164  df-cleq 2170  df-clel 2173  df-nfc 2308  df-ne 2348  df-nel 2443  df-ral 2460  df-rex 2461  df-reu 2462  df-rmo 2463  df-rab 2464  df-v 2739  df-sbc 2963  df-csb 3058  df-dif 3131  df-un 3133  df-in 3135  df-ss 3142  df-nul 3423  df-if 3535  df-pw 3577  df-sn 3598  df-pr 3599  df-op 3601  df-uni 3810  df-int 3845  df-iun 3888  df-br 4004  df-opab 4065  df-mpt 4066  df-tr 4102  df-id 4293  df-po 4296  df-iso 4297  df-iord 4366  df-on 4368  df-ilim 4369  df-suc 4371  df-iom 4590  df-xp 4632  df-rel 4633  df-cnv 4634  df-co 4635  df-dm 4636  df-rn 4637  df-res 4638  df-ima 4639  df-iota 5178  df-fun 5218  df-fn 5219  df-f 5220  df-f1 5221  df-fo 5222  df-f1o 5223  df-fv 5224  df-isom 5225  df-riota 5830  df-ov 5877  df-oprab 5878  df-mpo 5879  df-1st 6140  df-2nd 6141  df-recs 6305  df-irdg 6370  df-frec 6391  df-1o 6416  df-oadd 6420  df-er 6534  df-en 6740  df-dom 6741  df-fin 6742  df-pnf 7993  df-mnf 7994  df-xr 7995  df-ltxr 7996  df-le 7997  df-sub 8129  df-neg 8130  df-reap 8531  df-ap 8538  df-div 8629  df-inn 8919  df-2 8977  df-3 8978  df-4 8979  df-n0 9176  df-z 9253  df-uz 9528  df-q 9619  df-rp 9653  df-ico 9893  df-fz 10008  df-fzo 10142  df-seqfrec 10445  df-exp 10519  df-ihash 10755  df-cj 10850  df-re 10851  df-im 10852  df-rsqrt 11006  df-abs 11007  df-clim 11286  df-sumdc 11361
This theorem is referenced by:  cvgratgt0  11540
  Copyright terms: Public domain W3C validator