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

Theorem brifs 28079
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 4064 . . . . 5  |-  ( a  =  A  ->  <. a ,  c >.  =  <. A ,  c >. )
21breq2d 4309 . . . 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 4307 . . . 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 4064 . . . . 5  |-  ( a  =  A  ->  <. a ,  d >.  =  <. A ,  d >. )
76breq1d 4307 . . . 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 1289 . 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 4300 . . . 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 4064 . . . . 5  |-  ( b  =  B  ->  <. b ,  c >.  =  <. B ,  c >. )
1312breq1d 4307 . . . 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 1290 . 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 4065 . . . . 5  |-  ( c  =  C  ->  <. A , 
c >.  =  <. A ,  C >. )
1716breq2d 4309 . . . 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 4307 . . . 4  |-  ( c  =  C  ->  ( <. A ,  c >.Cgr <. e ,  g >.  <->  <. A ,  C >.Cgr <.
e ,  g >.
) )
20 opeq2 4065 . . . . 5  |-  ( c  =  C  ->  <. B , 
c >.  =  <. B ,  C >. )
2120breq1d 4307 . . . 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 4064 . . . . 5  |-  ( c  =  C  ->  <. c ,  d >.  =  <. C ,  d >. )
2423breq1d 4307 . . . 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 1289 . 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 4065 . . . . 5  |-  ( d  =  D  ->  <. A , 
d >.  =  <. A ,  D >. )
2827breq1d 4307 . . . 4  |-  ( d  =  D  ->  ( <. A ,  d >.Cgr <. e ,  h >.  <->  <. A ,  D >.Cgr <. e ,  h >. ) )
29 opeq2 4065 . . . . 5  |-  ( d  =  D  ->  <. C , 
d >.  =  <. C ,  D >. )
3029breq1d 4307 . . . 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 1295 . 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 4064 . . . . 5  |-  ( e  =  E  ->  <. e ,  g >.  =  <. E ,  g >. )
3433breq2d 4309 . . . 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 4309 . . . 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 4064 . . . . 5  |-  ( e  =  E  ->  <. e ,  h >.  =  <. E ,  h >. )
3938breq2d 4309 . . . 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 1289 . 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 4300 . . . 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 4064 . . . . 5  |-  ( f  =  F  ->  <. f ,  g >.  =  <. F ,  g >. )
4544breq2d 4309 . . . 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 1290 . 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 4065 . . . . 5  |-  ( g  =  G  ->  <. E , 
g >.  =  <. E ,  G >. )
4948breq2d 4309 . . . 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 4309 . . . 4  |-  ( g  =  G  ->  ( <. A ,  C >.Cgr <. E ,  g >.  <->  <. A ,  C >.Cgr <. E ,  G >. ) )
52 opeq2 4065 . . . . 5  |-  ( g  =  G  ->  <. F , 
g >.  =  <. F ,  G >. )
5352breq2d 4309 . . . 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 4064 . . . . 5  |-  ( g  =  G  ->  <. g ,  h >.  =  <. G ,  h >. )
5655breq2d 4309 . . . 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 1289 . 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 4065 . . . . 5  |-  ( h  =  H  ->  <. E ,  h >.  =  <. E ,  H >. )
6059breq2d 4309 . . . 4  |-  ( h  =  H  ->  ( <. A ,  D >.Cgr <. E ,  h >.  <->  <. A ,  D >.Cgr <. E ,  H >. ) )
61 opeq2 4065 . . . . 5  |-  ( h  =  H  ->  <. G ,  h >.  =  <. G ,  H >. )
6261breq2d 4309 . . . 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 1295 . 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 5696 . 2  |-  ( n  =  N  ->  ( EE `  n )  =  ( EE `  N
) )
66 df-ifs 28076 . 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 27571 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 965    = wceq 1369    e. wcel 1756   <.cop 3888   class class class wbr 4297   ` cfv 5423   NNcn 10327   EEcee 23139    Btwn cbtwn 23140  Cgrccgr 23141    InnerFiveSeg cifs 28071
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 4418  ax-nul 4426  ax-pr 4536
This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  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 2573  df-ne 2613  df-ral 2725  df-rex 2726  df-rab 2729  df-v 2979  df-dif 3336  df-un 3338  df-in 3340  df-ss 3347  df-nul 3643  df-if 3797  df-sn 3883  df-pr 3885  df-op 3889  df-uni 4097  df-br 4298  df-opab 4356  df-iota 5386  df-fv 5431  df-ifs 28076
This theorem is referenced by:  ifscgr  28080  cgrsub  28081  btwnxfr  28092  brifs2  28114  btwnconn1lem6  28128
  Copyright terms: Public domain W3C validator