Theorem djhffval 41888

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

Hypothesis

Ref	Expression
djhval.h	⊢ 𝐻 = (LHyp‘𝐾)

Assertion

Ref	Expression
djhffval	⊢ (𝐾 ∈ 𝑋 → (joinH‘𝐾) = (𝑤 ∈ 𝐻 ↦ (𝑥 ∈ 𝒫 (Base‘((DVecH‘𝐾)‘𝑤)), 𝑦 ∈ 𝒫 (Base‘((DVecH‘𝐾)‘𝑤)) ↦ (((ocH‘𝐾)‘𝑤)‘((((ocH‘𝐾)‘𝑤)‘𝑥) ∩ (((ocH‘𝐾)‘𝑤)‘𝑦))))))

Distinct variable groups:   𝑤,𝐻   𝑥,𝑤,𝑦,𝐾

Allowed substitution hints:   𝐻(𝑥,𝑦)   𝑋(𝑥,𝑦,𝑤)

Proof of Theorem djhffval

Dummy variable 𝑘 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		elex 3452	. 2 ⊢ (𝐾 ∈ 𝑋 → 𝐾 ∈ V)
2		fveq2 6827	. . . . 5 ⊢ (𝑘 = 𝐾 → (LHyp‘𝑘) = (LHyp‘𝐾))
3		djhval.h	. . . . 5 ⊢ 𝐻 = (LHyp‘𝐾)
4	2, 3	eqtr4di 2792	. . . 4 ⊢ (𝑘 = 𝐾 → (LHyp‘𝑘) = 𝐻)
5		fveq2 6827	. . . . . . . 8 ⊢ (𝑘 = 𝐾 → (DVecH‘𝑘) = (DVecH‘𝐾))
6	5	fveq1d 6829	. . . . . . 7 ⊢ (𝑘 = 𝐾 → ((DVecH‘𝑘)‘𝑤) = ((DVecH‘𝐾)‘𝑤))
7	6	fveq2d 6831	. . . . . 6 ⊢ (𝑘 = 𝐾 → (Base‘((DVecH‘𝑘)‘𝑤)) = (Base‘((DVecH‘𝐾)‘𝑤)))
8	7	pweqd 4546	. . . . 5 ⊢ (𝑘 = 𝐾 → 𝒫 (Base‘((DVecH‘𝑘)‘𝑤)) = 𝒫 (Base‘((DVecH‘𝐾)‘𝑤)))
9		fveq2 6827	. . . . . . 7 ⊢ (𝑘 = 𝐾 → (ocH‘𝑘) = (ocH‘𝐾))
10	9	fveq1d 6829	. . . . . 6 ⊢ (𝑘 = 𝐾 → ((ocH‘𝑘)‘𝑤) = ((ocH‘𝐾)‘𝑤))
11	10	fveq1d 6829	. . . . . . 7 ⊢ (𝑘 = 𝐾 → (((ocH‘𝑘)‘𝑤)‘𝑥) = (((ocH‘𝐾)‘𝑤)‘𝑥))
12	10	fveq1d 6829	. . . . . . 7 ⊢ (𝑘 = 𝐾 → (((ocH‘𝑘)‘𝑤)‘𝑦) = (((ocH‘𝐾)‘𝑤)‘𝑦))
13	11, 12	ineq12d 4150	. . . . . 6 ⊢ (𝑘 = 𝐾 → ((((ocH‘𝑘)‘𝑤)‘𝑥) ∩ (((ocH‘𝑘)‘𝑤)‘𝑦)) = ((((ocH‘𝐾)‘𝑤)‘𝑥) ∩ (((ocH‘𝐾)‘𝑤)‘𝑦)))
14	10, 13	fveq12d 6834	. . . . 5 ⊢ (𝑘 = 𝐾 → (((ocH‘𝑘)‘𝑤)‘((((ocH‘𝑘)‘𝑤)‘𝑥) ∩ (((ocH‘𝑘)‘𝑤)‘𝑦))) = (((ocH‘𝐾)‘𝑤)‘((((ocH‘𝐾)‘𝑤)‘𝑥) ∩ (((ocH‘𝐾)‘𝑤)‘𝑦))))
15	8, 8, 14	mpoeq123dv 7431	. . . 4 ⊢ (𝑘 = 𝐾 → (𝑥 ∈ 𝒫 (Base‘((DVecH‘𝑘)‘𝑤)), 𝑦 ∈ 𝒫 (Base‘((DVecH‘𝑘)‘𝑤)) ↦ (((ocH‘𝑘)‘𝑤)‘((((ocH‘𝑘)‘𝑤)‘𝑥) ∩ (((ocH‘𝑘)‘𝑤)‘𝑦)))) = (𝑥 ∈ 𝒫 (Base‘((DVecH‘𝐾)‘𝑤)), 𝑦 ∈ 𝒫 (Base‘((DVecH‘𝐾)‘𝑤)) ↦ (((ocH‘𝐾)‘𝑤)‘((((ocH‘𝐾)‘𝑤)‘𝑥) ∩ (((ocH‘𝐾)‘𝑤)‘𝑦)))))
16	4, 15	mpteq12dv 5159	. . 3 ⊢ (𝑘 = 𝐾 → (𝑤 ∈ (LHyp‘𝑘) ↦ (𝑥 ∈ 𝒫 (Base‘((DVecH‘𝑘)‘𝑤)), 𝑦 ∈ 𝒫 (Base‘((DVecH‘𝑘)‘𝑤)) ↦ (((ocH‘𝑘)‘𝑤)‘((((ocH‘𝑘)‘𝑤)‘𝑥) ∩ (((ocH‘𝑘)‘𝑤)‘𝑦))))) = (𝑤 ∈ 𝐻 ↦ (𝑥 ∈ 𝒫 (Base‘((DVecH‘𝐾)‘𝑤)), 𝑦 ∈ 𝒫 (Base‘((DVecH‘𝐾)‘𝑤)) ↦ (((ocH‘𝐾)‘𝑤)‘((((ocH‘𝐾)‘𝑤)‘𝑥) ∩ (((ocH‘𝐾)‘𝑤)‘𝑦))))))
17		df-djh 41887	. . 3 ⊢ joinH = (𝑘 ∈ V ↦ (𝑤 ∈ (LHyp‘𝑘) ↦ (𝑥 ∈ 𝒫 (Base‘((DVecH‘𝑘)‘𝑤)), 𝑦 ∈ 𝒫 (Base‘((DVecH‘𝑘)‘𝑤)) ↦ (((ocH‘𝑘)‘𝑤)‘((((ocH‘𝑘)‘𝑤)‘𝑥) ∩ (((ocH‘𝑘)‘𝑤)‘𝑦))))))
18	16, 17, 3	mptfvmpt 7172	. 2 ⊢ (𝐾 ∈ V → (joinH‘𝐾) = (𝑤 ∈ 𝐻 ↦ (𝑥 ∈ 𝒫 (Base‘((DVecH‘𝐾)‘𝑤)), 𝑦 ∈ 𝒫 (Base‘((DVecH‘𝐾)‘𝑤)) ↦ (((ocH‘𝐾)‘𝑤)‘((((ocH‘𝐾)‘𝑤)‘𝑥) ∩ (((ocH‘𝐾)‘𝑤)‘𝑦))))))
19	1, 18	syl 17	1 ⊢ (𝐾 ∈ 𝑋 → (joinH‘𝐾) = (𝑤 ∈ 𝐻 ↦ (𝑥 ∈ 𝒫 (Base‘((DVecH‘𝐾)‘𝑤)), 𝑦 ∈ 𝒫 (Base‘((DVecH‘𝐾)‘𝑤)) ↦ (((ocH‘𝐾)‘𝑤)‘((((ocH‘𝐾)‘𝑤)‘𝑥) ∩ (((ocH‘𝐾)‘𝑤)‘𝑦))))))

