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

Theorem plyco0 19789
Description: Two ways to say that a function on the nonnegative integers has finite support. (Contributed by Mario Carneiro, 22-Jul-2014.)
Assertion
Ref Expression
plyco0  |-  ( ( N  e.  NN0  /\  A : NN0 --> CC )  ->  ( ( A
" ( ZZ>= `  ( N  +  1 ) ) )  =  {
0 }  <->  A. k  e.  NN0  ( ( A `
 k )  =/=  0  ->  k  <_  N ) ) )
Distinct variable groups:    A, k    k, N

Proof of Theorem plyco0
Dummy variable  n is distinct from all other variables.
StepHypRef Expression
1 simprr 733 . . . . . . 7  |-  ( ( ( ( N  e. 
NN0  /\  A : NN0
--> CC )  /\  ( A " ( ZZ>= `  ( N  +  1 ) ) )  =  {
0 } )  /\  ( k  e.  NN0  /\  ( A `  k
)  =/=  0 ) )  ->  ( A `  k )  =/=  0
)
2 ffun 5497 . . . . . . . . . . . 12  |-  ( A : NN0 --> CC  ->  Fun 
A )
32adantl 452 . . . . . . . . . . 11  |-  ( ( N  e.  NN0  /\  A : NN0 --> CC )  ->  Fun  A )
4 peano2nn0 10153 . . . . . . . . . . . . . . 15  |-  ( N  e.  NN0  ->  ( N  +  1 )  e. 
NN0 )
54adantr 451 . . . . . . . . . . . . . 14  |-  ( ( N  e.  NN0  /\  A : NN0 --> CC )  ->  ( N  + 
1 )  e.  NN0 )
6 eluznn0 10439 . . . . . . . . . . . . . . 15  |-  ( ( ( N  +  1 )  e.  NN0  /\  k  e.  ( ZZ>= `  ( N  +  1
) ) )  -> 
k  e.  NN0 )
76ex 423 . . . . . . . . . . . . . 14  |-  ( ( N  +  1 )  e.  NN0  ->  ( k  e.  ( ZZ>= `  ( N  +  1 ) )  ->  k  e.  NN0 ) )
85, 7syl 15 . . . . . . . . . . . . 13  |-  ( ( N  e.  NN0  /\  A : NN0 --> CC )  ->  ( k  e.  ( ZZ>= `  ( N  +  1 ) )  ->  k  e.  NN0 ) )
98ssrdv 3271 . . . . . . . . . . . 12  |-  ( ( N  e.  NN0  /\  A : NN0 --> CC )  ->  ( ZZ>= `  ( N  +  1 ) )  C_  NN0 )
10 fdm 5499 . . . . . . . . . . . . 13  |-  ( A : NN0 --> CC  ->  dom 
A  =  NN0 )
1110adantl 452 . . . . . . . . . . . 12  |-  ( ( N  e.  NN0  /\  A : NN0 --> CC )  ->  dom  A  =  NN0 )
129, 11sseqtr4d 3301 . . . . . . . . . . 11  |-  ( ( N  e.  NN0  /\  A : NN0 --> CC )  ->  ( ZZ>= `  ( N  +  1 ) )  C_  dom  A )
13 funfvima2 5874 . . . . . . . . . . 11  |-  ( ( Fun  A  /\  ( ZZ>=
`  ( N  + 
1 ) )  C_  dom  A )  ->  (
k  e.  ( ZZ>= `  ( N  +  1
) )  ->  ( A `  k )  e.  ( A " ( ZZ>=
`  ( N  + 
1 ) ) ) ) )
143, 12, 13syl2anc 642 . . . . . . . . . 10  |-  ( ( N  e.  NN0  /\  A : NN0 --> CC )  ->  ( k  e.  ( ZZ>= `  ( N  +  1 ) )  ->  ( A `  k )  e.  ( A " ( ZZ>= `  ( N  +  1
) ) ) ) )
1514ad2antrr 706 . . . . . . . . 9  |-  ( ( ( ( N  e. 
NN0  /\  A : NN0
--> CC )  /\  ( A " ( ZZ>= `  ( N  +  1 ) ) )  =  {
0 } )  /\  ( k  e.  NN0  /\  ( A `  k
)  =/=  0 ) )  ->  ( k  e.  ( ZZ>= `  ( N  +  1 ) )  ->  ( A `  k )  e.  ( A " ( ZZ>= `  ( N  +  1
) ) ) ) )
16 nn0z 10197 . . . . . . . . . . . . 13  |-  ( N  e.  NN0  ->  N  e.  ZZ )
1716adantr 451 . . . . . . . . . . . 12  |-  ( ( N  e.  NN0  /\  A : NN0 --> CC )  ->  N  e.  ZZ )
1817peano2zd 10271 . . . . . . . . . . 11  |-  ( ( N  e.  NN0  /\  A : NN0 --> CC )  ->  ( N  + 
1 )  e.  ZZ )
1918ad2antrr 706 . . . . . . . . . 10  |-  ( ( ( ( N  e. 
NN0  /\  A : NN0
--> CC )  /\  ( A " ( ZZ>= `  ( N  +  1 ) ) )  =  {
0 } )  /\  ( k  e.  NN0  /\  ( A `  k
)  =/=  0 ) )  ->  ( N  +  1 )  e.  ZZ )
20 nn0z 10197 . . . . . . . . . . 11  |-  ( k  e.  NN0  ->  k  e.  ZZ )
2120ad2antrl 708 . . . . . . . . . 10  |-  ( ( ( ( N  e. 
NN0  /\  A : NN0
--> CC )  /\  ( A " ( ZZ>= `  ( N  +  1 ) ) )  =  {
0 } )  /\  ( k  e.  NN0  /\  ( A `  k
)  =/=  0 ) )  ->  k  e.  ZZ )
22 eluz 10392 . . . . . . . . . 10  |-  ( ( ( N  +  1 )  e.  ZZ  /\  k  e.  ZZ )  ->  ( k  e.  (
ZZ>= `  ( N  + 
1 ) )  <->  ( N  +  1 )  <_ 
k ) )
2319, 21, 22syl2anc 642 . . . . . . . . 9  |-  ( ( ( ( N  e. 
NN0  /\  A : NN0
--> CC )  /\  ( A " ( ZZ>= `  ( N  +  1 ) ) )  =  {
0 } )  /\  ( k  e.  NN0  /\  ( A `  k
)  =/=  0 ) )  ->  ( k  e.  ( ZZ>= `  ( N  +  1 ) )  <-> 
( N  +  1 )  <_  k )
)
24 simplr 731 . . . . . . . . . . 11  |-  ( ( ( ( N  e. 
NN0  /\  A : NN0
--> CC )  /\  ( A " ( ZZ>= `  ( N  +  1 ) ) )  =  {
0 } )  /\  ( k  e.  NN0  /\  ( A `  k
)  =/=  0 ) )  ->  ( A " ( ZZ>= `  ( N  +  1 ) ) )  =  { 0 } )
2524eleq2d 2433 . . . . . . . . . 10  |-  ( ( ( ( N  e. 
NN0  /\  A : NN0
--> CC )  /\  ( A " ( ZZ>= `  ( N  +  1 ) ) )  =  {
0 } )  /\  ( k  e.  NN0  /\  ( A `  k
)  =/=  0 ) )  ->  ( ( A `  k )  e.  ( A " ( ZZ>=
`  ( N  + 
1 ) ) )  <-> 
( A `  k
)  e.  { 0 } ) )
26 fvex 5646 . . . . . . . . . . 11  |-  ( A `
 k )  e. 
_V
2726elsnc 3752 . . . . . . . . . 10  |-  ( ( A `  k )  e.  { 0 }  <-> 
( A `  k
)  =  0 )
2825, 27syl6bb 252 . . . . . . . . 9  |-  ( ( ( ( N  e. 
NN0  /\  A : NN0
--> CC )  /\  ( A " ( ZZ>= `  ( N  +  1 ) ) )  =  {
0 } )  /\  ( k  e.  NN0  /\  ( A `  k
)  =/=  0 ) )  ->  ( ( A `  k )  e.  ( A " ( ZZ>=
`  ( N  + 
1 ) ) )  <-> 
( A `  k
)  =  0 ) )
2915, 23, 283imtr3d 258 . . . . . . . 8  |-  ( ( ( ( N  e. 
NN0  /\  A : NN0
--> CC )  /\  ( A " ( ZZ>= `  ( N  +  1 ) ) )  =  {
0 } )  /\  ( k  e.  NN0  /\  ( A `  k
)  =/=  0 ) )  ->  ( ( N  +  1 )  <_  k  ->  ( A `  k )  =  0 ) )
3029necon3ad 2565 . . . . . . 7  |-  ( ( ( ( N  e. 
NN0  /\  A : NN0
--> CC )  /\  ( A " ( ZZ>= `  ( N  +  1 ) ) )  =  {
0 } )  /\  ( k  e.  NN0  /\  ( A `  k
)  =/=  0 ) )  ->  ( ( A `  k )  =/=  0  ->  -.  ( N  +  1 )  <_  k ) )
311, 30mpd 14 . . . . . 6  |-  ( ( ( ( N  e. 
NN0  /\  A : NN0
--> CC )  /\  ( A " ( ZZ>= `  ( N  +  1 ) ) )  =  {
0 } )  /\  ( k  e.  NN0  /\  ( A `  k
)  =/=  0 ) )  ->  -.  ( N  +  1 )  <_  k )
32 nn0re 10123 . . . . . . . 8  |-  ( k  e.  NN0  ->  k  e.  RR )
3332ad2antrl 708 . . . . . . 7  |-  ( ( ( ( N  e. 
NN0  /\  A : NN0
--> CC )  /\  ( A " ( ZZ>= `  ( N  +  1 ) ) )  =  {
0 } )  /\  ( k  e.  NN0  /\  ( A `  k
)  =/=  0 ) )  ->  k  e.  RR )
3418zred 10268 . . . . . . . 8  |-  ( ( N  e.  NN0  /\  A : NN0 --> CC )  ->  ( N  + 
1 )  e.  RR )
3534ad2antrr 706 . . . . . . 7  |-  ( ( ( ( N  e. 
NN0  /\  A : NN0
--> CC )  /\  ( A " ( ZZ>= `  ( N  +  1 ) ) )  =  {
0 } )  /\  ( k  e.  NN0  /\  ( A `  k
)  =/=  0 ) )  ->  ( N  +  1 )  e.  RR )
3633, 35ltnled 9113 . . . . . 6  |-  ( ( ( ( N  e. 
NN0  /\  A : NN0
--> CC )  /\  ( A " ( ZZ>= `  ( N  +  1 ) ) )  =  {
0 } )  /\  ( k  e.  NN0  /\  ( A `  k
)  =/=  0 ) )  ->  ( k  <  ( N  +  1 )  <->  -.  ( N  +  1 )  <_ 
k ) )
3731, 36mpbird 223 . . . . 5  |-  ( ( ( ( N  e. 
NN0  /\  A : NN0
--> CC )  /\  ( A " ( ZZ>= `  ( N  +  1 ) ) )  =  {
0 } )  /\  ( k  e.  NN0  /\  ( A `  k
)  =/=  0 ) )  ->  k  <  ( N  +  1 ) )
3817ad2antrr 706 . . . . . 6  |-  ( ( ( ( N  e. 
NN0  /\  A : NN0
--> CC )  /\  ( A " ( ZZ>= `  ( N  +  1 ) ) )  =  {
0 } )  /\  ( k  e.  NN0  /\  ( A `  k
)  =/=  0 ) )  ->  N  e.  ZZ )
39 zleltp1 10219 . . . . . 6  |-  ( ( k  e.  ZZ  /\  N  e.  ZZ )  ->  ( k  <_  N  <->  k  <  ( N  + 
1 ) ) )
4021, 38, 39syl2anc 642 . . . . 5  |-  ( ( ( ( N  e. 
NN0  /\  A : NN0
--> CC )  /\  ( A " ( ZZ>= `  ( N  +  1 ) ) )  =  {
0 } )  /\  ( k  e.  NN0  /\  ( A `  k
)  =/=  0 ) )  ->  ( k  <_  N  <->  k  <  ( N  +  1 ) ) )
4137, 40mpbird 223 . . . 4  |-  ( ( ( ( N  e. 
NN0  /\  A : NN0
--> CC )  /\  ( A " ( ZZ>= `  ( N  +  1 ) ) )  =  {
0 } )  /\  ( k  e.  NN0  /\  ( A `  k
)  =/=  0 ) )  ->  k  <_  N )
4241expr 598 . . 3  |-  ( ( ( ( N  e. 
NN0  /\  A : NN0
--> CC )  /\  ( A " ( ZZ>= `  ( N  +  1 ) ) )  =  {
0 } )  /\  k  e.  NN0 )  -> 
( ( A `  k )  =/=  0  ->  k  <_  N )
)
4342ralrimiva 2711 . 2  |-  ( ( ( N  e.  NN0  /\  A : NN0 --> CC )  /\  ( A "
( ZZ>= `  ( N  +  1 ) ) )  =  { 0 } )  ->  A. k  e.  NN0  ( ( A `
 k )  =/=  0  ->  k  <_  N ) )
44 simpr 447 . . . . . . . 8  |-  ( ( A. k  e.  NN0  ( ( A `  k )  =/=  0  ->  k  <_  N )  /\  n  e.  ( ZZ>=
`  ( N  + 
1 ) ) )  ->  n  e.  (
ZZ>= `  ( N  + 
1 ) ) )
45 eluznn0 10439 . . . . . . . 8  |-  ( ( ( N  +  1 )  e.  NN0  /\  n  e.  ( ZZ>= `  ( N  +  1
) ) )  ->  n  e.  NN0 )
465, 44, 45syl2an 463 . . . . . . 7  |-  ( ( ( N  e.  NN0  /\  A : NN0 --> CC )  /\  ( A. k  e.  NN0  ( ( A `
 k )  =/=  0  ->  k  <_  N )  /\  n  e.  ( ZZ>= `  ( N  +  1 ) ) ) )  ->  n  e.  NN0 )
47 nn0re 10123 . . . . . . . . . . . 12  |-  ( N  e.  NN0  ->  N  e.  RR )
4847adantr 451 . . . . . . . . . . 11  |-  ( ( N  e.  NN0  /\  A : NN0 --> CC )  ->  N  e.  RR )
4948adantr 451 . . . . . . . . . 10  |-  ( ( ( N  e.  NN0  /\  A : NN0 --> CC )  /\  ( A. k  e.  NN0  ( ( A `
 k )  =/=  0  ->  k  <_  N )  /\  n  e.  ( ZZ>= `  ( N  +  1 ) ) ) )  ->  N  e.  RR )
5034adantr 451 . . . . . . . . . 10  |-  ( ( ( N  e.  NN0  /\  A : NN0 --> CC )  /\  ( A. k  e.  NN0  ( ( A `
 k )  =/=  0  ->  k  <_  N )  /\  n  e.  ( ZZ>= `  ( N  +  1 ) ) ) )  ->  ( N  +  1 )  e.  RR )
5146nn0red 10168 . . . . . . . . . 10  |-  ( ( ( N  e.  NN0  /\  A : NN0 --> CC )  /\  ( A. k  e.  NN0  ( ( A `
 k )  =/=  0  ->  k  <_  N )  /\  n  e.  ( ZZ>= `  ( N  +  1 ) ) ) )  ->  n  e.  RR )
5249ltp1d 9834 . . . . . . . . . 10  |-  ( ( ( N  e.  NN0  /\  A : NN0 --> CC )  /\  ( A. k  e.  NN0  ( ( A `
 k )  =/=  0  ->  k  <_  N )  /\  n  e.  ( ZZ>= `  ( N  +  1 ) ) ) )  ->  N  <  ( N  +  1 ) )
53 eluzle 10391 . . . . . . . . . . 11  |-  ( n  e.  ( ZZ>= `  ( N  +  1 ) )  ->  ( N  +  1 )  <_  n )
5453ad2antll 709 . . . . . . . . . 10  |-  ( ( ( N  e.  NN0  /\  A : NN0 --> CC )  /\  ( A. k  e.  NN0  ( ( A `
 k )  =/=  0  ->  k  <_  N )  /\  n  e.  ( ZZ>= `  ( N  +  1 ) ) ) )  ->  ( N  +  1 )  <_  n )
5549, 50, 51, 52, 54ltletrd 9123 . . . . . . . . 9  |-  ( ( ( N  e.  NN0  /\  A : NN0 --> CC )  /\  ( A. k  e.  NN0  ( ( A `
 k )  =/=  0  ->  k  <_  N )  /\  n  e.  ( ZZ>= `  ( N  +  1 ) ) ) )  ->  N  <  n )
5649, 51ltnled 9113 . . . . . . . . 9  |-  ( ( ( N  e.  NN0  /\  A : NN0 --> CC )  /\  ( A. k  e.  NN0  ( ( A `
 k )  =/=  0  ->  k  <_  N )  /\  n  e.  ( ZZ>= `  ( N  +  1 ) ) ) )  ->  ( N  <  n  <->  -.  n  <_  N ) )
5755, 56mpbid 201 . . . . . . . 8  |-  ( ( ( N  e.  NN0  /\  A : NN0 --> CC )  /\  ( A. k  e.  NN0  ( ( A `
 k )  =/=  0  ->  k  <_  N )  /\  n  e.  ( ZZ>= `  ( N  +  1 ) ) ) )  ->  -.  n  <_  N )
58 simprl 732 . . . . . . . . . 10  |-  ( ( ( N  e.  NN0  /\  A : NN0 --> CC )  /\  ( A. k  e.  NN0  ( ( A `
 k )  =/=  0  ->  k  <_  N )  /\  n  e.  ( ZZ>= `  ( N  +  1 ) ) ) )  ->  A. k  e.  NN0  ( ( A `
 k )  =/=  0  ->  k  <_  N ) )
59 fveq2 5632 . . . . . . . . . . . . 13  |-  ( k  =  n  ->  ( A `  k )  =  ( A `  n ) )
6059neeq1d 2542 . . . . . . . . . . . 12  |-  ( k  =  n  ->  (
( A `  k
)  =/=  0  <->  ( A `  n )  =/=  0 ) )
61 breq1 4128 . . . . . . . . . . . 12  |-  ( k  =  n  ->  (
k  <_  N  <->  n  <_  N ) )
6260, 61imbi12d 311 . . . . . . . . . . 11  |-  ( k  =  n  ->  (
( ( A `  k )  =/=  0  ->  k  <_  N )  <->  ( ( A `  n
)  =/=  0  ->  n  <_  N ) ) )
6362rspcva 2967 . . . . . . . . . 10  |-  ( ( n  e.  NN0  /\  A. k  e.  NN0  (
( A `  k
)  =/=  0  -> 
k  <_  N )
)  ->  ( ( A `  n )  =/=  0  ->  n  <_  N ) )
6446, 58, 63syl2anc 642 . . . . . . . . 9  |-  ( ( ( N  e.  NN0  /\  A : NN0 --> CC )  /\  ( A. k  e.  NN0  ( ( A `
 k )  =/=  0  ->  k  <_  N )  /\  n  e.  ( ZZ>= `  ( N  +  1 ) ) ) )  ->  (
( A `  n
)  =/=  0  ->  n  <_  N ) )
6564necon1bd 2597 . . . . . . . 8  |-  ( ( ( N  e.  NN0  /\  A : NN0 --> CC )  /\  ( A. k  e.  NN0  ( ( A `
 k )  =/=  0  ->  k  <_  N )  /\  n  e.  ( ZZ>= `  ( N  +  1 ) ) ) )  ->  ( -.  n  <_  N  -> 
( A `  n
)  =  0 ) )
6657, 65mpd 14 . . . . . . 7  |-  ( ( ( N  e.  NN0  /\  A : NN0 --> CC )  /\  ( A. k  e.  NN0  ( ( A `
 k )  =/=  0  ->  k  <_  N )  /\  n  e.  ( ZZ>= `  ( N  +  1 ) ) ) )  ->  ( A `  n )  =  0 )
67 ffn 5495 . . . . . . . . 9  |-  ( A : NN0 --> CC  ->  A  Fn  NN0 )
6867ad2antlr 707 . . . . . . . 8  |-  ( ( ( N  e.  NN0  /\  A : NN0 --> CC )  /\  ( A. k  e.  NN0  ( ( A `
 k )  =/=  0  ->  k  <_  N )  /\  n  e.  ( ZZ>= `  ( N  +  1 ) ) ) )  ->  A  Fn  NN0 )
69 fniniseg 5753 . . . . . . . 8  |-  ( A  Fn  NN0  ->  ( n  e.  ( `' A " { 0 } )  <-> 
( n  e.  NN0  /\  ( A `  n
)  =  0 ) ) )
7068, 69syl 15 . . . . . . 7  |-  ( ( ( N  e.  NN0  /\  A : NN0 --> CC )  /\  ( A. k  e.  NN0  ( ( A `
 k )  =/=  0  ->  k  <_  N )  /\  n  e.  ( ZZ>= `  ( N  +  1 ) ) ) )  ->  (
n  e.  ( `' A " { 0 } )  <->  ( n  e.  NN0  /\  ( A `
 n )  =  0 ) ) )
7146, 66, 70mpbir2and 888 . . . . . 6  |-  ( ( ( N  e.  NN0  /\  A : NN0 --> CC )  /\  ( A. k  e.  NN0  ( ( A `
 k )  =/=  0  ->  k  <_  N )  /\  n  e.  ( ZZ>= `  ( N  +  1 ) ) ) )  ->  n  e.  ( `' A " { 0 } ) )
7271expr 598 . . . . 5  |-  ( ( ( N  e.  NN0  /\  A : NN0 --> CC )  /\  A. k  e. 
NN0  ( ( A `
 k )  =/=  0  ->  k  <_  N ) )  ->  (
n  e.  ( ZZ>= `  ( N  +  1
) )  ->  n  e.  ( `' A " { 0 } ) ) )
7372ssrdv 3271 . . . 4  |-  ( ( ( N  e.  NN0  /\  A : NN0 --> CC )  /\  A. k  e. 
NN0  ( ( A `
 k )  =/=  0  ->  k  <_  N ) )  ->  ( ZZ>=
`  ( N  + 
1 ) )  C_  ( `' A " { 0 } ) )
74 funimass3 5748 . . . . . 6  |-  ( ( Fun  A  /\  ( ZZ>=
`  ( N  + 
1 ) )  C_  dom  A )  ->  (
( A " ( ZZ>=
`  ( N  + 
1 ) ) ) 
C_  { 0 }  <-> 
( ZZ>= `  ( N  +  1 ) ) 
C_  ( `' A " { 0 } ) ) )
753, 12, 74syl2anc 642 . . . . 5  |-  ( ( N  e.  NN0  /\  A : NN0 --> CC )  ->  ( ( A
" ( ZZ>= `  ( N  +  1 ) ) )  C_  { 0 }  <->  ( ZZ>= `  ( N  +  1 ) )  C_  ( `' A " { 0 } ) ) )
7675adantr 451 . . . 4  |-  ( ( ( N  e.  NN0  /\  A : NN0 --> CC )  /\  A. k  e. 
NN0  ( ( A `
 k )  =/=  0  ->  k  <_  N ) )  ->  (
( A " ( ZZ>=
`  ( N  + 
1 ) ) ) 
C_  { 0 }  <-> 
( ZZ>= `  ( N  +  1 ) ) 
C_  ( `' A " { 0 } ) ) )
7773, 76mpbird 223 . . 3  |-  ( ( ( N  e.  NN0  /\  A : NN0 --> CC )  /\  A. k  e. 
NN0  ( ( A `
 k )  =/=  0  ->  k  <_  N ) )  ->  ( A " ( ZZ>= `  ( N  +  1 ) ) )  C_  { 0 } )
7848ltp1d 9834 . . . . . . . 8  |-  ( ( N  e.  NN0  /\  A : NN0 --> CC )  ->  N  <  ( N  +  1 ) )
7948, 34ltnled 9113 . . . . . . . 8  |-  ( ( N  e.  NN0  /\  A : NN0 --> CC )  ->  ( N  < 
( N  +  1 )  <->  -.  ( N  +  1 )  <_  N ) )
8078, 79mpbid 201 . . . . . . 7  |-  ( ( N  e.  NN0  /\  A : NN0 --> CC )  ->  -.  ( N  +  1 )  <_  N )
8180adantr 451 . . . . . 6  |-  ( ( ( N  e.  NN0  /\  A : NN0 --> CC )  /\  A. k  e. 
NN0  ( ( A `
 k )  =/=  0  ->  k  <_  N ) )  ->  -.  ( N  +  1
)  <_  N )
82 fveq2 5632 . . . . . . . . . . 11  |-  ( k  =  ( N  + 
1 )  ->  ( A `  k )  =  ( A `  ( N  +  1
) ) )
8382neeq1d 2542 . . . . . . . . . 10  |-  ( k  =  ( N  + 
1 )  ->  (
( A `  k
)  =/=  0  <->  ( A `  ( N  +  1 ) )  =/=  0 ) )
84 breq1 4128 . . . . . . . . . 10  |-  ( k  =  ( N  + 
1 )  ->  (
k  <_  N  <->  ( N  +  1 )  <_  N ) )
8583, 84imbi12d 311 . . . . . . . . 9  |-  ( k  =  ( N  + 
1 )  ->  (
( ( A `  k )  =/=  0  ->  k  <_  N )  <->  ( ( A `  ( N  +  1 ) )  =/=  0  -> 
( N  +  1 )  <_  N )
) )
8685rspcva 2967 . . . . . . . 8  |-  ( ( ( N  +  1 )  e.  NN0  /\  A. k  e.  NN0  (
( A `  k
)  =/=  0  -> 
k  <_  N )
)  ->  ( ( A `  ( N  +  1 ) )  =/=  0  ->  ( N  +  1 )  <_  N ) )
875, 86sylan 457 . . . . . . 7  |-  ( ( ( N  e.  NN0  /\  A : NN0 --> CC )  /\  A. k  e. 
NN0  ( ( A `
 k )  =/=  0  ->  k  <_  N ) )  ->  (
( A `  ( N  +  1 ) )  =/=  0  -> 
( N  +  1 )  <_  N )
)
8887necon1bd 2597 . . . . . 6  |-  ( ( ( N  e.  NN0  /\  A : NN0 --> CC )  /\  A. k  e. 
NN0  ( ( A `
 k )  =/=  0  ->  k  <_  N ) )  ->  ( -.  ( N  +  1 )  <_  N  ->  ( A `  ( N  +  1 ) )  =  0 ) )
8981, 88mpd 14 . . . . 5  |-  ( ( ( N  e.  NN0  /\  A : NN0 --> CC )  /\  A. k  e. 
NN0  ( ( A `
 k )  =/=  0  ->  k  <_  N ) )  ->  ( A `  ( N  +  1 ) )  =  0 )
90 uzid 10393 . . . . . . . 8  |-  ( ( N  +  1 )  e.  ZZ  ->  ( N  +  1 )  e.  ( ZZ>= `  ( N  +  1 ) ) )
9118, 90syl 15 . . . . . . 7  |-  ( ( N  e.  NN0  /\  A : NN0 --> CC )  ->  ( N  + 
1 )  e.  (
ZZ>= `  ( N  + 
1 ) ) )
92 funfvima2 5874 . . . . . . . 8  |-  ( ( Fun  A  /\  ( ZZ>=
`  ( N  + 
1 ) )  C_  dom  A )  ->  (
( N  +  1 )  e.  ( ZZ>= `  ( N  +  1
) )  ->  ( A `  ( N  +  1 ) )  e.  ( A "
( ZZ>= `  ( N  +  1 ) ) ) ) )
933, 12, 92syl2anc 642 . . . . . . 7  |-  ( ( N  e.  NN0  /\  A : NN0 --> CC )  ->  ( ( N  +  1 )  e.  ( ZZ>= `  ( N  +  1 ) )  ->  ( A `  ( N  +  1
) )  e.  ( A " ( ZZ>= `  ( N  +  1
) ) ) ) )
9491, 93mpd 14 . . . . . 6  |-  ( ( N  e.  NN0  /\  A : NN0 --> CC )  ->  ( A `  ( N  +  1
) )  e.  ( A " ( ZZ>= `  ( N  +  1
) ) ) )
9594adantr 451 . . . . 5  |-  ( ( ( N  e.  NN0  /\  A : NN0 --> CC )  /\  A. k  e. 
NN0  ( ( A `
 k )  =/=  0  ->  k  <_  N ) )  ->  ( A `  ( N  +  1 ) )  e.  ( A "
( ZZ>= `  ( N  +  1 ) ) ) )
9689, 95eqeltrrd 2441 . . . 4  |-  ( ( ( N  e.  NN0  /\  A : NN0 --> CC )  /\  A. k  e. 
NN0  ( ( A `
 k )  =/=  0  ->  k  <_  N ) )  ->  0  e.  ( A " ( ZZ>=
`  ( N  + 
1 ) ) ) )
9796snssd 3858 . . 3  |-  ( ( ( N  e.  NN0  /\  A : NN0 --> CC )  /\  A. k  e. 
NN0  ( ( A `
 k )  =/=  0  ->  k  <_  N ) )  ->  { 0 }  C_  ( A " ( ZZ>= `  ( N  +  1 ) ) ) )
9877, 97eqssd 3282 . 2  |-  ( ( ( N  e.  NN0  /\  A : NN0 --> CC )  /\  A. k  e. 
NN0  ( ( A `
 k )  =/=  0  ->  k  <_  N ) )  ->  ( A " ( ZZ>= `  ( N  +  1 ) ) )  =  {
0 } )
9943, 98impbida 805 1  |-  ( ( N  e.  NN0  /\  A : NN0 --> CC )  ->  ( ( A
" ( ZZ>= `  ( N  +  1 ) ) )  =  {
0 }  <->  A. k  e.  NN0  ( ( A `
 k )  =/=  0  ->  k  <_  N ) ) )
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 176    /\ wa 358    = wceq 1647    e. wcel 1715    =/= wne 2529   A.wral 2628    C_ wss 3238   {csn 3729   class class class wbr 4125   `'ccnv 4791   dom cdm 4792   "cima 4795   Fun wfun 5352    Fn wfn 5353   -->wf 5354   ` cfv 5358  (class class class)co 5981   CCcc 8882   RRcr 8883   0cc0 8884   1c1 8885    + caddc 8887    < clt 9014    <_ cle 9015   NN0cn0 10114   ZZcz 10175   ZZ>=cuz 10381
This theorem is referenced by:  elply2  19793  plyeq0lem  19807  coeeulem  19821  dgrlem  19826  dgrub2  19832  dgrlb  19833  coeeq2  19839  dgrle  19840  coeaddlem  19845  coemullem  19846  coe1termlem  19854  dgreq0  19861  coecj  19874  basellem2  20542
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1551  ax-5 1562  ax-17 1621  ax-9 1659  ax-8 1680  ax-13 1717  ax-14 1719  ax-6 1734  ax-7 1739  ax-11 1751  ax-12 1937  ax-ext 2347  ax-sep 4243  ax-nul 4251  ax-pow 4290  ax-pr 4316  ax-un 4615  ax-cnex 8940  ax-resscn 8941  ax-1cn 8942  ax-icn 8943  ax-addcl 8944  ax-addrcl 8945  ax-mulcl 8946  ax-mulrcl 8947  ax-mulcom 8948  ax-addass 8949  ax-mulass 8950  ax-distr 8951  ax-i2m1 8952  ax-1ne0 8953  ax-1rid 8954  ax-rnegex 8955  ax-rrecex 8956  ax-cnre 8957  ax-pre-lttri 8958  ax-pre-lttrn 8959  ax-pre-ltadd 8960  ax-pre-mulgt0 8961
This theorem depends on definitions:  df-bi 177  df-or 359  df-an 360  df-3or 936  df-3an 937  df-tru 1324  df-ex 1547  df-nf 1550  df-sb 1654  df-eu 2221  df-mo 2222  df-clab 2353  df-cleq 2359  df-clel 2362  df-nfc 2491  df-ne 2531  df-nel 2532  df-ral 2633  df-rex 2634  df-reu 2635  df-rab 2637  df-v 2875  df-sbc 3078  df-csb 3168  df-dif 3241  df-un 3243  df-in 3245  df-ss 3252  df-pss 3254  df-nul 3544  df-if 3655  df-pw 3716  df-sn 3735  df-pr 3736  df-tp 3737  df-op 3738  df-uni 3930  df-iun 4009  df-br 4126  df-opab 4180  df-mpt 4181  df-tr 4216  df-eprel 4408  df-id 4412  df-po 4417  df-so 4418  df-fr 4455  df-we 4457  df-ord 4498  df-on 4499  df-lim 4500  df-suc 4501  df-om 4760  df-xp 4798  df-rel 4799  df-cnv 4800  df-co 4801  df-dm 4802  df-rn 4803  df-res 4804  df-ima 4805  df-iota 5322  df-fun 5360  df-fn 5361  df-f 5362  df-f1 5363  df-fo 5364  df-f1o 5365  df-fv 5366  df-ov 5984  df-oprab 5985  df-mpt2 5986  df-riota 6446  df-recs 6530  df-rdg 6565  df-er 6802  df-en 7007  df-dom 7008  df-sdom 7009  df-pnf 9016  df-mnf 9017  df-xr 9018  df-ltxr 9019  df-le 9020  df-sub 9186  df-neg 9187  df-nn 9894  df-n0 10115  df-z 10176  df-uz 10382
  Copyright terms: Public domain W3C validator