Step | Hyp | Ref
| Expression |
1 | | cdlemg2inv.h |
. . . 4
β’ π» = (LHypβπΎ) |
2 | | cdlemg2inv.t |
. . . 4
β’ π = ((LTrnβπΎ)βπ) |
3 | | cdlemg2j.l |
. . . 4
β’ β€ =
(leβπΎ) |
4 | | cdlemg2j.j |
. . . 4
β’ β¨ =
(joinβπΎ) |
5 | | cdlemg2j.a |
. . . 4
β’ π΄ = (AtomsβπΎ) |
6 | | cdlemg2j.m |
. . . 4
β’ β§ =
(meetβπΎ) |
7 | | cdlemg2j.u |
. . . 4
β’ π = ((π β¨ π) β§ π) |
8 | 1, 2, 3, 4, 5, 6, 7 | cdlemg2k 39775 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ πΉ β π) β ((πΉβπ) β¨ (πΉβπ)) = ((πΉβπ) β¨ π)) |
9 | 8 | oveq1d 7426 |
. 2
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ πΉ β π) β (((πΉβπ) β¨ (πΉβπ)) β§ π) = (((πΉβπ) β¨ π) β§ π)) |
10 | | simp1 1136 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ πΉ β π) β (πΎ β HL β§ π β π»)) |
11 | | simp3 1138 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ πΉ β π) β πΉ β π) |
12 | | simp2l 1199 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ πΉ β π) β (π β π΄ β§ Β¬ π β€ π)) |
13 | | eqid 2732 |
. . . . . 6
β’
(0.βπΎ) =
(0.βπΎ) |
14 | 3, 6, 13, 5, 1, 2 | ltrnmw 39325 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ πΉ β π β§ (π β π΄ β§ Β¬ π β€ π)) β ((πΉβπ) β§ π) = (0.βπΎ)) |
15 | 10, 11, 12, 14 | syl3anc 1371 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ πΉ β π) β ((πΉβπ) β§ π) = (0.βπΎ)) |
16 | 15 | oveq1d 7426 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ πΉ β π) β (((πΉβπ) β§ π) β¨ π) = ((0.βπΎ) β¨ π)) |
17 | | simp1l 1197 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ πΉ β π) β πΎ β HL) |
18 | 3, 5, 1, 2 | ltrnel 39313 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ πΉ β π β§ (π β π΄ β§ Β¬ π β€ π)) β ((πΉβπ) β π΄ β§ Β¬ (πΉβπ) β€ π)) |
19 | 10, 11, 12, 18 | syl3anc 1371 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ πΉ β π) β ((πΉβπ) β π΄ β§ Β¬ (πΉβπ) β€ π)) |
20 | 19 | simpld 495 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ πΉ β π) β (πΉβπ) β π΄) |
21 | | simp1r 1198 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ πΉ β π) β π β π») |
22 | | simp2ll 1240 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ πΉ β π) β π β π΄) |
23 | | simp2rl 1242 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ πΉ β π) β π β π΄) |
24 | | eqid 2732 |
. . . . . 6
β’
(BaseβπΎ) =
(BaseβπΎ) |
25 | 3, 4, 6, 5, 1, 7, 24 | cdleme0aa 39384 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ π β π΄ β§ π β π΄) β π β (BaseβπΎ)) |
26 | 17, 21, 22, 23, 25 | syl211anc 1376 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ πΉ β π) β π β (BaseβπΎ)) |
27 | 24, 1 | lhpbase 39172 |
. . . . 5
β’ (π β π» β π β (BaseβπΎ)) |
28 | 21, 27 | syl 17 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ πΉ β π) β π β (BaseβπΎ)) |
29 | 17 | hllatd 38537 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ πΉ β π) β πΎ β Lat) |
30 | 24, 4, 5 | hlatjcl 38540 |
. . . . . . 7
β’ ((πΎ β HL β§ π β π΄ β§ π β π΄) β (π β¨ π) β (BaseβπΎ)) |
31 | 17, 22, 23, 30 | syl3anc 1371 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ πΉ β π) β (π β¨ π) β (BaseβπΎ)) |
32 | 24, 3, 6 | latmle2 18422 |
. . . . . 6
β’ ((πΎ β Lat β§ (π β¨ π) β (BaseβπΎ) β§ π β (BaseβπΎ)) β ((π β¨ π) β§ π) β€ π) |
33 | 29, 31, 28, 32 | syl3anc 1371 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ πΉ β π) β ((π β¨ π) β§ π) β€ π) |
34 | 7, 33 | eqbrtrid 5183 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ πΉ β π) β π β€ π) |
35 | 24, 3, 4, 6, 5 | atmod4i2 39041 |
. . . 4
β’ ((πΎ β HL β§ ((πΉβπ) β π΄ β§ π β (BaseβπΎ) β§ π β (BaseβπΎ)) β§ π β€ π) β (((πΉβπ) β§ π) β¨ π) = (((πΉβπ) β¨ π) β§ π)) |
36 | 17, 20, 26, 28, 34, 35 | syl131anc 1383 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ πΉ β π) β (((πΉβπ) β§ π) β¨ π) = (((πΉβπ) β¨ π) β§ π)) |
37 | | hlol 38534 |
. . . . 5
β’ (πΎ β HL β πΎ β OL) |
38 | 17, 37 | syl 17 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ πΉ β π) β πΎ β OL) |
39 | 24, 4, 13 | olj02 38399 |
. . . 4
β’ ((πΎ β OL β§ π β (BaseβπΎ)) β ((0.βπΎ) β¨ π) = π) |
40 | 38, 26, 39 | syl2anc 584 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ πΉ β π) β ((0.βπΎ) β¨ π) = π) |
41 | 16, 36, 40 | 3eqtr3d 2780 |
. 2
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ πΉ β π) β (((πΉβπ) β¨ π) β§ π) = π) |
42 | 9, 41 | eqtrd 2772 |
1
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ πΉ β π) β (((πΉβπ) β¨ (πΉβπ)) β§ π) = π) |