Syntax hints:   → wi 4   = wceq 1547   ∈ wcel 2119  Vcvv 3431   ∩ cin 3882  𝒫 cpw 4529   ↦ cmpt 5153  ‘cfv 6485   ∈ cmpo 7358  Basecbs 17170  LHypclh 40476  DVecHcdvh 41570  ocHcoch 41839  joinHcdjh 41886

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2711  ax-rep 5199  ax-sep 5218  ax-nul 5228  ax-pr 5362

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2718  df-cleq 2731  df-clel 2814  df-nfc 2888  df-ne 2935  df-ral 3054  df-rex 3064  df-reu 3345  df-rab 3392  df-v 3433  df-sbc 3724  df-csb 3832  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-nul 4262  df-if 4455  df-pw 4531  df-sn 4556  df-pr 4558  df-op 4562  df-uni 4839  df-iun 4923  df-br 5073  df-opab 5135  df-mpt 5154  df-id 5513  df-xp 5624  df-rel 5625  df-cnv 5626  df-co 5627  df-dm 5628  df-rn 5629  df-res 5630  df-ima 5631  df-iota 6441  df-fun 6487  df-fn 6488  df-f 6489  df-f1 6490  df-fo 6491  df-f1o 6492  df-fv 6493  df-oprab 7360  df-mpo 7361  df-djh 41887

This theorem is referenced by:  djhfval  41889