Step | Hyp | Ref
| Expression |
1 | | simp1 1137 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΅ β§ π β€ π)) β§ π
β€ (π β¨ π)) β (πΎ β HL β§ π β π»)) |
2 | | simp22 1208 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΅ β§ π β€ π)) β§ π
β€ (π β¨ π)) β (π
β π΄ β§ Β¬ π
β€ π)) |
3 | | cdlemn5.l |
. . . 4
β’ β€ =
(leβπΎ) |
4 | | cdlemn5.a |
. . . 4
β’ π΄ = (AtomsβπΎ) |
5 | | cdlemn5.h |
. . . 4
β’ π» = (LHypβπΎ) |
6 | | cdlemn5.p |
. . . 4
β’ π = ((ocβπΎ)βπ) |
7 | | cdlemn5.t |
. . . 4
β’ π = ((LTrnβπΎ)βπ) |
8 | | cdlemn5.J |
. . . 4
β’ π½ = ((DIsoCβπΎ)βπ) |
9 | | cdlemn5.u |
. . . 4
β’ π = ((DVecHβπΎ)βπ) |
10 | | cdlemn5.n |
. . . 4
β’ π = (LSpanβπ) |
11 | | cdlemn5.g |
. . . 4
β’ πΊ = (β©β β π (ββπ) = π
) |
12 | 3, 4, 5, 6, 7, 8, 9, 10, 11 | diclspsn 40003 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ (π
β π΄ β§ Β¬ π
β€ π)) β (π½βπ
) = (πβ{β¨πΊ, ( I βΎ π)β©})) |
13 | 1, 2, 12 | syl2anc 585 |
. 2
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΅ β§ π β€ π)) β§ π
β€ (π β¨ π)) β (π½βπ
) = (πβ{β¨πΊ, ( I βΎ π)β©})) |
14 | | simp21 1207 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΅ β§ π β€ π)) β§ π
β€ (π β¨ π)) β (π β π΄ β§ Β¬ π β€ π)) |
15 | | cdlemn5.b |
. . . . . 6
β’ π΅ = (BaseβπΎ) |
16 | | cdlemn5.o |
. . . . . 6
β’ π = (β β π β¦ ( I βΎ π΅)) |
17 | | cdlemn5.f |
. . . . . 6
β’ πΉ = (β©β β π (ββπ) = π) |
18 | | cdlemn5.m |
. . . . . 6
β’ π = (β©β β π (ββπ) = π
) |
19 | | cdlemn5.s |
. . . . . 6
β’ β =
(LSSumβπ) |
20 | 15, 3, 4, 6, 5, 7, 16, 9, 17, 11, 18, 10, 19 | cdlemn4a 40008 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π)) β (πβ{β¨πΊ, ( I βΎ π)β©}) β ((πβ{β¨πΉ, ( I βΎ π)β©}) β (πβ{β¨π, πβ©}))) |
21 | 1, 14, 2, 20 | syl3anc 1372 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΅ β§ π β€ π)) β§ π
β€ (π β¨ π)) β (πβ{β¨πΊ, ( I βΎ π)β©}) β ((πβ{β¨πΉ, ( I βΎ π)β©}) β (πβ{β¨π, πβ©}))) |
22 | 3, 4, 5, 6, 7, 8, 9, 10, 17 | diclspsn 40003 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π)) β (π½βπ) = (πβ{β¨πΉ, ( I βΎ π)β©})) |
23 | 1, 14, 22 | syl2anc 585 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΅ β§ π β€ π)) β§ π
β€ (π β¨ π)) β (π½βπ) = (πβ{β¨πΉ, ( I βΎ π)β©})) |
24 | 23 | oveq1d 7419 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΅ β§ π β€ π)) β§ π
β€ (π β¨ π)) β ((π½βπ) β (πβ{β¨π, πβ©})) = ((πβ{β¨πΉ, ( I βΎ π)β©}) β (πβ{β¨π, πβ©}))) |
25 | 21, 24 | sseqtrrd 4022 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΅ β§ π β€ π)) β§ π
β€ (π β¨ π)) β (πβ{β¨πΊ, ( I βΎ π)β©}) β ((π½βπ) β (πβ{β¨π, πβ©}))) |
26 | 5, 9, 1 | dvhlmod 39919 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΅ β§ π β€ π)) β§ π
β€ (π β¨ π)) β π β LMod) |
27 | | eqid 2733 |
. . . . . . 7
β’
(LSubSpβπ) =
(LSubSpβπ) |
28 | 27 | lsssssubg 20557 |
. . . . . 6
β’ (π β LMod β
(LSubSpβπ) β
(SubGrpβπ)) |
29 | 26, 28 | syl 17 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΅ β§ π β€ π)) β§ π
β€ (π β¨ π)) β (LSubSpβπ) β (SubGrpβπ)) |
30 | 3, 4, 5, 9, 8, 27 | diclss 40002 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π)) β (π½βπ) β (LSubSpβπ)) |
31 | 1, 14, 30 | syl2anc 585 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΅ β§ π β€ π)) β§ π
β€ (π β¨ π)) β (π½βπ) β (LSubSpβπ)) |
32 | 29, 31 | sseldd 3982 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΅ β§ π β€ π)) β§ π
β€ (π β¨ π)) β (π½βπ) β (SubGrpβπ)) |
33 | | simp23 1209 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΅ β§ π β€ π)) β§ π
β€ (π β¨ π)) β (π β π΅ β§ π β€ π)) |
34 | | cdlemn5.i |
. . . . . . 7
β’ πΌ = ((DIsoBβπΎ)βπ) |
35 | 15, 3, 5, 9, 34, 27 | diblss 39979 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π)) β (πΌβπ) β (LSubSpβπ)) |
36 | 1, 33, 35 | syl2anc 585 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΅ β§ π β€ π)) β§ π
β€ (π β¨ π)) β (πΌβπ) β (LSubSpβπ)) |
37 | 29, 36 | sseldd 3982 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΅ β§ π β€ π)) β§ π
β€ (π β¨ π)) β (πΌβπ) β (SubGrpβπ)) |
38 | | cdlemn5.j |
. . . . 5
β’ β¨ =
(joinβπΎ) |
39 | | eqid 2733 |
. . . . 5
β’
((trLβπΎ)βπ) = ((trLβπΎ)βπ) |
40 | 15, 3, 38, 4, 5, 7,
39, 16, 34, 9, 10, 18 | cdlemn2a 40005 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΅ β§ π β€ π)) β§ π
β€ (π β¨ π)) β (πβ{β¨π, πβ©}) β (πΌβπ)) |
41 | 19 | lsmless2 19522 |
. . . 4
β’ (((π½βπ) β (SubGrpβπ) β§ (πΌβπ) β (SubGrpβπ) β§ (πβ{β¨π, πβ©}) β (πΌβπ)) β ((π½βπ) β (πβ{β¨π, πβ©})) β ((π½βπ) β (πΌβπ))) |
42 | 32, 37, 40, 41 | syl3anc 1372 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΅ β§ π β€ π)) β§ π
β€ (π β¨ π)) β ((π½βπ) β (πβ{β¨π, πβ©})) β ((π½βπ) β (πΌβπ))) |
43 | 25, 42 | sstrd 3991 |
. 2
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΅ β§ π β€ π)) β§ π
β€ (π β¨ π)) β (πβ{β¨πΊ, ( I βΎ π)β©}) β ((π½βπ) β (πΌβπ))) |
44 | 13, 43 | eqsstrd 4019 |
1
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΅ β§ π β€ π)) β§ π
β€ (π β¨ π)) β (π½βπ
) β ((π½βπ) β (πΌβπ))) |