Step | Hyp | Ref
| Expression |
1 | | hgmapmul.h |
. . . 4
β’ π» = (LHypβπΎ) |
2 | | hgmapmul.u |
. . . 4
β’ π = ((DVecHβπΎ)βπ) |
3 | | eqid 2733 |
. . . 4
β’
(Baseβπ) =
(Baseβπ) |
4 | | eqid 2733 |
. . . 4
β’
(0gβπ) = (0gβπ) |
5 | | hgmapmul.k |
. . . 4
β’ (π β (πΎ β HL β§ π β π»)) |
6 | 1, 2, 3, 4, 5 | dvh1dim 40251 |
. . 3
β’ (π β βπ‘ β (Baseβπ)π‘ β (0gβπ)) |
7 | | eqid 2733 |
. . . . . . . . 9
β’
((LCDualβπΎ)βπ) = ((LCDualβπΎ)βπ) |
8 | 1, 7, 5 | lcdlmod 40401 |
. . . . . . . 8
β’ (π β ((LCDualβπΎ)βπ) β LMod) |
9 | 8 | 3ad2ant1 1134 |
. . . . . . 7
β’ ((π β§ π‘ β (Baseβπ) β§ π‘ β (0gβπ)) β ((LCDualβπΎ)βπ) β LMod) |
10 | | hgmapmul.r |
. . . . . . . . 9
β’ π
= (Scalarβπ) |
11 | | hgmapmul.b |
. . . . . . . . 9
β’ π΅ = (Baseβπ
) |
12 | | eqid 2733 |
. . . . . . . . 9
β’
(Scalarβ((LCDualβπΎ)βπ)) = (Scalarβ((LCDualβπΎ)βπ)) |
13 | | eqid 2733 |
. . . . . . . . 9
β’
(Baseβ(Scalarβ((LCDualβπΎ)βπ))) =
(Baseβ(Scalarβ((LCDualβπΎ)βπ))) |
14 | | hgmapmul.g |
. . . . . . . . 9
β’ πΊ = ((HGMapβπΎ)βπ) |
15 | | hgmapmul.x |
. . . . . . . . 9
β’ (π β π β π΅) |
16 | 1, 2, 10, 11, 7, 12, 13, 14, 5, 15 | hgmapdcl 40699 |
. . . . . . . 8
β’ (π β (πΊβπ) β
(Baseβ(Scalarβ((LCDualβπΎ)βπ)))) |
17 | 16 | 3ad2ant1 1134 |
. . . . . . 7
β’ ((π β§ π‘ β (Baseβπ) β§ π‘ β (0gβπ)) β (πΊβπ) β
(Baseβ(Scalarβ((LCDualβπΎ)βπ)))) |
18 | | hgmapmul.y |
. . . . . . . . 9
β’ (π β π β π΅) |
19 | 1, 2, 10, 11, 7, 12, 13, 14, 5, 18 | hgmapdcl 40699 |
. . . . . . . 8
β’ (π β (πΊβπ) β
(Baseβ(Scalarβ((LCDualβπΎ)βπ)))) |
20 | 19 | 3ad2ant1 1134 |
. . . . . . 7
β’ ((π β§ π‘ β (Baseβπ) β§ π‘ β (0gβπ)) β (πΊβπ) β
(Baseβ(Scalarβ((LCDualβπΎ)βπ)))) |
21 | | eqid 2733 |
. . . . . . . 8
β’
(Baseβ((LCDualβπΎ)βπ)) = (Baseβ((LCDualβπΎ)βπ)) |
22 | | eqid 2733 |
. . . . . . . 8
β’
((HDMapβπΎ)βπ) = ((HDMapβπΎ)βπ) |
23 | 5 | 3ad2ant1 1134 |
. . . . . . . 8
β’ ((π β§ π‘ β (Baseβπ) β§ π‘ β (0gβπ)) β (πΎ β HL β§ π β π»)) |
24 | | simp2 1138 |
. . . . . . . 8
β’ ((π β§ π‘ β (Baseβπ) β§ π‘ β (0gβπ)) β π‘ β (Baseβπ)) |
25 | 1, 2, 3, 7, 21, 22, 23, 24 | hdmapcl 40639 |
. . . . . . 7
β’ ((π β§ π‘ β (Baseβπ) β§ π‘ β (0gβπ)) β (((HDMapβπΎ)βπ)βπ‘) β (Baseβ((LCDualβπΎ)βπ))) |
26 | | eqid 2733 |
. . . . . . . 8
β’ (
Β·π β((LCDualβπΎ)βπ)) = ( Β·π
β((LCDualβπΎ)βπ)) |
27 | | eqid 2733 |
. . . . . . . 8
β’
(.rβ(Scalarβ((LCDualβπΎ)βπ))) =
(.rβ(Scalarβ((LCDualβπΎ)βπ))) |
28 | 21, 12, 26, 13, 27 | lmodvsass 20485 |
. . . . . . 7
β’
((((LCDualβπΎ)βπ) β LMod β§ ((πΊβπ) β
(Baseβ(Scalarβ((LCDualβπΎ)βπ))) β§ (πΊβπ) β
(Baseβ(Scalarβ((LCDualβπΎ)βπ))) β§ (((HDMapβπΎ)βπ)βπ‘) β (Baseβ((LCDualβπΎ)βπ)))) β (((πΊβπ)(.rβ(Scalarβ((LCDualβπΎ)βπ)))(πΊβπ))( Β·π
β((LCDualβπΎ)βπ))(((HDMapβπΎ)βπ)βπ‘)) = ((πΊβπ)( Β·π
β((LCDualβπΎ)βπ))((πΊβπ)( Β·π
β((LCDualβπΎ)βπ))(((HDMapβπΎ)βπ)βπ‘)))) |
29 | 9, 17, 20, 25, 28 | syl13anc 1373 |
. . . . . 6
β’ ((π β§ π‘ β (Baseβπ) β§ π‘ β (0gβπ)) β (((πΊβπ)(.rβ(Scalarβ((LCDualβπΎ)βπ)))(πΊβπ))( Β·π
β((LCDualβπΎ)βπ))(((HDMapβπΎ)βπ)βπ‘)) = ((πΊβπ)( Β·π
β((LCDualβπΎ)βπ))((πΊβπ)( Β·π
β((LCDualβπΎ)βπ))(((HDMapβπΎ)βπ)βπ‘)))) |
30 | 1, 2, 5 | dvhlmod 39919 |
. . . . . . . . . 10
β’ (π β π β LMod) |
31 | 30 | 3ad2ant1 1134 |
. . . . . . . . 9
β’ ((π β§ π‘ β (Baseβπ) β§ π‘ β (0gβπ)) β π β LMod) |
32 | 15 | 3ad2ant1 1134 |
. . . . . . . . 9
β’ ((π β§ π‘ β (Baseβπ) β§ π‘ β (0gβπ)) β π β π΅) |
33 | 18 | 3ad2ant1 1134 |
. . . . . . . . 9
β’ ((π β§ π‘ β (Baseβπ) β§ π‘ β (0gβπ)) β π β π΅) |
34 | | eqid 2733 |
. . . . . . . . . 10
β’ (
Β·π βπ) = ( Β·π
βπ) |
35 | | hgmapmul.t |
. . . . . . . . . 10
β’ Β· =
(.rβπ
) |
36 | 3, 10, 34, 11, 35 | lmodvsass 20485 |
. . . . . . . . 9
β’ ((π β LMod β§ (π β π΅ β§ π β π΅ β§ π‘ β (Baseβπ))) β ((π Β· π)( Β·π
βπ)π‘) = (π( Β·π
βπ)(π( Β·π
βπ)π‘))) |
37 | 31, 32, 33, 24, 36 | syl13anc 1373 |
. . . . . . . 8
β’ ((π β§ π‘ β (Baseβπ) β§ π‘ β (0gβπ)) β ((π Β· π)( Β·π
βπ)π‘) = (π( Β·π
βπ)(π( Β·π
βπ)π‘))) |
38 | 37 | fveq2d 6892 |
. . . . . . 7
β’ ((π β§ π‘ β (Baseβπ) β§ π‘ β (0gβπ)) β (((HDMapβπΎ)βπ)β((π Β· π)( Β·π
βπ)π‘)) = (((HDMapβπΎ)βπ)β(π( Β·π
βπ)(π( Β·π
βπ)π‘)))) |
39 | 3, 10, 34, 11 | lmodvscl 20477 |
. . . . . . . . 9
β’ ((π β LMod β§ π β π΅ β§ π‘ β (Baseβπ)) β (π( Β·π
βπ)π‘) β (Baseβπ)) |
40 | 31, 33, 24, 39 | syl3anc 1372 |
. . . . . . . 8
β’ ((π β§ π‘ β (Baseβπ) β§ π‘ β (0gβπ)) β (π( Β·π
βπ)π‘) β (Baseβπ)) |
41 | 1, 2, 3, 34, 10, 11, 7, 26, 22, 14, 23, 40, 32 | hgmapvs 40700 |
. . . . . . 7
β’ ((π β§ π‘ β (Baseβπ) β§ π‘ β (0gβπ)) β (((HDMapβπΎ)βπ)β(π( Β·π
βπ)(π( Β·π
βπ)π‘))) = ((πΊβπ)( Β·π
β((LCDualβπΎ)βπ))(((HDMapβπΎ)βπ)β(π( Β·π
βπ)π‘)))) |
42 | 1, 2, 3, 34, 10, 11, 7, 26, 22, 14, 23, 24, 33 | hgmapvs 40700 |
. . . . . . . 8
β’ ((π β§ π‘ β (Baseβπ) β§ π‘ β (0gβπ)) β (((HDMapβπΎ)βπ)β(π( Β·π
βπ)π‘)) = ((πΊβπ)( Β·π
β((LCDualβπΎ)βπ))(((HDMapβπΎ)βπ)βπ‘))) |
43 | 42 | oveq2d 7420 |
. . . . . . 7
β’ ((π β§ π‘ β (Baseβπ) β§ π‘ β (0gβπ)) β ((πΊβπ)( Β·π
β((LCDualβπΎ)βπ))(((HDMapβπΎ)βπ)β(π( Β·π
βπ)π‘))) = ((πΊβπ)( Β·π
β((LCDualβπΎ)βπ))((πΊβπ)( Β·π
β((LCDualβπΎ)βπ))(((HDMapβπΎ)βπ)βπ‘)))) |
44 | 38, 41, 43 | 3eqtrd 2777 |
. . . . . 6
β’ ((π β§ π‘ β (Baseβπ) β§ π‘ β (0gβπ)) β (((HDMapβπΎ)βπ)β((π Β· π)( Β·π
βπ)π‘)) = ((πΊβπ)( Β·π
β((LCDualβπΎ)βπ))((πΊβπ)( Β·π
β((LCDualβπΎ)βπ))(((HDMapβπΎ)βπ)βπ‘)))) |
45 | 10, 11, 35 | lmodmcl 20472 |
. . . . . . . . 9
β’ ((π β LMod β§ π β π΅ β§ π β π΅) β (π Β· π) β π΅) |
46 | 30, 15, 18, 45 | syl3anc 1372 |
. . . . . . . 8
β’ (π β (π Β· π) β π΅) |
47 | 46 | 3ad2ant1 1134 |
. . . . . . 7
β’ ((π β§ π‘ β (Baseβπ) β§ π‘ β (0gβπ)) β (π Β· π) β π΅) |
48 | 1, 2, 3, 34, 10, 11, 7, 26, 22, 14, 23, 24, 47 | hgmapvs 40700 |
. . . . . 6
β’ ((π β§ π‘ β (Baseβπ) β§ π‘ β (0gβπ)) β (((HDMapβπΎ)βπ)β((π Β· π)( Β·π
βπ)π‘)) = ((πΊβ(π Β· π))( Β·π
β((LCDualβπΎ)βπ))(((HDMapβπΎ)βπ)βπ‘))) |
49 | 29, 44, 48 | 3eqtr2rd 2780 |
. . . . 5
β’ ((π β§ π‘ β (Baseβπ) β§ π‘ β (0gβπ)) β ((πΊβ(π Β· π))( Β·π
β((LCDualβπΎ)βπ))(((HDMapβπΎ)βπ)βπ‘)) = (((πΊβπ)(.rβ(Scalarβ((LCDualβπΎ)βπ)))(πΊβπ))( Β·π
β((LCDualβπΎ)βπ))(((HDMapβπΎ)βπ)βπ‘))) |
50 | | eqid 2733 |
. . . . . 6
β’
(0gβ((LCDualβπΎ)βπ)) =
(0gβ((LCDualβπΎ)βπ)) |
51 | 1, 7, 5 | lcdlvec 40400 |
. . . . . . 7
β’ (π β ((LCDualβπΎ)βπ) β LVec) |
52 | 51 | 3ad2ant1 1134 |
. . . . . 6
β’ ((π β§ π‘ β (Baseβπ) β§ π‘ β (0gβπ)) β ((LCDualβπΎ)βπ) β LVec) |
53 | 1, 2, 10, 11, 7, 12, 13, 14, 5, 46 | hgmapdcl 40699 |
. . . . . . 7
β’ (π β (πΊβ(π Β· π)) β
(Baseβ(Scalarβ((LCDualβπΎ)βπ)))) |
54 | 53 | 3ad2ant1 1134 |
. . . . . 6
β’ ((π β§ π‘ β (Baseβπ) β§ π‘ β (0gβπ)) β (πΊβ(π Β· π)) β
(Baseβ(Scalarβ((LCDualβπΎ)βπ)))) |
55 | 12, 13, 27 | lmodmcl 20472 |
. . . . . . . 8
β’
((((LCDualβπΎ)βπ) β LMod β§ (πΊβπ) β
(Baseβ(Scalarβ((LCDualβπΎ)βπ))) β§ (πΊβπ) β
(Baseβ(Scalarβ((LCDualβπΎ)βπ)))) β ((πΊβπ)(.rβ(Scalarβ((LCDualβπΎ)βπ)))(πΊβπ)) β (Baseβ(Scalarβ((LCDualβπΎ)βπ)))) |
56 | 8, 16, 19, 55 | syl3anc 1372 |
. . . . . . 7
β’ (π β ((πΊβπ)(.rβ(Scalarβ((LCDualβπΎ)βπ)))(πΊβπ)) β (Baseβ(Scalarβ((LCDualβπΎ)βπ)))) |
57 | 56 | 3ad2ant1 1134 |
. . . . . 6
β’ ((π β§ π‘ β (Baseβπ) β§ π‘ β (0gβπ)) β ((πΊβπ)(.rβ(Scalarβ((LCDualβπΎ)βπ)))(πΊβπ)) β (Baseβ(Scalarβ((LCDualβπΎ)βπ)))) |
58 | | simp3 1139 |
. . . . . . 7
β’ ((π β§ π‘ β (Baseβπ) β§ π‘ β (0gβπ)) β π‘ β (0gβπ)) |
59 | 1, 2, 3, 4, 7, 50,
22, 23, 24 | hdmapeq0 40653 |
. . . . . . . 8
β’ ((π β§ π‘ β (Baseβπ) β§ π‘ β (0gβπ)) β ((((HDMapβπΎ)βπ)βπ‘) = (0gβ((LCDualβπΎ)βπ)) β π‘ = (0gβπ))) |
60 | 59 | necon3bid 2986 |
. . . . . . 7
β’ ((π β§ π‘ β (Baseβπ) β§ π‘ β (0gβπ)) β ((((HDMapβπΎ)βπ)βπ‘) β
(0gβ((LCDualβπΎ)βπ)) β π‘ β (0gβπ))) |
61 | 58, 60 | mpbird 257 |
. . . . . 6
β’ ((π β§ π‘ β (Baseβπ) β§ π‘ β (0gβπ)) β (((HDMapβπΎ)βπ)βπ‘) β
(0gβ((LCDualβπΎ)βπ))) |
62 | 21, 26, 12, 13, 50, 52, 54, 57, 25, 61 | lvecvscan2 20713 |
. . . . 5
β’ ((π β§ π‘ β (Baseβπ) β§ π‘ β (0gβπ)) β (((πΊβ(π Β· π))( Β·π
β((LCDualβπΎ)βπ))(((HDMapβπΎ)βπ)βπ‘)) = (((πΊβπ)(.rβ(Scalarβ((LCDualβπΎ)βπ)))(πΊβπ))( Β·π
β((LCDualβπΎ)βπ))(((HDMapβπΎ)βπ)βπ‘)) β (πΊβ(π Β· π)) = ((πΊβπ)(.rβ(Scalarβ((LCDualβπΎ)βπ)))(πΊβπ)))) |
63 | 49, 62 | mpbid 231 |
. . . 4
β’ ((π β§ π‘ β (Baseβπ) β§ π‘ β (0gβπ)) β (πΊβ(π Β· π)) = ((πΊβπ)(.rβ(Scalarβ((LCDualβπΎ)βπ)))(πΊβπ))) |
64 | 63 | rexlimdv3a 3160 |
. . 3
β’ (π β (βπ‘ β (Baseβπ)π‘ β (0gβπ) β (πΊβ(π Β· π)) = ((πΊβπ)(.rβ(Scalarβ((LCDualβπΎ)βπ)))(πΊβπ)))) |
65 | 6, 64 | mpd 15 |
. 2
β’ (π β (πΊβ(π Β· π)) = ((πΊβπ)(.rβ(Scalarβ((LCDualβπΎ)βπ)))(πΊβπ))) |
66 | 1, 2, 10, 11, 14, 5, 15 | hgmapcl 40698 |
. . 3
β’ (π β (πΊβπ) β π΅) |
67 | 1, 2, 10, 11, 14, 5, 18 | hgmapcl 40698 |
. . 3
β’ (π β (πΊβπ) β π΅) |
68 | 1, 2, 10, 11, 35, 7, 12, 27, 5, 66, 67 | lcdsmul 40411 |
. 2
β’ (π β ((πΊβπ)(.rβ(Scalarβ((LCDualβπΎ)βπ)))(πΊβπ)) = ((πΊβπ) Β· (πΊβπ))) |
69 | 65, 68 | eqtrd 2773 |
1
β’ (π β (πΊβ(π Β· π)) = ((πΊβπ) Β· (πΊβπ))) |