Step | Hyp | Ref
| Expression |
1 | | joindm2.b |
. . 3
β’ π΅ = (BaseβπΎ) |
2 | | joindm2.k |
. . 3
β’ (π β πΎ β π) |
3 | | joindm2.u |
. . 3
β’ π = (lubβπΎ) |
4 | | joindm2.j |
. . 3
β’ β¨ =
(joinβπΎ) |
5 | 1, 2, 3, 4 | joindm2 47688 |
. 2
β’ (π β (dom β¨ = (π΅ Γ π΅) β βπ₯ β π΅ βπ¦ β π΅ {π₯, π¦} β dom π)) |
6 | | simprl 767 |
. . . . . 6
β’ ((π β§ (π₯ β π΅ β§ π¦ β π΅)) β π₯ β π΅) |
7 | | simprr 769 |
. . . . . 6
β’ ((π β§ (π₯ β π΅ β§ π¦ β π΅)) β π¦ β π΅) |
8 | 6, 7 | prssd 4824 |
. . . . 5
β’ ((π β§ (π₯ β π΅ β§ π¦ β π΅)) β {π₯, π¦} β π΅) |
9 | | joindm3.l |
. . . . . . 7
β’ β€ =
(leβπΎ) |
10 | | biid 260 |
. . . . . . 7
β’
((βπ£ β
{π₯, π¦}π£ β€ π§ β§ βπ€ β π΅ (βπ£ β {π₯, π¦}π£ β€ π€ β π§ β€ π€)) β (βπ£ β {π₯, π¦}π£ β€ π§ β§ βπ€ β π΅ (βπ£ β {π₯, π¦}π£ β€ π€ β π§ β€ π€))) |
11 | 1, 9, 3, 10, 2 | lubeldm 18310 |
. . . . . 6
β’ (π β ({π₯, π¦} β dom π β ({π₯, π¦} β π΅ β§ β!π§ β π΅ (βπ£ β {π₯, π¦}π£ β€ π§ β§ βπ€ β π΅ (βπ£ β {π₯, π¦}π£ β€ π€ β π§ β€ π€))))) |
12 | 11 | baibd 538 |
. . . . 5
β’ ((π β§ {π₯, π¦} β π΅) β ({π₯, π¦} β dom π β β!π§ β π΅ (βπ£ β {π₯, π¦}π£ β€ π§ β§ βπ€ β π΅ (βπ£ β {π₯, π¦}π£ β€ π€ β π§ β€ π€)))) |
13 | 8, 12 | syldan 589 |
. . . 4
β’ ((π β§ (π₯ β π΅ β§ π¦ β π΅)) β ({π₯, π¦} β dom π β β!π§ β π΅ (βπ£ β {π₯, π¦}π£ β€ π§ β§ βπ€ β π΅ (βπ£ β {π₯, π¦}π£ β€ π€ β π§ β€ π€)))) |
14 | 2 | adantr 479 |
. . . . . . 7
β’ ((π β§ (π₯ β π΅ β§ π¦ β π΅)) β πΎ β π) |
15 | 1, 9, 4, 14, 6, 7 | joinval2lem 18337 |
. . . . . 6
β’ ((π₯ β π΅ β§ π¦ β π΅) β ((βπ£ β {π₯, π¦}π£ β€ π§ β§ βπ€ β π΅ (βπ£ β {π₯, π¦}π£ β€ π€ β π§ β€ π€)) β ((π₯ β€ π§ β§ π¦ β€ π§) β§ βπ€ β π΅ ((π₯ β€ π€ β§ π¦ β€ π€) β π§ β€ π€)))) |
16 | 15 | reubidv 3392 |
. . . . 5
β’ ((π₯ β π΅ β§ π¦ β π΅) β (β!π§ β π΅ (βπ£ β {π₯, π¦}π£ β€ π§ β§ βπ€ β π΅ (βπ£ β {π₯, π¦}π£ β€ π€ β π§ β€ π€)) β β!π§ β π΅ ((π₯ β€ π§ β§ π¦ β€ π§) β§ βπ€ β π΅ ((π₯ β€ π€ β§ π¦ β€ π€) β π§ β€ π€)))) |
17 | 16 | adantl 480 |
. . . 4
β’ ((π β§ (π₯ β π΅ β§ π¦ β π΅)) β (β!π§ β π΅ (βπ£ β {π₯, π¦}π£ β€ π§ β§ βπ€ β π΅ (βπ£ β {π₯, π¦}π£ β€ π€ β π§ β€ π€)) β β!π§ β π΅ ((π₯ β€ π§ β§ π¦ β€ π§) β§ βπ€ β π΅ ((π₯ β€ π€ β§ π¦ β€ π€) β π§ β€ π€)))) |
18 | 13, 17 | bitrd 278 |
. . 3
β’ ((π β§ (π₯ β π΅ β§ π¦ β π΅)) β ({π₯, π¦} β dom π β β!π§ β π΅ ((π₯ β€ π§ β§ π¦ β€ π§) β§ βπ€ β π΅ ((π₯ β€ π€ β§ π¦ β€ π€) β π§ β€ π€)))) |
19 | 18 | 2ralbidva 3214 |
. 2
β’ (π β (βπ₯ β π΅ βπ¦ β π΅ {π₯, π¦} β dom π β βπ₯ β π΅ βπ¦ β π΅ β!π§ β π΅ ((π₯ β€ π§ β§ π¦ β€ π§) β§ βπ€ β π΅ ((π₯ β€ π€ β§ π¦ β€ π€) β π§ β€ π€)))) |
20 | 5, 19 | bitrd 278 |
1
β’ (π β (dom β¨ = (π΅ Γ π΅) β βπ₯ β π΅ βπ¦ β π΅ β!π§ β π΅ ((π₯ β€ π§ β§ π¦ β€ π§) β§ βπ€ β π΅ ((π₯ β€ π€ β§ π¦ β€ π€) β π§ β€ π€)))) |