Step | Hyp | Ref
| Expression |
1 | | simp11 1203 |
. . 3
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ π β π β§ (π β π΅ β§ Β¬ π β€ π)) β (πΎ β HL β§ π β π»)) |
2 | | simp3 1138 |
. . 3
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ π β π β§ (π β π΅ β§ Β¬ π β€ π)) β (π β π΅ β§ Β¬ π β€ π)) |
3 | | cdleme26.b |
. . . 4
β’ π΅ = (BaseβπΎ) |
4 | | cdleme26.l |
. . . 4
β’ β€ =
(leβπΎ) |
5 | | cdleme26.j |
. . . 4
β’ β¨ =
(joinβπΎ) |
6 | | cdleme26.m |
. . . 4
β’ β§ =
(meetβπΎ) |
7 | | cdleme26.a |
. . . 4
β’ π΄ = (AtomsβπΎ) |
8 | | cdleme26.h |
. . . 4
β’ π» = (LHypβπΎ) |
9 | 3, 4, 5, 6, 7, 8 | lhpmcvr2 38883 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ Β¬ π β€ π)) β βπ β π΄ (Β¬ π β€ π β§ (π β¨ (π β§ π)) = π)) |
10 | 1, 2, 9 | syl2anc 584 |
. 2
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ π β π β§ (π β π΅ β§ Β¬ π β€ π)) β βπ β π΄ (Β¬ π β€ π β§ (π β¨ (π β§ π)) = π)) |
11 | | simp11l 1284 |
. . . . . . . . 9
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ π β π β§ (π β π΅ β§ Β¬ π β€ π)) β πΎ β HL) |
12 | 11 | adantr 481 |
. . . . . . . 8
β’
(((((πΎ β HL
β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ π β π β§ (π β π΅ β§ Β¬ π β€ π)) β§ (π β π΄ β§ Β¬ π β€ π)) β πΎ β HL) |
13 | 12 | hllatd 38222 |
. . . . . . 7
β’
(((((πΎ β HL
β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ π β π β§ (π β π΅ β§ Β¬ π β€ π)) β§ (π β π΄ β§ Β¬ π β€ π)) β πΎ β Lat) |
14 | | simp11r 1285 |
. . . . . . . . 9
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ π β π β§ (π β π΅ β§ Β¬ π β€ π)) β π β π») |
15 | 14 | adantr 481 |
. . . . . . . 8
β’
(((((πΎ β HL
β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ π β π β§ (π β π΅ β§ Β¬ π β€ π)) β§ (π β π΄ β§ Β¬ π β€ π)) β π β π») |
16 | | simpl12 1249 |
. . . . . . . 8
β’
(((((πΎ β HL
β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ π β π β§ (π β π΅ β§ Β¬ π β€ π)) β§ (π β π΄ β§ Β¬ π β€ π)) β (π β π΄ β§ Β¬ π β€ π)) |
17 | | simpl13 1250 |
. . . . . . . 8
β’
(((((πΎ β HL
β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ π β π β§ (π β π΅ β§ Β¬ π β€ π)) β§ (π β π΄ β§ Β¬ π β€ π)) β (π β π΄ β§ Β¬ π β€ π)) |
18 | | simpr 485 |
. . . . . . . 8
β’
(((((πΎ β HL
β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ π β π β§ (π β π΅ β§ Β¬ π β€ π)) β§ (π β π΄ β§ Β¬ π β€ π)) β (π β π΄ β§ Β¬ π β€ π)) |
19 | | simpl2 1192 |
. . . . . . . 8
β’
(((((πΎ β HL
β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ π β π β§ (π β π΅ β§ Β¬ π β€ π)) β§ (π β π΄ β§ Β¬ π β€ π)) β π β π) |
20 | | cdleme27.u |
. . . . . . . . 9
β’ π = ((π β¨ π) β§ π) |
21 | | cdleme27.f |
. . . . . . . . 9
β’ πΉ = ((π β¨ π) β§ (π β¨ ((π β¨ π ) β§ π))) |
22 | | cdleme27.z |
. . . . . . . . 9
β’ π = ((π§ β¨ π) β§ (π β¨ ((π β¨ π§) β§ π))) |
23 | | cdleme27.n |
. . . . . . . . 9
β’ π = ((π β¨ π) β§ (π β¨ ((π β¨ π§) β§ π))) |
24 | | cdleme27.d |
. . . . . . . . 9
β’ π· = (β©π’ β π΅ βπ§ β π΄ ((Β¬ π§ β€ π β§ Β¬ π§ β€ (π β¨ π)) β π’ = π)) |
25 | | cdleme27.c |
. . . . . . . . 9
β’ πΆ = if(π β€ (π β¨ π), π·, πΉ) |
26 | 3, 4, 5, 6, 7, 8, 20, 21, 22, 23, 24, 25 | cdleme27cl 39225 |
. . . . . . . 8
β’ (((πΎ β HL β§ π β π») β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ ((π β π΄ β§ Β¬ π β€ π) β§ π β π)) β πΆ β π΅) |
27 | 12, 15, 16, 17, 18, 19, 26 | syl222anc 1386 |
. . . . . . 7
β’
(((((πΎ β HL
β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ π β π β§ (π β π΅ β§ Β¬ π β€ π)) β§ (π β π΄ β§ Β¬ π β€ π)) β πΆ β π΅) |
28 | | simpl3l 1228 |
. . . . . . . 8
β’
(((((πΎ β HL
β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ π β π β§ (π β π΅ β§ Β¬ π β€ π)) β§ (π β π΄ β§ Β¬ π β€ π)) β π β π΅) |
29 | 3, 8 | lhpbase 38857 |
. . . . . . . . 9
β’ (π β π» β π β π΅) |
30 | 15, 29 | syl 17 |
. . . . . . . 8
β’
(((((πΎ β HL
β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ π β π β§ (π β π΅ β§ Β¬ π β€ π)) β§ (π β π΄ β§ Β¬ π β€ π)) β π β π΅) |
31 | 3, 6 | latmcl 18389 |
. . . . . . . 8
β’ ((πΎ β Lat β§ π β π΅ β§ π β π΅) β (π β§ π) β π΅) |
32 | 13, 28, 30, 31 | syl3anc 1371 |
. . . . . . 7
β’
(((((πΎ β HL
β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ π β π β§ (π β π΅ β§ Β¬ π β€ π)) β§ (π β π΄ β§ Β¬ π β€ π)) β (π β§ π) β π΅) |
33 | 3, 5 | latjcl 18388 |
. . . . . . 7
β’ ((πΎ β Lat β§ πΆ β π΅ β§ (π β§ π) β π΅) β (πΆ β¨ (π β§ π)) β π΅) |
34 | 13, 27, 32, 33 | syl3anc 1371 |
. . . . . 6
β’
(((((πΎ β HL
β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ π β π β§ (π β π΅ β§ Β¬ π β€ π)) β§ (π β π΄ β§ Β¬ π β€ π)) β (πΆ β¨ (π β§ π)) β π΅) |
35 | 34 | expr 457 |
. . . . 5
β’
(((((πΎ β HL
β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ π β π β§ (π β π΅ β§ Β¬ π β€ π)) β§ π β π΄) β (Β¬ π β€ π β (πΆ β¨ (π β§ π)) β π΅)) |
36 | 35 | adantrd 492 |
. . . 4
β’
(((((πΎ β HL
β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ π β π β§ (π β π΅ β§ Β¬ π β€ π)) β§ π β π΄) β ((Β¬ π β€ π β§ (π β¨ (π β§ π)) = π) β (πΆ β¨ (π β§ π)) β π΅)) |
37 | 36 | ancld 551 |
. . 3
β’
(((((πΎ β HL
β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ π β π β§ (π β π΅ β§ Β¬ π β€ π)) β§ π β π΄) β ((Β¬ π β€ π β§ (π β¨ (π β§ π)) = π) β ((Β¬ π β€ π β§ (π β¨ (π β§ π)) = π) β§ (πΆ β¨ (π β§ π)) β π΅))) |
38 | 37 | reximdva 3168 |
. 2
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ π β π β§ (π β π΅ β§ Β¬ π β€ π)) β (βπ β π΄ (Β¬ π β€ π β§ (π β¨ (π β§ π)) = π) β βπ β π΄ ((Β¬ π β€ π β§ (π β¨ (π β§ π)) = π) β§ (πΆ β¨ (π β§ π)) β π΅))) |
39 | 10, 38 | mpd 15 |
1
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ π β π β§ (π β π΅ β§ Β¬ π β€ π)) β βπ β π΄ ((Β¬ π β€ π β§ (π β¨ (π β§ π)) = π) β§ (πΆ β¨ (π β§ π)) β π΅)) |