Step | Hyp | Ref
| Expression |
1 | | eqid 2732 |
. . . . . . . 8
β’
(BaseβπΎ) =
(BaseβπΎ) |
2 | | dihintcl.h |
. . . . . . . 8
β’ π» = (LHypβπΎ) |
3 | | dihintcl.i |
. . . . . . . 8
β’ πΌ = ((DIsoHβπΎ)βπ) |
4 | 1, 2, 3 | dihfn 40127 |
. . . . . . 7
β’ ((πΎ β HL β§ π β π») β πΌ Fn (BaseβπΎ)) |
5 | 1, 2, 3 | dihdm 40128 |
. . . . . . . 8
β’ ((πΎ β HL β§ π β π») β dom πΌ = (BaseβπΎ)) |
6 | 5 | fneq2d 6640 |
. . . . . . 7
β’ ((πΎ β HL β§ π β π») β (πΌ Fn dom πΌ β πΌ Fn (BaseβπΎ))) |
7 | 4, 6 | mpbird 256 |
. . . . . 6
β’ ((πΎ β HL β§ π β π») β πΌ Fn dom πΌ) |
8 | 7 | adantr 481 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β πΌ Fn dom πΌ) |
9 | | cnvimass 6077 |
. . . . 5
β’ (β‘πΌ β π) β dom πΌ |
10 | | fnssres 6670 |
. . . . 5
β’ ((πΌ Fn dom πΌ β§ (β‘πΌ β π) β dom πΌ) β (πΌ βΎ (β‘πΌ β π)) Fn (β‘πΌ β π)) |
11 | 8, 9, 10 | sylancl 586 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β (πΌ βΎ (β‘πΌ β π)) Fn (β‘πΌ β π)) |
12 | | fniinfv 6966 |
. . . 4
β’ ((πΌ βΎ (β‘πΌ β π)) Fn (β‘πΌ β π) β β©
π¦ β (β‘πΌ β π)((πΌ βΎ (β‘πΌ β π))βπ¦) = β© ran (πΌ βΎ (β‘πΌ β π))) |
13 | 11, 12 | syl 17 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β β© π¦ β (β‘πΌ β π)((πΌ βΎ (β‘πΌ β π))βπ¦) = β© ran (πΌ βΎ (β‘πΌ β π))) |
14 | | df-ima 5688 |
. . . . 5
β’ (πΌ β (β‘πΌ β π)) = ran (πΌ βΎ (β‘πΌ β π)) |
15 | 4 | adantr 481 |
. . . . . . 7
β’ (((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β πΌ Fn (BaseβπΎ)) |
16 | | dffn4 6808 |
. . . . . . 7
β’ (πΌ Fn (BaseβπΎ) β πΌ:(BaseβπΎ)βontoβran πΌ) |
17 | 15, 16 | sylib 217 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β πΌ:(BaseβπΎ)βontoβran πΌ) |
18 | | simprl 769 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β π β ran πΌ) |
19 | | foimacnv 6847 |
. . . . . 6
β’ ((πΌ:(BaseβπΎ)βontoβran πΌ β§ π β ran πΌ) β (πΌ β (β‘πΌ β π)) = π) |
20 | 17, 18, 19 | syl2anc 584 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β (πΌ β (β‘πΌ β π)) = π) |
21 | 14, 20 | eqtr3id 2786 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β ran (πΌ βΎ (β‘πΌ β π)) = π) |
22 | 21 | inteqd 4954 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β β© ran (πΌ βΎ (β‘πΌ β π)) = β© π) |
23 | 13, 22 | eqtrd 2772 |
. 2
β’ (((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β β© π¦ β (β‘πΌ β π)((πΌ βΎ (β‘πΌ β π))βπ¦) = β© π) |
24 | | simpl 483 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β (πΎ β HL β§ π β π»)) |
25 | 5 | adantr 481 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β dom πΌ = (BaseβπΎ)) |
26 | 9, 25 | sseqtrid 4033 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β (β‘πΌ β π) β (BaseβπΎ)) |
27 | | simprr 771 |
. . . . . . 7
β’ (((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β π β β
) |
28 | | n0 4345 |
. . . . . . 7
β’ (π β β
β
βπ¦ π¦ β π) |
29 | 27, 28 | sylib 217 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β βπ¦ π¦ β π) |
30 | 18 | sselda 3981 |
. . . . . . . 8
β’ ((((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β§ π¦ β π) β π¦ β ran πΌ) |
31 | 25 | fneq2d 6640 |
. . . . . . . . . . 11
β’ (((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β (πΌ Fn dom πΌ β πΌ Fn (BaseβπΎ))) |
32 | 15, 31 | mpbird 256 |
. . . . . . . . . 10
β’ (((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β πΌ Fn dom πΌ) |
33 | 32 | adantr 481 |
. . . . . . . . 9
β’ ((((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β§ π¦ β π) β πΌ Fn dom πΌ) |
34 | | fvelrnb 6949 |
. . . . . . . . 9
β’ (πΌ Fn dom πΌ β (π¦ β ran πΌ β βπ₯ β dom πΌ(πΌβπ₯) = π¦)) |
35 | 33, 34 | syl 17 |
. . . . . . . 8
β’ ((((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β§ π¦ β π) β (π¦ β ran πΌ β βπ₯ β dom πΌ(πΌβπ₯) = π¦)) |
36 | 30, 35 | mpbid 231 |
. . . . . . 7
β’ ((((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β§ π¦ β π) β βπ₯ β dom πΌ(πΌβπ₯) = π¦) |
37 | | fnfun 6646 |
. . . . . . . . . . . . . . 15
β’ (πΌ Fn (BaseβπΎ) β Fun πΌ) |
38 | 15, 37 | syl 17 |
. . . . . . . . . . . . . 14
β’ (((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β Fun πΌ) |
39 | | fvimacnv 7051 |
. . . . . . . . . . . . . 14
β’ ((Fun
πΌ β§ π₯ β dom πΌ) β ((πΌβπ₯) β π β π₯ β (β‘πΌ β π))) |
40 | 38, 39 | sylan 580 |
. . . . . . . . . . . . 13
β’ ((((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β§ π₯ β dom πΌ) β ((πΌβπ₯) β π β π₯ β (β‘πΌ β π))) |
41 | | ne0i 4333 |
. . . . . . . . . . . . 13
β’ (π₯ β (β‘πΌ β π) β (β‘πΌ β π) β β
) |
42 | 40, 41 | syl6bi 252 |
. . . . . . . . . . . 12
β’ ((((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β§ π₯ β dom πΌ) β ((πΌβπ₯) β π β (β‘πΌ β π) β β
)) |
43 | 42 | ex 413 |
. . . . . . . . . . 11
β’ (((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β (π₯ β dom πΌ β ((πΌβπ₯) β π β (β‘πΌ β π) β β
))) |
44 | | eleq1 2821 |
. . . . . . . . . . . . 13
β’ ((πΌβπ₯) = π¦ β ((πΌβπ₯) β π β π¦ β π)) |
45 | 44 | biimprd 247 |
. . . . . . . . . . . 12
β’ ((πΌβπ₯) = π¦ β (π¦ β π β (πΌβπ₯) β π)) |
46 | 45 | imim1d 82 |
. . . . . . . . . . 11
β’ ((πΌβπ₯) = π¦ β (((πΌβπ₯) β π β (β‘πΌ β π) β β
) β (π¦ β π β (β‘πΌ β π) β β
))) |
47 | 43, 46 | syl9 77 |
. . . . . . . . . 10
β’ (((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β ((πΌβπ₯) = π¦ β (π₯ β dom πΌ β (π¦ β π β (β‘πΌ β π) β β
)))) |
48 | 47 | com24 95 |
. . . . . . . . 9
β’ (((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β (π¦ β π β (π₯ β dom πΌ β ((πΌβπ₯) = π¦ β (β‘πΌ β π) β β
)))) |
49 | 48 | imp 407 |
. . . . . . . 8
β’ ((((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β§ π¦ β π) β (π₯ β dom πΌ β ((πΌβπ₯) = π¦ β (β‘πΌ β π) β β
))) |
50 | 49 | rexlimdv 3153 |
. . . . . . 7
β’ ((((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β§ π¦ β π) β (βπ₯ β dom πΌ(πΌβπ₯) = π¦ β (β‘πΌ β π) β β
)) |
51 | 36, 50 | mpd 15 |
. . . . . 6
β’ ((((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β§ π¦ β π) β (β‘πΌ β π) β β
) |
52 | 29, 51 | exlimddv 1938 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β (β‘πΌ β π) β β
) |
53 | | eqid 2732 |
. . . . . 6
β’
(glbβπΎ) =
(glbβπΎ) |
54 | 1, 53, 2, 3 | dihglb 40200 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ ((β‘πΌ β π) β (BaseβπΎ) β§ (β‘πΌ β π) β β
)) β (πΌβ((glbβπΎ)β(β‘πΌ β π))) = β©
π¦ β (β‘πΌ β π)(πΌβπ¦)) |
55 | 24, 26, 52, 54 | syl12anc 835 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β (πΌβ((glbβπΎ)β(β‘πΌ β π))) = β©
π¦ β (β‘πΌ β π)(πΌβπ¦)) |
56 | | fvres 6907 |
. . . . 5
β’ (π¦ β (β‘πΌ β π) β ((πΌ βΎ (β‘πΌ β π))βπ¦) = (πΌβπ¦)) |
57 | 56 | iineq2i 5018 |
. . . 4
β’ β© π¦ β (β‘πΌ β π)((πΌ βΎ (β‘πΌ β π))βπ¦) = β© π¦ β (β‘πΌ β π)(πΌβπ¦) |
58 | 55, 57 | eqtr4di 2790 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β (πΌβ((glbβπΎ)β(β‘πΌ β π))) = β©
π¦ β (β‘πΌ β π)((πΌ βΎ (β‘πΌ β π))βπ¦)) |
59 | | hlclat 38216 |
. . . . . 6
β’ (πΎ β HL β πΎ β CLat) |
60 | 59 | ad2antrr 724 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β πΎ β CLat) |
61 | 1, 53 | clatglbcl 18454 |
. . . . 5
β’ ((πΎ β CLat β§ (β‘πΌ β π) β (BaseβπΎ)) β ((glbβπΎ)β(β‘πΌ β π)) β (BaseβπΎ)) |
62 | 60, 26, 61 | syl2anc 584 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β ((glbβπΎ)β(β‘πΌ β π)) β (BaseβπΎ)) |
63 | 1, 2, 3 | dihcl 40129 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ ((glbβπΎ)β(β‘πΌ β π)) β (BaseβπΎ)) β (πΌβ((glbβπΎ)β(β‘πΌ β π))) β ran πΌ) |
64 | 62, 63 | syldan 591 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β (πΌβ((glbβπΎ)β(β‘πΌ β π))) β ran πΌ) |
65 | 58, 64 | eqeltrrd 2834 |
. 2
β’ (((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β β© π¦ β (β‘πΌ β π)((πΌ βΎ (β‘πΌ β π))βπ¦) β ran πΌ) |
66 | 23, 65 | eqeltrrd 2834 |
1
β’ (((πΎ β HL β§ π β π») β§ (π β ran πΌ β§ π β β
)) β β© π
β ran πΌ) |