This is an inofficial mirror of http://metamath.tirix.org for personal testing of a visualizer extension only.

Metamath Proof Explorer

Theorem djavalN

Description: Subspace join for DVecA partial vector space. (Contributed by NM, 6-Dec-2013) (New usage is discouraged.)

Ref Expression
Hypotheses djaval.h 
|- H = ( LHyp ` K )
djaval.t 
|- T = ( ( LTrn ` K ) ` W )
djaval.i 
|- I = ( ( DIsoA ` K ) ` W )
djaval.n 
|- ._|_ = ( ( ocA ` K ) ` W )
djaval.j 
|- J = ( ( vA ` K ) ` W )
Assertion djavalN 
|- ( ( ( K e. HL /\ W e. H ) /\ ( X C_ T /\ Y C_ T ) ) -> ( X J Y ) = ( ._|_ ` ( ( ._|_ ` X ) i^i ( ._|_ ` Y ) ) ) )

Proof

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 ) ) ) )