Metamath Proof Explorer


Theorem dialss

Description: The value of partial isomorphism A is a subspace of partial vector space A. Part of Lemma M of Crawley p. 120 line 26. (Contributed by NM, 17-Jan-2014) (Revised by Mario Carneiro, 23-Jun-2014)

Ref Expression
Hypotheses dialss.b B=BaseK
dialss.l ˙=K
dialss.h H=LHypK
dialss.u U=DVecAKW
dialss.i I=DIsoAKW
dialss.s S=LSubSpU
Assertion dialss KHLWHXBX˙WIXS

Proof

Step Hyp Ref Expression
1 dialss.b B=BaseK
2 dialss.l ˙=K
3 dialss.h H=LHypK
4 dialss.u U=DVecAKW
5 dialss.i I=DIsoAKW
6 dialss.s S=LSubSpU
7 eqidd KHLWHXBX˙WScalarU=ScalarU
8 eqid TEndoKW=TEndoKW
9 eqid ScalarU=ScalarU
10 eqid BaseScalarU=BaseScalarU
11 3 8 4 9 10 dvabase KHLWHBaseScalarU=TEndoKW
12 11 eqcomd KHLWHTEndoKW=BaseScalarU
13 12 adantr KHLWHXBX˙WTEndoKW=BaseScalarU
14 eqid LTrnKW=LTrnKW
15 eqid BaseU=BaseU
16 3 14 4 15 dvavbase KHLWHBaseU=LTrnKW
17 16 eqcomd KHLWHLTrnKW=BaseU
18 17 adantr KHLWHXBX˙WLTrnKW=BaseU
19 eqidd KHLWHXBX˙W+U=+U
20 eqidd KHLWHXBX˙WU=U
21 6 a1i KHLWHXBX˙WS=LSubSpU
22 1 2 3 14 5 diass KHLWHXBX˙WIXLTrnKW
23 1 2 3 5 dian0 KHLWHXBX˙WIX
24 simpll KHLWHXBX˙WxTEndoKWaIXbIXKHLWH
25 simpr1 KHLWHXBX˙WxTEndoKWaIXbIXxTEndoKW
26 simplr KHLWHXBX˙WxTEndoKWaIXbIXXBX˙W
27 simpr2 KHLWHXBX˙WxTEndoKWaIXbIXaIX
28 1 2 3 14 5 diael KHLWHXBX˙WaIXaLTrnKW
29 24 26 27 28 syl3anc KHLWHXBX˙WxTEndoKWaIXbIXaLTrnKW
30 eqid U=U
31 3 14 8 4 30 dvavsca KHLWHxTEndoKWaLTrnKWxUa=xa
32 24 25 29 31 syl12anc KHLWHXBX˙WxTEndoKWaIXbIXxUa=xa
33 32 oveq1d KHLWHXBX˙WxTEndoKWaIXbIXxUa+Ub=xa+Ub
34 3 14 8 tendocl KHLWHxTEndoKWaLTrnKWxaLTrnKW
35 24 25 29 34 syl3anc KHLWHXBX˙WxTEndoKWaIXbIXxaLTrnKW
36 simpr3 KHLWHXBX˙WxTEndoKWaIXbIXbIX
37 1 2 3 14 5 diael KHLWHXBX˙WbIXbLTrnKW
38 24 26 36 37 syl3anc KHLWHXBX˙WxTEndoKWaIXbIXbLTrnKW
39 eqid +U=+U
40 3 14 4 39 dvavadd KHLWHxaLTrnKWbLTrnKWxa+Ub=xab
41 24 35 38 40 syl12anc KHLWHXBX˙WxTEndoKWaIXbIXxa+Ub=xab
42 33 41 eqtrd KHLWHXBX˙WxTEndoKWaIXbIXxUa+Ub=xab
43 3 14 ltrnco KHLWHxaLTrnKWbLTrnKWxabLTrnKW
44 24 35 38 43 syl3anc KHLWHXBX˙WxTEndoKWaIXbIXxabLTrnKW
45 hllat KHLKLat
46 45 ad3antrrr KHLWHXBX˙WxTEndoKWaIXbIXKLat
47 eqid trLKW=trLKW
48 1 3 14 47 trlcl KHLWHxabLTrnKWtrLKWxabB
49 24 44 48 syl2anc KHLWHXBX˙WxTEndoKWaIXbIXtrLKWxabB
50 1 3 14 47 trlcl KHLWHxaLTrnKWtrLKWxaB
51 24 35 50 syl2anc KHLWHXBX˙WxTEndoKWaIXbIXtrLKWxaB
52 1 3 14 47 trlcl KHLWHbLTrnKWtrLKWbB
53 24 38 52 syl2anc KHLWHXBX˙WxTEndoKWaIXbIXtrLKWbB
54 eqid joinK=joinK
55 1 54 latjcl KLattrLKWxaBtrLKWbBtrLKWxajoinKtrLKWbB
56 46 51 53 55 syl3anc KHLWHXBX˙WxTEndoKWaIXbIXtrLKWxajoinKtrLKWbB
57 simplrl KHLWHXBX˙WxTEndoKWaIXbIXXB
58 2 54 3 14 47 trlco KHLWHxaLTrnKWbLTrnKWtrLKWxab˙trLKWxajoinKtrLKWb
59 24 35 38 58 syl3anc KHLWHXBX˙WxTEndoKWaIXbIXtrLKWxab˙trLKWxajoinKtrLKWb
60 1 3 14 47 trlcl KHLWHaLTrnKWtrLKWaB
61 24 29 60 syl2anc KHLWHXBX˙WxTEndoKWaIXbIXtrLKWaB
62 2 3 14 47 8 tendotp KHLWHxTEndoKWaLTrnKWtrLKWxa˙trLKWa
63 24 25 29 62 syl3anc KHLWHXBX˙WxTEndoKWaIXbIXtrLKWxa˙trLKWa
64 1 2 3 14 47 5 diatrl KHLWHXBX˙WaIXtrLKWa˙X
65 24 26 27 64 syl3anc KHLWHXBX˙WxTEndoKWaIXbIXtrLKWa˙X
66 1 2 46 51 61 57 63 65 lattrd KHLWHXBX˙WxTEndoKWaIXbIXtrLKWxa˙X
67 1 2 3 14 47 5 diatrl KHLWHXBX˙WbIXtrLKWb˙X
68 24 26 36 67 syl3anc KHLWHXBX˙WxTEndoKWaIXbIXtrLKWb˙X
69 1 2 54 latjle12 KLattrLKWxaBtrLKWbBXBtrLKWxa˙XtrLKWb˙XtrLKWxajoinKtrLKWb˙X
70 46 51 53 57 69 syl13anc KHLWHXBX˙WxTEndoKWaIXbIXtrLKWxa˙XtrLKWb˙XtrLKWxajoinKtrLKWb˙X
71 66 68 70 mpbi2and KHLWHXBX˙WxTEndoKWaIXbIXtrLKWxajoinKtrLKWb˙X
72 1 2 46 49 56 57 59 71 lattrd KHLWHXBX˙WxTEndoKWaIXbIXtrLKWxab˙X
73 1 2 3 14 47 5 diaelval KHLWHXBX˙WxabIXxabLTrnKWtrLKWxab˙X
74 73 adantr KHLWHXBX˙WxTEndoKWaIXbIXxabIXxabLTrnKWtrLKWxab˙X
75 44 72 74 mpbir2and KHLWHXBX˙WxTEndoKWaIXbIXxabIX
76 42 75 eqeltrd KHLWHXBX˙WxTEndoKWaIXbIXxUa+UbIX
77 7 13 18 19 20 21 22 23 76 islssd KHLWHXBX˙WIXS