Step | Hyp | Ref
| Expression |
1 | | simpl1l 1223 |
. . . . 5
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β πΎ β HL) |
2 | | simpr2 1194 |
. . . . . . 7
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β (π
β π΄ β§ Β¬ π
β€ π)) |
3 | | cdleme41.b |
. . . . . . . 8
β’ π΅ = (BaseβπΎ) |
4 | | cdleme41.l |
. . . . . . . 8
β’ β€ =
(leβπΎ) |
5 | | cdleme41.j |
. . . . . . . 8
β’ β¨ =
(joinβπΎ) |
6 | | cdleme41.m |
. . . . . . . 8
β’ β§ =
(meetβπΎ) |
7 | | cdleme41.a |
. . . . . . . 8
β’ π΄ = (AtomsβπΎ) |
8 | | cdleme41.h |
. . . . . . . 8
β’ π» = (LHypβπΎ) |
9 | | cdleme41.u |
. . . . . . . 8
β’ π = ((π β¨ π) β§ π) |
10 | | cdleme41.d |
. . . . . . . 8
β’ π· = ((π β¨ π) β§ (π β¨ ((π β¨ π ) β§ π))) |
11 | | cdleme41.e |
. . . . . . . 8
β’ πΈ = ((π‘ β¨ π) β§ (π β¨ ((π β¨ π‘) β§ π))) |
12 | | cdleme41.g |
. . . . . . . 8
β’ πΊ = ((π β¨ π) β§ (πΈ β¨ ((π β¨ π‘) β§ π))) |
13 | | cdleme41.i |
. . . . . . . 8
β’ πΌ = (β©π¦ β π΅ βπ‘ β π΄ ((Β¬ π‘ β€ π β§ Β¬ π‘ β€ (π β¨ π)) β π¦ = πΊ)) |
14 | | cdleme41.n |
. . . . . . . 8
β’ π = if(π β€ (π β¨ π), πΌ, π·) |
15 | | cdleme41.o |
. . . . . . . 8
β’ π = (β©π§ β π΅ βπ β π΄ ((Β¬ π β€ π β§ (π β¨ (π₯ β§ π)) = π₯) β π§ = (π β¨ (π₯ β§ π)))) |
16 | | cdleme41.f |
. . . . . . . 8
β’ πΉ = (π₯ β π΅ β¦ if((π β π β§ Β¬ π₯ β€ π), π, π₯)) |
17 | 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16 | cdleme32fvaw 39614 |
. . . . . . 7
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π
β π΄ β§ Β¬ π
β€ π)) β ((πΉβπ
) β π΄ β§ Β¬ (πΉβπ
) β€ π)) |
18 | 2, 17 | syldan 590 |
. . . . . 6
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β ((πΉβπ
) β π΄ β§ Β¬ (πΉβπ
) β€ π)) |
19 | 18 | simpld 494 |
. . . . 5
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β (πΉβπ
) β π΄) |
20 | 5, 7 | hlatjidm 38543 |
. . . . 5
β’ ((πΎ β HL β§ (πΉβπ
) β π΄) β ((πΉβπ
) β¨ (πΉβπ
)) = (πΉβπ
)) |
21 | 1, 19, 20 | syl2anc 583 |
. . . 4
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β ((πΉβπ
) β¨ (πΉβπ
)) = (πΉβπ
)) |
22 | | fveq2 6892 |
. . . . 5
β’ (π
= π β (πΉβπ
) = (πΉβπ)) |
23 | 22 | oveq2d 7428 |
. . . 4
β’ (π
= π β ((πΉβπ
) β¨ (πΉβπ
)) = ((πΉβπ
) β¨ (πΉβπ))) |
24 | 21, 23 | sylan9req 2792 |
. . 3
β’
(((((πΎ β HL
β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β§ π
= π) β (πΉβπ
) = ((πΉβπ
) β¨ (πΉβπ))) |
25 | | simpr2l 1231 |
. . . . . . . . 9
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β π
β π΄) |
26 | 5, 7 | hlatjidm 38543 |
. . . . . . . . 9
β’ ((πΎ β HL β§ π
β π΄) β (π
β¨ π
) = π
) |
27 | 1, 25, 26 | syl2anc 583 |
. . . . . . . 8
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β (π
β¨ π
) = π
) |
28 | 27 | oveq1d 7427 |
. . . . . . 7
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β ((π
β¨ π
) β§ π) = (π
β§ π)) |
29 | | simpl1 1190 |
. . . . . . . 8
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β (πΎ β HL β§ π β π»)) |
30 | | eqid 2731 |
. . . . . . . . 9
β’
(0.βπΎ) =
(0.βπΎ) |
31 | 4, 6, 30, 7, 8 | lhpmat 39205 |
. . . . . . . 8
β’ (((πΎ β HL β§ π β π») β§ (π
β π΄ β§ Β¬ π
β€ π)) β (π
β§ π) = (0.βπΎ)) |
32 | 29, 2, 31 | syl2anc 583 |
. . . . . . 7
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β (π
β§ π) = (0.βπΎ)) |
33 | 28, 32 | eqtrd 2771 |
. . . . . 6
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β ((π
β¨ π
) β§ π) = (0.βπΎ)) |
34 | 33 | oveq2d 7428 |
. . . . 5
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β ((πΉβπ
) β¨ ((π
β¨ π
) β§ π)) = ((πΉβπ
) β¨ (0.βπΎ))) |
35 | | hlol 38535 |
. . . . . . 7
β’ (πΎ β HL β πΎ β OL) |
36 | 1, 35 | syl 17 |
. . . . . 6
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β πΎ β OL) |
37 | 3, 7 | atbase 38463 |
. . . . . . 7
β’ ((πΉβπ
) β π΄ β (πΉβπ
) β π΅) |
38 | 19, 37 | syl 17 |
. . . . . 6
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β (πΉβπ
) β π΅) |
39 | 3, 5, 30 | olj01 38399 |
. . . . . 6
β’ ((πΎ β OL β§ (πΉβπ
) β π΅) β ((πΉβπ
) β¨ (0.βπΎ)) = (πΉβπ
)) |
40 | 36, 38, 39 | syl2anc 583 |
. . . . 5
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β ((πΉβπ
) β¨ (0.βπΎ)) = (πΉβπ
)) |
41 | 34, 40 | eqtrd 2771 |
. . . 4
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β ((πΉβπ
) β¨ ((π
β¨ π
) β§ π)) = (πΉβπ
)) |
42 | | oveq2 7420 |
. . . . . . 7
β’ (π
= π β (π
β¨ π
) = (π
β¨ π)) |
43 | 42 | oveq1d 7427 |
. . . . . 6
β’ (π
= π β ((π
β¨ π
) β§ π) = ((π
β¨ π) β§ π)) |
44 | | cdleme34e.v |
. . . . . 6
β’ π = ((π
β¨ π) β§ π) |
45 | 43, 44 | eqtr4di 2789 |
. . . . 5
β’ (π
= π β ((π
β¨ π
) β§ π) = π) |
46 | 45 | oveq2d 7428 |
. . . 4
β’ (π
= π β ((πΉβπ
) β¨ ((π
β¨ π
) β§ π)) = ((πΉβπ
) β¨ π)) |
47 | 41, 46 | sylan9req 2792 |
. . 3
β’
(((((πΎ β HL
β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β§ π
= π) β (πΉβπ
) = ((πΉβπ
) β¨ π)) |
48 | 24, 47 | eqtr3d 2773 |
. 2
β’
(((((πΎ β HL
β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β§ π
= π) β ((πΉβπ
) β¨ (πΉβπ)) = ((πΉβπ
) β¨ π)) |
49 | 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 44 | cdleme42k 39659 |
. . 3
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ π
β π) β ((πΉβπ
) β¨ (πΉβπ)) = ((πΉβπ
) β¨ π)) |
50 | 49 | 3expa 1117 |
. 2
β’
(((((πΎ β HL
β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β§ π
β π) β ((πΉβπ
) β¨ (πΉβπ)) = ((πΉβπ
) β¨ π)) |
51 | 48, 50 | pm2.61dane 3028 |
1
β’ ((((πΎ β HL β§ π β π») β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ (π β π β§ (π
β π΄ β§ Β¬ π
β€ π) β§ (π β π΄ β§ Β¬ π β€ π))) β ((πΉβπ
) β¨ (πΉβπ)) = ((πΉβπ
) β¨ π)) |