Metamath Proof Explorer


Theorem djhfval

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 djhfval K X W H ˙ = x 𝒫 V , y 𝒫 V ˙ ˙ 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 djhffval K X joinH K = w H x 𝒫 Base DVecH K w , y 𝒫 Base DVecH K w ocH K w ocH K w x ocH K w y
7 6 fveq1d K X joinH K W = w H x 𝒫 Base DVecH K w , y 𝒫 Base DVecH K w ocH K w ocH K w x ocH K w y W
8 5 7 syl5eq K X ˙ = w H x 𝒫 Base DVecH K w , y 𝒫 Base DVecH K w ocH K w ocH K w x ocH K w y W
9 2fveq3 w = W Base DVecH K w = Base DVecH K W
10 2 fveq2i Base U = Base DVecH K W
11 3 10 eqtri V = Base DVecH K W
12 9 11 eqtr4di w = W Base DVecH K w = V
13 12 pweqd w = W 𝒫 Base DVecH K w = 𝒫 V
14 fveq2 w = W ocH K w = ocH K W
15 14 4 eqtr4di w = W ocH K w = ˙
16 15 fveq1d w = W ocH K w x = ˙ x
17 15 fveq1d w = W ocH K w y = ˙ y
18 16 17 ineq12d w = W ocH K w x ocH K w y = ˙ x ˙ y
19 15 18 fveq12d w = W ocH K w ocH K w x ocH K w y = ˙ ˙ x ˙ y
20 13 13 19 mpoeq123dv w = W x 𝒫 Base DVecH K w , y 𝒫 Base DVecH K w ocH K w ocH K w x ocH K w y = x 𝒫 V , y 𝒫 V ˙ ˙ x ˙ y
21 eqid w H x 𝒫 Base DVecH K w , y 𝒫 Base DVecH K w ocH K w ocH K w x ocH K w y = w H x 𝒫 Base DVecH K w , y 𝒫 Base DVecH K w ocH K w ocH K w x ocH K w y
22 3 fvexi V V
23 22 pwex 𝒫 V V
24 23 23 mpoex x 𝒫 V , y 𝒫 V ˙ ˙ x ˙ y V
25 20 21 24 fvmpt W H w H x 𝒫 Base DVecH K w , y 𝒫 Base DVecH K w ocH K w ocH K w x ocH K w y W = x 𝒫 V , y 𝒫 V ˙ ˙ x ˙ y
26 8 25 sylan9eq K X W H ˙ = x 𝒫 V , y 𝒫 V ˙ ˙ x ˙ y