Metamath Proof Explorer


Theorem dvhlveclem

Description: Lemma for dvhlvec . TODO: proof substituting inner part first shorter/longer than substituting outer part first? TODO: break up into smaller lemmas? TODO: does ph -> method shorten proof? (Contributed by NM, 22-Oct-2013) (Proof shortened by Mario Carneiro, 24-Jun-2014)

Ref Expression
Hypotheses dvhgrp.b B = Base K
dvhgrp.h H = LHyp K
dvhgrp.t T = LTrn K W
dvhgrp.e E = TEndo K W
dvhgrp.u U = DVecH K W
dvhgrp.d D = Scalar U
dvhgrp.p ˙ = + D
dvhgrp.a + ˙ = + U
dvhgrp.o 0 ˙ = 0 D
dvhgrp.i I = inv g D
dvhlvec.m × ˙ = D
dvhlvec.s · ˙ = U
Assertion dvhlveclem K HL W H U LVec

Proof

Step Hyp Ref Expression
1 dvhgrp.b B = Base K
2 dvhgrp.h H = LHyp K
3 dvhgrp.t T = LTrn K W
4 dvhgrp.e E = TEndo K W
5 dvhgrp.u U = DVecH K W
6 dvhgrp.d D = Scalar U
7 dvhgrp.p ˙ = + D
8 dvhgrp.a + ˙ = + U
9 dvhgrp.o 0 ˙ = 0 D
10 dvhgrp.i I = inv g D
11 dvhlvec.m × ˙ = D
12 dvhlvec.s · ˙ = U
13 eqid Base U = Base U
14 2 3 4 5 13 dvhvbase K HL W H Base U = T × E
15 14 eqcomd K HL W H T × E = Base U
16 8 a1i K HL W H + ˙ = + U
17 6 a1i K HL W H D = Scalar U
18 12 a1i K HL W H · ˙ = U
19 eqid Base D = Base D
20 2 4 5 6 19 dvhbase K HL W H Base D = E
21 20 eqcomd K HL W H E = Base D
22 7 a1i K HL W H ˙ = + D
23 11 a1i K HL W H × ˙ = D
24 eqid EDRing K W = EDRing K W
25 2 24 5 6 dvhsca K HL W H D = EDRing K W
26 25 fveq2d K HL W H 1 D = 1 EDRing K W
27 eqid 1 EDRing K W = 1 EDRing K W
28 2 3 24 27 erng1r K HL W H 1 EDRing K W = I T
29 26 28 eqtr2d K HL W H I T = 1 D
30 2 24 erngdv K HL W H EDRing K W DivRing
31 25 30 eqeltrd K HL W H D DivRing
32 drngring D DivRing D Ring
33 31 32 syl K HL W H D Ring
34 1 2 3 4 5 6 7 8 9 10 dvhgrp K HL W H U Grp
35 2 3 4 5 12 dvhvscacl K HL W H s E t T × E s · ˙ t T × E
36 35 3impb K HL W H s E t T × E s · ˙ t T × E
37 simpl K HL W H s E t T × E f T × E K HL W H
38 simpr1 K HL W H s E t T × E f T × E s E
39 simpr2 K HL W H s E t T × E f T × E t T × E
40 xp1st t T × E 1 st t T
41 39 40 syl K HL W H s E t T × E f T × E 1 st t T
42 simpr3 K HL W H s E t T × E f T × E f T × E
43 xp1st f T × E 1 st f T
44 42 43 syl K HL W H s E t T × E f T × E 1 st f T
45 2 3 4 tendospdi1 K HL W H s E 1 st t T 1 st f T s 1 st t 1 st f = s 1 st t s 1 st f
46 37 38 41 44 45 syl13anc K HL W H s E t T × E f T × E s 1 st t 1 st f = s 1 st t s 1 st f
47 2 3 4 5 6 8 7 dvhvadd K HL W H t T × E f T × E t + ˙ f = 1 st t 1 st f 2 nd t ˙ 2 nd f
48 47 3adantr1 K HL W H s E t T × E f T × E t + ˙ f = 1 st t 1 st f 2 nd t ˙ 2 nd f
49 48 fveq2d K HL W H s E t T × E f T × E 1 st t + ˙ f = 1 st 1 st t 1 st f 2 nd t ˙ 2 nd f
50 fvex 1 st t V
51 fvex 1 st f V
52 50 51 coex 1 st t 1 st f V
53 ovex 2 nd t ˙ 2 nd f V
54 52 53 op1st 1 st 1 st t 1 st f 2 nd t ˙ 2 nd f = 1 st t 1 st f
55 49 54 eqtrdi K HL W H s E t T × E f T × E 1 st t + ˙ f = 1 st t 1 st f
56 55 fveq2d K HL W H s E t T × E f T × E s 1 st t + ˙ f = s 1 st t 1 st f
57 2 3 4 5 12 dvhvsca K HL W H s E t T × E s · ˙ t = s 1 st t s 2 nd t
58 57 3adantr3 K HL W H s E t T × E f T × E s · ˙ t = s 1 st t s 2 nd t
59 58 fveq2d K HL W H s E t T × E f T × E 1 st s · ˙ t = 1 st s 1 st t s 2 nd t
60 fvex s 1 st t V
61 vex s V
62 fvex 2 nd t V
63 61 62 coex s 2 nd t V
64 60 63 op1st 1 st s 1 st t s 2 nd t = s 1 st t
65 59 64 eqtrdi K HL W H s E t T × E f T × E 1 st s · ˙ t = s 1 st t
66 2 3 4 5 12 dvhvsca K HL W H s E f T × E s · ˙ f = s 1 st f s 2 nd f
67 66 3adantr2 K HL W H s E t T × E f T × E s · ˙ f = s 1 st f s 2 nd f
68 67 fveq2d K HL W H s E t T × E f T × E 1 st s · ˙ f = 1 st s 1 st f s 2 nd f
69 fvex s 1 st f V
70 fvex 2 nd f V
71 61 70 coex s 2 nd f V
72 69 71 op1st 1 st s 1 st f s 2 nd f = s 1 st f
73 68 72 eqtrdi K HL W H s E t T × E f T × E 1 st s · ˙ f = s 1 st f
74 65 73 coeq12d K HL W H s E t T × E f T × E 1 st s · ˙ t 1 st s · ˙ f = s 1 st t s 1 st f
75 46 56 74 3eqtr4d K HL W H s E t T × E f T × E s 1 st t + ˙ f = 1 st s · ˙ t 1 st s · ˙ f
76 33 adantr K HL W H s E t T × E f T × E D Ring
77 21 adantr K HL W H s E t T × E f T × E E = Base D
78 38 77 eleqtrd K HL W H s E t T × E f T × E s Base D
79 xp2nd t T × E 2 nd t E
80 39 79 syl K HL W H s E t T × E f T × E 2 nd t E
81 80 77 eleqtrd K HL W H s E t T × E f T × E 2 nd t Base D
82 xp2nd f T × E 2 nd f E
83 42 82 syl K HL W H s E t T × E f T × E 2 nd f E
84 83 77 eleqtrd K HL W H s E t T × E f T × E 2 nd f Base D
85 19 7 11 ringdi D Ring s Base D 2 nd t Base D 2 nd f Base D s × ˙ 2 nd t ˙ 2 nd f = s × ˙ 2 nd t ˙ s × ˙ 2 nd f
86 76 78 81 84 85 syl13anc K HL W H s E t T × E f T × E s × ˙ 2 nd t ˙ 2 nd f = s × ˙ 2 nd t ˙ s × ˙ 2 nd f
87 19 7 ringacl D Ring 2 nd t Base D 2 nd f Base D 2 nd t ˙ 2 nd f Base D
88 76 81 84 87 syl3anc K HL W H s E t T × E f T × E 2 nd t ˙ 2 nd f Base D
89 88 77 eleqtrrd K HL W H s E t T × E f T × E 2 nd t ˙ 2 nd f E
90 2 3 4 5 6 11 dvhmulr K HL W H s E 2 nd t ˙ 2 nd f E s × ˙ 2 nd t ˙ 2 nd f = s 2 nd t ˙ 2 nd f
91 37 38 89 90 syl12anc K HL W H s E t T × E f T × E s × ˙ 2 nd t ˙ 2 nd f = s 2 nd t ˙ 2 nd f
92 2 3 4 5 6 11 dvhmulr K HL W H s E 2 nd t E s × ˙ 2 nd t = s 2 nd t
93 37 38 80 92 syl12anc K HL W H s E t T × E f T × E s × ˙ 2 nd t = s 2 nd t
94 2 3 4 5 6 11 dvhmulr K HL W H s E 2 nd f E s × ˙ 2 nd f = s 2 nd f
95 37 38 83 94 syl12anc K HL W H s E t T × E f T × E s × ˙ 2 nd f = s 2 nd f
96 93 95 oveq12d K HL W H s E t T × E f T × E s × ˙ 2 nd t ˙ s × ˙ 2 nd f = s 2 nd t ˙ s 2 nd f
97 86 91 96 3eqtr3d K HL W H s E t T × E f T × E s 2 nd t ˙ 2 nd f = s 2 nd t ˙ s 2 nd f
98 48 fveq2d K HL W H s E t T × E f T × E 2 nd t + ˙ f = 2 nd 1 st t 1 st f 2 nd t ˙ 2 nd f
99 52 53 op2nd 2 nd 1 st t 1 st f 2 nd t ˙ 2 nd f = 2 nd t ˙ 2 nd f
100 98 99 eqtrdi K HL W H s E t T × E f T × E 2 nd t + ˙ f = 2 nd t ˙ 2 nd f
101 100 coeq2d K HL W H s E t T × E f T × E s 2 nd t + ˙ f = s 2 nd t ˙ 2 nd f
102 58 fveq2d K HL W H s E t T × E f T × E 2 nd s · ˙ t = 2 nd s 1 st t s 2 nd t
103 60 63 op2nd 2 nd s 1 st t s 2 nd t = s 2 nd t
104 102 103 eqtrdi K HL W H s E t T × E f T × E 2 nd s · ˙ t = s 2 nd t
105 67 fveq2d K HL W H s E t T × E f T × E 2 nd s · ˙ f = 2 nd s 1 st f s 2 nd f
106 69 71 op2nd 2 nd s 1 st f s 2 nd f = s 2 nd f
107 105 106 eqtrdi K HL W H s E t T × E f T × E 2 nd s · ˙ f = s 2 nd f
108 104 107 oveq12d K HL W H s E t T × E f T × E 2 nd s · ˙ t ˙ 2 nd s · ˙ f = s 2 nd t ˙ s 2 nd f
109 97 101 108 3eqtr4d K HL W H s E t T × E f T × E s 2 nd t + ˙ f = 2 nd s · ˙ t ˙ 2 nd s · ˙ f
110 75 109 opeq12d K HL W H s E t T × E f T × E s 1 st t + ˙ f s 2 nd t + ˙ f = 1 st s · ˙ t 1 st s · ˙ f 2 nd s · ˙ t ˙ 2 nd s · ˙ f
111 2 3 4 5 6 7 8 dvhvaddcl K HL W H t T × E f T × E t + ˙ f T × E
112 111 3adantr1 K HL W H s E t T × E f T × E t + ˙ f T × E
113 2 3 4 5 12 dvhvsca K HL W H s E t + ˙ f T × E s · ˙ t + ˙ f = s 1 st t + ˙ f s 2 nd t + ˙ f
114 37 38 112 113 syl12anc K HL W H s E t T × E f T × E s · ˙ t + ˙ f = s 1 st t + ˙ f s 2 nd t + ˙ f
115 35 3adantr3 K HL W H s E t T × E f T × E s · ˙ t T × E
116 2 3 4 5 12 dvhvscacl K HL W H s E f T × E s · ˙ f T × E
117 116 3adantr2 K HL W H s E t T × E f T × E s · ˙ f T × E
118 2 3 4 5 6 8 7 dvhvadd K HL W H s · ˙ t T × E s · ˙ f T × E s · ˙ t + ˙ s · ˙ f = 1 st s · ˙ t 1 st s · ˙ f 2 nd s · ˙ t ˙ 2 nd s · ˙ f
119 37 115 117 118 syl12anc K HL W H s E t T × E f T × E s · ˙ t + ˙ s · ˙ f = 1 st s · ˙ t 1 st s · ˙ f 2 nd s · ˙ t ˙ 2 nd s · ˙ f
120 110 114 119 3eqtr4d K HL W H s E t T × E f T × E s · ˙ t + ˙ f = s · ˙ t + ˙ s · ˙ f
121 simpl K HL W H s E t E f T × E K HL W H
122 simpr1 K HL W H s E t E f T × E s E
123 simpr2 K HL W H s E t E f T × E t E
124 simpr3 K HL W H s E t E f T × E f T × E
125 124 43 syl K HL W H s E t E f T × E 1 st f T
126 eqid + EDRing K W = + EDRing K W
127 2 3 4 24 126 erngplus2 K HL W H s E t E 1 st f T s + EDRing K W t 1 st f = s 1 st f t 1 st f
128 121 122 123 125 127 syl13anc K HL W H s E t E f T × E s + EDRing K W t 1 st f = s 1 st f t 1 st f
129 25 fveq2d K HL W H + D = + EDRing K W
130 7 129 eqtrid K HL W H ˙ = + EDRing K W
131 130 oveqd K HL W H s ˙ t = s + EDRing K W t
132 131 fveq1d K HL W H s ˙ t 1 st f = s + EDRing K W t 1 st f
133 132 adantr K HL W H s E t E f T × E s ˙ t 1 st f = s + EDRing K W t 1 st f
134 66 3adantr2 K HL W H s E t E f T × E s · ˙ f = s 1 st f s 2 nd f
135 134 fveq2d K HL W H s E t E f T × E 1 st s · ˙ f = 1 st s 1 st f s 2 nd f
136 135 72 eqtrdi K HL W H s E t E f T × E 1 st s · ˙ f = s 1 st f
137 2 3 4 5 12 dvhvsca K HL W H t E f T × E t · ˙ f = t 1 st f t 2 nd f
138 137 3adantr1 K HL W H s E t E f T × E t · ˙ f = t 1 st f t 2 nd f
139 138 fveq2d K HL W H s E t E f T × E 1 st t · ˙ f = 1 st t 1 st f t 2 nd f
140 fvex t 1 st f V
141 vex t V
142 141 70 coex t 2 nd f V
143 140 142 op1st 1 st t 1 st f t 2 nd f = t 1 st f
144 139 143 eqtrdi K HL W H s E t E f T × E 1 st t · ˙ f = t 1 st f
145 136 144 coeq12d K HL W H s E t E f T × E 1 st s · ˙ f 1 st t · ˙ f = s 1 st f t 1 st f
146 128 133 145 3eqtr4d K HL W H s E t E f T × E s ˙ t 1 st f = 1 st s · ˙ f 1 st t · ˙ f
147 33 adantr K HL W H s E t E f T × E D Ring
148 21 adantr K HL W H s E t E f T × E E = Base D
149 122 148 eleqtrd K HL W H s E t E f T × E s Base D
150 123 148 eleqtrd K HL W H s E t E f T × E t Base D
151 124 82 syl K HL W H s E t E f T × E 2 nd f E
152 151 148 eleqtrd K HL W H s E t E f T × E 2 nd f Base D
153 19 7 11 ringdir D Ring s Base D t Base D 2 nd f Base D s ˙ t × ˙ 2 nd f = s × ˙ 2 nd f ˙ t × ˙ 2 nd f
154 147 149 150 152 153 syl13anc K HL W H s E t E f T × E s ˙ t × ˙ 2 nd f = s × ˙ 2 nd f ˙ t × ˙ 2 nd f
155 19 7 ringacl D Ring s Base D t Base D s ˙ t Base D
156 147 149 150 155 syl3anc K HL W H s E t E f T × E s ˙ t Base D
157 156 148 eleqtrrd K HL W H s E t E f T × E s ˙ t E
158 2 3 4 5 6 11 dvhmulr K HL W H s ˙ t E 2 nd f E s ˙ t × ˙ 2 nd f = s ˙ t 2 nd f
159 121 157 151 158 syl12anc K HL W H s E t E f T × E s ˙ t × ˙ 2 nd f = s ˙ t 2 nd f
160 121 122 151 94 syl12anc K HL W H s E t E f T × E s × ˙ 2 nd f = s 2 nd f
161 2 3 4 5 6 11 dvhmulr K HL W H t E 2 nd f E t × ˙ 2 nd f = t 2 nd f
162 121 123 151 161 syl12anc K HL W H s E t E f T × E t × ˙ 2 nd f = t 2 nd f
163 160 162 oveq12d K HL W H s E t E f T × E s × ˙ 2 nd f ˙ t × ˙ 2 nd f = s 2 nd f ˙ t 2 nd f
164 154 159 163 3eqtr3d K HL W H s E t E f T × E s ˙ t 2 nd f = s 2 nd f ˙ t 2 nd f
165 134 fveq2d K HL W H s E t E f T × E 2 nd s · ˙ f = 2 nd s 1 st f s 2 nd f
166 165 106 eqtrdi K HL W H s E t E f T × E 2 nd s · ˙ f = s 2 nd f
167 138 fveq2d K HL W H s E t E f T × E 2 nd t · ˙ f = 2 nd t 1 st f t 2 nd f
168 140 142 op2nd 2 nd t 1 st f t 2 nd f = t 2 nd f
169 167 168 eqtrdi K HL W H s E t E f T × E 2 nd t · ˙ f = t 2 nd f
170 166 169 oveq12d K HL W H s E t E f T × E 2 nd s · ˙ f ˙ 2 nd t · ˙ f = s 2 nd f ˙ t 2 nd f
171 164 170 eqtr4d K HL W H s E t E f T × E s ˙ t 2 nd f = 2 nd s · ˙ f ˙ 2 nd t · ˙ f
172 146 171 opeq12d K HL W H s E t E f T × E s ˙ t 1 st f s ˙ t 2 nd f = 1 st s · ˙ f 1 st t · ˙ f 2 nd s · ˙ f ˙ 2 nd t · ˙ f
173 2 3 4 5 12 dvhvsca K HL W H s ˙ t E f T × E s ˙ t · ˙ f = s ˙ t 1 st f s ˙ t 2 nd f
174 121 157 124 173 syl12anc K HL W H s E t E f T × E s ˙ t · ˙ f = s ˙ t 1 st f s ˙ t 2 nd f
175 116 3adantr2 K HL W H s E t E f T × E s · ˙ f T × E
176 2 3 4 5 12 dvhvscacl K HL W H t E f T × E t · ˙ f T × E
177 176 3adantr1 K HL W H s E t E f T × E t · ˙ f T × E
178 2 3 4 5 6 8 7 dvhvadd K HL W H s · ˙ f T × E t · ˙ f T × E s · ˙ f + ˙ t · ˙ f = 1 st s · ˙ f 1 st t · ˙ f 2 nd s · ˙ f ˙ 2 nd t · ˙ f
179 121 175 177 178 syl12anc K HL W H s E t E f T × E s · ˙ f + ˙ t · ˙ f = 1 st s · ˙ f 1 st t · ˙ f 2 nd s · ˙ f ˙ 2 nd t · ˙ f
180 172 174 179 3eqtr4d K HL W H s E t E f T × E s ˙ t · ˙ f = s · ˙ f + ˙ t · ˙ f
181 2 3 4 tendocoval K HL W H s E t E 1 st f T s t 1 st f = s t 1 st f
182 121 122 123 125 181 syl121anc K HL W H s E t E f T × E s t 1 st f = s t 1 st f
183 coass s t 2 nd f = s t 2 nd f
184 183 a1i K HL W H s E t E f T × E s t 2 nd f = s t 2 nd f
185 182 184 opeq12d K HL W H s E t E f T × E s t 1 st f s t 2 nd f = s t 1 st f s t 2 nd f
186 2 4 tendococl K HL W H s E t E s t E
187 121 122 123 186 syl3anc K HL W H s E t E f T × E s t E
188 2 3 4 5 12 dvhvsca K HL W H s t E f T × E s t · ˙ f = s t 1 st f s t 2 nd f
189 121 187 124 188 syl12anc K HL W H s E t E f T × E s t · ˙ f = s t 1 st f s t 2 nd f
190 2 3 4 tendocl K HL W H t E 1 st f T t 1 st f T
191 121 123 125 190 syl3anc K HL W H s E t E f T × E t 1 st f T
192 2 4 tendococl K HL W H t E 2 nd f E t 2 nd f E
193 121 123 151 192 syl3anc K HL W H s E t E f T × E t 2 nd f E
194 2 3 4 5 12 dvhopvsca K HL W H s E t 1 st f T t 2 nd f E s · ˙ t 1 st f t 2 nd f = s t 1 st f s t 2 nd f
195 121 122 191 193 194 syl13anc K HL W H s E t E f T × E s · ˙ t 1 st f t 2 nd f = s t 1 st f s t 2 nd f
196 185 189 195 3eqtr4d K HL W H s E t E f T × E s t · ˙ f = s · ˙ t 1 st f t 2 nd f
197 2 3 4 5 6 11 dvhmulr K HL W H s E t E s × ˙ t = s t
198 197 3adantr3 K HL W H s E t E f T × E s × ˙ t = s t
199 198 oveq1d K HL W H s E t E f T × E s × ˙ t · ˙ f = s t · ˙ f
200 138 oveq2d K HL W H s E t E f T × E s · ˙ t · ˙ f = s · ˙ t 1 st f t 2 nd f
201 196 199 200 3eqtr4d K HL W H s E t E f T × E s × ˙ t · ˙ f = s · ˙ t · ˙ f
202 xp1st s T × E 1 st s T
203 202 adantl K HL W H s T × E 1 st s T
204 fvresi 1 st s T I T 1 st s = 1 st s
205 203 204 syl K HL W H s T × E I T 1 st s = 1 st s
206 xp2nd s T × E 2 nd s E
207 2 3 4 tendof K HL W H 2 nd s E 2 nd s : T T
208 206 207 sylan2 K HL W H s T × E 2 nd s : T T
209 fcoi2 2 nd s : T T I T 2 nd s = 2 nd s
210 208 209 syl K HL W H s T × E I T 2 nd s = 2 nd s
211 205 210 opeq12d K HL W H s T × E I T 1 st s I T 2 nd s = 1 st s 2 nd s
212 2 3 4 tendoidcl K HL W H I T E
213 212 anim1i K HL W H s T × E I T E s T × E
214 2 3 4 5 12 dvhvsca K HL W H I T E s T × E I T · ˙ s = I T 1 st s I T 2 nd s
215 213 214 syldan K HL W H s T × E I T · ˙ s = I T 1 st s I T 2 nd s
216 1st2nd2 s T × E s = 1 st s 2 nd s
217 216 adantl K HL W H s T × E s = 1 st s 2 nd s
218 211 215 217 3eqtr4d K HL W H s T × E I T · ˙ s = s
219 15 16 17 18 21 22 23 29 33 34 36 120 180 201 218 islmodd K HL W H U LMod
220 6 islvec U LVec U LMod D DivRing
221 219 31 220 sylanbrc K HL W H U LVec