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

Theorem brifs 29611
Description: Binary relationship form of the inner five segment predicate. (Contributed by Scott Fenton, 26-Sep-2013.)
Assertion
Ref Expression
brifs  |-  ( ( ( N  e.  NN  /\  A  e.  ( EE
`  N )  /\  B  e.  ( EE `  N ) )  /\  ( C  e.  ( EE `  N )  /\  D  e.  ( EE `  N )  /\  E  e.  ( EE `  N
) )  /\  ( F  e.  ( EE `  N )  /\  G  e.  ( EE `  N
)  /\  H  e.  ( EE `  N ) ) )  ->  ( <. <. A ,  B >. ,  <. C ,  D >. >. 
InnerFiveSeg  <. <. E ,  F >. ,  <. G ,  H >. >. 
<->  ( ( B  Btwn  <. A ,  C >.  /\  F  Btwn  <. E ,  G >. )  /\  ( <. A ,  C >.Cgr <. E ,  G >.  /\ 
<. B ,  C >.Cgr <. F ,  G >. )  /\  ( <. A ,  D >.Cgr <. E ,  H >.  /\  <. C ,  D >.Cgr
<. G ,  H >. ) ) ) )

Proof of Theorem brifs
Dummy variables  a 
b  c  d  e  f  g  h  p  q  n are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 opeq1 4219 . . . . 5  |-  ( a  =  A  ->  <. a ,  c >.  =  <. A ,  c >. )
21breq2d 4465 . . . 4  |-  ( a  =  A  ->  (
b  Btwn  <. a ,  c >.  <->  b  Btwn  <. A , 
c >. ) )
32anbi1d 704 . . 3  |-  ( a  =  A  ->  (
( b  Btwn  <. a ,  c >.  /\  f  Btwn  <. e ,  g
>. )  <->  ( b  Btwn  <. A ,  c >.  /\  f  Btwn  <. e ,  g >. ) ) )
41breq1d 4463 . . . 4  |-  ( a  =  A  ->  ( <. a ,  c >.Cgr <. e ,  g >.  <->  <. A ,  c >.Cgr <.
e ,  g >.
) )
54anbi1d 704 . . 3  |-  ( a  =  A  ->  (
( <. a ,  c
>.Cgr <. e ,  g
>.  /\  <. b ,  c
>.Cgr <. f ,  g
>. )  <->  ( <. A , 
c >.Cgr <. e ,  g
>.  /\  <. b ,  c
>.Cgr <. f ,  g
>. ) ) )
6 opeq1 4219 . . . . 5  |-  ( a  =  A  ->  <. a ,  d >.  =  <. A ,  d >. )
76breq1d 4463 . . . 4  |-  ( a  =  A  ->  ( <. a ,  d >.Cgr <. e ,  h >.  <->  <. A ,  d >.Cgr <. e ,  h >. ) )
87anbi1d 704 . . 3  |-  ( a  =  A  ->  (
( <. a ,  d
>.Cgr <. e ,  h >.  /\  <. c ,  d
>.Cgr <. g ,  h >. )  <->  ( <. A , 
d >.Cgr <. e ,  h >.  /\  <. c ,  d
>.Cgr <. g ,  h >. ) ) )
93, 5, 83anbi123d 1299 . 2  |-  ( a  =  A  ->  (
( ( b  Btwn  <.
a ,  c >.  /\  f  Btwn  <. e ,  g >. )  /\  ( <. a ,  c
>.Cgr <. e ,  g
>.  /\  <. b ,  c
>.Cgr <. f ,  g
>. )  /\  ( <. a ,  d >.Cgr <. e ,  h >.  /\ 
<. c ,  d >.Cgr <. g ,  h >. ) )  <->  ( ( b 
Btwn  <. A ,  c
>.  /\  f  Btwn  <. e ,  g >. )  /\  ( <. A ,  c
>.Cgr <. e ,  g
>.  /\  <. b ,  c
>.Cgr <. f ,  g
>. )  /\  ( <. A ,  d >.Cgr <. e ,  h >.  /\ 
<. c ,  d >.Cgr <. g ,  h >. ) ) ) )
10 breq1 4456 . . . 4  |-  ( b  =  B  ->  (
b  Btwn  <. A , 
c >. 
<->  B  Btwn  <. A , 
c >. ) )
1110anbi1d 704 . . 3  |-  ( b  =  B  ->  (
( b  Btwn  <. A , 
c >.  /\  f  Btwn  <.
e ,  g >.
)  <->  ( B  Btwn  <. A ,  c >.  /\  f  Btwn  <. e ,  g >. ) ) )
12 opeq1 4219 . . . . 5  |-  ( b  =  B  ->  <. b ,  c >.  =  <. B ,  c >. )
1312breq1d 4463 . . . 4  |-  ( b  =  B  ->  ( <. b ,  c >.Cgr <. f ,  g >.  <->  <. B ,  c >.Cgr <.
f ,  g >.
) )
1413anbi2d 703 . . 3  |-  ( b  =  B  ->  (
( <. A ,  c
>.Cgr <. e ,  g
>.  /\  <. b ,  c
>.Cgr <. f ,  g
>. )  <->  ( <. A , 
c >.Cgr <. e ,  g
>.  /\  <. B ,  c
>.Cgr <. f ,  g
>. ) ) )
1511, 143anbi12d 1300 . 2  |-  ( b  =  B  ->  (
( ( b  Btwn  <. A ,  c >.  /\  f  Btwn  <. e ,  g >. )  /\  ( <. A ,  c >.Cgr <. e ,  g >.  /\  <. b ,  c
>.Cgr <. f ,  g
>. )  /\  ( <. A ,  d >.Cgr <. e ,  h >.  /\ 
<. c ,  d >.Cgr <. g ,  h >. ) )  <->  ( ( B 
Btwn  <. A ,  c
>.  /\  f  Btwn  <. e ,  g >. )  /\  ( <. A ,  c
>.Cgr <. e ,  g
>.  /\  <. B ,  c
>.Cgr <. f ,  g
>. )  /\  ( <. A ,  d >.Cgr <. e ,  h >.  /\ 
<. c ,  d >.Cgr <. g ,  h >. ) ) ) )
16 opeq2 4220 . . . . 5  |-  ( c  =  C  ->  <. A , 
c >.  =  <. A ,  C >. )
1716breq2d 4465 . . . 4  |-  ( c  =  C  ->  ( B  Btwn  <. A ,  c
>. 
<->  B  Btwn  <. A ,  C >. ) )
1817anbi1d 704 . . 3  |-  ( c  =  C  ->  (
( B  Btwn  <. A , 
c >.  /\  f  Btwn  <.
e ,  g >.
)  <->  ( B  Btwn  <. A ,  C >.  /\  f  Btwn  <. e ,  g >. ) ) )
1916breq1d 4463 . . . 4  |-  ( c  =  C  ->  ( <. A ,  c >.Cgr <. e ,  g >.  <->  <. A ,  C >.Cgr <.
e ,  g >.
) )
20 opeq2 4220 . . . . 5  |-  ( c  =  C  ->  <. B , 
c >.  =  <. B ,  C >. )
2120breq1d 4463 . . . 4  |-  ( c  =  C  ->  ( <. B ,  c >.Cgr <. f ,  g >.  <->  <. B ,  C >.Cgr <.
f ,  g >.
) )
2219, 21anbi12d 710 . . 3  |-  ( c  =  C  ->  (
( <. A ,  c
>.Cgr <. e ,  g
>.  /\  <. B ,  c
>.Cgr <. f ,  g
>. )  <->  ( <. A ,  C >.Cgr <. e ,  g
>.  /\  <. B ,  C >.Cgr
<. f ,  g >.
) ) )
23 opeq1 4219 . . . . 5  |-  ( c  =  C  ->  <. c ,  d >.  =  <. C ,  d >. )
2423breq1d 4463 . . . 4  |-  ( c  =  C  ->  ( <. c ,  d >.Cgr <. g ,  h >.  <->  <. C ,  d >.Cgr <. g ,  h >. ) )
2524anbi2d 703 . . 3  |-  ( c  =  C  ->  (
( <. A ,  d
>.Cgr <. e ,  h >.  /\  <. c ,  d
>.Cgr <. g ,  h >. )  <->  ( <. A , 
d >.Cgr <. e ,  h >.  /\  <. C ,  d
>.Cgr <. g ,  h >. ) ) )
2618, 22, 253anbi123d 1299 . 2  |-  ( c  =  C  ->  (
( ( B  Btwn  <. A ,  c >.  /\  f  Btwn  <. e ,  g >. )  /\  ( <. A ,  c >.Cgr <. e ,  g >.  /\  <. B ,  c
>.Cgr <. f ,  g
>. )  /\  ( <. A ,  d >.Cgr <. e ,  h >.  /\ 
<. c ,  d >.Cgr <. g ,  h >. ) )  <->  ( ( B 
Btwn  <. A ,  C >.  /\  f  Btwn  <. e ,  g >. )  /\  ( <. A ,  C >.Cgr
<. e ,  g >.  /\  <. B ,  C >.Cgr
<. f ,  g >.
)  /\  ( <. A ,  d >.Cgr <. e ,  h >.  /\  <. C , 
d >.Cgr <. g ,  h >. ) ) ) )
27 opeq2 4220 . . . . 5  |-  ( d  =  D  ->  <. A , 
d >.  =  <. A ,  D >. )
2827breq1d 4463 . . . 4  |-  ( d  =  D  ->  ( <. A ,  d >.Cgr <. e ,  h >.  <->  <. A ,  D >.Cgr <. e ,  h >. ) )
29 opeq2 4220 . . . . 5  |-  ( d  =  D  ->  <. C , 
d >.  =  <. C ,  D >. )
3029breq1d 4463 . . . 4  |-  ( d  =  D  ->  ( <. C ,  d >.Cgr <. g ,  h >.  <->  <. C ,  D >.Cgr <. g ,  h >. ) )
3128, 30anbi12d 710 . . 3  |-  ( d  =  D  ->  (
( <. A ,  d
>.Cgr <. e ,  h >.  /\  <. C ,  d
>.Cgr <. g ,  h >. )  <->  ( <. A ,  D >.Cgr <. e ,  h >.  /\  <. C ,  D >.Cgr
<. g ,  h >. ) ) )
32313anbi3d 1305 . 2  |-  ( d  =  D  ->  (
( ( B  Btwn  <. A ,  C >.  /\  f  Btwn  <. e ,  g >. )  /\  ( <. A ,  C >.Cgr <.
e ,  g >.  /\  <. B ,  C >.Cgr
<. f ,  g >.
)  /\  ( <. A ,  d >.Cgr <. e ,  h >.  /\  <. C , 
d >.Cgr <. g ,  h >. ) )  <->  ( ( B  Btwn  <. A ,  C >.  /\  f  Btwn  <. e ,  g >. )  /\  ( <. A ,  C >.Cgr
<. e ,  g >.  /\  <. B ,  C >.Cgr
<. f ,  g >.
)  /\  ( <. A ,  D >.Cgr <. e ,  h >.  /\  <. C ,  D >.Cgr <. g ,  h >. ) ) ) )
33 opeq1 4219 . . . . 5  |-  ( e  =  E  ->  <. e ,  g >.  =  <. E ,  g >. )
3433breq2d 4465 . . . 4  |-  ( e  =  E  ->  (
f  Btwn  <. e ,  g >.  <->  f  Btwn  <. E , 
g >. ) )
3534anbi2d 703 . . 3  |-  ( e  =  E  ->  (
( B  Btwn  <. A ,  C >.  /\  f  Btwn  <.
e ,  g >.
)  <->  ( B  Btwn  <. A ,  C >.  /\  f  Btwn  <. E , 
g >. ) ) )
3633breq2d 4465 . . . 4  |-  ( e  =  E  ->  ( <. A ,  C >.Cgr <.
e ,  g >.  <->  <. A ,  C >.Cgr <. E ,  g >. ) )
3736anbi1d 704 . . 3  |-  ( e  =  E  ->  (
( <. A ,  C >.Cgr
<. e ,  g >.  /\  <. B ,  C >.Cgr
<. f ,  g >.
)  <->  ( <. A ,  C >.Cgr <. E ,  g
>.  /\  <. B ,  C >.Cgr
<. f ,  g >.
) ) )
38 opeq1 4219 . . . . 5  |-  ( e  =  E  ->  <. e ,  h >.  =  <. E ,  h >. )
3938breq2d 4465 . . . 4  |-  ( e  =  E  ->  ( <. A ,  D >.Cgr <.
e ,  h >.  <->  <. A ,  D >.Cgr <. E ,  h >. ) )
4039anbi1d 704 . . 3  |-  ( e  =  E  ->  (
( <. A ,  D >.Cgr
<. e ,  h >.  /\ 
<. C ,  D >.Cgr <.
g ,  h >. )  <-> 
( <. A ,  D >.Cgr
<. E ,  h >.  /\ 
<. C ,  D >.Cgr <.
g ,  h >. ) ) )
4135, 37, 403anbi123d 1299 . 2  |-  ( e  =  E  ->  (
( ( B  Btwn  <. A ,  C >.  /\  f  Btwn  <. e ,  g >. )  /\  ( <. A ,  C >.Cgr <.
e ,  g >.  /\  <. B ,  C >.Cgr
<. f ,  g >.
)  /\  ( <. A ,  D >.Cgr <. e ,  h >.  /\  <. C ,  D >.Cgr <. g ,  h >. ) )  <->  ( ( B  Btwn  <. A ,  C >.  /\  f  Btwn  <. E , 
g >. )  /\  ( <. A ,  C >.Cgr <. E ,  g >.  /\ 
<. B ,  C >.Cgr <.
f ,  g >.
)  /\  ( <. A ,  D >.Cgr <. E ,  h >.  /\  <. C ,  D >.Cgr <. g ,  h >. ) ) ) )
42 breq1 4456 . . . 4  |-  ( f  =  F  ->  (
f  Btwn  <. E , 
g >. 
<->  F  Btwn  <. E , 
g >. ) )
4342anbi2d 703 . . 3  |-  ( f  =  F  ->  (
( B  Btwn  <. A ,  C >.  /\  f  Btwn  <. E ,  g >. )  <-> 
( B  Btwn  <. A ,  C >.  /\  F  Btwn  <. E ,  g >. ) ) )
44 opeq1 4219 . . . . 5  |-  ( f  =  F  ->  <. f ,  g >.  =  <. F ,  g >. )
4544breq2d 4465 . . . 4  |-  ( f  =  F  ->  ( <. B ,  C >.Cgr <.
f ,  g >.  <->  <. B ,  C >.Cgr <. F ,  g >. ) )
4645anbi2d 703 . . 3  |-  ( f  =  F  ->  (
( <. A ,  C >.Cgr
<. E ,  g >.  /\  <. B ,  C >.Cgr
<. f ,  g >.
)  <->  ( <. A ,  C >.Cgr <. E ,  g
>.  /\  <. B ,  C >.Cgr
<. F ,  g >.
) ) )
4743, 463anbi12d 1300 . 2  |-  ( f  =  F  ->  (
( ( B  Btwn  <. A ,  C >.  /\  f  Btwn  <. E , 
g >. )  /\  ( <. A ,  C >.Cgr <. E ,  g >.  /\ 
<. B ,  C >.Cgr <.
f ,  g >.
)  /\  ( <. A ,  D >.Cgr <. E ,  h >.  /\  <. C ,  D >.Cgr <. g ,  h >. ) )  <->  ( ( B  Btwn  <. A ,  C >.  /\  F  Btwn  <. E , 
g >. )  /\  ( <. A ,  C >.Cgr <. E ,  g >.  /\ 
<. B ,  C >.Cgr <. F ,  g >. )  /\  ( <. A ,  D >.Cgr <. E ,  h >.  /\  <. C ,  D >.Cgr
<. g ,  h >. ) ) ) )
48 opeq2 4220 . . . . 5  |-  ( g  =  G  ->  <. E , 
g >.  =  <. E ,  G >. )
4948breq2d 4465 . . . 4  |-  ( g  =  G  ->  ( F  Btwn  <. E ,  g
>. 
<->  F  Btwn  <. E ,  G >. ) )
5049anbi2d 703 . . 3  |-  ( g  =  G  ->  (
( B  Btwn  <. A ,  C >.  /\  F  Btwn  <. E ,  g >. )  <-> 
( B  Btwn  <. A ,  C >.  /\  F  Btwn  <. E ,  G >. ) ) )
5148breq2d 4465 . . . 4  |-  ( g  =  G  ->  ( <. A ,  C >.Cgr <. E ,  g >.  <->  <. A ,  C >.Cgr <. E ,  G >. ) )
52 opeq2 4220 . . . . 5  |-  ( g  =  G  ->  <. F , 
g >.  =  <. F ,  G >. )
5352breq2d 4465 . . . 4  |-  ( g  =  G  ->  ( <. B ,  C >.Cgr <. F ,  g >.  <->  <. B ,  C >.Cgr <. F ,  G >. ) )
5451, 53anbi12d 710 . . 3  |-  ( g  =  G  ->  (
( <. A ,  C >.Cgr
<. E ,  g >.  /\  <. B ,  C >.Cgr
<. F ,  g >.
)  <->  ( <. A ,  C >.Cgr <. E ,  G >.  /\  <. B ,  C >.Cgr
<. F ,  G >. ) ) )
55 opeq1 4219 . . . . 5  |-  ( g  =  G  ->  <. g ,  h >.  =  <. G ,  h >. )
5655breq2d 4465 . . . 4  |-  ( g  =  G  ->  ( <. C ,  D >.Cgr <.
g ,  h >.  <->  <. C ,  D >.Cgr <. G ,  h >. ) )
5756anbi2d 703 . . 3  |-  ( g  =  G  ->  (
( <. A ,  D >.Cgr
<. E ,  h >.  /\ 
<. C ,  D >.Cgr <.
g ,  h >. )  <-> 
( <. A ,  D >.Cgr
<. E ,  h >.  /\ 
<. C ,  D >.Cgr <. G ,  h >. ) ) )
5850, 54, 573anbi123d 1299 . 2  |-  ( g  =  G  ->  (
( ( B  Btwn  <. A ,  C >.  /\  F  Btwn  <. E , 
g >. )  /\  ( <. A ,  C >.Cgr <. E ,  g >.  /\ 
<. B ,  C >.Cgr <. F ,  g >. )  /\  ( <. A ,  D >.Cgr <. E ,  h >.  /\  <. C ,  D >.Cgr
<. g ,  h >. ) )  <->  ( ( B 
Btwn  <. A ,  C >.  /\  F  Btwn  <. E ,  G >. )  /\  ( <. A ,  C >.Cgr <. E ,  G >.  /\ 
<. B ,  C >.Cgr <. F ,  G >. )  /\  ( <. A ,  D >.Cgr <. E ,  h >.  /\  <. C ,  D >.Cgr
<. G ,  h >. ) ) ) )
59 opeq2 4220 . . . . 5  |-  ( h  =  H  ->  <. E ,  h >.  =  <. E ,  H >. )
6059breq2d 4465 . . . 4  |-  ( h  =  H  ->  ( <. A ,  D >.Cgr <. E ,  h >.  <->  <. A ,  D >.Cgr <. E ,  H >. ) )
61 opeq2 4220 . . . . 5  |-  ( h  =  H  ->  <. G ,  h >.  =  <. G ,  H >. )
6261breq2d 4465 . . . 4  |-  ( h  =  H  ->  ( <. C ,  D >.Cgr <. G ,  h >.  <->  <. C ,  D >.Cgr <. G ,  H >. ) )
6360, 62anbi12d 710 . . 3  |-  ( h  =  H  ->  (
( <. A ,  D >.Cgr
<. E ,  h >.  /\ 
<. C ,  D >.Cgr <. G ,  h >. )  <-> 
( <. A ,  D >.Cgr
<. E ,  H >.  /\ 
<. C ,  D >.Cgr <. G ,  H >. ) ) )
64633anbi3d 1305 . 2  |-  ( h  =  H  ->  (
( ( B  Btwn  <. A ,  C >.  /\  F  Btwn  <. E ,  G >. )  /\  ( <. A ,  C >.Cgr <. E ,  G >.  /\ 
<. B ,  C >.Cgr <. F ,  G >. )  /\  ( <. A ,  D >.Cgr <. E ,  h >.  /\  <. C ,  D >.Cgr
<. G ,  h >. ) )  <->  ( ( B 
Btwn  <. A ,  C >.  /\  F  Btwn  <. E ,  G >. )  /\  ( <. A ,  C >.Cgr <. E ,  G >.  /\ 
<. B ,  C >.Cgr <. F ,  G >. )  /\  ( <. A ,  D >.Cgr <. E ,  H >.  /\  <. C ,  D >.Cgr
<. G ,  H >. ) ) ) )
65 fveq2 5872 . 2  |-  ( n  =  N  ->  ( EE `  n )  =  ( EE `  N
) )
66 df-ifs 29608 . 2  |-  InnerFiveSeg  =  { <. p ,  q >.  |  E. n  e.  NN  E. a  e.  ( EE `  n
) E. b  e.  ( EE `  n
) E. c  e.  ( EE `  n
) E. d  e.  ( EE `  n
) E. e  e.  ( EE `  n
) E. f  e.  ( EE `  n
) E. g  e.  ( EE `  n
) E. h  e.  ( EE `  n
) ( p  = 
<. <. a ,  b
>. ,  <. c ,  d >. >.  /\  q  =  <. <. e ,  f
>. ,  <. g ,  h >. >.  /\  ( (
b  Btwn  <. a ,  c >.  /\  f  Btwn  <. e ,  g
>. )  /\  ( <. a ,  c >.Cgr <. e ,  g >.  /\  <. b ,  c
>.Cgr <. f ,  g
>. )  /\  ( <. a ,  d >.Cgr <. e ,  h >.  /\ 
<. c ,  d >.Cgr <. g ,  h >. ) ) ) }
679, 15, 26, 32, 41, 47, 58, 64, 65, 66br8 29103 1  |-  ( ( ( N  e.  NN  /\  A  e.  ( EE
`  N )  /\  B  e.  ( EE `  N ) )  /\  ( C  e.  ( EE `  N )  /\  D  e.  ( EE `  N )  /\  E  e.  ( EE `  N
) )  /\  ( F  e.  ( EE `  N )  /\  G  e.  ( EE `  N
)  /\  H  e.  ( EE `  N ) ) )  ->  ( <. <. A ,  B >. ,  <. C ,  D >. >. 
InnerFiveSeg  <. <. E ,  F >. ,  <. G ,  H >. >. 
<->  ( ( B  Btwn  <. A ,  C >.  /\  F  Btwn  <. E ,  G >. )  /\  ( <. A ,  C >.Cgr <. E ,  G >.  /\ 
<. B ,  C >.Cgr <. F ,  G >. )  /\  ( <. A ,  D >.Cgr <. E ,  H >.  /\  <. C ,  D >.Cgr
<. G ,  H >. ) ) ) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 184    /\ wa 369    /\ w3a 973    = wceq 1379    e. wcel 1767   <.cop 4039   class class class wbr 4453   ` cfv 5594   NNcn 10548   EEcee 24005    Btwn cbtwn 24006  Cgrccgr 24007    InnerFiveSeg cifs 29603
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-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-rab 2826  df-v 3120  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-br 4454  df-opab 4512  df-iota 5557  df-fv 5602  df-ifs 29608
This theorem is referenced by:  ifscgr  29612  cgrsub  29613  btwnxfr  29624  brifs2  29646  btwnconn1lem6  29660
  Copyright terms: Public domain W3C validator