Users' Mathboxes Mathbox for Scott Fenton < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  brcolinear2 Structured version   Unicode version

Theorem brcolinear2 28089
Description: Alternate colinearity binary relationship. (Contributed by Scott Fenton, 7-Nov-2013.) (Revised by Mario Carneiro, 19-Apr-2014.)
Assertion
Ref Expression
brcolinear2  |-  ( ( Q  e.  V  /\  R  e.  W )  ->  ( P  Colinear  <. Q ,  R >. 
<->  E. n  e.  NN  ( ( P  e.  ( EE `  n
)  /\  Q  e.  ( EE `  n )  /\  R  e.  ( EE `  n ) )  /\  ( P 
Btwn  <. Q ,  R >.  \/  Q  Btwn  <. R ,  P >.  \/  R  Btwn  <. P ,  Q >. ) ) ) )
Distinct variable groups:    P, n    Q, n    R, n
Allowed substitution hints:    V( n)    W( n)

Proof of Theorem brcolinear2
Dummy variables  p  q  r are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 colinrel 28088 . . . 4  |-  Rel  Colinear
21brrelexi 4879 . . 3  |-  ( P 
Colinear 
<. Q ,  R >.  ->  P  e.  _V )
32a1i 11 . 2  |-  ( ( Q  e.  V  /\  R  e.  W )  ->  ( P  Colinear  <. Q ,  R >.  ->  P  e.  _V ) )
4 elex 2981 . . . . . 6  |-  ( P  e.  ( EE `  n )  ->  P  e.  _V )
543ad2ant1 1009 . . . . 5  |-  ( ( P  e.  ( EE
`  n )  /\  Q  e.  ( EE `  n )  /\  R  e.  ( EE `  n
) )  ->  P  e.  _V )
65adantr 465 . . . 4  |-  ( ( ( P  e.  ( EE `  n )  /\  Q  e.  ( EE `  n )  /\  R  e.  ( EE `  n ) )  /\  ( P 
Btwn  <. Q ,  R >.  \/  Q  Btwn  <. R ,  P >.  \/  R  Btwn  <. P ,  Q >. ) )  ->  P  e.  _V )
76rexlimivw 2837 . . 3  |-  ( E. n  e.  NN  (
( P  e.  ( EE `  n )  /\  Q  e.  ( EE `  n )  /\  R  e.  ( EE `  n ) )  /\  ( P 
Btwn  <. Q ,  R >.  \/  Q  Btwn  <. R ,  P >.  \/  R  Btwn  <. P ,  Q >. ) )  ->  P  e.  _V )
87a1i 11 . 2  |-  ( ( Q  e.  V  /\  R  e.  W )  ->  ( E. n  e.  NN  ( ( P  e.  ( EE `  n )  /\  Q  e.  ( EE `  n
)  /\  R  e.  ( EE `  n ) )  /\  ( P 
Btwn  <. Q ,  R >.  \/  Q  Btwn  <. R ,  P >.  \/  R  Btwn  <. P ,  Q >. ) )  ->  P  e.  _V ) )
9 df-br 4293 . . . . . 6  |-  ( P 
Colinear 
<. Q ,  R >.  <->  <. P ,  <. Q ,  R >. >.  e.  Colinear  )
10 df-colinear 28070 . . . . . . 7  |-  Colinear  =  `' { <. <. q ,  r
>. ,  p >.  |  E. n  e.  NN  ( ( p  e.  ( EE `  n
)  /\  q  e.  ( EE `  n )  /\  r  e.  ( EE `  n ) )  /\  ( p 
Btwn  <. q ,  r
>.  \/  q  Btwn  <. r ,  p >.  \/  r  Btwn  <. p ,  q
>. ) ) }
1110eleq2i 2507 . . . . . 6  |-  ( <. P ,  <. Q ,  R >. >.  e.  Colinear  <->  <. P ,  <. Q ,  R >. >.  e.  `' { <. <. q ,  r
>. ,  p >.  |  E. n  e.  NN  ( ( p  e.  ( EE `  n
)  /\  q  e.  ( EE `  n )  /\  r  e.  ( EE `  n ) )  /\  ( p 
Btwn  <. q ,  r
>.  \/  q  Btwn  <. r ,  p >.  \/  r  Btwn  <. p ,  q
>. ) ) } )
129, 11bitri 249 . . . . 5  |-  ( P 
Colinear 
<. Q ,  R >.  <->  <. P ,  <. Q ,  R >. >.  e.  `' { <. <. q ,  r
>. ,  p >.  |  E. n  e.  NN  ( ( p  e.  ( EE `  n
)  /\  q  e.  ( EE `  n )  /\  r  e.  ( EE `  n ) )  /\  ( p 
Btwn  <. q ,  r
>.  \/  q  Btwn  <. r ,  p >.  \/  r  Btwn  <. p ,  q
>. ) ) } )
13 opex 4556 . . . . . . 7  |-  <. Q ,  R >.  e.  _V
14 opelcnvg 5019 . . . . . . 7  |-  ( ( P  e.  _V  /\  <. Q ,  R >.  e. 
_V )  ->  ( <. P ,  <. Q ,  R >. >.  e.  `' { <. <. q ,  r
>. ,  p >.  |  E. n  e.  NN  ( ( p  e.  ( EE `  n
)  /\  q  e.  ( EE `  n )  /\  r  e.  ( EE `  n ) )  /\  ( p 
Btwn  <. q ,  r
>.  \/  q  Btwn  <. r ,  p >.  \/  r  Btwn  <. p ,  q
>. ) ) }  <->  <. <. Q ,  R >. ,  P >.  e. 
{ <. <. q ,  r
>. ,  p >.  |  E. n  e.  NN  ( ( p  e.  ( EE `  n
)  /\  q  e.  ( EE `  n )  /\  r  e.  ( EE `  n ) )  /\  ( p 
Btwn  <. q ,  r
>.  \/  q  Btwn  <. r ,  p >.  \/  r  Btwn  <. p ,  q
>. ) ) } ) )
1513, 14mpan2 671 . . . . . 6  |-  ( P  e.  _V  ->  ( <. P ,  <. Q ,  R >. >.  e.  `' { <. <. q ,  r
>. ,  p >.  |  E. n  e.  NN  ( ( p  e.  ( EE `  n
)  /\  q  e.  ( EE `  n )  /\  r  e.  ( EE `  n ) )  /\  ( p 
Btwn  <. q ,  r
>.  \/  q  Btwn  <. r ,  p >.  \/  r  Btwn  <. p ,  q
>. ) ) }  <->  <. <. Q ,  R >. ,  P >.  e. 
{ <. <. q ,  r
>. ,  p >.  |  E. n  e.  NN  ( ( p  e.  ( EE `  n
)  /\  q  e.  ( EE `  n )  /\  r  e.  ( EE `  n ) )  /\  ( p 
Btwn  <. q ,  r
>.  \/  q  Btwn  <. r ,  p >.  \/  r  Btwn  <. p ,  q
>. ) ) } ) )
16153ad2ant3 1011 . . . . 5  |-  ( ( Q  e.  V  /\  R  e.  W  /\  P  e.  _V )  ->  ( <. P ,  <. Q ,  R >. >.  e.  `' { <. <. q ,  r
>. ,  p >.  |  E. n  e.  NN  ( ( p  e.  ( EE `  n
)  /\  q  e.  ( EE `  n )  /\  r  e.  ( EE `  n ) )  /\  ( p 
Btwn  <. q ,  r
>.  \/  q  Btwn  <. r ,  p >.  \/  r  Btwn  <. p ,  q
>. ) ) }  <->  <. <. Q ,  R >. ,  P >.  e. 
{ <. <. q ,  r
>. ,  p >.  |  E. n  e.  NN  ( ( p  e.  ( EE `  n
)  /\  q  e.  ( EE `  n )  /\  r  e.  ( EE `  n ) )  /\  ( p 
Btwn  <. q ,  r
>.  \/  q  Btwn  <. r ,  p >.  \/  r  Btwn  <. p ,  q
>. ) ) } ) )
1712, 16syl5bb 257 . . . 4  |-  ( ( Q  e.  V  /\  R  e.  W  /\  P  e.  _V )  ->  ( P  Colinear  <. Q ,  R >. 
<-> 
<. <. Q ,  R >. ,  P >.  e.  { <. <. q ,  r
>. ,  p >.  |  E. n  e.  NN  ( ( p  e.  ( EE `  n
)  /\  q  e.  ( EE `  n )  /\  r  e.  ( EE `  n ) )  /\  ( p 
Btwn  <. q ,  r
>.  \/  q  Btwn  <. r ,  p >.  \/  r  Btwn  <. p ,  q
>. ) ) } ) )
18 eleq1 2503 . . . . . . . 8  |-  ( q  =  Q  ->  (
q  e.  ( EE
`  n )  <->  Q  e.  ( EE `  n ) ) )
19183anbi2d 1294 . . . . . . 7  |-  ( q  =  Q  ->  (
( p  e.  ( EE `  n )  /\  q  e.  ( EE `  n )  /\  r  e.  ( EE `  n ) )  <->  ( p  e.  ( EE `  n
)  /\  Q  e.  ( EE `  n )  /\  r  e.  ( EE `  n ) ) ) )
20 opeq1 4059 . . . . . . . . 9  |-  ( q  =  Q  ->  <. q ,  r >.  =  <. Q ,  r >. )
2120breq2d 4304 . . . . . . . 8  |-  ( q  =  Q  ->  (
p  Btwn  <. q ,  r >.  <->  p  Btwn  <. Q , 
r >. ) )
22 breq1 4295 . . . . . . . 8  |-  ( q  =  Q  ->  (
q  Btwn  <. r ,  p >.  <->  Q  Btwn  <. r ,  p >. ) )
23 opeq2 4060 . . . . . . . . 9  |-  ( q  =  Q  ->  <. p ,  q >.  =  <. p ,  Q >. )
2423breq2d 4304 . . . . . . . 8  |-  ( q  =  Q  ->  (
r  Btwn  <. p ,  q >.  <->  r  Btwn  <. p ,  Q >. ) )
2521, 22, 243orbi123d 1288 . . . . . . 7  |-  ( q  =  Q  ->  (
( p  Btwn  <. q ,  r >.  \/  q  Btwn  <. r ,  p >.  \/  r  Btwn  <. p ,  q >. )  <->  ( p  Btwn  <. Q , 
r >.  \/  Q  Btwn  <.
r ,  p >.  \/  r  Btwn  <. p ,  Q >. ) ) )
2619, 25anbi12d 710 . . . . . 6  |-  ( q  =  Q  ->  (
( ( p  e.  ( EE `  n
)  /\  q  e.  ( EE `  n )  /\  r  e.  ( EE `  n ) )  /\  ( p 
Btwn  <. q ,  r
>.  \/  q  Btwn  <. r ,  p >.  \/  r  Btwn  <. p ,  q
>. ) )  <->  ( (
p  e.  ( EE
`  n )  /\  Q  e.  ( EE `  n )  /\  r  e.  ( EE `  n
) )  /\  (
p  Btwn  <. Q , 
r >.  \/  Q  Btwn  <.
r ,  p >.  \/  r  Btwn  <. p ,  Q >. ) ) ) )
2726rexbidv 2736 . . . . 5  |-  ( q  =  Q  ->  ( E. n  e.  NN  ( ( p  e.  ( EE `  n
)  /\  q  e.  ( EE `  n )  /\  r  e.  ( EE `  n ) )  /\  ( p 
Btwn  <. q ,  r
>.  \/  q  Btwn  <. r ,  p >.  \/  r  Btwn  <. p ,  q
>. ) )  <->  E. n  e.  NN  ( ( p  e.  ( EE `  n )  /\  Q  e.  ( EE `  n
)  /\  r  e.  ( EE `  n ) )  /\  ( p 
Btwn  <. Q ,  r
>.  \/  Q  Btwn  <. r ,  p >.  \/  r  Btwn  <. p ,  Q >. ) ) ) )
28 eleq1 2503 . . . . . . . 8  |-  ( r  =  R  ->  (
r  e.  ( EE
`  n )  <->  R  e.  ( EE `  n ) ) )
29283anbi3d 1295 . . . . . . 7  |-  ( r  =  R  ->  (
( p  e.  ( EE `  n )  /\  Q  e.  ( EE `  n )  /\  r  e.  ( EE `  n ) )  <->  ( p  e.  ( EE `  n
)  /\  Q  e.  ( EE `  n )  /\  R  e.  ( EE `  n ) ) ) )
30 opeq2 4060 . . . . . . . . 9  |-  ( r  =  R  ->  <. Q , 
r >.  =  <. Q ,  R >. )
3130breq2d 4304 . . . . . . . 8  |-  ( r  =  R  ->  (
p  Btwn  <. Q , 
r >. 
<->  p  Btwn  <. Q ,  R >. ) )
32 opeq1 4059 . . . . . . . . 9  |-  ( r  =  R  ->  <. r ,  p >.  =  <. R ,  p >. )
3332breq2d 4304 . . . . . . . 8  |-  ( r  =  R  ->  ( Q  Btwn  <. r ,  p >.  <-> 
Q  Btwn  <. R ,  p >. ) )
34 breq1 4295 . . . . . . . 8  |-  ( r  =  R  ->  (
r  Btwn  <. p ,  Q >.  <->  R  Btwn  <. p ,  Q >. ) )
3531, 33, 343orbi123d 1288 . . . . . . 7  |-  ( r  =  R  ->  (
( p  Btwn  <. Q , 
r >.  \/  Q  Btwn  <.
r ,  p >.  \/  r  Btwn  <. p ,  Q >. )  <->  ( p  Btwn  <. Q ,  R >.  \/  Q  Btwn  <. R ,  p >.  \/  R  Btwn  <.
p ,  Q >. ) ) )
3629, 35anbi12d 710 . . . . . 6  |-  ( r  =  R  ->  (
( ( p  e.  ( EE `  n
)  /\  Q  e.  ( EE `  n )  /\  r  e.  ( EE `  n ) )  /\  ( p 
Btwn  <. Q ,  r
>.  \/  Q  Btwn  <. r ,  p >.  \/  r  Btwn  <. p ,  Q >. ) )  <->  ( (
p  e.  ( EE
`  n )  /\  Q  e.  ( EE `  n )  /\  R  e.  ( EE `  n
) )  /\  (
p  Btwn  <. Q ,  R >.  \/  Q  Btwn  <. R ,  p >.  \/  R  Btwn  <. p ,  Q >. ) ) ) )
3736rexbidv 2736 . . . . 5  |-  ( r  =  R  ->  ( E. n  e.  NN  ( ( p  e.  ( EE `  n
)  /\  Q  e.  ( EE `  n )  /\  r  e.  ( EE `  n ) )  /\  ( p 
Btwn  <. Q ,  r
>.  \/  Q  Btwn  <. r ,  p >.  \/  r  Btwn  <. p ,  Q >. ) )  <->  E. n  e.  NN  ( ( p  e.  ( EE `  n )  /\  Q  e.  ( EE `  n
)  /\  R  e.  ( EE `  n ) )  /\  ( p 
Btwn  <. Q ,  R >.  \/  Q  Btwn  <. R ,  p >.  \/  R  Btwn  <.
p ,  Q >. ) ) ) )
38 eleq1 2503 . . . . . . . 8  |-  ( p  =  P  ->  (
p  e.  ( EE
`  n )  <->  P  e.  ( EE `  n ) ) )
39383anbi1d 1293 . . . . . . 7  |-  ( p  =  P  ->  (
( p  e.  ( EE `  n )  /\  Q  e.  ( EE `  n )  /\  R  e.  ( EE `  n ) )  <->  ( P  e.  ( EE `  n
)  /\  Q  e.  ( EE `  n )  /\  R  e.  ( EE `  n ) ) ) )
40 breq1 4295 . . . . . . . 8  |-  ( p  =  P  ->  (
p  Btwn  <. Q ,  R >. 
<->  P  Btwn  <. Q ,  R >. ) )
41 opeq2 4060 . . . . . . . . 9  |-  ( p  =  P  ->  <. R ,  p >.  =  <. R ,  P >. )
4241breq2d 4304 . . . . . . . 8  |-  ( p  =  P  ->  ( Q  Btwn  <. R ,  p >.  <-> 
Q  Btwn  <. R ,  P >. ) )
43 opeq1 4059 . . . . . . . . 9  |-  ( p  =  P  ->  <. p ,  Q >.  =  <. P ,  Q >. )
4443breq2d 4304 . . . . . . . 8  |-  ( p  =  P  ->  ( R  Btwn  <. p ,  Q >.  <-> 
R  Btwn  <. P ,  Q >. ) )
4540, 42, 443orbi123d 1288 . . . . . . 7  |-  ( p  =  P  ->  (
( p  Btwn  <. Q ,  R >.  \/  Q  Btwn  <. R ,  p >.  \/  R  Btwn  <. p ,  Q >. )  <->  ( P  Btwn  <. Q ,  R >.  \/  Q  Btwn  <. R ,  P >.  \/  R  Btwn  <. P ,  Q >. ) ) )
4639, 45anbi12d 710 . . . . . 6  |-  ( p  =  P  ->  (
( ( p  e.  ( EE `  n
)  /\  Q  e.  ( EE `  n )  /\  R  e.  ( EE `  n ) )  /\  ( p 
Btwn  <. Q ,  R >.  \/  Q  Btwn  <. R ,  p >.  \/  R  Btwn  <.
p ,  Q >. ) )  <->  ( ( P  e.  ( EE `  n )  /\  Q  e.  ( EE `  n
)  /\  R  e.  ( EE `  n ) )  /\  ( P 
Btwn  <. Q ,  R >.  \/  Q  Btwn  <. R ,  P >.  \/  R  Btwn  <. P ,  Q >. ) ) ) )
4746rexbidv 2736 . . . . 5  |-  ( p  =  P  ->  ( E. n  e.  NN  ( ( p  e.  ( EE `  n
)  /\  Q  e.  ( EE `  n )  /\  R  e.  ( EE `  n ) )  /\  ( p 
Btwn  <. Q ,  R >.  \/  Q  Btwn  <. R ,  p >.  \/  R  Btwn  <.
p ,  Q >. ) )  <->  E. n  e.  NN  ( ( P  e.  ( EE `  n
)  /\  Q  e.  ( EE `  n )  /\  R  e.  ( EE `  n ) )  /\  ( P 
Btwn  <. Q ,  R >.  \/  Q  Btwn  <. R ,  P >.  \/  R  Btwn  <. P ,  Q >. ) ) ) )
4827, 37, 47eloprabg 6178 . . . 4  |-  ( ( Q  e.  V  /\  R  e.  W  /\  P  e.  _V )  ->  ( <. <. Q ,  R >. ,  P >.  e.  { <. <. q ,  r
>. ,  p >.  |  E. n  e.  NN  ( ( p  e.  ( EE `  n
)  /\  q  e.  ( EE `  n )  /\  r  e.  ( EE `  n ) )  /\  ( p 
Btwn  <. q ,  r
>.  \/  q  Btwn  <. r ,  p >.  \/  r  Btwn  <. p ,  q
>. ) ) }  <->  E. n  e.  NN  ( ( P  e.  ( EE `  n )  /\  Q  e.  ( EE `  n
)  /\  R  e.  ( EE `  n ) )  /\  ( P 
Btwn  <. Q ,  R >.  \/  Q  Btwn  <. R ,  P >.  \/  R  Btwn  <. P ,  Q >. ) ) ) )
4917, 48bitrd 253 . . 3  |-  ( ( Q  e.  V  /\  R  e.  W  /\  P  e.  _V )  ->  ( P  Colinear  <. Q ,  R >. 
<->  E. n  e.  NN  ( ( P  e.  ( EE `  n
)  /\  Q  e.  ( EE `  n )  /\  R  e.  ( EE `  n ) )  /\  ( P 
Btwn  <. Q ,  R >.  \/  Q  Btwn  <. R ,  P >.  \/  R  Btwn  <. P ,  Q >. ) ) ) )
50493expia 1189 . 2  |-  ( ( Q  e.  V  /\  R  e.  W )  ->  ( P  e.  _V  ->  ( P  Colinear  <. Q ,  R >. 
<->  E. n  e.  NN  ( ( P  e.  ( EE `  n
)  /\  Q  e.  ( EE `  n )  /\  R  e.  ( EE `  n ) )  /\  ( P 
Btwn  <. Q ,  R >.  \/  Q  Btwn  <. R ,  P >.  \/  R  Btwn  <. P ,  Q >. ) ) ) ) )
513, 8, 50pm5.21ndd 354 1  |-  ( ( Q  e.  V  /\  R  e.  W )  ->  ( P  Colinear  <. Q ,  R >. 
<->  E. n  e.  NN  ( ( P  e.  ( EE `  n
)  /\  Q  e.  ( EE `  n )  /\  R  e.  ( EE `  n ) )  /\  ( P 
Btwn  <. Q ,  R >.  \/  Q  Btwn  <. R ,  P >.  \/  R  Btwn  <. P ,  Q >. ) ) ) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 184    /\ wa 369    \/ w3o 964    /\ w3a 965    = wceq 1369    e. wcel 1756   E.wrex 2716   _Vcvv 2972   <.cop 3883   class class class wbr 4292   `'ccnv 4839   ` cfv 5418   {coprab 6092   NNcn 10322   EEcee 23134    Btwn cbtwn 23135    Colinear ccolin 28068
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1591  ax-4 1602  ax-5 1670  ax-6 1708  ax-7 1728  ax-9 1760  ax-10 1775  ax-11 1780  ax-12 1792  ax-13 1943  ax-ext 2423  ax-sep 4413  ax-nul 4421  ax-pr 4531
This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 966  df-3an 967  df-tru 1372  df-ex 1587  df-nf 1590  df-sb 1701  df-eu 2257  df-mo 2258  df-clab 2430  df-cleq 2436  df-clel 2439  df-nfc 2568  df-ne 2608  df-ral 2720  df-rex 2721  df-rab 2724  df-v 2974  df-dif 3331  df-un 3333  df-in 3335  df-ss 3342  df-nul 3638  df-if 3792  df-sn 3878  df-pr 3880  df-op 3884  df-br 4293  df-opab 4351  df-xp 4846  df-rel 4847  df-cnv 4848  df-oprab 6095  df-colinear 28070
This theorem is referenced by:  brcolinear  28090
  Copyright terms: Public domain W3C validator