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

Theorem vdwpc 14373
Description: The predicate " The coloring  F contains a polychromatic  M-tuple of AP's of length  K". A polychromatic 
M-tuple of AP's is a set of AP's with the same base point but different step lengths, such that each individual AP is monochromatic, but the AP's all have mutually distinct colors. (The common basepoint is not required to have the same color as any of the AP's.) (Contributed by Mario Carneiro, 18-Aug-2014.)
Hypotheses
Ref Expression
vdwmc.1  |-  X  e. 
_V
vdwmc.2  |-  ( ph  ->  K  e.  NN0 )
vdwmc.3  |-  ( ph  ->  F : X --> R )
vdwpc.4  |-  ( ph  ->  M  e.  NN )
vdwpc.5  |-  J  =  ( 1 ... M
)
Assertion
Ref Expression
vdwpc  |-  ( ph  ->  ( <. M ,  K >. PolyAP 
F  <->  E. a  e.  NN  E. d  e.  ( NN 
^m  J ) ( A. i  e.  J  ( ( a  +  ( d `  i
) ) (AP `  K ) ( d `
 i ) ) 
C_  ( `' F " { ( F `  ( a  +  ( d `  i ) ) ) } )  /\  ( # `  ran  ( i  e.  J  |->  ( F `  (
a  +  ( d `
 i ) ) ) ) )  =  M ) ) )
Distinct variable groups:    a, d,
i, F    K, a,
d, i    J, d,
i    M, a, d, i
Allowed substitution hints:    ph( i, a, d)    R( i, a, d)    J( a)    X( i, a, d)

Proof of Theorem vdwpc
Dummy variables  f 
k  m are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 vdwpc.4 . 2  |-  ( ph  ->  M  e.  NN )
2 vdwmc.2 . 2  |-  ( ph  ->  K  e.  NN0 )
3 vdwmc.3 . . 3  |-  ( ph  ->  F : X --> R )
4 vdwmc.1 . . 3  |-  X  e. 
_V
5 fex 6144 . . 3  |-  ( ( F : X --> R  /\  X  e.  _V )  ->  F  e.  _V )
63, 4, 5sylancl 662 . 2  |-  ( ph  ->  F  e.  _V )
7 df-br 4454 . . . 4  |-  ( <. M ,  K >. PolyAP  F  <->  <. <. M ,  K >. ,  F >.  e. PolyAP  )
8 df-vdwpc 14363 . . . . 5  |- PolyAP  =  { <. <. m ,  k
>. ,  f >.  |  E. a  e.  NN  E. d  e.  ( NN 
^m  ( 1 ... m ) ) ( A. i  e.  ( 1 ... m ) ( ( a  +  ( d `  i
) ) (AP `  k ) ( d `
 i ) ) 
C_  ( `' f
" { ( f `
 ( a  +  ( d `  i
) ) ) } )  /\  ( # `  ran  ( i  e.  ( 1 ... m
)  |->  ( f `  ( a  +  ( d `  i ) ) ) ) )  =  m ) }
98eleq2i 2545 . . . 4  |-  ( <. <. M ,  K >. ,  F >.  e. PolyAP  <->  <. <. M ,  K >. ,  F >.  e. 
{ <. <. m ,  k
>. ,  f >.  |  E. a  e.  NN  E. d  e.  ( NN 
^m  ( 1 ... m ) ) ( A. i  e.  ( 1 ... m ) ( ( a  +  ( d `  i
) ) (AP `  k ) ( d `
 i ) ) 
C_  ( `' f
" { ( f `
 ( a  +  ( d `  i
) ) ) } )  /\  ( # `  ran  ( i  e.  ( 1 ... m
)  |->  ( f `  ( a  +  ( d `  i ) ) ) ) )  =  m ) } )
107, 9bitri 249 . . 3  |-  ( <. M ,  K >. PolyAP  F  <->  <. <. M ,  K >. ,  F >.  e.  { <. <.
m ,  k >. ,  f >.  |  E. a  e.  NN  E. d  e.  ( NN  ^m  (
1 ... m ) ) ( A. i  e.  ( 1 ... m
) ( ( a  +  ( d `  i ) ) (AP
`  k ) ( d `  i ) )  C_  ( `' f " { ( f `
 ( a  +  ( d `  i
) ) ) } )  /\  ( # `  ran  ( i  e.  ( 1 ... m
)  |->  ( f `  ( a  +  ( d `  i ) ) ) ) )  =  m ) } )
11 simp1 996 . . . . . . . . 9  |-  ( ( m  =  M  /\  k  =  K  /\  f  =  F )  ->  m  =  M )
1211oveq2d 6311 . . . . . . . 8  |-  ( ( m  =  M  /\  k  =  K  /\  f  =  F )  ->  ( 1 ... m
)  =  ( 1 ... M ) )
13 vdwpc.5 . . . . . . . 8  |-  J  =  ( 1 ... M
)
1412, 13syl6eqr 2526 . . . . . . 7  |-  ( ( m  =  M  /\  k  =  K  /\  f  =  F )  ->  ( 1 ... m
)  =  J )
1514oveq2d 6311 . . . . . 6  |-  ( ( m  =  M  /\  k  =  K  /\  f  =  F )  ->  ( NN  ^m  (
1 ... m ) )  =  ( NN  ^m  J ) )
16 simp2 997 . . . . . . . . . . 11  |-  ( ( m  =  M  /\  k  =  K  /\  f  =  F )  ->  k  =  K )
1716fveq2d 5876 . . . . . . . . . 10  |-  ( ( m  =  M  /\  k  =  K  /\  f  =  F )  ->  (AP `  k )  =  (AP `  K
) )
1817oveqd 6312 . . . . . . . . 9  |-  ( ( m  =  M  /\  k  =  K  /\  f  =  F )  ->  ( ( a  +  ( d `  i
) ) (AP `  k ) ( d `
 i ) )  =  ( ( a  +  ( d `  i ) ) (AP
`  K ) ( d `  i ) ) )
19 simp3 998 . . . . . . . . . . 11  |-  ( ( m  =  M  /\  k  =  K  /\  f  =  F )  ->  f  =  F )
2019cnveqd 5184 . . . . . . . . . 10  |-  ( ( m  =  M  /\  k  =  K  /\  f  =  F )  ->  `' f  =  `' F )
2119fveq1d 5874 . . . . . . . . . . 11  |-  ( ( m  =  M  /\  k  =  K  /\  f  =  F )  ->  ( f `  (
a  +  ( d `
 i ) ) )  =  ( F `
 ( a  +  ( d `  i
) ) ) )
2221sneqd 4045 . . . . . . . . . 10  |-  ( ( m  =  M  /\  k  =  K  /\  f  =  F )  ->  { ( f `  ( a  +  ( d `  i ) ) ) }  =  { ( F `  ( a  +  ( d `  i ) ) ) } )
2320, 22imaeq12d 5344 . . . . . . . . 9  |-  ( ( m  =  M  /\  k  =  K  /\  f  =  F )  ->  ( `' f " { ( f `  ( a  +  ( d `  i ) ) ) } )  =  ( `' F " { ( F `  ( a  +  ( d `  i ) ) ) } ) )
2418, 23sseq12d 3538 . . . . . . . 8  |-  ( ( m  =  M  /\  k  =  K  /\  f  =  F )  ->  ( ( ( 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
) ) ) } ) ) )
2514, 24raleqbidv 3077 . . . . . . 7  |-  ( ( m  =  M  /\  k  =  K  /\  f  =  F )  ->  ( A. i  e.  ( 1 ... m
) ( ( a  +  ( d `  i ) ) (AP
`  k ) ( d `  i ) )  C_  ( `' f " { ( f `
 ( a  +  ( d `  i
) ) ) } )  <->  A. i  e.  J  ( ( a  +  ( d `  i
) ) (AP `  K ) ( d `
 i ) ) 
C_  ( `' F " { ( F `  ( a  +  ( d `  i ) ) ) } ) ) )
2614, 21mpteq12dv 4531 . . . . . . . . . 10  |-  ( ( m  =  M  /\  k  =  K  /\  f  =  F )  ->  ( i  e.  ( 1 ... m ) 
|->  ( f `  (
a  +  ( d `
 i ) ) ) )  =  ( i  e.  J  |->  ( F `  ( a  +  ( d `  i ) ) ) ) )
2726rneqd 5236 . . . . . . . . 9  |-  ( ( m  =  M  /\  k  =  K  /\  f  =  F )  ->  ran  ( i  e.  ( 1 ... m
)  |->  ( f `  ( a  +  ( d `  i ) ) ) )  =  ran  ( i  e.  J  |->  ( F `  ( a  +  ( d `  i ) ) ) ) )
2827fveq2d 5876 . . . . . . . 8  |-  ( ( m  =  M  /\  k  =  K  /\  f  =  F )  ->  ( # `  ran  ( i  e.  ( 1 ... m ) 
|->  ( f `  (
a  +  ( d `
 i ) ) ) ) )  =  ( # `  ran  ( i  e.  J  |->  ( F `  (
a  +  ( d `
 i ) ) ) ) ) )
2928, 11eqeq12d 2489 . . . . . . 7  |-  ( ( m  =  M  /\  k  =  K  /\  f  =  F )  ->  ( ( # `  ran  ( i  e.  ( 1 ... m ) 
|->  ( f `  (
a  +  ( d `
 i ) ) ) ) )  =  m  <->  ( # `  ran  ( i  e.  J  |->  ( F `  (
a  +  ( d `
 i ) ) ) ) )  =  M ) )
3025, 29anbi12d 710 . . . . . 6  |-  ( ( m  =  M  /\  k  =  K  /\  f  =  F )  ->  ( ( A. i  e.  ( 1 ... m
) ( ( a  +  ( d `  i ) ) (AP
`  k ) ( d `  i ) )  C_  ( `' f " { ( f `
 ( a  +  ( d `  i
) ) ) } )  /\  ( # `  ran  ( i  e.  ( 1 ... m
)  |->  ( f `  ( a  +  ( d `  i ) ) ) ) )  =  m )  <->  ( A. i  e.  J  (
( a  +  ( d `  i ) ) (AP `  K
) ( d `  i ) )  C_  ( `' F " { ( F `  ( a  +  ( d `  i ) ) ) } )  /\  ( # `
 ran  ( i  e.  J  |->  ( F `
 ( a  +  ( d `  i
) ) ) ) )  =  M ) ) )
3115, 30rexeqbidv 3078 . . . . 5  |-  ( ( m  =  M  /\  k  =  K  /\  f  =  F )  ->  ( E. d  e.  ( NN  ^m  (
1 ... m ) ) ( A. i  e.  ( 1 ... m
) ( ( a  +  ( d `  i ) ) (AP
`  k ) ( d `  i ) )  C_  ( `' f " { ( f `
 ( a  +  ( d `  i
) ) ) } )  /\  ( # `  ran  ( i  e.  ( 1 ... m
)  |->  ( f `  ( a  +  ( d `  i ) ) ) ) )  =  m )  <->  E. d  e.  ( NN  ^m  J
) ( A. i  e.  J  ( (
a  +  ( d `
 i ) ) (AP `  K ) ( d `  i
) )  C_  ( `' F " { ( F `  ( a  +  ( d `  i ) ) ) } )  /\  ( # `
 ran  ( i  e.  J  |->  ( F `
 ( a  +  ( d `  i
) ) ) ) )  =  M ) ) )
3231rexbidv 2978 . . . 4  |-  ( ( m  =  M  /\  k  =  K  /\  f  =  F )  ->  ( E. a  e.  NN  E. d  e.  ( NN  ^m  (
1 ... m ) ) ( A. i  e.  ( 1 ... m
) ( ( a  +  ( d `  i ) ) (AP
`  k ) ( d `  i ) )  C_  ( `' f " { ( f `
 ( a  +  ( d `  i
) ) ) } )  /\  ( # `  ran  ( i  e.  ( 1 ... m
)  |->  ( f `  ( a  +  ( d `  i ) ) ) ) )  =  m )  <->  E. a  e.  NN  E. d  e.  ( NN  ^m  J
) ( A. i  e.  J  ( (
a  +  ( d `
 i ) ) (AP `  K ) ( d `  i
) )  C_  ( `' F " { ( F `  ( a  +  ( d `  i ) ) ) } )  /\  ( # `
 ran  ( i  e.  J  |->  ( F `
 ( a  +  ( d `  i
) ) ) ) )  =  M ) ) )
3332eloprabga 6384 . . 3  |-  ( ( M  e.  NN  /\  K  e.  NN0  /\  F  e.  _V )  ->  ( <. <. M ,  K >. ,  F >.  e.  { <. <. m ,  k
>. ,  f >.  |  E. a  e.  NN  E. d  e.  ( NN 
^m  ( 1 ... m ) ) ( A. i  e.  ( 1 ... m ) ( ( a  +  ( d `  i
) ) (AP `  k ) ( d `
 i ) ) 
C_  ( `' f
" { ( f `
 ( a  +  ( d `  i
) ) ) } )  /\  ( # `  ran  ( i  e.  ( 1 ... m
)  |->  ( f `  ( a  +  ( d `  i ) ) ) ) )  =  m ) }  <->  E. a  e.  NN  E. d  e.  ( NN 
^m  J ) ( A. i  e.  J  ( ( a  +  ( d `  i
) ) (AP `  K ) ( d `
 i ) ) 
C_  ( `' F " { ( F `  ( a  +  ( d `  i ) ) ) } )  /\  ( # `  ran  ( i  e.  J  |->  ( F `  (
a  +  ( d `
 i ) ) ) ) )  =  M ) ) )
3410, 33syl5bb 257 . 2  |-  ( ( M  e.  NN  /\  K  e.  NN0  /\  F  e.  _V )  ->  ( <. M ,  K >. PolyAP  F  <->  E. a  e.  NN  E. d  e.  ( NN  ^m  J ) ( A. i  e.  J  (
( a  +  ( d `  i ) ) (AP `  K
) ( d `  i ) )  C_  ( `' F " { ( F `  ( a  +  ( d `  i ) ) ) } )  /\  ( # `
 ran  ( i  e.  J  |->  ( F `
 ( a  +  ( d `  i
) ) ) ) )  =  M ) ) )
351, 2, 6, 34syl3anc 1228 1  |-  ( ph  ->  ( <. M ,  K >. PolyAP 
F  <->  E. a  e.  NN  E. d  e.  ( NN 
^m  J ) ( A. i  e.  J  ( ( a  +  ( d `  i
) ) (AP `  K ) ( d `
 i ) ) 
C_  ( `' F " { ( F `  ( a  +  ( d `  i ) ) ) } )  /\  ( # `  ran  ( i  e.  J  |->  ( F `  (
a  +  ( d `
 i ) ) ) ) )  =  M ) ) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 184    /\ wa 369    /\ w3a 973    = wceq 1379    e. wcel 1767   A.wral 2817   E.wrex 2818   _Vcvv 3118    C_ wss 3481   {csn 4033   <.cop 4039   class class class wbr 4453    |-> cmpt 4511   `'ccnv 5004   ran crn 5006   "cima 5008   -->wf 5590   ` cfv 5594  (class class class)co 6295   {coprab 6296    ^m cmap 7432   1c1 9505    + caddc 9507   NNcn 10548   NN0cn0 10807   ...cfz 11684   #chash 12385  APcvdwa 14358   PolyAP cvdwp 14360
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1601  ax-4 1612  ax-5 1680  ax-6 1719  ax-7 1739  ax-9 1771  ax-10 1786  ax-11 1791  ax-12 1803  ax-13 1968  ax-ext 2445  ax-rep 4564  ax-sep 4574  ax-nul 4582  ax-pr 4692
This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3an 975  df-tru 1382  df-ex 1597  df-nf 1600  df-sb 1712  df-eu 2279  df-mo 2280  df-clab 2453  df-cleq 2459  df-clel 2462  df-nfc 2617  df-ne 2664  df-ral 2822  df-rex 2823  df-reu 2824  df-rab 2826  df-v 3120  df-sbc 3337  df-csb 3441  df-dif 3484  df-un 3486  df-in 3488  df-ss 3495  df-nul 3791  df-if 3946  df-sn 4034  df-pr 4036  df-op 4040  df-uni 4252  df-iun 4333  df-br 4454  df-opab 4512  df-mpt 4513  df-id 4801  df-xp 5011  df-rel 5012  df-cnv 5013  df-co 5014  df-dm 5015  df-rn 5016  df-res 5017  df-ima 5018  df-iota 5557  df-fun 5596  df-fn 5597  df-f 5598  df-f1 5599  df-fo 5600  df-f1o 5601  df-fv 5602  df-ov 6298  df-oprab 6299  df-vdwpc 14363
This theorem is referenced by:  vdwlem6  14379  vdwlem7  14380  vdwlem8  14381  vdwlem11  14384
  Copyright terms: Public domain W3C validator