Metamath Proof Explorer


Theorem pjfval

Description: The value of the projection function. (Contributed by Mario Carneiro, 16-Oct-2015)

Ref Expression
Hypotheses pjfval.v ⊢ V = Base W
pjfval.l ⊢ L = LSubSp ⁡ W
pjfval.o ⊢ ⊥ ˙ = ocv ⁡ W
pjfval.p ⊢ P = proj 1 ⁡ W
pjfval.k ⊢ K = proj ⁡ W
Assertion pjfval ⊢ K = x ∈ L ⟼ x P ⊥ ˙ ⁡ x ∩ V × V V

Proof

Step Hyp Ref Expression
1 pjfval.v ⊢ V = Base W
2 pjfval.l ⊢ L = LSubSp ⁡ W
3 pjfval.o ⊢ ⊥ ˙ = ocv ⁡ W
4 pjfval.p ⊢ P = proj 1 ⁡ W
5 pjfval.k ⊢ K = proj ⁡ W
6 fveq2 ⊢ w = W → LSubSp ⁡ w = LSubSp ⁡ W
7 6 2 eqtr4di ⊢ w = W → LSubSp ⁡ w = L
8 fveq2 ⊢ w = W → proj 1 ⁡ w = proj 1 ⁡ W
9 8 4 eqtr4di ⊢ w = W → proj 1 ⁡ w = P
10 eqidd ⊢ w = W → x = x
11 fveq2 ⊢ w = W → ocv ⁡ w = ocv ⁡ W
12 11 3 eqtr4di ⊢ w = W → ocv ⁡ w = ⊥ ˙
13 12 fveq1d ⊢ w = W → ocv ⁡ w ⁡ x = ⊥ ˙ ⁡ x
14 9 10 13 oveq123d ⊢ w = W → x proj 1 ⁡ w ocv ⁡ w ⁡ x = x P ⊥ ˙ ⁡ x
15 7 14 mpteq12dv ⊢ w = W → x ∈ LSubSp ⁡ w ⟼ x proj 1 ⁡ w ocv ⁡ w ⁡ x = x ∈ L ⟼ x P ⊥ ˙ ⁡ x
16 fveq2 ⊢ w = W → Base w = Base W
17 16 1 eqtr4di ⊢ w = W → Base w = V
18 17 17 oveq12d ⊢ w = W → Base w Base w = V V
19 18 xpeq2d ⊢ w = W → V × Base w Base w = V × V V
20 15 19 ineq12d ⊢ w = W → x ∈ LSubSp ⁡ w ⟼ x proj 1 ⁡ w ocv ⁡ w ⁡ x ∩ V × Base w Base w = x ∈ L ⟼ x P ⊥ ˙ ⁡ x ∩ V × V V
21 df-pj ⊢ proj = w ∈ V ⟼ x ∈ LSubSp ⁡ w ⟼ x proj 1 ⁡ w ocv ⁡ w ⁡ x ∩ V × Base w Base w
22 2 fvexi ⊢ L ∈ V
23 22 inex1 ⊢ L ∩ V ∈ V
24 ovex ⊢ V V ∈ V
25 24 inex2 ⊢ V ∩ V V ∈ V
26 23 25 xpex ⊢ L ∩ V × V ∩ V V ∈ V
27 eqid ⊢ x ∈ L ⟼ x P ⊥ ˙ ⁡ x = x ∈ L ⟼ x P ⊥ ˙ ⁡ x
28 ovexd ⊢ x ∈ L → x P ⊥ ˙ ⁡ x ∈ V
29 27 28 fmpti ⊢ x ∈ L ⟼ x P ⊥ ˙ ⁡ x : L ⟶ V
30 fssxp ⊢ x ∈ L ⟼ x P ⊥ ˙ ⁡ x : L ⟶ V → x ∈ L ⟼ x P ⊥ ˙ ⁡ x ⊆ L × V
31 ssrin ⊢ x ∈ L ⟼ x P ⊥ ˙ ⁡ x ⊆ L × V → x ∈ L ⟼ x P ⊥ ˙ ⁡ x ∩ V × V V ⊆ L × V ∩ V × V V
32 29 30 31 mp2b ⊢ x ∈ L ⟼ x P ⊥ ˙ ⁡ x ∩ V × V V ⊆ L × V ∩ V × V V
33 inxp ⊢ L × V ∩ V × V V = L ∩ V × V ∩ V V
34 32 33 sseqtri ⊢ x ∈ L ⟼ x P ⊥ ˙ ⁡ x ∩ V × V V ⊆ L ∩ V × V ∩ V V
35 26 34 ssexi ⊢ x ∈ L ⟼ x P ⊥ ˙ ⁡ x ∩ V × V V ∈ V
36 20 21 35 fvmpt ⊢ W ∈ V → proj ⁡ W = x ∈ L ⟼ x P ⊥ ˙ ⁡ x ∩ V × V V
37 fvprc ⊢ ¬ W ∈ V → proj ⁡ W = ∅
38 inss1 ⊢ x ∈ L ⟼ x P ⊥ ˙ ⁡ x ∩ V × V V ⊆ x ∈ L ⟼ x P ⊥ ˙ ⁡ x
39 fvprc ⊢ ¬ W ∈ V → LSubSp ⁡ W = ∅
40 2 39 eqtrid ⊢ ¬ W ∈ V → L = ∅
41 40 mpteq1d ⊢ ¬ W ∈ V → x ∈ L ⟼ x P ⊥ ˙ ⁡ x = x ∈ ∅ ⟼ x P ⊥ ˙ ⁡ x
42 mpt0 ⊢ x ∈ ∅ ⟼ x P ⊥ ˙ ⁡ x = ∅
43 41 42 eqtrdi ⊢ ¬ W ∈ V → x ∈ L ⟼ x P ⊥ ˙ ⁡ x = ∅
44 sseq0 ⊢ x ∈ L ⟼ x P ⊥ ˙ ⁡ x ∩ V × V V ⊆ x ∈ L ⟼ x P ⊥ ˙ ⁡ x ∧ x ∈ L ⟼ x P ⊥ ˙ ⁡ x = ∅ → x ∈ L ⟼ x P ⊥ ˙ ⁡ x ∩ V × V V = ∅
45 38 43 44 sylancr ⊢ ¬ W ∈ V → x ∈ L ⟼ x P ⊥ ˙ ⁡ x ∩ V × V V = ∅
46 37 45 eqtr4d ⊢ ¬ W ∈ V → proj ⁡ W = x ∈ L ⟼ x P ⊥ ˙ ⁡ x ∩ V × V V
47 36 46 pm2.61i ⊢ proj ⁡ W = x ∈ L ⟼ x P ⊥ ˙ ⁡ x ∩ V × V V
48 5 47 eqtri ⊢ K = x ∈ L ⟼ x P ⊥ ˙ ⁡ x ∩ V × V V