Step |
Hyp |
Ref |
Expression |
1 |
|
djaval.h |
|- H = ( LHyp ` K ) |
2 |
|
djaval.t |
|- T = ( ( LTrn ` K ) ` W ) |
3 |
|
djaval.i |
|- I = ( ( DIsoA ` K ) ` W ) |
4 |
|
djaval.n |
|- ._|_ = ( ( ocA ` K ) ` W ) |
5 |
|
djaval.j |
|- J = ( ( vA ` K ) ` W ) |
6 |
1 2 3 4 5
|
djafvalN |
|- ( ( K e. HL /\ W e. H ) -> J = ( x e. ~P T , y e. ~P T |-> ( ._|_ ` ( ( ._|_ ` x ) i^i ( ._|_ ` y ) ) ) ) ) |
7 |
6
|
adantr |
|- ( ( ( K e. HL /\ W e. H ) /\ ( X C_ T /\ Y C_ T ) ) -> J = ( x e. ~P T , y e. ~P T |-> ( ._|_ ` ( ( ._|_ ` x ) i^i ( ._|_ ` y ) ) ) ) ) |
8 |
7
|
oveqd |
|- ( ( ( K e. HL /\ W e. H ) /\ ( X C_ T /\ Y C_ T ) ) -> ( X J Y ) = ( X ( x e. ~P T , y e. ~P T |-> ( ._|_ ` ( ( ._|_ ` x ) i^i ( ._|_ ` y ) ) ) ) Y ) ) |
9 |
2
|
fvexi |
|- T e. _V |
10 |
9
|
elpw2 |
|- ( X e. ~P T <-> X C_ T ) |
11 |
10
|
biimpri |
|- ( X C_ T -> X e. ~P T ) |
12 |
11
|
ad2antrl |
|- ( ( ( K e. HL /\ W e. H ) /\ ( X C_ T /\ Y C_ T ) ) -> X e. ~P T ) |
13 |
9
|
elpw2 |
|- ( Y e. ~P T <-> Y C_ T ) |
14 |
13
|
biimpri |
|- ( Y C_ T -> Y e. ~P T ) |
15 |
14
|
ad2antll |
|- ( ( ( K e. HL /\ W e. H ) /\ ( X C_ T /\ Y C_ T ) ) -> Y e. ~P T ) |
16 |
|
fvexd |
|- ( ( ( K e. HL /\ W e. H ) /\ ( X C_ T /\ Y C_ T ) ) -> ( ._|_ ` ( ( ._|_ ` X ) i^i ( ._|_ ` Y ) ) ) e. _V ) |
17 |
|
fveq2 |
|- ( x = X -> ( ._|_ ` x ) = ( ._|_ ` X ) ) |
18 |
17
|
ineq1d |
|- ( x = X -> ( ( ._|_ ` x ) i^i ( ._|_ ` y ) ) = ( ( ._|_ ` X ) i^i ( ._|_ ` y ) ) ) |
19 |
18
|
fveq2d |
|- ( x = X -> ( ._|_ ` ( ( ._|_ ` x ) i^i ( ._|_ ` y ) ) ) = ( ._|_ ` ( ( ._|_ ` X ) i^i ( ._|_ ` y ) ) ) ) |
20 |
|
fveq2 |
|- ( y = Y -> ( ._|_ ` y ) = ( ._|_ ` Y ) ) |
21 |
20
|
ineq2d |
|- ( y = Y -> ( ( ._|_ ` X ) i^i ( ._|_ ` y ) ) = ( ( ._|_ ` X ) i^i ( ._|_ ` Y ) ) ) |
22 |
21
|
fveq2d |
|- ( y = Y -> ( ._|_ ` ( ( ._|_ ` X ) i^i ( ._|_ ` y ) ) ) = ( ._|_ ` ( ( ._|_ ` X ) i^i ( ._|_ ` Y ) ) ) ) |
23 |
|
eqid |
|- ( x e. ~P T , y e. ~P T |-> ( ._|_ ` ( ( ._|_ ` x ) i^i ( ._|_ ` y ) ) ) ) = ( x e. ~P T , y e. ~P T |-> ( ._|_ ` ( ( ._|_ ` x ) i^i ( ._|_ ` y ) ) ) ) |
24 |
19 22 23
|
ovmpog |
|- ( ( X e. ~P T /\ Y e. ~P T /\ ( ._|_ ` ( ( ._|_ ` X ) i^i ( ._|_ ` Y ) ) ) e. _V ) -> ( X ( x e. ~P T , y e. ~P T |-> ( ._|_ ` ( ( ._|_ ` x ) i^i ( ._|_ ` y ) ) ) ) Y ) = ( ._|_ ` ( ( ._|_ ` X ) i^i ( ._|_ ` Y ) ) ) ) |
25 |
12 15 16 24
|
syl3anc |
|- ( ( ( K e. HL /\ W e. H ) /\ ( X C_ T /\ Y C_ T ) ) -> ( X ( x e. ~P T , y e. ~P T |-> ( ._|_ ` ( ( ._|_ ` x ) i^i ( ._|_ ` y ) ) ) ) Y ) = ( ._|_ ` ( ( ._|_ ` X ) i^i ( ._|_ ` Y ) ) ) ) |
26 |
8 25
|
eqtrd |
|- ( ( ( K e. HL /\ W e. H ) /\ ( X C_ T /\ Y C_ T ) ) -> ( X J Y ) = ( ._|_ ` ( ( ._|_ ` X ) i^i ( ._|_ ` Y ) ) ) ) |