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 = ( 𝑘 ∈ V ↦ ( 𝑤 ∈ ( LHyp ‘ 𝑘 ) ↦ ( 𝑥 ∈ 𝒫 ( Base ‘ ( ( DVecH ‘ 𝑘 ) ‘ 𝑤 ) ) , 𝑦 ∈ 𝒫 ( Base ‘ ( ( DVecH ‘ 𝑘 ) ‘ 𝑤 ) ) ↦ ( ( ( ocH ‘ 𝑘 ) ‘ 𝑤 ) ‘ ( ( ( ( ocH ‘ 𝑘 ) ‘ 𝑤 ) ‘ 𝑥 ) ∩ ( ( ( ocH ‘ 𝑘 ) ‘ 𝑤 ) ‘ 𝑦 ) ) ) ) ) )

Detailed syntax breakdown

Step Hyp Ref Expression
0 cdjh ⊢ joinH
1 vk ⊢ 𝑘
2 cvv ⊢ V
3 vw ⊢ 𝑤
4 clh ⊢ LHyp
5 1 cv ⊢ 𝑘
6 5 4 cfv ⊢ ( LHyp ‘ 𝑘 )
7 vx ⊢ 𝑥
8 cbs ⊢ Base
9 cdvh ⊢ DVecH
10 5 9 cfv ⊢ ( DVecH ‘ 𝑘 )
11 3 cv ⊢ 𝑤
12 11 10 cfv ⊢ ( ( DVecH ‘ 𝑘 ) ‘ 𝑤 )
13 12 8 cfv ⊢ ( Base ‘ ( ( DVecH ‘ 𝑘 ) ‘ 𝑤 ) )
14 13 cpw ⊢ 𝒫 ( Base ‘ ( ( DVecH ‘ 𝑘 ) ‘ 𝑤 ) )
15 vy ⊢ 𝑦
16 coch ⊢ ocH
17 5 16 cfv ⊢ ( ocH ‘ 𝑘 )
18 11 17 cfv ⊢ ( ( ocH ‘ 𝑘 ) ‘ 𝑤 )
19 7 cv ⊢ 𝑥
20 19 18 cfv ⊢ ( ( ( ocH ‘ 𝑘 ) ‘ 𝑤 ) ‘ 𝑥 )
21 15 cv ⊢ 𝑦
22 21 18 cfv ⊢ ( ( ( ocH ‘ 𝑘 ) ‘ 𝑤 ) ‘ 𝑦 )
23 20 22 cin ⊢ ( ( ( ( ocH ‘ 𝑘 ) ‘ 𝑤 ) ‘ 𝑥 ) ∩ ( ( ( ocH ‘ 𝑘 ) ‘ 𝑤 ) ‘ 𝑦 ) )
24 23 18 cfv ⊢ ( ( ( ocH ‘ 𝑘 ) ‘ 𝑤 ) ‘ ( ( ( ( ocH ‘ 𝑘 ) ‘ 𝑤 ) ‘ 𝑥 ) ∩ ( ( ( ocH ‘ 𝑘 ) ‘ 𝑤 ) ‘ 𝑦 ) ) )
25 7 15 14 14 24 cmpo ⊢ ( 𝑥 ∈ 𝒫 ( Base ‘ ( ( DVecH ‘ 𝑘 ) ‘ 𝑤 ) ) , 𝑦 ∈ 𝒫 ( Base ‘ ( ( DVecH ‘ 𝑘 ) ‘ 𝑤 ) ) ↦ ( ( ( ocH ‘ 𝑘 ) ‘ 𝑤 ) ‘ ( ( ( ( ocH ‘ 𝑘 ) ‘ 𝑤 ) ‘ 𝑥 ) ∩ ( ( ( ocH ‘ 𝑘 ) ‘ 𝑤 ) ‘ 𝑦 ) ) ) )
26 3 6 25 cmpt ⊢ ( 𝑤 ∈ ( LHyp ‘ 𝑘 ) ↦ ( 𝑥 ∈ 𝒫 ( Base ‘ ( ( DVecH ‘ 𝑘 ) ‘ 𝑤 ) ) , 𝑦 ∈ 𝒫 ( Base ‘ ( ( DVecH ‘ 𝑘 ) ‘ 𝑤 ) ) ↦ ( ( ( ocH ‘ 𝑘 ) ‘ 𝑤 ) ‘ ( ( ( ( ocH ‘ 𝑘 ) ‘ 𝑤 ) ‘ 𝑥 ) ∩ ( ( ( ocH ‘ 𝑘 ) ‘ 𝑤 ) ‘ 𝑦 ) ) ) ) )
27 1 2 26 cmpt ⊢ ( 𝑘 ∈ V ↦ ( 𝑤 ∈ ( LHyp ‘ 𝑘 ) ↦ ( 𝑥 ∈ 𝒫 ( Base ‘ ( ( DVecH ‘ 𝑘 ) ‘ 𝑤 ) ) , 𝑦 ∈ 𝒫 ( Base ‘ ( ( DVecH ‘ 𝑘 ) ‘ 𝑤 ) ) ↦ ( ( ( ocH ‘ 𝑘 ) ‘ 𝑤 ) ‘ ( ( ( ( ocH ‘ 𝑘 ) ‘ 𝑤 ) ‘ 𝑥 ) ∩ ( ( ( ocH ‘ 𝑘 ) ‘ 𝑤 ) ‘ 𝑦 ) ) ) ) ) )
28 0 27 wceq ⊢ joinH = ( 𝑘 ∈ V ↦ ( 𝑤 ∈ ( LHyp ‘ 𝑘 ) ↦ ( 𝑥 ∈ 𝒫 ( Base ‘ ( ( DVecH ‘ 𝑘 ) ‘ 𝑤 ) ) , 𝑦 ∈ 𝒫 ( Base ‘ ( ( DVecH ‘ 𝑘 ) ‘ 𝑤 ) ) ↦ ( ( ( ocH ‘ 𝑘 ) ‘ 𝑤 ) ‘ ( ( ( ( ocH ‘ 𝑘 ) ‘ 𝑤 ) ‘ 𝑥 ) ∩ ( ( ( ocH ‘ 𝑘 ) ‘ 𝑤 ) ‘ 𝑦 ) ) ) ) ) )