Step | Hyp | Ref
| Expression |
1 | | simp3 1138 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ πΉ β π β§ π β π΅) β π β π΅) |
2 | | ltrnatb.b |
. . . . 5
β’ π΅ = (BaseβπΎ) |
3 | | ltrnatb.h |
. . . . 5
β’ π» = (LHypβπΎ) |
4 | | ltrnatb.t |
. . . . 5
β’ π = ((LTrnβπΎ)βπ) |
5 | 2, 3, 4 | ltrncl 38984 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ πΉ β π β§ π β π΅) β (πΉβπ) β π΅) |
6 | 1, 5 | 2thd 264 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ πΉ β π β§ π β π΅) β (π β π΅ β (πΉβπ) β π΅)) |
7 | | simp1 1136 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ πΉ β π β§ π β π΅) β (πΎ β HL β§ π β π»)) |
8 | | simp2 1137 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ πΉ β π β§ π β π΅) β πΉ β π) |
9 | | simp1l 1197 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ πΉ β π β§ π β π΅) β πΎ β HL) |
10 | | hlop 38220 |
. . . . . 6
β’ (πΎ β HL β πΎ β OP) |
11 | | eqid 2732 |
. . . . . . 7
β’
(0.βπΎ) =
(0.βπΎ) |
12 | 2, 11 | op0cl 38042 |
. . . . . 6
β’ (πΎ β OP β
(0.βπΎ) β π΅) |
13 | 9, 10, 12 | 3syl 18 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ πΉ β π β§ π β π΅) β (0.βπΎ) β π΅) |
14 | | eqid 2732 |
. . . . . 6
β’ ( β
βπΎ) = ( β
βπΎ) |
15 | 2, 14, 3, 4 | ltrncvr 38992 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ πΉ β π β§ ((0.βπΎ) β π΅ β§ π β π΅)) β ((0.βπΎ)( β βπΎ)π β (πΉβ(0.βπΎ))( β βπΎ)(πΉβπ))) |
16 | 7, 8, 13, 1, 15 | syl112anc 1374 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ πΉ β π β§ π β π΅) β ((0.βπΎ)( β βπΎ)π β (πΉβ(0.βπΎ))( β βπΎ)(πΉβπ))) |
17 | 9, 10 | syl 17 |
. . . . . . 7
β’ (((πΎ β HL β§ π β π») β§ πΉ β π β§ π β π΅) β πΎ β OP) |
18 | | simp1r 1198 |
. . . . . . . 8
β’ (((πΎ β HL β§ π β π») β§ πΉ β π β§ π β π΅) β π β π») |
19 | 2, 3 | lhpbase 38857 |
. . . . . . . 8
β’ (π β π» β π β π΅) |
20 | 18, 19 | syl 17 |
. . . . . . 7
β’ (((πΎ β HL β§ π β π») β§ πΉ β π β§ π β π΅) β π β π΅) |
21 | | eqid 2732 |
. . . . . . . 8
β’
(leβπΎ) =
(leβπΎ) |
22 | 2, 21, 11 | op0le 38044 |
. . . . . . 7
β’ ((πΎ β OP β§ π β π΅) β (0.βπΎ)(leβπΎ)π) |
23 | 17, 20, 22 | syl2anc 584 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ πΉ β π β§ π β π΅) β (0.βπΎ)(leβπΎ)π) |
24 | 2, 21, 3, 4 | ltrnval1 38993 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ πΉ β π β§ ((0.βπΎ) β π΅ β§ (0.βπΎ)(leβπΎ)π)) β (πΉβ(0.βπΎ)) = (0.βπΎ)) |
25 | 7, 8, 13, 23, 24 | syl112anc 1374 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ πΉ β π β§ π β π΅) β (πΉβ(0.βπΎ)) = (0.βπΎ)) |
26 | 25 | breq1d 5157 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ πΉ β π β§ π β π΅) β ((πΉβ(0.βπΎ))( β βπΎ)(πΉβπ) β (0.βπΎ)( β βπΎ)(πΉβπ))) |
27 | 16, 26 | bitrd 278 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ πΉ β π β§ π β π΅) β ((0.βπΎ)( β βπΎ)π β (0.βπΎ)( β βπΎ)(πΉβπ))) |
28 | 6, 27 | anbi12d 631 |
. 2
β’ (((πΎ β HL β§ π β π») β§ πΉ β π β§ π β π΅) β ((π β π΅ β§ (0.βπΎ)( β βπΎ)π) β ((πΉβπ) β π΅ β§ (0.βπΎ)( β βπΎ)(πΉβπ)))) |
29 | | ltrnatb.a |
. . . 4
β’ π΄ = (AtomsβπΎ) |
30 | 2, 11, 14, 29 | isat 38144 |
. . 3
β’ (πΎ β HL β (π β π΄ β (π β π΅ β§ (0.βπΎ)( β βπΎ)π))) |
31 | 9, 30 | syl 17 |
. 2
β’ (((πΎ β HL β§ π β π») β§ πΉ β π β§ π β π΅) β (π β π΄ β (π β π΅ β§ (0.βπΎ)( β βπΎ)π))) |
32 | 2, 11, 14, 29 | isat 38144 |
. . 3
β’ (πΎ β HL β ((πΉβπ) β π΄ β ((πΉβπ) β π΅ β§ (0.βπΎ)( β βπΎ)(πΉβπ)))) |
33 | 9, 32 | syl 17 |
. 2
β’ (((πΎ β HL β§ π β π») β§ πΉ β π β§ π β π΅) β ((πΉβπ) β π΄ β ((πΉβπ) β π΅ β§ (0.βπΎ)( β βπΎ)(πΉβπ)))) |
34 | 28, 31, 33 | 3bitr4d 310 |
1
β’ (((πΎ β HL β§ π β π») β§ πΉ β π β§ π β π΅) β (π β π΄ β (πΉβπ) β π΄)) |