Metamath Proof Explorer


Theorem dicvscacl

Description: Membership in value of the partial isomorphism C is closed under scalar product. (Contributed by NM, 16-Feb-2014) (Revised by Mario Carneiro, 24-Jun-2014)

Ref Expression
Hypotheses dicvscacl.l ⊢ ≤ ˙ = ≤ K
dicvscacl.a ⊢ A = Atoms ⁡ K
dicvscacl.h ⊢ H = LHyp ⁡ K
dicvscacl.e ⊢ E = TEndo ⁡ K ⁡ W
dicvscacl.u ⊢ U = DVecH ⁡ K ⁡ W
dicvscacl.i ⊢ I = DIsoC ⁡ K ⁡ W
dicvscacl.s ⊢ · ˙ = ⋅ U
Assertion dicvscacl ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ X ∈ E ∧ Y ∈ I ⁡ Q → X · ˙ Y ∈ I ⁡ Q

Proof

Step Hyp Ref Expression
1 dicvscacl.l ⊢ ≤ ˙ = ≤ K
2 dicvscacl.a ⊢ A = Atoms ⁡ K
3 dicvscacl.h ⊢ H = LHyp ⁡ K
4 dicvscacl.e ⊢ E = TEndo ⁡ K ⁡ W
5 dicvscacl.u ⊢ U = DVecH ⁡ K ⁡ W
6 dicvscacl.i ⊢ I = DIsoC ⁡ K ⁡ W
7 dicvscacl.s ⊢ · ˙ = ⋅ U
8 simp1 ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ X ∈ E ∧ Y ∈ I ⁡ Q → K ∈ HL ∧ W ∈ H
9 simp3l ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ X ∈ E ∧ Y ∈ I ⁡ Q → X ∈ E
10 eqid ⊢ Base U = Base U
11 1 2 3 6 5 10 dicssdvh ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W → I ⁡ Q ⊆ Base U
12 eqid ⊢ LTrn ⁡ K ⁡ W = LTrn ⁡ K ⁡ W
13 3 12 4 5 10 dvhvbase ⊢ K ∈ HL ∧ W ∈ H → Base U = LTrn ⁡ K ⁡ W × E
14 13 eqcomd ⊢ K ∈ HL ∧ W ∈ H → LTrn ⁡ K ⁡ W × E = Base U
15 14 adantr ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W → LTrn ⁡ K ⁡ W × E = Base U
16 11 15 sseqtrrd ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W → I ⁡ Q ⊆ LTrn ⁡ K ⁡ W × E
17 16 3adant3 ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ X ∈ E ∧ Y ∈ I ⁡ Q → I ⁡ Q ⊆ LTrn ⁡ K ⁡ W × E
18 simp3r ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ X ∈ E ∧ Y ∈ I ⁡ Q → Y ∈ I ⁡ Q
19 17 18 sseldd ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ X ∈ E ∧ Y ∈ I ⁡ Q → Y ∈ LTrn ⁡ K ⁡ W × E
20 3 12 4 5 7 dvhvsca ⊢ K ∈ HL ∧ W ∈ H ∧ X ∈ E ∧ Y ∈ LTrn ⁡ K ⁡ W × E → X · ˙ Y = X ⁡ 1 st ⁡ Y X ∘ 2 nd ⁡ Y
21 8 9 19 20 syl12anc ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ X ∈ E ∧ Y ∈ I ⁡ Q → X · ˙ Y = X ⁡ 1 st ⁡ Y X ∘ 2 nd ⁡ Y
22 fvi ⊢ X ∈ E → I ⁡ X = X
23 9 22 syl ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ X ∈ E ∧ Y ∈ I ⁡ Q → I ⁡ X = X
24 23 coeq1d ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ X ∈ E ∧ Y ∈ I ⁡ Q → I ⁡ X ∘ 2 nd ⁡ Y = X ∘ 2 nd ⁡ Y
25 24 opeq2d ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ X ∈ E ∧ Y ∈ I ⁡ Q → X ⁡ 1 st ⁡ Y I ⁡ X ∘ 2 nd ⁡ Y = X ⁡ 1 st ⁡ Y X ∘ 2 nd ⁡ Y
26 21 25 eqtr4d ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ X ∈ E ∧ Y ∈ I ⁡ Q → X · ˙ Y = X ⁡ 1 st ⁡ Y I ⁡ X ∘ 2 nd ⁡ Y
27 eqid ⊢ oc ⁡ K ⁡ W = oc ⁡ K ⁡ W
28 1 2 3 27 12 6 dicelval1sta ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ Y ∈ I ⁡ Q → 1 st ⁡ Y = 2 nd ⁡ Y ⁡ ι g ∈ LTrn ⁡ K ⁡ W | g ⁡ oc ⁡ K ⁡ W = Q
29 28 3adant3l ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ X ∈ E ∧ Y ∈ I ⁡ Q → 1 st ⁡ Y = 2 nd ⁡ Y ⁡ ι g ∈ LTrn ⁡ K ⁡ W | g ⁡ oc ⁡ K ⁡ W = Q
30 29 fveq2d ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ X ∈ E ∧ Y ∈ I ⁡ Q → X ⁡ 1 st ⁡ Y = X ⁡ 2 nd ⁡ Y ⁡ ι g ∈ LTrn ⁡ K ⁡ W | g ⁡ oc ⁡ K ⁡ W = Q
31 1 2 3 4 6 dicelval2nd ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ Y ∈ I ⁡ Q → 2 nd ⁡ Y ∈ E
32 31 3adant3l ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ X ∈ E ∧ Y ∈ I ⁡ Q → 2 nd ⁡ Y ∈ E
33 3 12 4 tendof ⊢ K ∈ HL ∧ W ∈ H ∧ 2 nd ⁡ Y ∈ E → 2 nd ⁡ Y : LTrn ⁡ K ⁡ W ⟶ LTrn ⁡ K ⁡ W
34 8 32 33 syl2anc ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ X ∈ E ∧ Y ∈ I ⁡ Q → 2 nd ⁡ Y : LTrn ⁡ K ⁡ W ⟶ LTrn ⁡ K ⁡ W
35 eqid ⊢ oc ⁡ K = oc ⁡ K
36 1 35 2 3 lhpocnel ⊢ K ∈ HL ∧ W ∈ H → oc ⁡ K ⁡ W ∈ A ∧ ¬ oc ⁡ K ⁡ W ≤ ˙ W
37 36 3ad2ant1 ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ X ∈ E ∧ Y ∈ I ⁡ Q → oc ⁡ K ⁡ W ∈ A ∧ ¬ oc ⁡ K ⁡ W ≤ ˙ W
38 simp2 ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ X ∈ E ∧ Y ∈ I ⁡ Q → Q ∈ A ∧ ¬ Q ≤ ˙ W
39 eqid ⊢ ι g ∈ LTrn ⁡ K ⁡ W | g ⁡ oc ⁡ K ⁡ W = Q = ι g ∈ LTrn ⁡ K ⁡ W | g ⁡ oc ⁡ K ⁡ W = Q
40 1 2 3 12 39 ltrniotacl ⊢ K ∈ HL ∧ W ∈ H ∧ oc ⁡ K ⁡ W ∈ A ∧ ¬ oc ⁡ K ⁡ W ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W → ι g ∈ LTrn ⁡ K ⁡ W | g ⁡ oc ⁡ K ⁡ W = Q ∈ LTrn ⁡ K ⁡ W
41 8 37 38 40 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ X ∈ E ∧ Y ∈ I ⁡ Q → ι g ∈ LTrn ⁡ K ⁡ W | g ⁡ oc ⁡ K ⁡ W = Q ∈ LTrn ⁡ K ⁡ W
42 fvco3 ⊢ 2 nd ⁡ Y : LTrn ⁡ K ⁡ W ⟶ LTrn ⁡ K ⁡ W ∧ ι g ∈ LTrn ⁡ K ⁡ W | g ⁡ oc ⁡ K ⁡ W = Q ∈ LTrn ⁡ K ⁡ W → X ∘ 2 nd ⁡ Y ⁡ ι g ∈ LTrn ⁡ K ⁡ W | g ⁡ oc ⁡ K ⁡ W = Q = X ⁡ 2 nd ⁡ Y ⁡ ι g ∈ LTrn ⁡ K ⁡ W | g ⁡ oc ⁡ K ⁡ W = Q
43 34 41 42 syl2anc ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ X ∈ E ∧ Y ∈ I ⁡ Q → X ∘ 2 nd ⁡ Y ⁡ ι g ∈ LTrn ⁡ K ⁡ W | g ⁡ oc ⁡ K ⁡ W = Q = X ⁡ 2 nd ⁡ Y ⁡ ι g ∈ LTrn ⁡ K ⁡ W | g ⁡ oc ⁡ K ⁡ W = Q
44 30 43 eqtr4d ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ X ∈ E ∧ Y ∈ I ⁡ Q → X ⁡ 1 st ⁡ Y = X ∘ 2 nd ⁡ Y ⁡ ι g ∈ LTrn ⁡ K ⁡ W | g ⁡ oc ⁡ K ⁡ W = Q
45 24 fveq1d ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ X ∈ E ∧ Y ∈ I ⁡ Q → I ⁡ X ∘ 2 nd ⁡ Y ⁡ ι g ∈ LTrn ⁡ K ⁡ W | g ⁡ oc ⁡ K ⁡ W = Q = X ∘ 2 nd ⁡ Y ⁡ ι g ∈ LTrn ⁡ K ⁡ W | g ⁡ oc ⁡ K ⁡ W = Q
46 44 45 eqtr4d ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ X ∈ E ∧ Y ∈ I ⁡ Q → X ⁡ 1 st ⁡ Y = I ⁡ X ∘ 2 nd ⁡ Y ⁡ ι g ∈ LTrn ⁡ K ⁡ W | g ⁡ oc ⁡ K ⁡ W = Q
47 3 4 tendococl ⊢ K ∈ HL ∧ W ∈ H ∧ X ∈ E ∧ 2 nd ⁡ Y ∈ E → X ∘ 2 nd ⁡ Y ∈ E
48 8 9 32 47 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ X ∈ E ∧ Y ∈ I ⁡ Q → X ∘ 2 nd ⁡ Y ∈ E
49 24 48 eqeltrd ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ X ∈ E ∧ Y ∈ I ⁡ Q → I ⁡ X ∘ 2 nd ⁡ Y ∈ E
50 fvex ⊢ X ⁡ 1 st ⁡ Y ∈ V
51 fvex ⊢ I ⁡ X ∈ V
52 fvex ⊢ 2 nd ⁡ Y ∈ V
53 51 52 coex ⊢ I ⁡ X ∘ 2 nd ⁡ Y ∈ V
54 1 2 3 27 12 4 6 50 53 dicopelval ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W → X ⁡ 1 st ⁡ Y I ⁡ X ∘ 2 nd ⁡ Y ∈ I ⁡ Q ↔ X ⁡ 1 st ⁡ Y = I ⁡ X ∘ 2 nd ⁡ Y ⁡ ι g ∈ LTrn ⁡ K ⁡ W | g ⁡ oc ⁡ K ⁡ W = Q ∧ I ⁡ X ∘ 2 nd ⁡ Y ∈ E
55 54 3adant3 ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ X ∈ E ∧ Y ∈ I ⁡ Q → X ⁡ 1 st ⁡ Y I ⁡ X ∘ 2 nd ⁡ Y ∈ I ⁡ Q ↔ X ⁡ 1 st ⁡ Y = I ⁡ X ∘ 2 nd ⁡ Y ⁡ ι g ∈ LTrn ⁡ K ⁡ W | g ⁡ oc ⁡ K ⁡ W = Q ∧ I ⁡ X ∘ 2 nd ⁡ Y ∈ E
56 46 49 55 mpbir2and ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ X ∈ E ∧ Y ∈ I ⁡ Q → X ⁡ 1 st ⁡ Y I ⁡ X ∘ 2 nd ⁡ Y ∈ I ⁡ Q
57 26 56 eqeltrd ⊢ K ∈ HL ∧ W ∈ H ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ X ∈ E ∧ Y ∈ I ⁡ Q → X · ˙ Y ∈ I ⁡ Q