Metamath Proof Explorer


Theorem djhval

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

Ref Expression
Hypotheses djhval.h H = LHyp K
djhval.u U = DVecH K W
djhval.v V = Base U
djhval.o ˙ = ocH K W
djhval.j ˙ = joinH K W
Assertion djhval K HL W H X V Y V X ˙ Y = ˙ ˙ X ˙ Y

Proof

Step Hyp Ref Expression
1 djhval.h H = LHyp K
2 djhval.u U = DVecH K W
3 djhval.v V = Base U
4 djhval.o ˙ = ocH K W
5 djhval.j ˙ = joinH K W
6 1 2 3 4 5 djhfval K HL W H ˙ = x 𝒫 V , y 𝒫 V ˙ ˙ x ˙ y
7 6 adantr K HL W H X V Y V ˙ = x 𝒫 V , y 𝒫 V ˙ ˙ x ˙ y
8 7 oveqd K HL W H X V Y V X ˙ Y = X x 𝒫 V , y 𝒫 V ˙ ˙ x ˙ y Y
9 3 fvexi V V
10 9 elpw2 X 𝒫 V X V
11 10 biimpri X V X 𝒫 V
12 11 ad2antrl K HL W H X V Y V X 𝒫 V
13 9 elpw2 Y 𝒫 V Y V
14 13 biimpri Y V Y 𝒫 V
15 14 ad2antll K HL W H X V Y V Y 𝒫 V
16 fvexd K HL W H X V Y V ˙ ˙ X ˙ Y V
17 fveq2 x = X ˙ x = ˙ X
18 17 ineq1d x = X ˙ x ˙ y = ˙ X ˙ y
19 18 fveq2d x = X ˙ ˙ x ˙ y = ˙ ˙ X ˙ y
20 fveq2 y = Y ˙ y = ˙ Y
21 20 ineq2d y = Y ˙ X ˙ y = ˙ X ˙ Y
22 21 fveq2d y = Y ˙ ˙ X ˙ y = ˙ ˙ X ˙ Y
23 eqid x 𝒫 V , y 𝒫 V ˙ ˙ x ˙ y = x 𝒫 V , y 𝒫 V ˙ ˙ x ˙ y
24 19 22 23 ovmpog X 𝒫 V Y 𝒫 V ˙ ˙ X ˙ Y V X x 𝒫 V , y 𝒫 V ˙ ˙ x ˙ y Y = ˙ ˙ X ˙ Y
25 12 15 16 24 syl3anc K HL W H X V Y V X x 𝒫 V , y 𝒫 V ˙ ˙ x ˙ y Y = ˙ ˙ X ˙ Y
26 8 25 eqtrd K HL W H X V Y V X ˙ Y = ˙ ˙ X ˙ Y