Step | Hyp | Ref
| Expression |
1 | | ipolub.s |
. . 3
β’ (π β π β πΉ) |
2 | | ipolub.f |
. . . . 5
β’ (π β πΉ β π) |
3 | | ipolub.i |
. . . . . 6
β’ πΌ = (toIncβπΉ) |
4 | 3 | ipobas 18489 |
. . . . 5
β’ (πΉ β π β πΉ = (BaseβπΌ)) |
5 | 2, 4 | syl 17 |
. . . 4
β’ (π β πΉ = (BaseβπΌ)) |
6 | | eqidd 2732 |
. . . 4
β’ (π β (leβπΌ) = (leβπΌ)) |
7 | | ipoglb.g |
. . . 4
β’ (π β πΊ = (glbβπΌ)) |
8 | | eqid 2731 |
. . . . 5
β’
(leβπΌ) =
(leβπΌ) |
9 | 3, 2, 1, 8 | ipoglblem 47702 |
. . . 4
β’ ((π β§ π€ β πΉ) β ((π€ β β© π β§ βπ§ β πΉ (π§ β β© π β π§ β π€)) β (βπ¦ β π π€(leβπΌ)π¦ β§ βπ§ β πΉ (βπ¦ β π π§(leβπΌ)π¦ β π§(leβπΌ)π€)))) |
10 | 3 | ipopos 18494 |
. . . . 5
β’ πΌ β Poset |
11 | 10 | a1i 11 |
. . . 4
β’ (π β πΌ β Poset) |
12 | 5, 6, 7, 9, 11 | glbeldm2d 47680 |
. . 3
β’ (π β (π β dom πΊ β (π β πΉ β§ βπ€ β πΉ (π€ β β© π β§ βπ§ β πΉ (π§ β β© π β π§ β π€))))) |
13 | 1, 12 | mpbirand 704 |
. 2
β’ (π β (π β dom πΊ β βπ€ β πΉ (π€ β β© π β§ βπ§ β πΉ (π§ β β© π β π§ β π€)))) |
14 | | ipoglbdm.t |
. . . . . . 7
β’ (π β π = βͺ {π₯ β πΉ β£ π₯ β β© π}) |
15 | 14 | ad2antrr 723 |
. . . . . 6
β’ (((π β§ π€ β πΉ) β§ (π€ β β© π β§ βπ§ β πΉ (π§ β β© π β π§ β π€))) β π = βͺ {π₯ β πΉ β£ π₯ β β© π}) |
16 | | unilbeu 47698 |
. . . . . . . 8
β’ (π€ β πΉ β ((π€ β β© π β§ βπ§ β πΉ (π§ β β© π β π§ β π€)) β π€ = βͺ {π₯ β πΉ β£ π₯ β β© π})) |
17 | 16 | biimpa 476 |
. . . . . . 7
β’ ((π€ β πΉ β§ (π€ β β© π β§ βπ§ β πΉ (π§ β β© π β π§ β π€))) β π€ = βͺ {π₯ β πΉ β£ π₯ β β© π}) |
18 | 17 | adantll 711 |
. . . . . 6
β’ (((π β§ π€ β πΉ) β§ (π€ β β© π β§ βπ§ β πΉ (π§ β β© π β π§ β π€))) β π€ = βͺ {π₯ β πΉ β£ π₯ β β© π}) |
19 | 15, 18 | eqtr4d 2774 |
. . . . 5
β’ (((π β§ π€ β πΉ) β§ (π€ β β© π β§ βπ§ β πΉ (π§ β β© π β π§ β π€))) β π = π€) |
20 | | simplr 766 |
. . . . 5
β’ (((π β§ π€ β πΉ) β§ (π€ β β© π β§ βπ§ β πΉ (π§ β β© π β π§ β π€))) β π€ β πΉ) |
21 | 19, 20 | eqeltrd 2832 |
. . . 4
β’ (((π β§ π€ β πΉ) β§ (π€ β β© π β§ βπ§ β πΉ (π§ β β© π β π§ β π€))) β π β πΉ) |
22 | 21 | ex 412 |
. . 3
β’ ((π β§ π€ β πΉ) β ((π€ β β© π β§ βπ§ β πΉ (π§ β β© π β π§ β π€)) β π β πΉ)) |
23 | | simpr 484 |
. . 3
β’ ((π β§ π β πΉ) β π β πΉ) |
24 | | unilbeu 47698 |
. . . . 5
β’ (π β πΉ β ((π β β© π β§ βπ§ β πΉ (π§ β β© π β π§ β π)) β π = βͺ {π₯ β πΉ β£ π₯ β β© π})) |
25 | 24 | biimparc 479 |
. . . 4
β’ ((π = βͺ
{π₯ β πΉ β£ π₯ β β© π} β§ π β πΉ) β (π β β© π β§ βπ§ β πΉ (π§ β β© π β π§ β π))) |
26 | 14, 25 | sylan 579 |
. . 3
β’ ((π β§ π β πΉ) β (π β β© π β§ βπ§ β πΉ (π§ β β© π β π§ β π))) |
27 | | sseq1 4007 |
. . . 4
β’ (π€ = π β (π€ β β© π β π β β© π)) |
28 | | sseq2 4008 |
. . . . . 6
β’ (π€ = π β (π§ β π€ β π§ β π)) |
29 | 28 | imbi2d 340 |
. . . . 5
β’ (π€ = π β ((π§ β β© π β π§ β π€) β (π§ β β© π β π§ β π))) |
30 | 29 | ralbidv 3176 |
. . . 4
β’ (π€ = π β (βπ§ β πΉ (π§ β β© π β π§ β π€) β βπ§ β πΉ (π§ β β© π β π§ β π))) |
31 | 27, 30 | anbi12d 630 |
. . 3
β’ (π€ = π β ((π€ β β© π β§ βπ§ β πΉ (π§ β β© π β π§ β π€)) β (π β β© π β§ βπ§ β πΉ (π§ β β© π β π§ β π)))) |
32 | 22, 23, 26, 31 | rspceb2dv 47576 |
. 2
β’ (π β (βπ€ β πΉ (π€ β β© π β§ βπ§ β πΉ (π§ β β© π β π§ β π€)) β π β πΉ)) |
33 | 13, 32 | bitrd 279 |
1
β’ (π β (π β dom πΊ β π β πΉ)) |