Step | Hyp | Ref
| Expression |
1 | | simp3 1136 |
. . . . . . 7
β’ ((((πΎ β HL β§ π β π») β§ (πΉ β π β§ πΊ β π)) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ Β¬ π β€ (π β¨ (πΉβπ))) β§ (πΉβπ) = (πΊβπ)) β (πΉβπ) = (πΊβπ)) |
2 | 1 | oveq2d 7427 |
. . . . . 6
β’ ((((πΎ β HL β§ π β π») β§ (πΉ β π β§ πΊ β π)) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ Β¬ π β€ (π β¨ (πΉβπ))) β§ (πΉβπ) = (πΊβπ)) β (π β¨ (πΉβπ)) = (π β¨ (πΊβπ))) |
3 | 2 | oveq1d 7426 |
. . . . 5
β’ ((((πΎ β HL β§ π β π») β§ (πΉ β π β§ πΊ β π)) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ Β¬ π β€ (π β¨ (πΉβπ))) β§ (πΉβπ) = (πΊβπ)) β ((π β¨ (πΉβπ))(meetβπΎ)π) = ((π β¨ (πΊβπ))(meetβπΎ)π)) |
4 | | simp1l 1195 |
. . . . . 6
β’ ((((πΎ β HL β§ π β π») β§ (πΉ β π β§ πΊ β π)) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ Β¬ π β€ (π β¨ (πΉβπ))) β§ (πΉβπ) = (πΊβπ)) β (πΎ β HL β§ π β π»)) |
5 | | simp1rl 1236 |
. . . . . 6
β’ ((((πΎ β HL β§ π β π») β§ (πΉ β π β§ πΊ β π)) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ Β¬ π β€ (π β¨ (πΉβπ))) β§ (πΉβπ) = (πΊβπ)) β πΉ β π) |
6 | | simp21 1204 |
. . . . . 6
β’ ((((πΎ β HL β§ π β π») β§ (πΉ β π β§ πΊ β π)) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ Β¬ π β€ (π β¨ (πΉβπ))) β§ (πΉβπ) = (πΊβπ)) β (π β π΄ β§ Β¬ π β€ π)) |
7 | | cdlemd4.l |
. . . . . . 7
β’ β€ =
(leβπΎ) |
8 | | cdlemd4.j |
. . . . . . 7
β’ β¨ =
(joinβπΎ) |
9 | | eqid 2730 |
. . . . . . 7
β’
(meetβπΎ) =
(meetβπΎ) |
10 | | cdlemd4.a |
. . . . . . 7
β’ π΄ = (AtomsβπΎ) |
11 | | cdlemd4.h |
. . . . . . 7
β’ π» = (LHypβπΎ) |
12 | | cdlemd4.t |
. . . . . . 7
β’ π = ((LTrnβπΎ)βπ) |
13 | | eqid 2730 |
. . . . . . 7
β’
((trLβπΎ)βπ) = ((trLβπΎ)βπ) |
14 | 7, 8, 9, 10, 11, 12, 13 | trlval2 39337 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ πΉ β π β§ (π β π΄ β§ Β¬ π β€ π)) β (((trLβπΎ)βπ)βπΉ) = ((π β¨ (πΉβπ))(meetβπΎ)π)) |
15 | 4, 5, 6, 14 | syl3anc 1369 |
. . . . 5
β’ ((((πΎ β HL β§ π β π») β§ (πΉ β π β§ πΊ β π)) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ Β¬ π β€ (π β¨ (πΉβπ))) β§ (πΉβπ) = (πΊβπ)) β (((trLβπΎ)βπ)βπΉ) = ((π β¨ (πΉβπ))(meetβπΎ)π)) |
16 | | simp1rr 1237 |
. . . . . 6
β’ ((((πΎ β HL β§ π β π») β§ (πΉ β π β§ πΊ β π)) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ Β¬ π β€ (π β¨ (πΉβπ))) β§ (πΉβπ) = (πΊβπ)) β πΊ β π) |
17 | 7, 8, 9, 10, 11, 12, 13 | trlval2 39337 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ πΊ β π β§ (π β π΄ β§ Β¬ π β€ π)) β (((trLβπΎ)βπ)βπΊ) = ((π β¨ (πΊβπ))(meetβπΎ)π)) |
18 | 4, 16, 6, 17 | syl3anc 1369 |
. . . . 5
β’ ((((πΎ β HL β§ π β π») β§ (πΉ β π β§ πΊ β π)) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ Β¬ π β€ (π β¨ (πΉβπ))) β§ (πΉβπ) = (πΊβπ)) β (((trLβπΎ)βπ)βπΊ) = ((π β¨ (πΊβπ))(meetβπΎ)π)) |
19 | 3, 15, 18 | 3eqtr4d 2780 |
. . . 4
β’ ((((πΎ β HL β§ π β π») β§ (πΉ β π β§ πΊ β π)) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ Β¬ π β€ (π β¨ (πΉβπ))) β§ (πΉβπ) = (πΊβπ)) β (((trLβπΎ)βπ)βπΉ) = (((trLβπΎ)βπ)βπΊ)) |
20 | 19 | oveq2d 7427 |
. . 3
β’ ((((πΎ β HL β§ π β π») β§ (πΉ β π β§ πΊ β π)) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ Β¬ π β€ (π β¨ (πΉβπ))) β§ (πΉβπ) = (πΊβπ)) β (π β¨ (((trLβπΎ)βπ)βπΉ)) = (π β¨ (((trLβπΎ)βπ)βπΊ))) |
21 | 1 | oveq1d 7426 |
. . 3
β’ ((((πΎ β HL β§ π β π») β§ (πΉ β π β§ πΊ β π)) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ Β¬ π β€ (π β¨ (πΉβπ))) β§ (πΉβπ) = (πΊβπ)) β ((πΉβπ) β¨ ((π β¨ π)(meetβπΎ)π)) = ((πΊβπ) β¨ ((π β¨ π)(meetβπΎ)π))) |
22 | 20, 21 | oveq12d 7429 |
. 2
β’ ((((πΎ β HL β§ π β π») β§ (πΉ β π β§ πΊ β π)) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ Β¬ π β€ (π β¨ (πΉβπ))) β§ (πΉβπ) = (πΊβπ)) β ((π β¨ (((trLβπΎ)βπ)βπΉ))(meetβπΎ)((πΉβπ) β¨ ((π β¨ π)(meetβπΎ)π))) = ((π β¨ (((trLβπΎ)βπ)βπΊ))(meetβπΎ)((πΊβπ) β¨ ((π β¨ π)(meetβπΎ)π)))) |
23 | | simp22 1205 |
. . 3
β’ ((((πΎ β HL β§ π β π») β§ (πΉ β π β§ πΊ β π)) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ Β¬ π β€ (π β¨ (πΉβπ))) β§ (πΉβπ) = (πΊβπ)) β (π β π΄ β§ Β¬ π β€ π)) |
24 | | simp23 1206 |
. . 3
β’ ((((πΎ β HL β§ π β π») β§ (πΉ β π β§ πΊ β π)) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ Β¬ π β€ (π β¨ (πΉβπ))) β§ (πΉβπ) = (πΊβπ)) β Β¬ π β€ (π β¨ (πΉβπ))) |
25 | 7, 8, 9, 10, 11, 12, 13 | cdlemc 39371 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ (πΉ β π β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ Β¬ π β€ (π β¨ (πΉβπ))) β (πΉβπ) = ((π β¨ (((trLβπΎ)βπ)βπΉ))(meetβπΎ)((πΉβπ) β¨ ((π β¨ π)(meetβπΎ)π)))) |
26 | 4, 5, 6, 23, 24, 25 | syl131anc 1381 |
. 2
β’ ((((πΎ β HL β§ π β π») β§ (πΉ β π β§ πΊ β π)) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ Β¬ π β€ (π β¨ (πΉβπ))) β§ (πΉβπ) = (πΊβπ)) β (πΉβπ) = ((π β¨ (((trLβπΎ)βπ)βπΉ))(meetβπΎ)((πΉβπ) β¨ ((π β¨ π)(meetβπΎ)π)))) |
27 | | oveq2 7419 |
. . . . . . 7
β’ ((πΉβπ) = (πΊβπ) β (π β¨ (πΉβπ)) = (π β¨ (πΊβπ))) |
28 | 27 | breq2d 5159 |
. . . . . 6
β’ ((πΉβπ) = (πΊβπ) β (π β€ (π β¨ (πΉβπ)) β π β€ (π β¨ (πΊβπ)))) |
29 | 28 | notbid 317 |
. . . . 5
β’ ((πΉβπ) = (πΊβπ) β (Β¬ π β€ (π β¨ (πΉβπ)) β Β¬ π β€ (π β¨ (πΊβπ)))) |
30 | 29 | biimpd 228 |
. . . 4
β’ ((πΉβπ) = (πΊβπ) β (Β¬ π β€ (π β¨ (πΉβπ)) β Β¬ π β€ (π β¨ (πΊβπ)))) |
31 | 1, 24, 30 | sylc 65 |
. . 3
β’ ((((πΎ β HL β§ π β π») β§ (πΉ β π β§ πΊ β π)) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ Β¬ π β€ (π β¨ (πΉβπ))) β§ (πΉβπ) = (πΊβπ)) β Β¬ π β€ (π β¨ (πΊβπ))) |
32 | 7, 8, 9, 10, 11, 12, 13 | cdlemc 39371 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ (πΊ β π β§ (π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π)) β§ Β¬ π β€ (π β¨ (πΊβπ))) β (πΊβπ) = ((π β¨ (((trLβπΎ)βπ)βπΊ))(meetβπΎ)((πΊβπ) β¨ ((π β¨ π)(meetβπΎ)π)))) |
33 | 4, 16, 6, 23, 31, 32 | syl131anc 1381 |
. 2
β’ ((((πΎ β HL β§ π β π») β§ (πΉ β π β§ πΊ β π)) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ Β¬ π β€ (π β¨ (πΉβπ))) β§ (πΉβπ) = (πΊβπ)) β (πΊβπ) = ((π β¨ (((trLβπΎ)βπ)βπΊ))(meetβπΎ)((πΊβπ) β¨ ((π β¨ π)(meetβπΎ)π)))) |
34 | 22, 26, 33 | 3eqtr4d 2780 |
1
β’ ((((πΎ β HL β§ π β π») β§ (πΉ β π β§ πΊ β π)) β§ ((π β π΄ β§ Β¬ π β€ π) β§ (π β π΄ β§ Β¬ π β€ π) β§ Β¬ π β€ (π β¨ (πΉβπ))) β§ (πΉβπ) = (πΊβπ)) β (πΉβπ) = (πΊβπ)) |