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