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

Theorem vdwlem1 13119
Description: Lemma for vdw 13132. (Contributed by Mario Carneiro, 12-Sep-2014.)
Hypotheses
Ref Expression
vdwlem1.r  |-  ( ph  ->  R  e.  Fin )
vdwlem1.k  |-  ( ph  ->  K  e.  NN )
vdwlem1.w  |-  ( ph  ->  W  e.  NN )
vdwlem1.f  |-  ( ph  ->  F : ( 1 ... W ) --> R )
vdwlem1.a  |-  ( ph  ->  A  e.  NN )
vdwlem1.m  |-  ( ph  ->  M  e.  NN )
vdwlem1.d  |-  ( ph  ->  D : ( 1 ... M ) --> NN )
vdwlem1.s  |-  ( ph  ->  A. i  e.  ( 1 ... M ) ( ( A  +  ( D `  i ) ) (AP `  K
) ( D `  i ) )  C_  ( `' F " { ( F `  ( A  +  ( D `  i ) ) ) } ) )
vdwlem1.i  |-  ( ph  ->  I  e.  ( 1 ... M ) )
vdwlem1.e  |-  ( ph  ->  ( F `  A
)  =  ( F `
 ( A  +  ( D `  I ) ) ) )
Assertion
Ref Expression
vdwlem1  |-  ( ph  ->  ( K  +  1 ) MonoAP  F )
Distinct variable groups:    A, i    D, i    i, I    i, K    i, F    i, M    ph, i    R, i    i, W

Proof of Theorem vdwlem1
Dummy variables  a 
c  d  m are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 vdwlem1.a . . . 4  |-  ( ph  ->  A  e.  NN )
2 vdwlem1.d . . . . 5  |-  ( ph  ->  D : ( 1 ... M ) --> NN )
3 vdwlem1.i . . . . 5  |-  ( ph  ->  I  e.  ( 1 ... M ) )
4 ffvelrn 5743 . . . . 5  |-  ( ( D : ( 1 ... M ) --> NN 
/\  I  e.  ( 1 ... M ) )  ->  ( D `  I )  e.  NN )
52, 3, 4syl2anc 642 . . . 4  |-  ( ph  ->  ( D `  I
)  e.  NN )
6 vdwlem1.k . . . . . . 7  |-  ( ph  ->  K  e.  NN )
76nnnn0d 10107 . . . . . 6  |-  ( ph  ->  K  e.  NN0 )
8 vdwapun 13112 . . . . . 6  |-  ( ( K  e.  NN0  /\  A  e.  NN  /\  ( D `  I )  e.  NN )  ->  ( A (AP `  ( K  +  1 ) ) ( D `  I
) )  =  ( { A }  u.  ( ( A  +  ( D `  I ) ) (AP `  K
) ( D `  I ) ) ) )
97, 1, 5, 8syl3anc 1182 . . . . 5  |-  ( ph  ->  ( A (AP `  ( K  +  1
) ) ( D `
 I ) )  =  ( { A }  u.  ( ( A  +  ( D `  I ) ) (AP
`  K ) ( D `  I ) ) ) )
101nnred 9848 . . . . . . . . . 10  |-  ( ph  ->  A  e.  RR )
11 vdwlem1.m . . . . . . . . . . . . . . 15  |-  ( ph  ->  M  e.  NN )
12 nnuz 10352 . . . . . . . . . . . . . . 15  |-  NN  =  ( ZZ>= `  1 )
1311, 12syl6eleq 2448 . . . . . . . . . . . . . 14  |-  ( ph  ->  M  e.  ( ZZ>= ` 
1 ) )
14 eluzfz1 10892 . . . . . . . . . . . . . 14  |-  ( M  e.  ( ZZ>= `  1
)  ->  1  e.  ( 1 ... M
) )
1513, 14syl 15 . . . . . . . . . . . . 13  |-  ( ph  ->  1  e.  ( 1 ... M ) )
16 ffvelrn 5743 . . . . . . . . . . . . 13  |-  ( ( D : ( 1 ... M ) --> NN 
/\  1  e.  ( 1 ... M ) )  ->  ( D `  1 )  e.  NN )
172, 15, 16syl2anc 642 . . . . . . . . . . . 12  |-  ( ph  ->  ( D `  1
)  e.  NN )
181, 17nnaddcld 9879 . . . . . . . . . . 11  |-  ( ph  ->  ( A  +  ( D `  1 ) )  e.  NN )
1918nnred 9848 . . . . . . . . . 10  |-  ( ph  ->  ( A  +  ( D `  1 ) )  e.  RR )
20 vdwlem1.w . . . . . . . . . . 11  |-  ( ph  ->  W  e.  NN )
2120nnred 9848 . . . . . . . . . 10  |-  ( ph  ->  W  e.  RR )
2217nnrpd 10478 . . . . . . . . . . . 12  |-  ( ph  ->  ( D `  1
)  e.  RR+ )
2310, 22ltaddrpd 10508 . . . . . . . . . . 11  |-  ( ph  ->  A  <  ( A  +  ( D ` 
1 ) ) )
2410, 19, 23ltled 9054 . . . . . . . . . 10  |-  ( ph  ->  A  <_  ( A  +  ( D ` 
1 ) ) )
25 vdwlem1.s . . . . . . . . . . . . . . . 16  |-  ( ph  ->  A. i  e.  ( 1 ... M ) ( ( A  +  ( D `  i ) ) (AP `  K
) ( D `  i ) )  C_  ( `' F " { ( F `  ( A  +  ( D `  i ) ) ) } ) )
2625r19.21bi 2717 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  i  e.  ( 1 ... M
) )  ->  (
( A  +  ( D `  i ) ) (AP `  K
) ( D `  i ) )  C_  ( `' F " { ( F `  ( A  +  ( D `  i ) ) ) } ) )
27 cnvimass 5112 . . . . . . . . . . . . . . . . 17  |-  ( `' F " { ( F `  ( A  +  ( D `  i ) ) ) } )  C_  dom  F
28 vdwlem1.f . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  F : ( 1 ... W ) --> R )
29 fdm 5473 . . . . . . . . . . . . . . . . . 18  |-  ( F : ( 1 ... W ) --> R  ->  dom  F  =  ( 1 ... W ) )
3028, 29syl 15 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  dom  F  =  ( 1 ... W ) )
3127, 30syl5sseq 3302 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( `' F " { ( F `  ( A  +  ( D `  i )
) ) } ) 
C_  ( 1 ... W ) )
3231adantr 451 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  i  e.  ( 1 ... M
) )  ->  ( `' F " { ( F `  ( A  +  ( D `  i ) ) ) } )  C_  (
1 ... W ) )
3326, 32sstrd 3265 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  i  e.  ( 1 ... M
) )  ->  (
( A  +  ( D `  i ) ) (AP `  K
) ( D `  i ) )  C_  ( 1 ... W
) )
34 nnm1nn0 10094 . . . . . . . . . . . . . . . . . . . 20  |-  ( K  e.  NN  ->  ( K  -  1 )  e.  NN0 )
356, 34syl 15 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( K  -  1 )  e.  NN0 )
36 nn0uz 10351 . . . . . . . . . . . . . . . . . . 19  |-  NN0  =  ( ZZ>= `  0 )
3735, 36syl6eleq 2448 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( K  -  1 )  e.  ( ZZ>= ` 
0 ) )
38 eluzfz1 10892 . . . . . . . . . . . . . . . . . 18  |-  ( ( K  -  1 )  e.  ( ZZ>= `  0
)  ->  0  e.  ( 0 ... ( K  -  1 ) ) )
3937, 38syl 15 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  0  e.  ( 0 ... ( K  - 
1 ) ) )
4039adantr 451 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  i  e.  ( 1 ... M
) )  ->  0  e.  ( 0 ... ( K  -  1 ) ) )
41 ffvelrn 5743 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( D : ( 1 ... M ) --> NN 
/\  i  e.  ( 1 ... M ) )  ->  ( D `  i )  e.  NN )
422, 41sylan 457 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  i  e.  ( 1 ... M
) )  ->  ( D `  i )  e.  NN )
4342nncnd 9849 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  i  e.  ( 1 ... M
) )  ->  ( D `  i )  e.  CC )
4443mul02d 9097 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  i  e.  ( 1 ... M
) )  ->  (
0  x.  ( D `
 i ) )  =  0 )
4544oveq2d 5958 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  i  e.  ( 1 ... M
) )  ->  (
( A  +  ( D `  i ) )  +  ( 0  x.  ( D `  i ) ) )  =  ( ( A  +  ( D `  i ) )  +  0 ) )
461adantr 451 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  i  e.  ( 1 ... M
) )  ->  A  e.  NN )
4746, 42nnaddcld 9879 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  i  e.  ( 1 ... M
) )  ->  ( A  +  ( D `  i ) )  e.  NN )
4847nncnd 9849 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  i  e.  ( 1 ... M
) )  ->  ( A  +  ( D `  i ) )  e.  CC )
4948addid1d 9099 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  i  e.  ( 1 ... M
) )  ->  (
( A  +  ( D `  i ) )  +  0 )  =  ( A  +  ( D `  i ) ) )
5045, 49eqtr2d 2391 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  i  e.  ( 1 ... M
) )  ->  ( A  +  ( D `  i ) )  =  ( ( A  +  ( D `  i ) )  +  ( 0  x.  ( D `  i ) ) ) )
51 oveq1 5949 . . . . . . . . . . . . . . . . . . 19  |-  ( m  =  0  ->  (
m  x.  ( D `
 i ) )  =  ( 0  x.  ( D `  i
) ) )
5251oveq2d 5958 . . . . . . . . . . . . . . . . . 18  |-  ( m  =  0  ->  (
( A  +  ( D `  i ) )  +  ( m  x.  ( D `  i ) ) )  =  ( ( A  +  ( D `  i ) )  +  ( 0  x.  ( D `  i )
) ) )
5352eqeq2d 2369 . . . . . . . . . . . . . . . . 17  |-  ( m  =  0  ->  (
( A  +  ( D `  i ) )  =  ( ( A  +  ( D `
 i ) )  +  ( m  x.  ( D `  i
) ) )  <->  ( A  +  ( D `  i ) )  =  ( ( A  +  ( D `  i ) )  +  ( 0  x.  ( D `  i ) ) ) ) )
5453rspcev 2960 . . . . . . . . . . . . . . . 16  |-  ( ( 0  e.  ( 0 ... ( K  - 
1 ) )  /\  ( A  +  ( D `  i )
)  =  ( ( A  +  ( D `
 i ) )  +  ( 0  x.  ( D `  i
) ) ) )  ->  E. m  e.  ( 0 ... ( K  -  1 ) ) ( A  +  ( D `  i ) )  =  ( ( A  +  ( D `
 i ) )  +  ( m  x.  ( D `  i
) ) ) )
5540, 50, 54syl2anc 642 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  i  e.  ( 1 ... M
) )  ->  E. m  e.  ( 0 ... ( K  -  1 ) ) ( A  +  ( D `  i ) )  =  ( ( A  +  ( D `
 i ) )  +  ( m  x.  ( D `  i
) ) ) )
566adantr 451 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  i  e.  ( 1 ... M
) )  ->  K  e.  NN )
5756nnnn0d 10107 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  i  e.  ( 1 ... M
) )  ->  K  e.  NN0 )
58 vdwapval 13111 . . . . . . . . . . . . . . . 16  |-  ( ( K  e.  NN0  /\  ( A  +  ( D `  i )
)  e.  NN  /\  ( D `  i )  e.  NN )  -> 
( ( A  +  ( D `  i ) )  e.  ( ( A  +  ( D `
 i ) ) (AP `  K ) ( D `  i
) )  <->  E. m  e.  ( 0 ... ( K  -  1 ) ) ( A  +  ( D `  i ) )  =  ( ( A  +  ( D `
 i ) )  +  ( m  x.  ( D `  i
) ) ) ) )
5957, 47, 42, 58syl3anc 1182 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  i  e.  ( 1 ... M
) )  ->  (
( A  +  ( D `  i ) )  e.  ( ( A  +  ( D `
 i ) ) (AP `  K ) ( D `  i
) )  <->  E. m  e.  ( 0 ... ( K  -  1 ) ) ( A  +  ( D `  i ) )  =  ( ( A  +  ( D `
 i ) )  +  ( m  x.  ( D `  i
) ) ) ) )
6055, 59mpbird 223 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  i  e.  ( 1 ... M
) )  ->  ( A  +  ( D `  i ) )  e.  ( ( A  +  ( D `  i ) ) (AP `  K
) ( D `  i ) ) )
6133, 60sseldd 3257 . . . . . . . . . . . . 13  |-  ( (
ph  /\  i  e.  ( 1 ... M
) )  ->  ( A  +  ( D `  i ) )  e.  ( 1 ... W
) )
6261ralrimiva 2702 . . . . . . . . . . . 12  |-  ( ph  ->  A. i  e.  ( 1 ... M ) ( A  +  ( D `  i ) )  e.  ( 1 ... W ) )
63 fveq2 5605 . . . . . . . . . . . . . . 15  |-  ( i  =  1  ->  ( D `  i )  =  ( D ` 
1 ) )
6463oveq2d 5958 . . . . . . . . . . . . . 14  |-  ( i  =  1  ->  ( A  +  ( D `  i ) )  =  ( A  +  ( D `  1 ) ) )
6564eleq1d 2424 . . . . . . . . . . . . 13  |-  ( i  =  1  ->  (
( A  +  ( D `  i ) )  e.  ( 1 ... W )  <->  ( A  +  ( D ` 
1 ) )  e.  ( 1 ... W
) ) )
6665rspcv 2956 . . . . . . . . . . . 12  |-  ( 1  e.  ( 1 ... M )  ->  ( A. i  e.  (
1 ... M ) ( A  +  ( D `
 i ) )  e.  ( 1 ... W )  ->  ( A  +  ( D `  1 ) )  e.  ( 1 ... W ) ) )
