Metamath Proof Explorer


Theorem djhfval

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

Ref Expression
Hypotheses djhval.h H=LHypK
djhval.u U=DVecHKW
djhval.v V=BaseU
djhval.o ˙=ocHKW
djhval.j ˙=joinHKW
Assertion djhfval KXWH˙=x𝒫V,y𝒫V˙˙x˙y

Proof

Step Hyp Ref Expression
1 djhval.h H=LHypK
2 djhval.u U=DVecHKW
3 djhval.v V=BaseU
4 djhval.o ˙=ocHKW
5 djhval.j ˙=joinHKW
6 1 djhffval KXjoinHK=wHx𝒫BaseDVecHKw,y𝒫BaseDVecHKwocHKwocHKwxocHKwy
7 6 fveq1d KXjoinHKW=wHx𝒫BaseDVecHKw,y𝒫BaseDVecHKwocHKwocHKwxocHKwyW
8 5 7 eqtrid KX˙=wHx𝒫BaseDVecHKw,y𝒫BaseDVecHKwocHKwocHKwxocHKwyW
9 2fveq3 w=WBaseDVecHKw=BaseDVecHKW
10 2 fveq2i BaseU=BaseDVecHKW
11 3 10 eqtri V=BaseDVecHKW
12 9 11 eqtr4di w=WBaseDVecHKw=V
13 12 pweqd w=W𝒫BaseDVecHKw=𝒫V
14 fveq2 w=WocHKw=ocHKW
15 14 4 eqtr4di w=WocHKw=˙
16 15 fveq1d w=WocHKwx=˙x
17 15 fveq1d w=WocHKwy=˙y
18 16 17 ineq12d w=WocHKwxocHKwy=˙x˙y
19 15 18 fveq12d w=WocHKwocHKwxocHKwy=˙˙x˙y
20 13 13 19 mpoeq123dv w=Wx𝒫BaseDVecHKw,y𝒫BaseDVecHKwocHKwocHKwxocHKwy=x𝒫V,y𝒫V˙˙x˙y
21 eqid wHx𝒫BaseDVecHKw,y𝒫BaseDVecHKwocHKwocHKwxocHKwy=wHx𝒫BaseDVecHKw,y𝒫BaseDVecHKwocHKwocHKwxocHKwy
22 3 fvexi VV
23 22 pwex 𝒫VV
24 23 23 mpoex x𝒫V,y𝒫V˙˙x˙yV
25 20 21 24 fvmpt WHwHx𝒫BaseDVecHKw,y𝒫BaseDVecHKwocHKwocHKwxocHKwyW=x𝒫V,y𝒫V˙˙x˙y
26 8 25 sylan9eq KXWH˙=x𝒫V,y𝒫V˙˙x˙y