Step | Hyp | Ref
| Expression |
1 | | cdleme26.b |
. 2
β’ π΅ = (BaseβπΎ) |
2 | | cdleme26.l |
. 2
β’ β€ =
(leβπΎ) |
3 | | simp11l 1285 |
. . 3
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π β π΄ β§ Β¬ π β€ π) β§ (π‘ β π΄ β§ Β¬ π‘ β€ π)) β§ (π β π‘ β§ ((π β¨ (π β§ π)) = π β§ (π‘ β¨ (π β§ π)) = π) β§ (π β π΅ β§ Β¬ π β€ π))) β πΎ β HL) |
4 | 3 | hllatd 37855 |
. 2
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π β π΄ β§ Β¬ π β€ π) β§ (π‘ β π΄ β§ Β¬ π‘ β€ π)) β§ (π β π‘ β§ ((π β¨ (π β§ π)) = π β§ (π‘ β¨ (π β§ π)) = π) β§ (π β π΅ β§ Β¬ π β€ π))) β πΎ β Lat) |
5 | | simp11r 1286 |
. . . 4
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π β π΄ β§ Β¬ π β€ π) β§ (π‘ β π΄ β§ Β¬ π‘ β€ π)) β§ (π β π‘ β§ ((π β¨ (π β§ π)) = π β§ (π‘ β¨ (π β§ π)) = π) β§ (π β π΅ β§ Β¬ π β€ π))) β π β π») |
6 | | simp12 1205 |
. . . 4
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π β π΄ β§ Β¬ π β€ π) β§ (π‘ β π΄ β§ Β¬ π‘ β€ π)) β§ (π β π‘ β§ ((π β¨ (π β§ π)) = π β§ (π‘ β¨ (π β§ π)) = π) β§ (π β π΅ β§ Β¬ π β€ π))) β (π β π΄ β§ Β¬ π β€ π)) |
7 | | simp13 1206 |
. . . 4
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π β π΄ β§ Β¬ π β€ π) β§ (π‘ β π΄ β§ Β¬ π‘ β€ π)) β§ (π β π‘ β§ ((π β¨ (π β§ π)) = π β§ (π‘ β¨ (π β§ π)) = π) β§ (π β π΅ β§ Β¬ π β€ π))) β (π β π΄ β§ Β¬ π β€ π)) |
8 | | simp22 1208 |
. . . 4
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π β π΄ β§ Β¬ π β€ π) β§ (π‘ β π΄ β§ Β¬ π‘ β€ π)) β§ (π β π‘ β§ ((π β¨ (π β§ π)) = π β§ (π‘ β¨ (π β§ π)) = π) β§ (π β π΅ β§ Β¬ π β€ π))) β (π β π΄ β§ Β¬ π β€ π)) |
9 | | simp21 1207 |
. . . 4
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π β π΄ β§ Β¬ π β€ π) β§ (π‘ β π΄ β§ Β¬ π‘ β€ π)) β§ (π β π‘ β§ ((π β¨ (π β§ π)) = π β§ (π‘ β¨ (π β§ π)) = π) β§ (π β π΅ β§ Β¬ π β€ π))) β π β π) |
10 | | cdleme26.j |
. . . . 5
β’ β¨ =
(joinβπΎ) |
11 | | cdleme26.m |
. . . . 5
β’ β§ =
(meetβπΎ) |
12 | | cdleme26.a |
. . . . 5
β’ π΄ = (AtomsβπΎ) |
13 | | cdleme26.h |
. . . . 5
β’ π» = (LHypβπΎ) |
14 | | cdleme27.u |
. . . . 5
β’ π = ((π β¨ π) β§ π) |
15 | | cdleme27.f |
. . . . 5
β’ πΉ = ((π β¨ π) β§ (π β¨ ((π β¨ π ) β§ π))) |
16 | | cdleme27.z |
. . . . 5
β’ π = ((π§ β¨ π) β§ (π β¨ ((π β¨ π§) β§ π))) |
17 | | cdleme27.n |
. . . . 5
β’ π = ((π β¨ π) β§ (π β¨ ((π β¨ π§) β§ π))) |
18 | | cdleme27.d |
. . . . 5
β’ π· = (β©π’ β π΅ βπ§ β π΄ ((Β¬ π§ β€ π β§ Β¬ π§ β€ (π β¨ π)) β π’ = π)) |
19 | | cdleme27.c |
. . . . 5
β’ πΆ = if(π β€ (π β¨ π), π·, πΉ) |
20 | 1, 2, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19 | cdleme27cl 38858 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ ((π β π΄ β§ Β¬ π β€ π) β§ π β π)) β πΆ β π΅) |
21 | 3, 5, 6, 7, 8, 9, 20 | syl222anc 1387 |
. . 3
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π β π΄ β§ Β¬ π β€ π) β§ (π‘ β π΄ β§ Β¬ π‘ β€ π)) β§ (π β π‘ β§ ((π β¨ (π β§ π)) = π β§ (π‘ β¨ (π β§ π)) = π) β§ (π β π΅ β§ Β¬ π β€ π))) β πΆ β π΅) |
22 | | simp33l 1301 |
. . . 4
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π β π΄ β§ Β¬ π β€ π) β§ (π‘ β π΄ β§ Β¬ π‘ β€ π)) β§ (π β π‘ β§ ((π β¨ (π β§ π)) = π β§ (π‘ β¨ (π β§ π)) = π) β§ (π β π΅ β§ Β¬ π β€ π))) β π β π΅) |
23 | 1, 13 | lhpbase 38490 |
. . . . 5
β’ (π β π» β π β π΅) |
24 | 5, 23 | syl 17 |
. . . 4
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π β π΄ β§ Β¬ π β€ π) β§ (π‘ β π΄ β§ Β¬ π‘ β€ π)) β§ (π β π‘ β§ ((π β¨ (π β§ π)) = π β§ (π‘ β¨ (π β§ π)) = π) β§ (π β π΅ β§ Β¬ π β€ π))) β π β π΅) |
25 | 1, 11 | latmcl 18336 |
. . . 4
β’ ((πΎ β Lat β§ π β π΅ β§ π β π΅) β (π β§ π) β π΅) |
26 | 4, 22, 24, 25 | syl3anc 1372 |
. . 3
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π β π΄ β§ Β¬ π β€ π) β§ (π‘ β π΄ β§ Β¬ π‘ β€ π)) β§ (π β π‘ β§ ((π β¨ (π β§ π)) = π β§ (π‘ β¨ (π β§ π)) = π) β§ (π β π΅ β§ Β¬ π β€ π))) β (π β§ π) β π΅) |
27 | 1, 10 | latjcl 18335 |
. . 3
β’ ((πΎ β Lat β§ πΆ β π΅ β§ (π β§ π) β π΅) β (πΆ β¨ (π β§ π)) β π΅) |
28 | 4, 21, 26, 27 | syl3anc 1372 |
. 2
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π β π΄ β§ Β¬ π β€ π) β§ (π‘ β π΄ β§ Β¬ π‘ β€ π)) β§ (π β π‘ β§ ((π β¨ (π β§ π)) = π β§ (π‘ β¨ (π β§ π)) = π) β§ (π β π΅ β§ Β¬ π β€ π))) β (πΆ β¨ (π β§ π)) β π΅) |
29 | | simp23 1209 |
. . . 4
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π β π΄ β§ Β¬ π β€ π) β§ (π‘ β π΄ β§ Β¬ π‘ β€ π)) β§ (π β π‘ β§ ((π β¨ (π β§ π)) = π β§ (π‘ β¨ (π β§ π)) = π) β§ (π β π΅ β§ Β¬ π β€ π))) β (π‘ β π΄ β§ Β¬ π‘ β€ π)) |
30 | | cdleme27.g |
. . . . 5
β’ πΊ = ((π‘ β¨ π) β§ (π β¨ ((π β¨ π‘) β§ π))) |
31 | | cdleme27.o |
. . . . 5
β’ π = ((π β¨ π) β§ (π β¨ ((π‘ β¨ π§) β§ π))) |
32 | | cdleme27.e |
. . . . 5
β’ πΈ = (β©π’ β π΅ βπ§ β π΄ ((Β¬ π§ β€ π β§ Β¬ π§ β€ (π β¨ π)) β π’ = π)) |
33 | | cdleme27.y |
. . . . 5
β’ π = if(π‘ β€ (π β¨ π), πΈ, πΊ) |
34 | 1, 2, 10, 11, 12, 13, 14, 30, 16, 31, 32, 33 | cdleme27cl 38858 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ ((π‘ β π΄ β§ Β¬ π‘ β€ π) β§ π β π)) β π β π΅) |
35 | 3, 5, 6, 7, 29, 9,
34 | syl222anc 1387 |
. . 3
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π β π΄ β§ Β¬ π β€ π) β§ (π‘ β π΄ β§ Β¬ π‘ β€ π)) β§ (π β π‘ β§ ((π β¨ (π β§ π)) = π β§ (π‘ β¨ (π β§ π)) = π) β§ (π β π΅ β§ Β¬ π β€ π))) β π β π΅) |
36 | 1, 10 | latjcl 18335 |
. . 3
β’ ((πΎ β Lat β§ π β π΅ β§ (π β§ π) β π΅) β (π β¨ (π β§ π)) β π΅) |
37 | 4, 35, 26, 36 | syl3anc 1372 |
. 2
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π β π΄ β§ Β¬ π β€ π) β§ (π‘ β π΄ β§ Β¬ π‘ β€ π)) β§ (π β π‘ β§ ((π β¨ (π β§ π)) = π β§ (π‘ β¨ (π β§ π)) = π) β§ (π β π΅ β§ Β¬ π β€ π))) β (π β¨ (π β§ π)) β π΅) |
38 | | eqid 2737 |
. . 3
β’ ((π β¨ π‘) β§ (π β§ π)) = ((π β¨ π‘) β§ (π β§ π)) |
39 | 1, 2, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 30, 31, 32, 33, 38 | cdleme28a 38862 |
. 2
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π β π΄ β§ Β¬ π β€ π) β§ (π‘ β π΄ β§ Β¬ π‘ β€ π)) β§ (π β π‘ β§ ((π β¨ (π β§ π)) = π β§ (π‘ β¨ (π β§ π)) = π) β§ (π β π΅ β§ Β¬ π β€ π))) β (πΆ β¨ (π β§ π)) β€ (π β¨ (π β§ π))) |
40 | | simp11 1204 |
. . 3
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π β π΄ β§ Β¬ π β€ π) β§ (π‘ β π΄ β§ Β¬ π‘ β€ π)) β§ (π β π‘ β§ ((π β¨ (π β§ π)) = π β§ (π‘ β¨ (π β§ π)) = π) β§ (π β π΅ β§ Β¬ π β€ π))) β (πΎ β HL β§ π β π»)) |
41 | | simp31 1210 |
. . . 4
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π β π΄ β§ Β¬ π β€ π) β§ (π‘ β π΄ β§ Β¬ π‘ β€ π)) β§ (π β π‘ β§ ((π β¨ (π β§ π)) = π β§ (π‘ β¨ (π β§ π)) = π) β§ (π β π΅ β§ Β¬ π β€ π))) β π β π‘) |
42 | 41 | necomd 3000 |
. . 3
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π β π΄ β§ Β¬ π β€ π) β§ (π‘ β π΄ β§ Β¬ π‘ β€ π)) β§ (π β π‘ β§ ((π β¨ (π β§ π)) = π β§ (π‘ β¨ (π β§ π)) = π) β§ (π β π΅ β§ Β¬ π β€ π))) β π‘ β π ) |
43 | | simp32 1211 |
. . . 4
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π β π΄ β§ Β¬ π β€ π) β§ (π‘ β π΄ β§ Β¬ π‘ β€ π)) β§ (π β π‘ β§ ((π β¨ (π β§ π)) = π β§ (π‘ β¨ (π β§ π)) = π) β§ (π β π΅ β§ Β¬ π β€ π))) β ((π β¨ (π β§ π)) = π β§ (π‘ β¨ (π β§ π)) = π)) |
44 | 43 | ancomd 463 |
. . 3
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π β π΄ β§ Β¬ π β€ π) β§ (π‘ β π΄ β§ Β¬ π‘ β€ π)) β§ (π β π‘ β§ ((π β¨ (π β§ π)) = π β§ (π‘ β¨ (π β§ π)) = π) β§ (π β π΅ β§ Β¬ π β€ π))) β ((π‘ β¨ (π β§ π)) = π β§ (π β¨ (π β§ π)) = π)) |
45 | | simp33 1212 |
. . 3
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π β π΄ β§ Β¬ π β€ π) β§ (π‘ β π΄ β§ Β¬ π‘ β€ π)) β§ (π β π‘ β§ ((π β¨ (π β§ π)) = π β§ (π‘ β¨ (π β§ π)) = π) β§ (π β π΅ β§ Β¬ π β€ π))) β (π β π΅ β§ Β¬ π β€ π)) |
46 | | eqid 2737 |
. . . 4
β’ ((π‘ β¨ π ) β§ (π β§ π)) = ((π‘ β¨ π ) β§ (π β§ π)) |
47 | 1, 2, 10, 11, 12, 13, 14, 30, 16, 31, 32, 33, 15, 17, 18, 19, 46 | cdleme28a 38862 |
. . 3
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π‘ β π΄ β§ Β¬ π‘ β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π‘ β π β§ ((π‘ β¨ (π β§ π)) = π β§ (π β¨ (π β§ π)) = π) β§ (π β π΅ β§ Β¬ π β€ π))) β (π β¨ (π β§ π)) β€ (πΆ β¨ (π β§ π))) |
48 | 40, 6, 7, 9, 29, 8,
42, 44, 45, 47 | syl333anc 1403 |
. 2
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π β π΄ β§ Β¬ π β€ π) β§ (π‘ β π΄ β§ Β¬ π‘ β€ π)) β§ (π β π‘ β§ ((π β¨ (π β§ π)) = π β§ (π‘ β¨ (π β§ π)) = π) β§ (π β π΅ β§ Β¬ π β€ π))) β (π β¨ (π β§ π)) β€ (πΆ β¨ (π β§ π))) |
49 | 1, 2, 4, 28, 37, 39, 48 | latasymd 18341 |
1
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π β π΄ β§ Β¬ π β€ π) β§ (π‘ β π΄ β§ Β¬ π‘ β€ π)) β§ (π β π‘ β§ ((π β¨ (π β§ π)) = π β§ (π‘ β¨ (π β§ π)) = π) β§ (π β π΅ β§ Β¬ π β€ π))) β (πΆ β¨ (π β§ π)) = (π β¨ (π β§ π))) |