6715, 62, 66sylc 56 . . . . . . . . . . 11  |-  ( ph  ->  ( A  +  ( D `  1 ) )  e.  ( 1 ... W ) )
68 elfzle2 10889 . . . . . . . . . . 11  |-  ( ( A  +  ( D `
 1 ) )  e.  ( 1 ... W )  ->  ( A  +  ( D `  1 ) )  <_  W )
6967, 68syl 15 . . . . . . . . . 10  |-  ( ph  ->  ( A  +  ( D `  1 ) )  <_  W )
7010, 19, 21, 24, 69letrd 9060 . . . . . . . . 9  |-  ( ph  ->  A  <_  W )
711, 12syl6eleq 2448 . . . . . . . . . 10  |-  ( ph  ->  A  e.  ( ZZ>= ` 
1 ) )
7220nnzd 10205 . . . . . . . . . 10  |-  ( ph  ->  W  e.  ZZ )
73 elfz5 10879 . . . . . . . . . 10  |-  ( ( A  e.  ( ZZ>= ` 
1 )  /\  W  e.  ZZ )  ->  ( A  e.  ( 1 ... W )  <->  A  <_  W ) )
7471, 72, 73syl2anc 642 . . . . . . . . 9  |-  ( ph  ->  ( A  e.  ( 1 ... W )  <-> 
A  <_  W )
)
7570, 74mpbird 223 . . . . . . . 8  |-  ( ph  ->  A  e.  ( 1 ... W ) )
76 eqidd 2359 . . . . . . . 8  |-  ( ph  ->  ( F `  A
)  =  ( F `
 A ) )
