Step | Hyp | Ref
| Expression |
1 | | eqid 2733 |
. . . . . 6
β’
(glbβπΎ) =
(glbβπΎ) |
2 | | dihmeetlem2.m |
. . . . . 6
β’ β§ =
(meetβπΎ) |
3 | | simp1l 1198 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π) β§ (π β π΅ β§ π β€ π)) β πΎ β HL) |
4 | | simp2l 1200 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π) β§ (π β π΅ β§ π β€ π)) β π β π΅) |
5 | | simp3l 1202 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π) β§ (π β π΅ β§ π β€ π)) β π β π΅) |
6 | 1, 2, 3, 4, 5 | meetval 18288 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π) β§ (π β π΅ β§ π β€ π)) β (π β§ π) = ((glbβπΎ)β{π, π})) |
7 | 6 | fveq2d 6850 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π) β§ (π β π΅ β§ π β€ π)) β (((DIsoBβπΎ)βπ)β(π β§ π)) = (((DIsoBβπΎ)βπ)β((glbβπΎ)β{π, π}))) |
8 | | simp1 1137 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π) β§ (π β π΅ β§ π β€ π)) β (πΎ β HL β§ π β π»)) |
9 | | dihmeetlem2.b |
. . . . . . . . 9
β’ π΅ = (BaseβπΎ) |
10 | | dihmeetlem2.l |
. . . . . . . . 9
β’ β€ =
(leβπΎ) |
11 | | dihmeetlem2.h |
. . . . . . . . 9
β’ π» = (LHypβπΎ) |
12 | | eqid 2733 |
. . . . . . . . 9
β’
((DIsoBβπΎ)βπ) = ((DIsoBβπΎ)βπ) |
13 | 9, 10, 11, 12 | dibeldmN 39671 |
. . . . . . . 8
β’ ((πΎ β HL β§ π β π») β (π β dom ((DIsoBβπΎ)βπ) β (π β π΅ β§ π β€ π))) |
14 | 13 | biimpar 479 |
. . . . . . 7
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π)) β π β dom ((DIsoBβπΎ)βπ)) |
15 | 14 | 3adant3 1133 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π) β§ (π β π΅ β§ π β€ π)) β π β dom ((DIsoBβπΎ)βπ)) |
16 | 9, 10, 11, 12 | dibeldmN 39671 |
. . . . . . . 8
β’ ((πΎ β HL β§ π β π») β (π β dom ((DIsoBβπΎ)βπ) β (π β π΅ β§ π β€ π))) |
17 | 16 | biimpar 479 |
. . . . . . 7
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π)) β π β dom ((DIsoBβπΎ)βπ)) |
18 | 17 | 3adant2 1132 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π) β§ (π β π΅ β§ π β€ π)) β π β dom ((DIsoBβπΎ)βπ)) |
19 | | prssg 4783 |
. . . . . . 7
β’ ((π β π΅ β§ π β π΅) β ((π β dom ((DIsoBβπΎ)βπ) β§ π β dom ((DIsoBβπΎ)βπ)) β {π, π} β dom ((DIsoBβπΎ)βπ))) |
20 | 4, 5, 19 | syl2anc 585 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π) β§ (π β π΅ β§ π β€ π)) β ((π β dom ((DIsoBβπΎ)βπ) β§ π β dom ((DIsoBβπΎ)βπ)) β {π, π} β dom ((DIsoBβπΎ)βπ))) |
21 | 15, 18, 20 | mpbi2and 711 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π) β§ (π β π΅ β§ π β€ π)) β {π, π} β dom ((DIsoBβπΎ)βπ)) |
22 | | prnzg 4743 |
. . . . . 6
β’ (π β π΅ β {π, π} β β
) |
23 | 4, 22 | syl 17 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π) β§ (π β π΅ β§ π β€ π)) β {π, π} β β
) |
24 | 1, 11, 12 | dibglbN 39679 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ ({π, π} β dom ((DIsoBβπΎ)βπ) β§ {π, π} β β
)) β (((DIsoBβπΎ)βπ)β((glbβπΎ)β{π, π})) = β©
π₯ β {π, π} (((DIsoBβπΎ)βπ)βπ₯)) |
25 | 8, 21, 23, 24 | syl12anc 836 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π) β§ (π β π΅ β§ π β€ π)) β (((DIsoBβπΎ)βπ)β((glbβπΎ)β{π, π})) = β©
π₯ β {π, π} (((DIsoBβπΎ)βπ)βπ₯)) |
26 | 7, 25 | eqtrd 2773 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π) β§ (π β π΅ β§ π β€ π)) β (((DIsoBβπΎ)βπ)β(π β§ π)) = β©
π₯ β {π, π} (((DIsoBβπΎ)βπ)βπ₯)) |
27 | 3 | hllatd 37876 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π) β§ (π β π΅ β§ π β€ π)) β πΎ β Lat) |
28 | 9, 2 | latmcl 18337 |
. . . . 5
β’ ((πΎ β Lat β§ π β π΅ β§ π β π΅) β (π β§ π) β π΅) |
29 | 27, 4, 5, 28 | syl3anc 1372 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π) β§ (π β π΅ β§ π β€ π)) β (π β§ π) β π΅) |
30 | | simp1r 1199 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π) β§ (π β π΅ β§ π β€ π)) β π β π») |
31 | 9, 11 | lhpbase 38511 |
. . . . . 6
β’ (π β π» β π β π΅) |
32 | 30, 31 | syl 17 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π) β§ (π β π΅ β§ π β€ π)) β π β π΅) |
33 | 9, 10, 2 | latmle1 18361 |
. . . . . 6
β’ ((πΎ β Lat β§ π β π΅ β§ π β π΅) β (π β§ π) β€ π) |
34 | 27, 4, 5, 33 | syl3anc 1372 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π) β§ (π β π΅ β§ π β€ π)) β (π β§ π) β€ π) |
35 | | simp2r 1201 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π) β§ (π β π΅ β§ π β€ π)) β π β€ π) |
36 | 9, 10, 27, 29, 4, 32, 34, 35 | lattrd 18343 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π) β§ (π β π΅ β§ π β€ π)) β (π β§ π) β€ π) |
37 | | dihmeetlem2.i |
. . . . 5
β’ πΌ = ((DIsoHβπΎ)βπ) |
38 | 9, 10, 11, 37, 12 | dihvalb 39750 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ ((π β§ π) β π΅ β§ (π β§ π) β€ π)) β (πΌβ(π β§ π)) = (((DIsoBβπΎ)βπ)β(π β§ π))) |
39 | 8, 29, 36, 38 | syl12anc 836 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π) β§ (π β π΅ β§ π β€ π)) β (πΌβ(π β§ π)) = (((DIsoBβπΎ)βπ)β(π β§ π))) |
40 | | simpl1 1192 |
. . . . 5
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π) β§ (π β π΅ β§ π β€ π)) β§ π₯ β {π, π}) β (πΎ β HL β§ π β π»)) |
41 | | vex 3451 |
. . . . . . 7
β’ π₯ β V |
42 | 41 | elpr 4613 |
. . . . . 6
β’ (π₯ β {π, π} β (π₯ = π β¨ π₯ = π)) |
43 | | simpl2 1193 |
. . . . . . . 8
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π) β§ (π β π΅ β§ π β€ π)) β§ π₯ = π) β (π β π΅ β§ π β€ π)) |
44 | | eleq1 2822 |
. . . . . . . . . 10
β’ (π₯ = π β (π₯ β π΅ β π β π΅)) |
45 | | breq1 5112 |
. . . . . . . . . 10
β’ (π₯ = π β (π₯ β€ π β π β€ π)) |
46 | 44, 45 | anbi12d 632 |
. . . . . . . . 9
β’ (π₯ = π β ((π₯ β π΅ β§ π₯ β€ π) β (π β π΅ β§ π β€ π))) |
47 | 46 | adantl 483 |
. . . . . . . 8
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π) β§ (π β π΅ β§ π β€ π)) β§ π₯ = π) β ((π₯ β π΅ β§ π₯ β€ π) β (π β π΅ β§ π β€ π))) |
48 | 43, 47 | mpbird 257 |
. . . . . . 7
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π) β§ (π β π΅ β§ π β€ π)) β§ π₯ = π) β (π₯ β π΅ β§ π₯ β€ π)) |
49 | | simpl3 1194 |
. . . . . . . 8
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π) β§ (π β π΅ β§ π β€ π)) β§ π₯ = π) β (π β π΅ β§ π β€ π)) |
50 | | eleq1 2822 |
. . . . . . . . . 10
β’ (π₯ = π β (π₯ β π΅ β π β π΅)) |
51 | | breq1 5112 |
. . . . . . . . . 10
β’ (π₯ = π β (π₯ β€ π β π β€ π)) |
52 | 50, 51 | anbi12d 632 |
. . . . . . . . 9
β’ (π₯ = π β ((π₯ β π΅ β§ π₯ β€ π) β (π β π΅ β§ π β€ π))) |
53 | 52 | adantl 483 |
. . . . . . . 8
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π) β§ (π β π΅ β§ π β€ π)) β§ π₯ = π) β ((π₯ β π΅ β§ π₯ β€ π) β (π β π΅ β§ π β€ π))) |
54 | 49, 53 | mpbird 257 |
. . . . . . 7
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π) β§ (π β π΅ β§ π β€ π)) β§ π₯ = π) β (π₯ β π΅ β§ π₯ β€ π)) |
55 | 48, 54 | jaodan 957 |
. . . . . 6
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π) β§ (π β π΅ β§ π β€ π)) β§ (π₯ = π β¨ π₯ = π)) β (π₯ β π΅ β§ π₯ β€ π)) |
56 | 42, 55 | sylan2b 595 |
. . . . 5
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π) β§ (π β π΅ β§ π β€ π)) β§ π₯ β {π, π}) β (π₯ β π΅ β§ π₯ β€ π)) |
57 | 9, 10, 11, 37, 12 | dihvalb 39750 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ (π₯ β π΅ β§ π₯ β€ π)) β (πΌβπ₯) = (((DIsoBβπΎ)βπ)βπ₯)) |
58 | 40, 56, 57 | syl2anc 585 |
. . . 4
β’ ((((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π) β§ (π β π΅ β§ π β€ π)) β§ π₯ β {π, π}) β (πΌβπ₯) = (((DIsoBβπΎ)βπ)βπ₯)) |
59 | 58 | iineq2dv 4983 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π) β§ (π β π΅ β§ π β€ π)) β β© π₯ β {π, π} (πΌβπ₯) = β© π₯ β {π, π} (((DIsoBβπΎ)βπ)βπ₯)) |
60 | 26, 39, 59 | 3eqtr4d 2783 |
. 2
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π) β§ (π β π΅ β§ π β€ π)) β (πΌβ(π β§ π)) = β©
π₯ β {π, π} (πΌβπ₯)) |
61 | | fveq2 6846 |
. . . 4
β’ (π₯ = π β (πΌβπ₯) = (πΌβπ)) |
62 | | fveq2 6846 |
. . . 4
β’ (π₯ = π β (πΌβπ₯) = (πΌβπ)) |
63 | 61, 62 | iinxprg 5053 |
. . 3
β’ ((π β π΅ β§ π β π΅) β β©
π₯ β {π, π} (πΌβπ₯) = ((πΌβπ) β© (πΌβπ))) |
64 | 4, 5, 63 | syl2anc 585 |
. 2
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π) β§ (π β π΅ β§ π β€ π)) β β© π₯ β {π, π} (πΌβπ₯) = ((πΌβπ) β© (πΌβπ))) |
65 | 60, 64 | eqtrd 2773 |
1
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β€ π) β§ (π β π΅ β§ π β€ π)) β (πΌβ(π β§ π)) = ((πΌβπ) β© (πΌβπ))) |