Step |
Hyp |
Ref |
Expression |
1 |
|
oveq2 |
|- ( t = T -> ( u -op t ) = ( u -op T ) ) |
2 |
1
|
eleq1d |
|- ( t = T -> ( ( u -op t ) e. HrmOp <-> ( u -op T ) e. HrmOp ) ) |
3 |
1
|
fveq1d |
|- ( t = T -> ( ( u -op t ) ` x ) = ( ( u -op T ) ` x ) ) |
4 |
3
|
oveq1d |
|- ( t = T -> ( ( ( u -op t ) ` x ) .ih x ) = ( ( ( u -op T ) ` x ) .ih x ) ) |
5 |
4
|
breq2d |
|- ( t = T -> ( 0 <_ ( ( ( u -op t ) ` x ) .ih x ) <-> 0 <_ ( ( ( u -op T ) ` x ) .ih x ) ) ) |
6 |
5
|
ralbidv |
|- ( t = T -> ( A. x e. ~H 0 <_ ( ( ( u -op t ) ` x ) .ih x ) <-> A. x e. ~H 0 <_ ( ( ( u -op T ) ` x ) .ih x ) ) ) |
7 |
2 6
|
anbi12d |
|- ( t = T -> ( ( ( u -op t ) e. HrmOp /\ A. x e. ~H 0 <_ ( ( ( u -op t ) ` x ) .ih x ) ) <-> ( ( u -op T ) e. HrmOp /\ A. x e. ~H 0 <_ ( ( ( u -op T ) ` x ) .ih x ) ) ) ) |
8 |
|
oveq1 |
|- ( u = U -> ( u -op T ) = ( U -op T ) ) |
9 |
8
|
eleq1d |
|- ( u = U -> ( ( u -op T ) e. HrmOp <-> ( U -op T ) e. HrmOp ) ) |
10 |
8
|
fveq1d |
|- ( u = U -> ( ( u -op T ) ` x ) = ( ( U -op T ) ` x ) ) |
11 |
10
|
oveq1d |
|- ( u = U -> ( ( ( u -op T ) ` x ) .ih x ) = ( ( ( U -op T ) ` x ) .ih x ) ) |
12 |
11
|
breq2d |
|- ( u = U -> ( 0 <_ ( ( ( u -op T ) ` x ) .ih x ) <-> 0 <_ ( ( ( U -op T ) ` x ) .ih x ) ) ) |
13 |
12
|
ralbidv |
|- ( u = U -> ( A. x e. ~H 0 <_ ( ( ( u -op T ) ` x ) .ih x ) <-> A. x e. ~H 0 <_ ( ( ( U -op T ) ` x ) .ih x ) ) ) |
14 |
9 13
|
anbi12d |
|- ( u = U -> ( ( ( u -op T ) e. HrmOp /\ A. x e. ~H 0 <_ ( ( ( u -op T ) ` x ) .ih x ) ) <-> ( ( U -op T ) e. HrmOp /\ A. x e. ~H 0 <_ ( ( ( U -op T ) ` x ) .ih x ) ) ) ) |
15 |
|
df-leop |
|- <_op = { <. t , u >. | ( ( u -op t ) e. HrmOp /\ A. x e. ~H 0 <_ ( ( ( u -op t ) ` x ) .ih x ) ) } |
16 |
7 14 15
|
brabg |
|- ( ( T e. A /\ U e. B ) -> ( T <_op U <-> ( ( U -op T ) e. HrmOp /\ A. x e. ~H 0 <_ ( ( ( U -op T ) ` x ) .ih x ) ) ) ) |