Step | Hyp | Ref
| Expression |
1 | | simpll1 1209 |
. . . 4
β’
(((((πΎ β HL
β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ ((π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β§ π = π) β (πΎ β HL β§ π β π»)) |
2 | | simplrl 774 |
. . . 4
β’
(((((πΎ β HL
β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ ((π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β§ π = π) β (π
β π΄ β§ Β¬ π
β€ π)) |
3 | | simplrr 775 |
. . . 4
β’
(((((πΎ β HL
β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ ((π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β§ π = π) β (π β π΄ β§ Β¬ π β€ π)) |
4 | | cdleme41.b |
. . . . 5
β’ π΅ = (BaseβπΎ) |
5 | | cdleme41.l |
. . . . 5
β’ β€ =
(leβπΎ) |
6 | | cdleme41.j |
. . . . 5
β’ β¨ =
(joinβπΎ) |
7 | | cdleme41.m |
. . . . 5
β’ β§ =
(meetβπΎ) |
8 | | cdleme41.a |
. . . . 5
β’ π΄ = (AtomsβπΎ) |
9 | | cdleme41.h |
. . . . 5
β’ π» = (LHypβπΎ) |
10 | | cdleme34e.v |
. . . . 5
β’ π = ((π
β¨ π) β§ π) |
11 | 4, 5, 6, 7, 8, 9, 10 | cdleme42a 39832 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β (π
β¨ π) = (π
β¨ π)) |
12 | 1, 2, 3, 11 | syl3anc 1368 |
. . 3
β’
(((((πΎ β HL
β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ ((π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β§ π = π) β (π
β¨ π) = (π
β¨ π)) |
13 | | simprll 776 |
. . . . . 6
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ ((π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β π
β π΄) |
14 | 4, 8 | atbase 38649 |
. . . . . 6
β’ (π
β π΄ β π
β π΅) |
15 | 13, 14 | syl 17 |
. . . . 5
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ ((π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β π
β π΅) |
16 | | cdleme41.f |
. . . . . 6
β’ πΉ = (π₯ β π΅ β¦ if((π β π β§ Β¬ π₯ β€ π), π, π₯)) |
17 | 16 | cdleme31id 39755 |
. . . . 5
β’ ((π
β π΅ β§ π = π) β (πΉβπ
) = π
) |
18 | 15, 17 | sylan 579 |
. . . 4
β’
(((((πΎ β HL
β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ ((π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β§ π = π) β (πΉβπ
) = π
) |
19 | | simprrl 778 |
. . . . . 6
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ ((π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β π β π΄) |
20 | 4, 8 | atbase 38649 |
. . . . . 6
β’ (π β π΄ β π β π΅) |
21 | 19, 20 | syl 17 |
. . . . 5
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ ((π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β π β π΅) |
22 | 16 | cdleme31id 39755 |
. . . . 5
β’ ((π β π΅ β§ π = π) β (πΉβπ) = π) |
23 | 21, 22 | sylan 579 |
. . . 4
β’
(((((πΎ β HL
β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ ((π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β§ π = π) β (πΉβπ) = π) |
24 | 18, 23 | oveq12d 7419 |
. . 3
β’
(((((πΎ β HL
β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ ((π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β§ π = π) β ((πΉβπ
) β¨ (πΉβπ)) = (π
β¨ π)) |
25 | 18 | oveq1d 7416 |
. . 3
β’
(((((πΎ β HL
β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ ((π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β§ π = π) β ((πΉβπ
) β¨ π) = (π
β¨ π)) |
26 | 12, 24, 25 | 3eqtr4d 2774 |
. 2
β’
(((((πΎ β HL
β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ ((π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β§ π = π) β ((πΉβπ
) β¨ (πΉβπ)) = ((πΉβπ
) β¨ π)) |
27 | | simpll 764 |
. . 3
β’
(((((πΎ β HL
β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ ((π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β§ π β π) β ((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) |
28 | | simpr 484 |
. . 3
β’
(((((πΎ β HL
β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ ((π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β§ π β π) β π β π) |
29 | | simplrl 774 |
. . 3
β’
(((((πΎ β HL
β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ ((π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β§ π β π) β (π
β π΄ β§ Β¬ π
β€ π)) |
30 | | simplrr 775 |
. . 3
β’
(((((πΎ β HL
β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ ((π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β§ π β π) β (π β π΄ β§ Β¬ π β€ π)) |
31 | | cdleme41.u |
. . . 4
β’ π = ((π β¨ π) β§ π) |
32 | | cdleme41.d |
. . . 4
β’ π· = ((π β¨ π) β§ (π β¨ ((π β¨ π ) β§ π))) |
33 | | cdleme41.e |
. . . 4
β’ πΈ = ((π‘ β¨ π) β§ (π β¨ ((π β¨ π‘) β§ π))) |
34 | | cdleme41.g |
. . . 4
β’ πΊ = ((π β¨ π) β§ (πΈ β¨ ((π β¨ π‘) β§ π))) |
35 | | cdleme41.i |
. . . 4
β’ πΌ = (β©π¦ β π΅ βπ‘ β π΄ ((Β¬ π‘ β€ π β§ Β¬ π‘ β€ (π β¨ π)) β π¦ = πΊ)) |
36 | | cdleme41.n |
. . . 4
β’ π = if(π β€ (π β¨ π), πΌ, π·) |
37 | | cdleme41.o |
. . . 4
β’ π = (β©π§ β π΅ βπ β π΄ ((Β¬ π β€ π β§ (π β¨ (π₯ β§ π)) = π₯) β π§ = (π β¨ (π₯ β§ π)))) |
38 | 4, 5, 6, 7, 8, 9, 31, 32, 33, 34, 35, 36, 37, 16, 10 | cdleme42ke 39846 |
. . 3
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β ((πΉβπ
) β¨ (πΉβπ)) = ((πΉβπ
) β¨ π)) |
39 | 27, 28, 29, 30, 38 | syl13anc 1369 |
. 2
β’
(((((πΎ β HL
β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ ((π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β§ π β π) β ((πΉβπ
) β¨ (πΉβπ)) = ((πΉβπ
) β¨ π)) |
40 | 26, 39 | pm2.61dane 3021 |
1
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ ((π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β ((πΉβπ
) β¨ (πΉβπ)) = ((πΉβπ
) β¨ π)) |