Step | Hyp | Ref
| Expression |
1 | | ioorrnopnlem.x |
. . . . 5
β’ (π β π β Fin) |
2 | | ioorrnopnlem.d |
. . . . 5
β’ π· = (π β (β βm π), π β (β βm π) β¦
(ββΞ£π
β π (((πβπ) β (πβπ))β2))) |
3 | 1, 2 | rrndsxmet 45005 |
. . . 4
β’ (π β π· β (βMetβ(β
βm π))) |
4 | | nfv 1917 |
. . . . . 6
β’
β²ππ |
5 | | reex 11197 |
. . . . . . 7
β’ β
β V |
6 | 5 | a1i 11 |
. . . . . 6
β’ (π β β β
V) |
7 | | ioossre 13381 |
. . . . . . 7
β’ ((π΄βπ)(,)(π΅βπ)) β β |
8 | 7 | a1i 11 |
. . . . . 6
β’ ((π β§ π β π) β ((π΄βπ)(,)(π΅βπ)) β β) |
9 | 4, 6, 8 | ixpssmapc 43746 |
. . . . 5
β’ (π β Xπ β
π ((π΄βπ)(,)(π΅βπ)) β (β βm π)) |
10 | | ioorrnopnlem.f |
. . . . 5
β’ (π β πΉ β Xπ β π ((π΄βπ)(,)(π΅βπ))) |
11 | 9, 10 | sseldd 3982 |
. . . 4
β’ (π β πΉ β (β βm π)) |
12 | | ioorrnopnlem.e |
. . . . . 6
β’ πΈ = inf(π», β, < ) |
13 | | ioorrnopnlem.h |
. . . . . . . . 9
β’ π» = ran (π β π β¦ if(((π΅βπ) β (πΉβπ)) β€ ((πΉβπ) β (π΄βπ)), ((π΅βπ) β (πΉβπ)), ((πΉβπ) β (π΄βπ)))) |
14 | 13 | a1i 11 |
. . . . . . . 8
β’ (π β π» = ran (π β π β¦ if(((π΅βπ) β (πΉβπ)) β€ ((πΉβπ) β (π΄βπ)), ((π΅βπ) β (πΉβπ)), ((πΉβπ) β (π΄βπ))))) |
15 | | ioorrnopnlem.b |
. . . . . . . . . . . . . 14
β’ (π β π΅:πβΆβ) |
16 | 15 | ffvelcdmda 7083 |
. . . . . . . . . . . . 13
β’ ((π β§ π β π) β (π΅βπ) β β) |
17 | 10 | adantr 481 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β π) β πΉ β Xπ β π ((π΄βπ)(,)(π΅βπ))) |
18 | | simpr 485 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β π) β π β π) |
19 | | fvixp2 43883 |
. . . . . . . . . . . . . . 15
β’ ((πΉ β Xπ β
π ((π΄βπ)(,)(π΅βπ)) β§ π β π) β (πΉβπ) β ((π΄βπ)(,)(π΅βπ))) |
20 | 17, 18, 19 | syl2anc 584 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β π) β (πΉβπ) β ((π΄βπ)(,)(π΅βπ))) |
21 | 7, 20 | sselid 3979 |
. . . . . . . . . . . . 13
β’ ((π β§ π β π) β (πΉβπ) β β) |
22 | 16, 21 | resubcld 11638 |
. . . . . . . . . . . 12
β’ ((π β§ π β π) β ((π΅βπ) β (πΉβπ)) β β) |
23 | | ioorrnopnlem.a |
. . . . . . . . . . . . . . . 16
β’ (π β π΄:πβΆβ) |
24 | 23 | ffvelcdmda 7083 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β π) β (π΄βπ) β β) |
25 | 24 | rexrd 11260 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β π) β (π΄βπ) β
β*) |
26 | 16 | rexrd 11260 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β π) β (π΅βπ) β
β*) |
27 | | iooltub 44209 |
. . . . . . . . . . . . . 14
β’ (((π΄βπ) β β* β§ (π΅βπ) β β* β§ (πΉβπ) β ((π΄βπ)(,)(π΅βπ))) β (πΉβπ) < (π΅βπ)) |
28 | 25, 26, 20, 27 | syl3anc 1371 |
. . . . . . . . . . . . 13
β’ ((π β§ π β π) β (πΉβπ) < (π΅βπ)) |
29 | 21, 16 | posdifd 11797 |
. . . . . . . . . . . . 13
β’ ((π β§ π β π) β ((πΉβπ) < (π΅βπ) β 0 < ((π΅βπ) β (πΉβπ)))) |
30 | 28, 29 | mpbid 231 |
. . . . . . . . . . . 12
β’ ((π β§ π β π) β 0 < ((π΅βπ) β (πΉβπ))) |
31 | 22, 30 | elrpd 13009 |
. . . . . . . . . . 11
β’ ((π β§ π β π) β ((π΅βπ) β (πΉβπ)) β
β+) |
32 | 21, 24 | resubcld 11638 |
. . . . . . . . . . . 12
β’ ((π β§ π β π) β ((πΉβπ) β (π΄βπ)) β β) |
33 | | ioogtlb 44194 |
. . . . . . . . . . . . . 14
β’ (((π΄βπ) β β* β§ (π΅βπ) β β* β§ (πΉβπ) β ((π΄βπ)(,)(π΅βπ))) β (π΄βπ) < (πΉβπ)) |
34 | 25, 26, 20, 33 | syl3anc 1371 |
. . . . . . . . . . . . 13
β’ ((π β§ π β π) β (π΄βπ) < (πΉβπ)) |
35 | 24, 21 | posdifd 11797 |
. . . . . . . . . . . . 13
β’ ((π β§ π β π) β ((π΄βπ) < (πΉβπ) β 0 < ((πΉβπ) β (π΄βπ)))) |
36 | 34, 35 | mpbid 231 |
. . . . . . . . . . . 12
β’ ((π β§ π β π) β 0 < ((πΉβπ) β (π΄βπ))) |
37 | 32, 36 | elrpd 13009 |
. . . . . . . . . . 11
β’ ((π β§ π β π) β ((πΉβπ) β (π΄βπ)) β
β+) |
38 | 31, 37 | ifcld 4573 |
. . . . . . . . . 10
β’ ((π β§ π β π) β if(((π΅βπ) β (πΉβπ)) β€ ((πΉβπ) β (π΄βπ)), ((π΅βπ) β (πΉβπ)), ((πΉβπ) β (π΄βπ))) β
β+) |
39 | 38 | ralrimiva 3146 |
. . . . . . . . 9
β’ (π β βπ β π if(((π΅βπ) β (πΉβπ)) β€ ((πΉβπ) β (π΄βπ)), ((π΅βπ) β (πΉβπ)), ((πΉβπ) β (π΄βπ))) β
β+) |
40 | | eqid 2732 |
. . . . . . . . . 10
β’ (π β π β¦ if(((π΅βπ) β (πΉβπ)) β€ ((πΉβπ) β (π΄βπ)), ((π΅βπ) β (πΉβπ)), ((πΉβπ) β (π΄βπ)))) = (π β π β¦ if(((π΅βπ) β (πΉβπ)) β€ ((πΉβπ) β (π΄βπ)), ((π΅βπ) β (πΉβπ)), ((πΉβπ) β (π΄βπ)))) |
41 | 40 | rnmptss 7118 |
. . . . . . . . 9
β’
(βπ β
π if(((π΅βπ) β (πΉβπ)) β€ ((πΉβπ) β (π΄βπ)), ((π΅βπ) β (πΉβπ)), ((πΉβπ) β (π΄βπ))) β β+ β ran
(π β π β¦ if(((π΅βπ) β (πΉβπ)) β€ ((πΉβπ) β (π΄βπ)), ((π΅βπ) β (πΉβπ)), ((πΉβπ) β (π΄βπ)))) β
β+) |
42 | 39, 41 | syl 17 |
. . . . . . . 8
β’ (π β ran (π β π β¦ if(((π΅βπ) β (πΉβπ)) β€ ((πΉβπ) β (π΄βπ)), ((π΅βπ) β (πΉβπ)), ((πΉβπ) β (π΄βπ)))) β
β+) |
43 | 14, 42 | eqsstrd 4019 |
. . . . . . 7
β’ (π β π» β
β+) |
44 | | ltso 11290 |
. . . . . . . . 9
β’ < Or
β |
45 | 44 | a1i 11 |
. . . . . . . 8
β’ (π β < Or
β) |
46 | 40 | rnmptfi 43852 |
. . . . . . . . . 10
β’ (π β Fin β ran (π β π β¦ if(((π΅βπ) β (πΉβπ)) β€ ((πΉβπ) β (π΄βπ)), ((π΅βπ) β (πΉβπ)), ((πΉβπ) β (π΄βπ)))) β Fin) |
47 | 1, 46 | syl 17 |
. . . . . . . . 9
β’ (π β ran (π β π β¦ if(((π΅βπ) β (πΉβπ)) β€ ((πΉβπ) β (π΄βπ)), ((π΅βπ) β (πΉβπ)), ((πΉβπ) β (π΄βπ)))) β Fin) |
48 | 13, 47 | eqeltrid 2837 |
. . . . . . . 8
β’ (π β π» β Fin) |
49 | | ioorrnopnlem.n |
. . . . . . . . . 10
β’ (π β π β β
) |
50 | 4, 38, 40, 49 | rnmptn0 6240 |
. . . . . . . . 9
β’ (π β ran (π β π β¦ if(((π΅βπ) β (πΉβπ)) β€ ((πΉβπ) β (π΄βπ)), ((π΅βπ) β (πΉβπ)), ((πΉβπ) β (π΄βπ)))) β β
) |
51 | 14, 50 | eqnetrd 3008 |
. . . . . . . 8
β’ (π β π» β β
) |
52 | | rpssre 12977 |
. . . . . . . . . 10
β’
β+ β β |
53 | 52 | a1i 11 |
. . . . . . . . 9
β’ (π β β+
β β) |
54 | 43, 53 | sstrd 3991 |
. . . . . . . 8
β’ (π β π» β β) |
55 | | fiinfcl 9492 |
. . . . . . . 8
β’ (( <
Or β β§ (π» β
Fin β§ π» β β
β§ π» β β))
β inf(π», β, <
) β π») |
56 | 45, 48, 51, 54, 55 | syl13anc 1372 |
. . . . . . 7
β’ (π β inf(π», β, < ) β π») |
57 | 43, 56 | sseldd 3982 |
. . . . . 6
β’ (π β inf(π», β, < ) β
β+) |
58 | 12, 57 | eqeltrid 2837 |
. . . . 5
β’ (π β πΈ β
β+) |
59 | | rpxr 12979 |
. . . . 5
β’ (πΈ β β+
β πΈ β
β*) |
60 | 58, 59 | syl 17 |
. . . 4
β’ (π β πΈ β
β*) |
61 | | eqid 2732 |
. . . . 5
β’
(MetOpenβπ·) =
(MetOpenβπ·) |
62 | 61 | blopn 24000 |
. . . 4
β’ ((π· β
(βMetβ(β βm π)) β§ πΉ β (β βm π) β§ πΈ β β*) β (πΉ(ballβπ·)πΈ) β (MetOpenβπ·)) |
63 | 3, 11, 60, 62 | syl3anc 1371 |
. . 3
β’ (π β (πΉ(ballβπ·)πΈ) β (MetOpenβπ·)) |
64 | | ioorrnopnlem.v |
. . . . 5
β’ π = (πΉ(ballβπ·)πΈ) |
65 | 64 | a1i 11 |
. . . 4
β’ (π β π = (πΉ(ballβπ·)πΈ)) |
66 | 1 | rrxtopnfi 44989 |
. . . . 5
β’ (π β
(TopOpenβ(β^βπ)) = (MetOpenβ(π β (β βm π), π β (β βm π) β¦
(ββΞ£π
β π (((πβπ) β (πβπ))β2))))) |
67 | 2 | eqcomi 2741 |
. . . . . . 7
β’ (π β (β
βm π),
π β (β
βm π)
β¦ (ββΞ£π β π (((πβπ) β (πβπ))β2))) = π· |
68 | 67 | a1i 11 |
. . . . . 6
β’ (π β (π β (β βm π), π β (β βm π) β¦
(ββΞ£π
β π (((πβπ) β (πβπ))β2))) = π·) |
69 | 68 | fveq2d 6892 |
. . . . 5
β’ (π β (MetOpenβ(π β (β
βm π),
π β (β
βm π)
β¦ (ββΞ£π β π (((πβπ) β (πβπ))β2)))) = (MetOpenβπ·)) |
70 | 66, 69 | eqtrd 2772 |
. . . 4
β’ (π β
(TopOpenβ(β^βπ)) = (MetOpenβπ·)) |
71 | 65, 70 | eleq12d 2827 |
. . 3
β’ (π β (π β (TopOpenβ(β^βπ)) β (πΉ(ballβπ·)πΈ) β (MetOpenβπ·))) |
72 | 63, 71 | mpbird 256 |
. 2
β’ (π β π β (TopOpenβ(β^βπ))) |
73 | | xmetpsmet 23845 |
. . . . . 6
β’ (π· β
(βMetβ(β βm π)) β π· β (PsMetβ(β
βm π))) |
74 | 3, 73 | syl 17 |
. . . . 5
β’ (π β π· β (PsMetβ(β
βm π))) |
75 | | blcntrps 23909 |
. . . . 5
β’ ((π· β (PsMetβ(β
βm π))
β§ πΉ β (β
βm π) β§
πΈ β
β+) β πΉ β (πΉ(ballβπ·)πΈ)) |
76 | 74, 11, 58, 75 | syl3anc 1371 |
. . . 4
β’ (π β πΉ β (πΉ(ballβπ·)πΈ)) |
77 | 65 | eqcomd 2738 |
. . . 4
β’ (π β (πΉ(ballβπ·)πΈ) = π) |
78 | 76, 77 | eleqtrd 2835 |
. . 3
β’ (π β πΉ β π) |
79 | | nfv 1917 |
. . . . 5
β’
β²ππ |
80 | | elmapfn 8855 |
. . . . . . . 8
β’ (π β (β
βm π)
β π Fn π) |
81 | 80 | 3ad2ant2 1134 |
. . . . . . 7
β’ ((π β§ π β (β βm π) β§ (πΉπ·π) < πΈ) β π Fn π) |
82 | 25 | 3ad2antl1 1185 |
. . . . . . . . 9
β’ (((π β§ π β (β βm π) β§ (πΉπ·π) < πΈ) β§ π β π) β (π΄βπ) β
β*) |
83 | 26 | 3ad2antl1 1185 |
. . . . . . . . 9
β’ (((π β§ π β (β βm π) β§ (πΉπ·π) < πΈ) β§ π β π) β (π΅βπ) β
β*) |
84 | | simpl2 1192 |
. . . . . . . . . 10
β’ (((π β§ π β (β βm π) β§ (πΉπ·π) < πΈ) β§ π β π) β π β (β βm π)) |
85 | | simpr 485 |
. . . . . . . . . 10
β’ (((π β§ π β (β βm π) β§ (πΉπ·π) < πΈ) β§ π β π) β π β π) |
86 | | elmapi 8839 |
. . . . . . . . . . . 12
β’ (π β (β
βm π)
β π:πβΆβ) |
87 | 86 | adantr 481 |
. . . . . . . . . . 11
β’ ((π β (β
βm π) β§
π β π) β π:πβΆβ) |
88 | | simpr 485 |
. . . . . . . . . . 11
β’ ((π β (β
βm π) β§
π β π) β π β π) |
89 | 87, 88 | ffvelcdmd 7084 |
. . . . . . . . . 10
β’ ((π β (β
βm π) β§
π β π) β (πβπ) β β) |
90 | 84, 85, 89 | syl2anc 584 |
. . . . . . . . 9
β’ (((π β§ π β (β βm π) β§ (πΉπ·π) < πΈ) β§ π β π) β (πβπ) β β) |
91 | 24 | 3ad2antl1 1185 |
. . . . . . . . . 10
β’ (((π β§ π β (β βm π) β§ (πΉπ·π) < πΈ) β§ π β π) β (π΄βπ) β β) |
92 | 52, 58 | sselid 3979 |
. . . . . . . . . . . . 13
β’ (π β πΈ β β) |
93 | 92 | adantr 481 |
. . . . . . . . . . . 12
β’ ((π β§ π β π) β πΈ β β) |
94 | 21, 93 | resubcld 11638 |
. . . . . . . . . . 11
β’ ((π β§ π β π) β ((πΉβπ) β πΈ) β β) |
95 | 94 | 3ad2antl1 1185 |
. . . . . . . . . 10
β’ (((π β§ π β (β βm π) β§ (πΉπ·π) < πΈ) β§ π β π) β ((πΉβπ) β πΈ) β β) |
96 | 52, 38 | sselid 3979 |
. . . . . . . . . . . . 13
β’ ((π β§ π β π) β if(((π΅βπ) β (πΉβπ)) β€ ((πΉβπ) β (π΄βπ)), ((π΅βπ) β (πΉβπ)), ((πΉβπ) β (π΄βπ))) β β) |
97 | 12 | a1i 11 |
. . . . . . . . . . . . . . . 16
β’ (π β πΈ = inf(π», β, < )) |
98 | | infxrrefi 44078 |
. . . . . . . . . . . . . . . . . 18
β’ ((π» β β β§ π» β Fin β§ π» β β
) β inf(π», β*, < ) =
inf(π», β, <
)) |
99 | 54, 48, 51, 98 | syl3anc 1371 |
. . . . . . . . . . . . . . . . 17
β’ (π β inf(π», β*, < ) = inf(π», β, <
)) |
100 | 99 | eqcomd 2738 |
. . . . . . . . . . . . . . . 16
β’ (π β inf(π», β, < ) = inf(π», β*, <
)) |
101 | 97, 100 | eqtrd 2772 |
. . . . . . . . . . . . . . 15
β’ (π β πΈ = inf(π», β*, <
)) |
102 | 101 | adantr 481 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β π) β πΈ = inf(π», β*, <
)) |
103 | | ressxr 11254 |
. . . . . . . . . . . . . . . . . 18
β’ β
β β* |
104 | 103 | a1i 11 |
. . . . . . . . . . . . . . . . 17
β’ (π β β β
β*) |
105 | 54, 104 | sstrd 3991 |
. . . . . . . . . . . . . . . 16
β’ (π β π» β
β*) |
106 | 105 | adantr 481 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β π) β π» β
β*) |
107 | 38 | elexd 3494 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β π) β if(((π΅βπ) β (πΉβπ)) β€ ((πΉβπ) β (π΄βπ)), ((π΅βπ) β (πΉβπ)), ((πΉβπ) β (π΄βπ))) β V) |
108 | 40 | elrnmpt1 5955 |
. . . . . . . . . . . . . . . . 17
β’ ((π β π β§ if(((π΅βπ) β (πΉβπ)) β€ ((πΉβπ) β (π΄βπ)), ((π΅βπ) β (πΉβπ)), ((πΉβπ) β (π΄βπ))) β V) β if(((π΅βπ) β (πΉβπ)) β€ ((πΉβπ) β (π΄βπ)), ((π΅βπ) β (πΉβπ)), ((πΉβπ) β (π΄βπ))) β ran (π β π β¦ if(((π΅βπ) β (πΉβπ)) β€ ((πΉβπ) β (π΄βπ)), ((π΅βπ) β (πΉβπ)), ((πΉβπ) β (π΄βπ))))) |
109 | 18, 107, 108 | syl2anc 584 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β π) β if(((π΅βπ) β (πΉβπ)) β€ ((πΉβπ) β (π΄βπ)), ((π΅βπ) β (πΉβπ)), ((πΉβπ) β (π΄βπ))) β ran (π β π β¦ if(((π΅βπ) β (πΉβπ)) β€ ((πΉβπ) β (π΄βπ)), ((π΅βπ) β (πΉβπ)), ((πΉβπ) β (π΄βπ))))) |
110 | 109, 13 | eleqtrrdi 2844 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β π) β if(((π΅βπ) β (πΉβπ)) β€ ((πΉβπ) β (π΄βπ)), ((π΅βπ) β (πΉβπ)), ((πΉβπ) β (π΄βπ))) β π») |
111 | | infxrlb 13309 |
. . . . . . . . . . . . . . 15
β’ ((π» β β*
β§ if(((π΅βπ) β (πΉβπ)) β€ ((πΉβπ) β (π΄βπ)), ((π΅βπ) β (πΉβπ)), ((πΉβπ) β (π΄βπ))) β π») β inf(π», β*, < ) β€
if(((π΅βπ) β (πΉβπ)) β€ ((πΉβπ) β (π΄βπ)), ((π΅βπ) β (πΉβπ)), ((πΉβπ) β (π΄βπ)))) |
112 | 106, 110,
111 | syl2anc 584 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β π) β inf(π», β*, < ) β€
if(((π΅βπ) β (πΉβπ)) β€ ((πΉβπ) β (π΄βπ)), ((π΅βπ) β (πΉβπ)), ((πΉβπ) β (π΄βπ)))) |
113 | 102, 112 | eqbrtrd 5169 |
. . . . . . . . . . . . 13
β’ ((π β§ π β π) β πΈ β€ if(((π΅βπ) β (πΉβπ)) β€ ((πΉβπ) β (π΄βπ)), ((π΅βπ) β (πΉβπ)), ((πΉβπ) β (π΄βπ)))) |
114 | | min2 13165 |
. . . . . . . . . . . . . 14
β’ ((((π΅βπ) β (πΉβπ)) β β β§ ((πΉβπ) β (π΄βπ)) β β) β if(((π΅βπ) β (πΉβπ)) β€ ((πΉβπ) β (π΄βπ)), ((π΅βπ) β (πΉβπ)), ((πΉβπ) β (π΄βπ))) β€ ((πΉβπ) β (π΄βπ))) |
115 | 22, 32, 114 | syl2anc 584 |
. . . . . . . . . . . . 13
β’ ((π β§ π β π) β if(((π΅βπ) β (πΉβπ)) β€ ((πΉβπ) β (π΄βπ)), ((π΅βπ) β (πΉβπ)), ((πΉβπ) β (π΄βπ))) β€ ((πΉβπ) β (π΄βπ))) |
116 | 93, 96, 32, 113, 115 | letrd 11367 |
. . . . . . . . . . . 12
β’ ((π β§ π β π) β πΈ β€ ((πΉβπ) β (π΄βπ))) |
117 | 93, 21, 24, 116 | lesubd 11814 |
. . . . . . . . . . 11
β’ ((π β§ π β π) β (π΄βπ) β€ ((πΉβπ) β πΈ)) |
118 | 117 | 3ad2antl1 1185 |
. . . . . . . . . 10
β’ (((π β§ π β (β βm π) β§ (πΉπ·π) < πΈ) β§ π β π) β (π΄βπ) β€ ((πΉβπ) β πΈ)) |
119 | 21 | adantlr 713 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (β βm π)) β§ π β π) β (πΉβπ) β β) |
120 | 89 | adantll 712 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (β βm π)) β§ π β π) β (πβπ) β β) |
121 | 119, 120 | resubcld 11638 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (β βm π)) β§ π β π) β ((πΉβπ) β (πβπ)) β β) |
122 | 121 | 3adantl3 1168 |
. . . . . . . . . . . 12
β’ (((π β§ π β (β βm π) β§ (πΉπ·π) < πΈ) β§ π β π) β ((πΉβπ) β (πβπ)) β β) |
123 | 1, 2 | rrndsmet 45004 |
. . . . . . . . . . . . . . 15
β’ (π β π· β (Metβ(β
βm π))) |
124 | 123 | ad2antrr 724 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (β βm π)) β§ π β π) β π· β (Metβ(β
βm π))) |
125 | 11 | ad2antrr 724 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (β βm π)) β§ π β π) β πΉ β (β βm π)) |
126 | | simplr 767 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (β βm π)) β§ π β π) β π β (β βm π)) |
127 | | metcl 23829 |
. . . . . . . . . . . . . 14
β’ ((π· β (Metβ(β
βm π))
β§ πΉ β (β
βm π) β§
π β (β
βm π))
β (πΉπ·π) β β) |
128 | 124, 125,
126, 127 | syl3anc 1371 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (β βm π)) β§ π β π) β (πΉπ·π) β β) |
129 | 128 | 3adantl3 1168 |
. . . . . . . . . . . 12
β’ (((π β§ π β (β βm π) β§ (πΉπ·π) < πΈ) β§ π β π) β (πΉπ·π) β β) |
130 | 93 | adantlr 713 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (β βm π)) β§ π β π) β πΈ β β) |
131 | 130 | 3adantl3 1168 |
. . . . . . . . . . . 12
β’ (((π β§ π β (β βm π) β§ (πΉπ·π) < πΈ) β§ π β π) β πΈ β β) |
132 | 121 | recnd 11238 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (β βm π)) β§ π β π) β ((πΉβπ) β (πβπ)) β β) |
133 | 132 | abscld 15379 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (β βm π)) β§ π β π) β (absβ((πΉβπ) β (πβπ))) β β) |
134 | 121 | leabsd 15357 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (β βm π)) β§ π β π) β ((πΉβπ) β (πβπ)) β€ (absβ((πΉβπ) β (πβπ)))) |
135 | 1 | ad2antrr 724 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β (β βm π)) β§ π β π) β π β Fin) |
136 | | ixpf 8910 |
. . . . . . . . . . . . . . . . . . 19
β’ (πΉ β Xπ β
π ((π΄βπ)(,)(π΅βπ)) β πΉ:πβΆβͺ
π β π ((π΄βπ)(,)(π΅βπ))) |
137 | 10, 136 | syl 17 |
. . . . . . . . . . . . . . . . . 18
β’ (π β πΉ:πβΆβͺ
π β π ((π΄βπ)(,)(π΅βπ))) |
138 | 8 | ralrimiva 3146 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β βπ β π ((π΄βπ)(,)(π΅βπ)) β β) |
139 | | iunss 5047 |
. . . . . . . . . . . . . . . . . . 19
β’ (βͺ π β π ((π΄βπ)(,)(π΅βπ)) β β β βπ β π ((π΄βπ)(,)(π΅βπ)) β β) |
140 | 138, 139 | sylibr 233 |
. . . . . . . . . . . . . . . . . 18
β’ (π β βͺ π β π ((π΄βπ)(,)(π΅βπ)) β β) |
141 | 137, 140 | fssd 6732 |
. . . . . . . . . . . . . . . . 17
β’ (π β πΉ:πβΆβ) |
142 | 141 | ad2antrr 724 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β (β βm π)) β§ π β π) β πΉ:πβΆβ) |
143 | 126, 86 | syl 17 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β (β βm π)) β§ π β π) β π:πβΆβ) |
144 | | simpr 485 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β (β βm π)) β§ π β π) β π β π) |
145 | | eqid 2732 |
. . . . . . . . . . . . . . . 16
β’
(distβ(β^βπ)) = (distβ(β^βπ)) |
146 | 135, 142,
143, 144, 145 | rrnprjdstle 45003 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (β βm π)) β§ π β π) β (absβ((πΉβπ) β (πβπ))) β€ (πΉ(distβ(β^βπ))π)) |
147 | | eqid 2732 |
. . . . . . . . . . . . . . . . . . . 20
β’
(β^βπ) =
(β^βπ) |
148 | | eqid 2732 |
. . . . . . . . . . . . . . . . . . . 20
β’ (β
βm π) =
(β βm π) |
149 | 147, 148 | rrxdsfi 24919 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β Fin β
(distβ(β^βπ)) = (π β (β βm π), π β (β βm π) β¦
(ββΞ£π
β π (((πβπ) β (πβπ))β2)))) |
150 | 1, 149 | syl 17 |
. . . . . . . . . . . . . . . . . 18
β’ (π β
(distβ(β^βπ)) = (π β (β βm π), π β (β βm π) β¦
(ββΞ£π
β π (((πβπ) β (πβπ))β2)))) |
151 | 150, 68 | eqtrd 2772 |
. . . . . . . . . . . . . . . . 17
β’ (π β
(distβ(β^βπ)) = π·) |
152 | 151 | oveqd 7422 |
. . . . . . . . . . . . . . . 16
β’ (π β (πΉ(distβ(β^βπ))π) = (πΉπ·π)) |
153 | 152 | ad2antrr 724 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (β βm π)) β§ π β π) β (πΉ(distβ(β^βπ))π) = (πΉπ·π)) |
154 | 146, 153 | breqtrd 5173 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (β βm π)) β§ π β π) β (absβ((πΉβπ) β (πβπ))) β€ (πΉπ·π)) |
155 | 121, 133,
128, 134, 154 | letrd 11367 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (β βm π)) β§ π β π) β ((πΉβπ) β (πβπ)) β€ (πΉπ·π)) |
156 | 155 | 3adantl3 1168 |
. . . . . . . . . . . 12
β’ (((π β§ π β (β βm π) β§ (πΉπ·π) < πΈ) β§ π β π) β ((πΉβπ) β (πβπ)) β€ (πΉπ·π)) |
157 | | simpl3 1193 |
. . . . . . . . . . . 12
β’ (((π β§ π β (β βm π) β§ (πΉπ·π) < πΈ) β§ π β π) β (πΉπ·π) < πΈ) |
158 | 122, 129,
131, 156, 157 | lelttrd 11368 |
. . . . . . . . . . 11
β’ (((π β§ π β (β βm π) β§ (πΉπ·π) < πΈ) β§ π β π) β ((πΉβπ) β (πβπ)) < πΈ) |
159 | | ltsub23 11690 |
. . . . . . . . . . . . 13
β’ (((πΉβπ) β β β§ (πβπ) β β β§ πΈ β β) β (((πΉβπ) β (πβπ)) < πΈ β ((πΉβπ) β πΈ) < (πβπ))) |
160 | 119, 120,
130, 159 | syl3anc 1371 |
. . . . . . . . . . . 12
β’ (((π β§ π β (β βm π)) β§ π β π) β (((πΉβπ) β (πβπ)) < πΈ β ((πΉβπ) β πΈ) < (πβπ))) |
161 | 160 | 3adantl3 1168 |
. . . . . . . . . . 11
β’ (((π β§ π β (β βm π) β§ (πΉπ·π) < πΈ) β§ π β π) β (((πΉβπ) β (πβπ)) < πΈ β ((πΉβπ) β πΈ) < (πβπ))) |
162 | 158, 161 | mpbid 231 |
. . . . . . . . . 10
β’ (((π β§ π β (β βm π) β§ (πΉπ·π) < πΈ) β§ π β π) β ((πΉβπ) β πΈ) < (πβπ)) |
163 | 91, 95, 90, 118, 162 | lelttrd 11368 |
. . . . . . . . 9
β’ (((π β§ π β (β βm π) β§ (πΉπ·π) < πΈ) β§ π β π) β (π΄βπ) < (πβπ)) |
164 | 21, 93 | readdcld 11239 |
. . . . . . . . . . 11
β’ ((π β§ π β π) β ((πΉβπ) + πΈ) β β) |
165 | 164 | 3ad2antl1 1185 |
. . . . . . . . . 10
β’ (((π β§ π β (β βm π) β§ (πΉπ·π) < πΈ) β§ π β π) β ((πΉβπ) + πΈ) β β) |
166 | 16 | 3ad2antl1 1185 |
. . . . . . . . . 10
β’ (((π β§ π β (β βm π) β§ (πΉπ·π) < πΈ) β§ π β π) β (π΅βπ) β β) |
167 | 120, 119 | resubcld 11638 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (β βm π)) β§ π β π) β ((πβπ) β (πΉβπ)) β β) |
168 | 167 | 3adantl3 1168 |
. . . . . . . . . . . 12
β’ (((π β§ π β (β βm π) β§ (πΉπ·π) < πΈ) β§ π β π) β ((πβπ) β (πΉβπ)) β β) |
169 | 167 | leabsd 15357 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (β βm π)) β§ π β π) β ((πβπ) β (πΉβπ)) β€ (absβ((πβπ) β (πΉβπ)))) |
170 | 120 | recnd 11238 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β (β βm π)) β§ π β π) β (πβπ) β β) |
171 | 119 | recnd 11238 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β (β βm π)) β§ π β π) β (πΉβπ) β β) |
172 | 170, 171 | abssubd 15396 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (β βm π)) β§ π β π) β (absβ((πβπ) β (πΉβπ))) = (absβ((πΉβπ) β (πβπ)))) |
173 | 169, 172 | breqtrd 5173 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (β βm π)) β§ π β π) β ((πβπ) β (πΉβπ)) β€ (absβ((πΉβπ) β (πβπ)))) |
174 | 167, 133,
128, 173, 154 | letrd 11367 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (β βm π)) β§ π β π) β ((πβπ) β (πΉβπ)) β€ (πΉπ·π)) |
175 | 174 | 3adantl3 1168 |
. . . . . . . . . . . 12
β’ (((π β§ π β (β βm π) β§ (πΉπ·π) < πΈ) β§ π β π) β ((πβπ) β (πΉβπ)) β€ (πΉπ·π)) |
176 | 168, 129,
131, 175, 157 | lelttrd 11368 |
. . . . . . . . . . 11
β’ (((π β§ π β (β βm π) β§ (πΉπ·π) < πΈ) β§ π β π) β ((πβπ) β (πΉβπ)) < πΈ) |
177 | 119 | 3adantl3 1168 |
. . . . . . . . . . . 12
β’ (((π β§ π β (β βm π) β§ (πΉπ·π) < πΈ) β§ π β π) β (πΉβπ) β β) |
178 | 90, 177, 131 | ltsubadd2d 11808 |
. . . . . . . . . . 11
β’ (((π β§ π β (β βm π) β§ (πΉπ·π) < πΈ) β§ π β π) β (((πβπ) β (πΉβπ)) < πΈ β (πβπ) < ((πΉβπ) + πΈ))) |
179 | 176, 178 | mpbid 231 |
. . . . . . . . . 10
β’ (((π β§ π β (β βm π) β§ (πΉπ·π) < πΈ) β§ π β π) β (πβπ) < ((πΉβπ) + πΈ)) |
180 | | min1 13164 |
. . . . . . . . . . . . . 14
β’ ((((π΅βπ) β (πΉβπ)) β β β§ ((πΉβπ) β (π΄βπ)) β β) β if(((π΅βπ) β (πΉβπ)) β€ ((πΉβπ) β (π΄βπ)), ((π΅βπ) β (πΉβπ)), ((πΉβπ) β (π΄βπ))) β€ ((π΅βπ) β (πΉβπ))) |
181 | 22, 32, 180 | syl2anc 584 |
. . . . . . . . . . . . 13
β’ ((π β§ π β π) β if(((π΅βπ) β (πΉβπ)) β€ ((πΉβπ) β (π΄βπ)), ((π΅βπ) β (πΉβπ)), ((πΉβπ) β (π΄βπ))) β€ ((π΅βπ) β (πΉβπ))) |
182 | 93, 96, 22, 113, 181 | letrd 11367 |
. . . . . . . . . . . 12
β’ ((π β§ π β π) β πΈ β€ ((π΅βπ) β (πΉβπ))) |
183 | 21, 93, 16 | leaddsub2d 11812 |
. . . . . . . . . . . 12
β’ ((π β§ π β π) β (((πΉβπ) + πΈ) β€ (π΅βπ) β πΈ β€ ((π΅βπ) β (πΉβπ)))) |
184 | 182, 183 | mpbird 256 |
. . . . . . . . . . 11
β’ ((π β§ π β π) β ((πΉβπ) + πΈ) β€ (π΅βπ)) |
185 | 184 | 3ad2antl1 1185 |
. . . . . . . . . 10
β’ (((π β§ π β (β βm π) β§ (πΉπ·π) < πΈ) β§ π β π) β ((πΉβπ) + πΈ) β€ (π΅βπ)) |
186 | 90, 165, 166, 179, 185 | ltletrd 11370 |
. . . . . . . . 9
β’ (((π β§ π β (β βm π) β§ (πΉπ·π) < πΈ) β§ π β π) β (πβπ) < (π΅βπ)) |
187 | 82, 83, 90, 163, 186 | eliood 44197 |
. . . . . . . 8
β’ (((π β§ π β (β βm π) β§ (πΉπ·π) < πΈ) β§ π β π) β (πβπ) β ((π΄βπ)(,)(π΅βπ))) |
188 | 187 | ralrimiva 3146 |
. . . . . . 7
β’ ((π β§ π β (β βm π) β§ (πΉπ·π) < πΈ) β βπ β π (πβπ) β ((π΄βπ)(,)(π΅βπ))) |
189 | 81, 188 | jca 512 |
. . . . . 6
β’ ((π β§ π β (β βm π) β§ (πΉπ·π) < πΈ) β (π Fn π β§ βπ β π (πβπ) β ((π΄βπ)(,)(π΅βπ)))) |
190 | | vex 3478 |
. . . . . . 7
β’ π β V |
191 | 190 | elixp 8894 |
. . . . . 6
β’ (π β Xπ β
π ((π΄βπ)(,)(π΅βπ)) β (π Fn π β§ βπ β π (πβπ) β ((π΄βπ)(,)(π΅βπ)))) |
192 | 189, 191 | sylibr 233 |
. . . . 5
β’ ((π β§ π β (β βm π) β§ (πΉπ·π) < πΈ) β π β Xπ β π ((π΄βπ)(,)(π΅βπ))) |
193 | 79, 74, 11, 60, 192 | ballss3 43767 |
. . . 4
β’ (π β (πΉ(ballβπ·)πΈ) β Xπ β π ((π΄βπ)(,)(π΅βπ))) |
194 | 65, 193 | eqsstrd 4019 |
. . 3
β’ (π β π β Xπ β π ((π΄βπ)(,)(π΅βπ))) |
195 | 78, 194 | jca 512 |
. 2
β’ (π β (πΉ β π β§ π β Xπ β π ((π΄βπ)(,)(π΅βπ)))) |
196 | | eleq2 2822 |
. . . 4
β’ (π£ = π β (πΉ β π£ β πΉ β π)) |
197 | | sseq1 4006 |
. . . 4
β’ (π£ = π β (π£ β Xπ β π ((π΄βπ)(,)(π΅βπ)) β π β Xπ β π ((π΄βπ)(,)(π΅βπ)))) |
198 | 196, 197 | anbi12d 631 |
. . 3
β’ (π£ = π β ((πΉ β π£ β§ π£ β Xπ β π ((π΄βπ)(,)(π΅βπ))) β (πΉ β π β§ π β Xπ β π ((π΄βπ)(,)(π΅βπ))))) |
199 | 198 | rspcev 3612 |
. 2
β’ ((π β
(TopOpenβ(β^βπ)) β§ (πΉ β π β§ π β Xπ β π ((π΄βπ)(,)(π΅βπ)))) β βπ£ β (TopOpenβ(β^βπ))(πΉ β π£ β§ π£ β Xπ β π ((π΄βπ)(,)(π΅βπ)))) |
200 | 72, 195, 199 | syl2anc 584 |
1
β’ (π β βπ£ β (TopOpenβ(β^βπ))(πΉ β π£ β§ π£ β Xπ β π ((π΄βπ)(,)(π΅βπ)))) |