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

Metamath Proof Explorer

Definition df-djh

Description: Define (closed) subspace join for DVecH vector space. (Contributed by NM, 19-Jul-2014)

Ref Expression
Assertion df-djh 
|- joinH = ( k e. _V |-> ( w e. ( LHyp ` k ) |-> ( x e. ~P ( Base ` ( ( DVecH ` k ) ` w ) ) , y e. ~P ( Base ` ( ( DVecH ` k ) ` w ) ) |-> ( ( ( ocH ` k ) ` w ) ` ( ( ( ( ocH ` k ) ` w ) ` x ) i^i ( ( ( ocH ` k ) ` w ) ` y ) ) ) ) ) )

Detailed syntax breakdown

Step Hyp Ref Expression
0 cdjh 
 |-  joinH
1 vk 
 |-  k
2 cvv 
 |-  _V
3 vw 
 |-  w
4 clh 
 |-  LHyp
5 1 cv 
 |-  k
6 5 4 cfv 
 |-  ( LHyp ` k )
7 vx 
 |-  x
8 cbs 
 |-  Base
9 cdvh 
 |-  DVecH
10 5 9 cfv 
 |-  ( DVecH ` k )
11 3 cv 
 |-  w
12 11 10 cfv 
 |-  ( ( DVecH ` k ) ` w )
13 12 8 cfv 
 |-  ( Base ` ( ( DVecH ` k ) ` w ) )
14 13 cpw 
 |-  ~P ( Base ` ( ( DVecH ` k ) ` w ) )
15 vy 
 |-  y
16 coch 
 |-  ocH
17 5 16 cfv 
 |-  ( ocH ` k )
18 11 17 cfv 
 |-  ( ( ocH ` k ) ` w )
19 7 cv 
 |-  x
20 19 18 cfv 
 |-  ( ( ( ocH ` k ) ` w ) ` x )
21 15 cv 
 |-  y
22 21 18 cfv 
 |-  ( ( ( ocH ` k ) ` w ) ` y )
23 20 22 cin 
 |-  ( ( ( ( ocH ` k ) ` w ) ` x ) i^i ( ( ( ocH ` k ) ` w ) ` y ) )
24 23 18 cfv 
 |-  ( ( ( ocH ` k ) ` w ) ` ( ( ( ( ocH ` k ) ` w ) ` x ) i^i ( ( ( ocH ` k ) ` w ) ` y ) ) )
25 7 15 14 14 24 cmpo 
 |-  ( x e. ~P ( Base ` ( ( DVecH ` k ) ` w ) ) , y e. ~P ( Base ` ( ( DVecH ` k ) ` w ) ) |-> ( ( ( ocH ` k ) ` w ) ` ( ( ( ( ocH ` k ) ` w ) ` x ) i^i ( ( ( ocH ` k ) ` w ) ` y ) ) ) )
26 3 6 25 cmpt 
 |-  ( w e. ( LHyp ` k ) |-> ( x e. ~P ( Base ` ( ( DVecH ` k ) ` w ) ) , y e. ~P ( Base ` ( ( DVecH ` k ) ` w ) ) |-> ( ( ( ocH ` k ) ` w ) ` ( ( ( ( ocH ` k ) ` w ) ` x ) i^i ( ( ( ocH ` k ) ` w ) ` y ) ) ) ) )
27 1 2 26 cmpt 
 |-  ( k e. _V |-> ( w e. ( LHyp ` k ) |-> ( x e. ~P ( Base ` ( ( DVecH ` k ) ` w ) ) , y e. ~P ( Base ` ( ( DVecH ` k ) ` w ) ) |-> ( ( ( ocH ` k ) ` w ) ` ( ( ( ( ocH ` k ) ` w ) ` x ) i^i ( ( ( ocH ` k ) ` w ) ` y ) ) ) ) ) )
28 0 27 wceq 
 |-  joinH = ( k e. _V |-> ( w e. ( LHyp ` k ) |-> ( x e. ~P ( Base ` ( ( DVecH ` k ) ` w ) ) , y e. ~P ( Base ` ( ( DVecH ` k ) ` w ) ) |-> ( ( ( ocH ` k ) ` w ) ` ( ( ( ( ocH ` k ) ` w ) ` x ) i^i ( ( ( ocH ` k ) ` w ) ` y ) ) ) ) ) )