Step | Hyp | Ref
| Expression |
1 | | cdlemg4.b |
. . . 4
β’ π΅ = (BaseβπΎ) |
2 | | cdlemg4.l |
. . . 4
β’ β€ =
(leβπΎ) |
3 | | eqid 2731 |
. . . 4
β’
(joinβπΎ) =
(joinβπΎ) |
4 | | eqid 2731 |
. . . 4
β’
(meetβπΎ) =
(meetβπΎ) |
5 | | cdlemg4.a |
. . . 4
β’ π΄ = (AtomsβπΎ) |
6 | | cdlemg4.h |
. . . 4
β’ π» = (LHypβπΎ) |
7 | 1, 2, 3, 4, 5, 6 | lhpmcvr2 38593 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π)) β βπ β π΄ (Β¬ π β€ π β§ (π(joinβπΎ)(π(meetβπΎ)π)) = π)) |
8 | 7 | 3adant3 1132 |
. 2
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ πΉ β π) β βπ β π΄ (Β¬ π β€ π β§ (π(joinβπΎ)(π(meetβπΎ)π)) = π)) |
9 | | simp11 1203 |
. . . . . 6
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ πΉ β π) β§ π β π΄ β§ (Β¬ π β€ π β§ (π(joinβπΎ)(π(meetβπΎ)π)) = π)) β (πΎ β HL β§ π β π»)) |
10 | | simp2 1137 |
. . . . . . 7
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ πΉ β π) β§ π β π΄ β§ (Β¬ π β€ π β§ (π(joinβπΎ)(π(meetβπΎ)π)) = π)) β π β π΄) |
11 | | simp3l 1201 |
. . . . . . 7
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ πΉ β π) β§ π β π΄ β§ (Β¬ π β€ π β§ (π(joinβπΎ)(π(meetβπΎ)π)) = π)) β Β¬ π β€ π) |
12 | 10, 11 | jca 512 |
. . . . . 6
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ πΉ β π) β§ π β π΄ β§ (Β¬ π β€ π β§ (π(joinβπΎ)(π(meetβπΎ)π)) = π)) β (π β π΄ β§ Β¬ π β€ π)) |
13 | | simp12 1204 |
. . . . . 6
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ πΉ β π) β§ π β π΄ β§ (Β¬ π β€ π β§ (π(joinβπΎ)(π(meetβπΎ)π)) = π)) β (π β π΅ β§ Β¬ π β€ π)) |
14 | | simp13 1205 |
. . . . . 6
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ πΉ β π) β§ π β π΄ β§ (Β¬ π β€ π β§ (π(joinβπΎ)(π(meetβπΎ)π)) = π)) β πΉ β π) |
15 | | simp3r 1202 |
. . . . . 6
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ πΉ β π) β§ π β π΄ β§ (Β¬ π β€ π β§ (π(joinβπΎ)(π(meetβπΎ)π)) = π)) β (π(joinβπΎ)(π(meetβπΎ)π)) = π) |
16 | | cdlemg4.t |
. . . . . . 7
β’ π = ((LTrnβπΎ)βπ) |
17 | 6, 16, 2, 3, 5, 4, 1 | cdlemg2fv 39168 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΅ β§ Β¬ π β€ π)) β§ (πΉ β π β§ (π(joinβπΎ)(π(meetβπΎ)π)) = π)) β (πΉβπ) = ((πΉβπ)(joinβπΎ)(π(meetβπΎ)π))) |
18 | 9, 12, 13, 14, 15, 17 | syl122anc 1379 |
. . . . 5
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ πΉ β π) β§ π β π΄ β§ (Β¬ π β€ π β§ (π(joinβπΎ)(π(meetβπΎ)π)) = π)) β (πΉβπ) = ((πΉβπ)(joinβπΎ)(π(meetβπΎ)π))) |
19 | | simp11l 1284 |
. . . . . . 7
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ πΉ β π) β§ π β π΄ β§ (Β¬ π β€ π β§ (π(joinβπΎ)(π(meetβπΎ)π)) = π)) β πΎ β HL) |
20 | 19 | hllatd 37932 |
. . . . . 6
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ πΉ β π) β§ π β π΄ β§ (Β¬ π β€ π β§ (π(joinβπΎ)(π(meetβπΎ)π)) = π)) β πΎ β Lat) |
21 | 2, 5, 6, 16 | ltrnel 38708 |
. . . . . . . . 9
β’ (((πΎ β HL β§ π β π») β§ πΉ β π β§ (π β π΄ β§ Β¬ π β€ π)) β ((πΉβπ) β π΄ β§ Β¬ (πΉβπ) β€ π)) |
22 | 21 | simpld 495 |
. . . . . . . 8
β’ (((πΎ β HL β§ π β π») β§ πΉ β π β§ (π β π΄ β§ Β¬ π β€ π)) β (πΉβπ) β π΄) |
23 | 9, 14, 12, 22 | syl3anc 1371 |
. . . . . . 7
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ πΉ β π) β§ π β π΄ β§ (Β¬ π β€ π β§ (π(joinβπΎ)(π(meetβπΎ)π)) = π)) β (πΉβπ) β π΄) |
24 | 1, 5 | atbase 37857 |
. . . . . . 7
β’ ((πΉβπ) β π΄ β (πΉβπ) β π΅) |
25 | 23, 24 | syl 17 |
. . . . . 6
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ πΉ β π) β§ π β π΄ β§ (Β¬ π β€ π β§ (π(joinβπΎ)(π(meetβπΎ)π)) = π)) β (πΉβπ) β π΅) |
26 | | simp12l 1286 |
. . . . . . 7
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ πΉ β π) β§ π β π΄ β§ (Β¬ π β€ π β§ (π(joinβπΎ)(π(meetβπΎ)π)) = π)) β π β π΅) |
27 | | simp11r 1285 |
. . . . . . . 8
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ πΉ β π) β§ π β π΄ β§ (Β¬ π β€ π β§ (π(joinβπΎ)(π(meetβπΎ)π)) = π)) β π β π») |
28 | 1, 6 | lhpbase 38567 |
. . . . . . . 8
β’ (π β π» β π β π΅) |
29 | 27, 28 | syl 17 |
. . . . . . 7
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ πΉ β π) β§ π β π΄ β§ (Β¬ π β€ π β§ (π(joinβπΎ)(π(meetβπΎ)π)) = π)) β π β π΅) |
30 | 1, 4 | latmcl 18358 |
. . . . . . 7
β’ ((πΎ β Lat β§ π β π΅ β§ π β π΅) β (π(meetβπΎ)π) β π΅) |
31 | 20, 26, 29, 30 | syl3anc 1371 |
. . . . . 6
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ πΉ β π) β§ π β π΄ β§ (Β¬ π β€ π β§ (π(joinβπΎ)(π(meetβπΎ)π)) = π)) β (π(meetβπΎ)π) β π΅) |
32 | 1, 3 | latjcl 18357 |
. . . . . 6
β’ ((πΎ β Lat β§ (πΉβπ) β π΅ β§ (π(meetβπΎ)π) β π΅) β ((πΉβπ)(joinβπΎ)(π(meetβπΎ)π)) β π΅) |
33 | 20, 25, 31, 32 | syl3anc 1371 |
. . . . 5
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ πΉ β π) β§ π β π΄ β§ (Β¬ π β€ π β§ (π(joinβπΎ)(π(meetβπΎ)π)) = π)) β ((πΉβπ)(joinβπΎ)(π(meetβπΎ)π)) β π΅) |
34 | 18, 33 | eqeltrd 2832 |
. . . 4
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ πΉ β π) β§ π β π΄ β§ (Β¬ π β€ π β§ (π(joinβπΎ)(π(meetβπΎ)π)) = π)) β (πΉβπ) β π΅) |
35 | 21 | simprd 496 |
. . . . . . 7
β’ (((πΎ β HL β§ π β π») β§ πΉ β π β§ (π β π΄ β§ Β¬ π β€ π)) β Β¬ (πΉβπ) β€ π) |
36 | 9, 14, 12, 35 | syl3anc 1371 |
. . . . . 6
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ πΉ β π) β§ π β π΄ β§ (Β¬ π β€ π β§ (π(joinβπΎ)(π(meetβπΎ)π)) = π)) β Β¬ (πΉβπ) β€ π) |
37 | 1, 2, 3 | latlej1 18366 |
. . . . . . . 8
β’ ((πΎ β Lat β§ (πΉβπ) β π΅ β§ (π(meetβπΎ)π) β π΅) β (πΉβπ) β€ ((πΉβπ)(joinβπΎ)(π(meetβπΎ)π))) |
38 | 20, 25, 31, 37 | syl3anc 1371 |
. . . . . . 7
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ πΉ β π) β§ π β π΄ β§ (Β¬ π β€ π β§ (π(joinβπΎ)(π(meetβπΎ)π)) = π)) β (πΉβπ) β€ ((πΉβπ)(joinβπΎ)(π(meetβπΎ)π))) |
39 | 1, 2 | lattr 18362 |
. . . . . . . 8
β’ ((πΎ β Lat β§ ((πΉβπ) β π΅ β§ ((πΉβπ)(joinβπΎ)(π(meetβπΎ)π)) β π΅ β§ π β π΅)) β (((πΉβπ) β€ ((πΉβπ)(joinβπΎ)(π(meetβπΎ)π)) β§ ((πΉβπ)(joinβπΎ)(π(meetβπΎ)π)) β€ π) β (πΉβπ) β€ π)) |
40 | 20, 25, 33, 29, 39 | syl13anc 1372 |
. . . . . . 7
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ πΉ β π) β§ π β π΄ β§ (Β¬ π β€ π β§ (π(joinβπΎ)(π(meetβπΎ)π)) = π)) β (((πΉβπ) β€ ((πΉβπ)(joinβπΎ)(π(meetβπΎ)π)) β§ ((πΉβπ)(joinβπΎ)(π(meetβπΎ)π)) β€ π) β (πΉβπ) β€ π)) |
41 | 38, 40 | mpand 693 |
. . . . . 6
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ πΉ β π) β§ π β π΄ β§ (Β¬ π β€ π β§ (π(joinβπΎ)(π(meetβπΎ)π)) = π)) β (((πΉβπ)(joinβπΎ)(π(meetβπΎ)π)) β€ π β (πΉβπ) β€ π)) |
42 | 36, 41 | mtod 197 |
. . . . 5
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ πΉ β π) β§ π β π΄ β§ (Β¬ π β€ π β§ (π(joinβπΎ)(π(meetβπΎ)π)) = π)) β Β¬ ((πΉβπ)(joinβπΎ)(π(meetβπΎ)π)) β€ π) |
43 | 18 | breq1d 5135 |
. . . . 5
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ πΉ β π) β§ π β π΄ β§ (Β¬ π β€ π β§ (π(joinβπΎ)(π(meetβπΎ)π)) = π)) β ((πΉβπ) β€ π β ((πΉβπ)(joinβπΎ)(π(meetβπΎ)π)) β€ π)) |
44 | 42, 43 | mtbird 324 |
. . . 4
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ πΉ β π) β§ π β π΄ β§ (Β¬ π β€ π β§ (π(joinβπΎ)(π(meetβπΎ)π)) = π)) β Β¬ (πΉβπ) β€ π) |
45 | 34, 44 | jca 512 |
. . 3
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ πΉ β π) β§ π β π΄ β§ (Β¬ π β€ π β§ (π(joinβπΎ)(π(meetβπΎ)π)) = π)) β ((πΉβπ) β π΅ β§ Β¬ (πΉβπ) β€ π)) |
46 | 45 | rexlimdv3a 3158 |
. 2
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ πΉ β π) β (βπ β π΄ (Β¬ π β€ π β§ (π(joinβπΎ)(π(meetβπΎ)π)) = π) β ((πΉβπ) β π΅ β§ Β¬ (πΉβπ) β€ π))) |
47 | 8, 46 | mpd 15 |
1
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π) β§ πΉ β π) β ((πΉβπ) β π΅ β§ Β¬ (πΉβπ) β€ π)) |