77 ffn 5469 . . . . . . . . 9  |-  ( F : ( 1 ... W ) --> R  ->  F  Fn  ( 1 ... W ) )
78 fniniseg 5726 . . . . . . . . 9  |-  ( F  Fn  ( 1 ... W )  ->  ( A  e.  ( `' F " { ( F `
 A ) } )  <->  ( A  e.  ( 1 ... W
)  /\  ( F `  A )  =  ( F `  A ) ) ) )
7928, 77, 783syl 18 . . . . . . . 8  |-  ( ph  ->  ( A  e.  ( `' F " { ( F `  A ) } )  <->  ( A  e.  ( 1 ... W
)  /\  ( F `  A )  =  ( F `  A ) ) ) )
8075, 76, 79mpbir2and 888 . . . . . . 7  |-  ( ph  ->  A  e.  ( `' F " { ( F `  A ) } ) )
8180snssd 3839 . . . . . 6  |-  ( ph  ->  { A }  C_  ( `' F " { ( F `  A ) } ) )
82 fveq2 5605 . . . . . . . . . . . 12  |-  ( i  =  I  ->  ( D `  i )  =  ( D `  I ) )
8382oveq2d 5958 . . . . . . . . . . 11  |-  ( i  =  I  ->  ( A  +  ( D `  i ) )  =  ( A  +  ( D `  I ) ) )
8483, 82oveq12d 5960 . . . . . . . . . 10  |-  ( i  =  I  ->  (
( A  +  ( D `  i ) ) (AP `  K
) ( D `  i ) )  =  ( ( A  +  ( D `  I ) ) (AP `  K
) ( D `  I ) ) )
8583fveq2d 5609 . . . . . . . . . . . 12  |-  ( i  =  I  ->  ( F `  ( A  +  ( D `  i ) ) )  =  ( F `  ( A  +  ( D `  I )
) ) )
8685sneqd 3729 . . . . . . . . . . 11  |-  ( i  =  I  ->  { ( F `  ( A  +  ( D `  i ) ) ) }  =  { ( F `  ( A  +  ( D `  I ) ) ) } )
8786imaeq2d 5091 . . . . . . . . . 10  |-  ( i  =  I  ->  ( `' F " { ( F `  ( A  +  ( D `  i ) ) ) } )  =  ( `' F " { ( F `  ( A  +  ( D `  I ) ) ) } ) )
8884, 87sseq12d 3283 . . . . . . . . 9  |-  ( i  =  I  ->  (
( ( A  +  ( D `  i ) ) (AP `  K
) ( D `  i ) )  C_  ( `' F " { ( F `  ( A  +  ( D `  i ) ) ) } )  <->  ( ( A  +  ( D `  I ) ) (AP
`  K ) ( D `  I ) )  C_  ( `' F " { ( F `
 ( A  +  ( D `  I ) ) ) } ) ) )
8988rspcv 2956 . . . . . . . 8  |-  ( I  e.  ( 1 ... M )  ->  ( A. i  e.  (
1 ... M ) ( ( A  +  ( D `  i ) ) (AP `  K
) ( D `  i ) )  C_  ( `' F " { ( F `  ( A  +  ( D `  i ) ) ) } )  ->  (
( A  +  ( D `  I ) ) (AP `  K
) ( D `  I ) )  C_  ( `' F " { ( F `  ( A  +  ( D `  I ) ) ) } ) ) )
903, 25, 89sylc 56 . . . . . . 7  |-  ( ph  ->  ( ( A  +  ( D `  I ) ) (AP `  K
) ( D `  I ) )  C_  ( `' F " { ( F `  ( A  +  ( D `  I ) ) ) } ) )
91 vdwlem1.e . . . . . . . . 9  |-  ( ph  ->  ( F `  A
)  =  ( F `
 ( A  +  ( D `  I ) ) ) )
9291sneqd 3729 . . . . . . . 8  |-  ( ph  ->  { ( F `  A ) }  =  { ( F `  ( A  +  ( D `  I )
) ) } )
9392imaeq2d 5091 . . . . . . 7  |-  ( ph  ->  ( `' F " { ( F `  A ) } )  =  ( `' F " { ( F `  ( A  +  ( D `  I )
) ) } ) )
9490, 93sseqtr4d 3291 . . . . . 6  |-  ( ph  ->  ( ( A  +  ( D `  I ) ) (AP `  K
) ( D `  I ) )  C_  ( `' F " { ( F `  A ) } ) )
9581, 94unssd 3427 . . . . 5  |-  ( ph  ->  ( { A }  u.  ( ( A  +  ( D `  I ) ) (AP `  K
) ( D `  I ) ) ) 
C_  ( `' F " { ( F `  A ) } ) )
969, 95eqsstrd 3288 . . . 4  |-  ( ph  ->  ( A (AP `  ( K  +  1
) ) ( D `
 I ) ) 
C_  ( `' F " { ( F `  A ) } ) )
97 oveq1 5949 . . . . . 6  |-  ( a  =  A  ->  (
a (AP `  ( K  +  1 ) ) d )  =  ( A (AP `  ( K  +  1
) ) d ) )
9897sseq1d 3281 . . . . 5  |-  ( a  =  A  ->  (
( a (AP `  ( K  +  1
) ) d ) 
C_  ( `' F " { ( F `  A ) } )  <-> 
( A (AP `  ( K  +  1
) ) d ) 
C_  ( `' F " { ( F `  A ) } ) ) )
99 oveq2 5950 . . . . . 6  |-  ( d  =  ( D `  I )  ->  ( A (AP `  ( K  +  1 ) ) d )  =  ( A (AP `  ( K  +  1 ) ) ( D `  I ) ) )
10099sseq1d 3281 . . . . 5  |-  ( d  =  ( D `  I )  ->  (
( A (AP `  ( K  +  1
) ) d ) 
C_  ( `' F " { ( F `  A ) } )  <-> 
( A (AP `  ( K  +  1
) ) ( D `
 I ) ) 
C_  ( `' F " { ( F `  A ) } ) ) )
10198, 100rspc2ev 2968 . . . 4  |-  ( ( A  e.  NN  /\  ( D `  I )  e.  NN  /\  ( A (AP `  ( K  +  1 ) ) ( D `  I
) )  C_  ( `' F " { ( F `  A ) } ) )  ->  E. a  e.  NN  E. d  e.  NN  (
a (AP `  ( K  +  1 ) ) d )  C_  ( `' F " { ( F `  A ) } ) )
1021, 5, 96, 101syl3anc 1182 . . 3  |-  ( ph  ->  E. a  e.  NN  E. d  e.  NN  (
a (AP `  ( K  +  1 ) ) d )  C_  ( `' F " { ( F `  A ) } ) )
103 fvex 5619 . . . 4  |-  ( F `
 A )  e. 
_V
104 sneq 3727 . . . . . . 7  |-  ( c  =  ( F `  A )  ->  { c }  =  { ( F `  A ) } )
105104imaeq2d 5091 . . . . . 6  |-  ( c  =  ( F `  A )  ->  ( `' F " { c } )  =  ( `' F " { ( F `  A ) } ) )
106105sseq2d 3282 . . . . 5  |-  ( c  =  ( F `  A )  ->  (
( a (AP `  ( K  +  1
) ) d ) 
C_  ( `' F " { c } )  <-> 
( a (AP `  ( K  +  1
) ) d ) 
C_  ( `' F " { ( F `  A ) } ) ) )
1071062rexbidv 2662 . . . 4  |-  ( c  =  ( F `  A )  ->  ( E. a  e.  NN  E. d  e.  NN  (
a (AP `  ( K  +  1 ) ) d )  C_  ( `' F " { c } )  <->  E. a  e.  NN  E. d  e.  NN  ( a (AP
`  ( K  + 
1 ) ) d )  C_  ( `' F " { ( F `
 A ) } ) ) )
108103, 107spcev 2951 . . 3  |-  ( E. a  e.  NN  E. d  e.  NN  (
a (AP `  ( K  +  1 ) ) d )  C_  ( `' F " { ( F `  A ) } )  ->  E. c E. a  e.  NN  E. d  e.  NN  (
a (AP `  ( K  +  1 ) ) d )  C_  ( `' F " { c } ) )
109102, 108syl 15 . 2  |-  ( ph  ->  E. c E. a  e.  NN  E. d  e.  NN  ( a (AP
`  ( K  + 
1 ) ) d )  C_  ( `' F " { c } ) )
110 ovex 5967 . . 3  |-  ( 1 ... W )  e. 
_V
111 peano2nn0 10093 . . . 4  |-  ( K  e.  NN0  ->  ( K  +  1 )  e. 
NN0 )
1127, 111syl 15 . . 3  |-  ( ph  ->  ( K  +  1 )  e.  NN0 )
113110, 112, 28vdwmc 13116 . 2  |-  ( ph  ->  ( ( K  + 
1 ) MonoAP  F  <->  E. c E. a  e.  NN  E. d  e.  NN  (
a (AP `  ( K  +  1 ) ) d )  C_  ( `' F " { c } ) ) )
114109, 113mpbird 223 1  |-  ( ph  ->  ( K  +  1 ) MonoAP  F )
Colors of variables: wff set class
Syntax hints:    -> wi 4    <-> wb 176    /\ wa 358   E.wex 1541    = wceq 1642    e. wcel 1710   A.wral 2619   E.wrex 2620    u. cun 3226    C_ wss 3228   {csn 3716   class class class wbr 4102   `'ccnv 4767   dom cdm 4768   "cima 4771    Fn wfn 5329   -->wf 5330   ` cfv 5334  (class class class)co 5942   Fincfn 6948   0cc0 8824   1c1 8825    + caddc 8827    x. cmul 8829    <_ cle 8955    - cmin 9124   NNcn 9833   NN0cn0 10054   ZZcz 10113   ZZ>=cuz 10319   ...cfz 10871  APcvdwa 13103   MonoAP cvdwm 13104
This theorem is referenced by:  vdwlem6  13124
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1546  ax-5 1557  ax-17 1616  ax-9 1654  ax-8 1675  ax-13 1712  ax-14 1714  ax-6 1729  ax-7 1734  ax-11 1746  ax-12 1930  ax-ext 2339  ax-rep 4210  ax-sep 4220  ax-nul 4228  ax-pow 4267  ax-pr 4293  ax-un 4591  ax-cnex 8880  ax-resscn 8881  ax-1cn 8882  ax-icn 8883  ax-addcl 8884  ax-addrcl 8885  ax-mulcl 8886  ax-mulrcl 8887  ax-mulcom 8888  ax-addass 8889  ax-mulass 8890  ax-distr 8891  ax-i2m1 8892  ax-1ne0 8893  ax-1rid 8894  ax-rnegex 8895  ax-rrecex 8896  ax-cnre 8897  ax-pre-lttri 8898  ax-pre-lttrn 8899  ax-pre-ltadd 8900  ax-pre-mulgt0 8901
This theorem depends on definitions:  df-bi 177  df-or 359  df-an 360  df-3or 935  df-3an 936  df-tru 1319  df-ex 1542  df-nf 1545  df-sb 1649  df-eu 2213  df-mo 2214  df-clab 2345  df-cleq 2351  df-clel 2354  df-nfc 2483  df-ne 2523  df-nel 2524  df-ral 2624  df-rex 2625  df-reu 2626  df-rab 2628  df-v 2866  df-sbc 3068  df-csb 3158  df-dif 3231  df-un 3233  df-in 3235  df-ss 3242  df-pss 3244  df-nul 3532  df-if 3642  df-pw 3703  df-sn 3722  df-pr 3723  df-tp 3724  df-op 3725  df-uni 3907  df-iun 3986  df-br 4103  df-opab 4157  df-mpt 4158  df-tr 4193  df-eprel 4384  df-id 4388  df-po 4393  df-so 4394  df-fr 4431  df-we 4433  df-ord 4474  df-on 4475  df-lim 4476  df-suc 4477  df-om 4736  df-xp 4774  df-rel 4775  df-cnv 4776  df-co 4777  df-dm 4778  df-rn 4779  df-res 4780  df-ima 4781  df-iota 5298  df-fun 5336  df-fn 5337  df-f 5338  df-f1 5339  df-fo 5340  df-f1o 5341  df-fv 5342  df-ov 5945  df-oprab 5946  df-mpt2 5947  df-1st 6206  df-2nd 6207  df-riota 6388  df-recs 6472  df-rdg 6507  df-er 6744  df-en 6949  df-dom 6950  df-sdom 6951  df-pnf 8956  df-mnf 8957  df-xr 8958  df-ltxr 8959  df-le 8960  df-sub 9126  df-neg 9127  df-nn 9834  df-n0 10055  df-z 10114  df-uz 10320  df-rp 10444  df-fz 10872  df-vdwap 13106  df-vdwmc 13107
  Copyright terms: Public domain W3C validator