let M be non empty locally_euclidean with_boundary TopSpace; for p being Point of M
for n being Nat st ex U being a_neighborhood of p st M | U, Tdisk ((0. (TOP-REAL (n + 1))),1) are_homeomorphic holds
for pF being Point of (M | (Fr M)) st p = pF holds
ex U being a_neighborhood of pF st (M | (Fr M)) | U, Tball ((0. (TOP-REAL n)),1) are_homeomorphic
let p be Point of M; for n being Nat st ex U being a_neighborhood of p st M | U, Tdisk ((0. (TOP-REAL (n + 1))),1) are_homeomorphic holds
for pF being Point of (M | (Fr M)) st p = pF holds
ex U being a_neighborhood of pF st (M | (Fr M)) | U, Tball ((0. (TOP-REAL n)),1) are_homeomorphic
let n be Nat; ( ex U being a_neighborhood of p st M | U, Tdisk ((0. (TOP-REAL (n + 1))),1) are_homeomorphic implies for pF being Point of (M | (Fr M)) st p = pF holds
ex U being a_neighborhood of pF st (M | (Fr M)) | U, Tball ((0. (TOP-REAL n)),1) are_homeomorphic )
assume A1:
ex U being a_neighborhood of p st M | U, Tdisk ((0. (TOP-REAL (n + 1))),1) are_homeomorphic
; for pF being Point of (M | (Fr M)) st p = pF holds
ex U being a_neighborhood of pF st (M | (Fr M)) | U, Tball ((0. (TOP-REAL n)),1) are_homeomorphic
set n1 = n + 1;
set TR = TOP-REAL (n + 1);
consider W being a_neighborhood of p such that
A2:
M | W, Tdisk ((0. (TOP-REAL (n + 1))),1) are_homeomorphic
by A1;
A3:
p in Int W
by CONNSP_2:def 1;
set TR1 = TOP-REAL n;
set CL = cl_Ball ((0. (TOP-REAL (n + 1))),1);
set S = Sphere ((0. (TOP-REAL (n + 1))),1);
set F = Fr M;
set MF = M | (Fr M);
let pF be Point of (M | (Fr M)); ( p = pF implies ex U being a_neighborhood of pF st (M | (Fr M)) | U, Tball ((0. (TOP-REAL n)),1) are_homeomorphic )
assume A4:
p = pF
; ex U being a_neighborhood of pF st (M | (Fr M)) | U, Tball ((0. (TOP-REAL n)),1) are_homeomorphic
A5:
[#] (M | (Fr M)) = Fr M
by PRE_TOPC:def 5;
then consider U being a_neighborhood of p, m being Nat, h being Function of (M | U),(Tdisk ((0. (TOP-REAL m)),1)) such that
A6:
h is being_homeomorphism
and
A7:
h . p in Sphere ((0. (TOP-REAL m)),1)
by A4, Th5;
A8:
p in Int U
by CONNSP_2:def 1;
M | U, Tdisk ((0. (TOP-REAL m)),1) are_homeomorphic
by A6, T_0TOPSP:def 1;
then A9:
m = n + 1
by A3, A8, XBOOLE_0:3, A2, BROUWER3:14;
then reconsider h = h as Function of (M | U),(Tdisk ((0. (TOP-REAL (n + 1))),1)) ;
A10:
Int U c= U
by TOPS_1:16;
[#] (M | U) = U
by PRE_TOPC:def 5;
then reconsider IU = Int U as Subset of (M | U) by TOPS_1:16;
set MU = M | U;
A11:
pF in Int U
by A4, CONNSP_2:def 1;
then
p in (Fr M) /\ IU
by A4, A5, XBOOLE_0:def 4;
then reconsider FIU = (Fr M) /\ (Int U) as non empty Subset of (M | U) ;
A12:
[#] (M | U) = U
by PRE_TOPC:def 5;
IU is open
by TSEP_1:9;
then
h .: IU is open
by A9, A6, TOPGRP_1:25;
then
h .: IU in the topology of (Tdisk ((0. (TOP-REAL (n + 1))),1))
by PRE_TOPC:def 2;
then consider W being Subset of (TOP-REAL (n + 1)) such that
A13:
W in the topology of (TOP-REAL (n + 1))
and
A14:
h .: IU = W /\ ([#] (Tdisk ((0. (TOP-REAL (n + 1))),1)))
by PRE_TOPC:def 4;
reconsider W = W as open Subset of (TOP-REAL (n + 1)) by A13, PRE_TOPC:def 2;
A15:
h .: IU = W /\ (cl_Ball ((0. (TOP-REAL (n + 1))),1))
by PRE_TOPC:def 5, A14;
A16:
dom h = [#] (M | U)
by A6, TOPS_2:def 5;
then A17:
h . p in h .: IU
by A4, A11, FUNCT_1:def 6;
then reconsider hp = h . p as Point of (TOP-REAL (n + 1)) by A15;
A18:
Int W = W
by TOPS_1:23;
A19:
|.(hp - (0. (TOP-REAL (n + 1)))).| = 1
by A9, A7, TOPREAL9:9;
reconsider HP = hp as Point of (Euclid (n + 1)) by EUCLID:67;
h . p in W
by A17, A14, XBOOLE_0:def 4;
then consider s being Real such that
A20:
s > 0
and
A21:
Ball (HP,s) c= W
by A18, GOBOARD6:5;
set s2 = s / 2;
set m = min ((s / 2),(1 / 2));
set V0 = (Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2)))));
set hV0 = h " ((Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2))))));
A22:
min ((s / 2),(1 / 2)) <= s / 2
by XXREAL_0:17;
s / 2 < s
by A20, XREAL_1:216;
then A23:
Ball (hp,(min ((s / 2),(1 / 2)))) c= Ball (hp,s)
by A22, XXREAL_0:2, JORDAN:18;
A24:
Ball (HP,s) = Ball (hp,s)
by TOPREAL9:13;
A25:
h " ((Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2)))))) c= Fr M
proof
let x be
object ;
TARSKI:def 3 ( not x in h " ((Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2)))))) or x in Fr M )
assume A26:
x in h " ((Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2))))))
;
x in Fr M
then A27:
h . x in (Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2)))))
by FUNCT_1:def 7;
A28:
x in dom h
by A26, FUNCT_1:def 7;
then reconsider q =
x as
Point of
M by A16, A12;
reconsider hq =
h . q as
Point of
(TOP-REAL (n + 1)) by A27;
h . q in Ball (
hp,
(min ((s / 2),(1 / 2))))
by A27, XBOOLE_0:def 4;
then A29:
h . q in Ball (
hp,
s)
by A23;
A30:
h . q in Sphere (
(0. (TOP-REAL (n + 1))),1)
by A27, XBOOLE_0:def 4;
then
|.(hq - (0. (TOP-REAL (n + 1)))).| = 1
by TOPREAL9:9;
then
hq in cl_Ball (
(0. (TOP-REAL (n + 1))),1)
;
then
h . q in h .: IU
by A15, A29, A21, A24, XBOOLE_0:def 4;
then consider y being
object such that A31:
y in dom h
and A32:
y in IU
and A33:
h . y = h . q
by FUNCT_1:def 6;
y = q
by A6, A31, A33, A28, FUNCT_1:def 4;
then
U is
a_neighborhood of
q
by A32, CONNSP_2:def 1;
hence
x in Fr M
by A9, A6, Th5, A30;
verum
end;
reconsider FIU1 = FIU as Subset of (M | (Fr M)) by XBOOLE_1:17, A5;
Int U in the topology of M
by PRE_TOPC:def 2;
then
FIU1 in the topology of (M | (Fr M))
by A5, PRE_TOPC:def 4;
then A34:
FIU1 is open
by PRE_TOPC:def 2;
A35:
(M | (Fr M)) | FIU1 = M | ((Fr M) /\ (Int U))
by XBOOLE_1:17, PRE_TOPC:7;
set Mfiu = (M | U) | FIU;
A36:
(Fr M) /\ U c= U
by XBOOLE_1:17;
A37:
[#] ((TOP-REAL (n + 1)) | (cl_Ball ((0. (TOP-REAL (n + 1))),1))) = cl_Ball ((0. (TOP-REAL (n + 1))),1)
by PRE_TOPC:def 5;
then reconsider hFIU = h .: FIU as Subset of (TOP-REAL (n + 1)) by XBOOLE_1:1;
A38:
[#] ((TOP-REAL (n + 1)) | hFIU) = hFIU
by PRE_TOPC:def 5;
A39:
(Tdisk ((0. (TOP-REAL (n + 1))),1)) | (h .: FIU) = (TOP-REAL (n + 1)) | hFIU
by A37, PRE_TOPC:7;
then reconsider hfiu = h | FIU as Function of ((M | U) | FIU),((TOP-REAL (n + 1)) | hFIU) by JORDAN24:12;
A40:
hfiu is being_homeomorphism
by A9, A6, METRIZTS:2, A39;
A41:
Ball ((0. (TOP-REAL n)),1) misses Sphere ((0. (TOP-REAL n)),1)
by TOPREAL9:19;
A42:
Sphere ((0. (TOP-REAL (n + 1))),1) c= cl_Ball ((0. (TOP-REAL (n + 1))),1)
by TOPREAL9:17;
A43:
IU = h " (h .: IU)
by FUNCT_1:82, A6, FUNCT_1:76, A16;
(Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2))))) c= Ball (hp,(min ((s / 2),(1 / 2))))
by XBOOLE_1:17;
then A44:
(Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2))))) c= W
by A21, A23, A24;
A45:
(Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2))))) c= hFIU
proof
let x be
object ;
TARSKI:def 3 ( not x in (Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2))))) or x in hFIU )
assume A46:
x in (Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2)))))
;
x in hFIU
then reconsider q =
x as
Point of
(TOP-REAL (n + 1)) ;
q in Sphere (
(0. (TOP-REAL (n + 1))),1)
by A46, XBOOLE_0:def 4;
then
q in h .: IU
by A44, A46, A15, A42, XBOOLE_0:def 4;
then consider w being
object such that A47:
w in dom h
and A48:
w in IU
and A49:
h . w = q
by FUNCT_1:def 6;
reconsider w =
w as
Point of
(M | U) by A47;
w in h " ((Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2))))))
by A46, A47, A49, FUNCT_1:def 7;
then
w in FIU
by A25, A48, XBOOLE_0:def 4;
hence
x in hFIU
by A47, A49, FUNCT_1:def 6;
verum
end;
A50:
(Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2))))) c= Sphere ((0. (TOP-REAL (n + 1))),1)
by XBOOLE_1:17;
then
(Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2))))) c= cl_Ball ((0. (TOP-REAL (n + 1))),1)
by A42;
then
(Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2))))) c= h .: IU
by A44, A14, XBOOLE_1:19, A37;
then A51:
h " ((Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2)))))) c= IU
by A43, RELAT_1:143;
A52:
rng h = [#] (Tdisk ((0. (TOP-REAL (n + 1))),1))
by A9, A6, TOPS_2:def 5;
then
h .: (h " ((Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2))))))) = (Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2)))))
by FUNCT_1:77, A42, A50, XBOOLE_1:1, A37;
then A53:
(Tdisk ((0. (TOP-REAL (n + 1))),1)) | (h .: (h " ((Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2)))))))) = (TOP-REAL (n + 1)) | ((Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2))))))
by PRE_TOPC:7, A42, A50, XBOOLE_1:1;
A54:
cl_Ball ((0. (TOP-REAL (n + 1))),1) = (Sphere ((0. (TOP-REAL (n + 1))),1)) \/ (Ball ((0. (TOP-REAL (n + 1))),1))
by TOPREAL9:18;
A55:
hFIU /\ (Ball (hp,(min ((s / 2),(1 / 2))))) c= (Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2)))))
proof
let x be
object ;
TARSKI:def 3 ( not x in hFIU /\ (Ball (hp,(min ((s / 2),(1 / 2))))) or x in (Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2))))) )
assume A56:
x in hFIU /\ (Ball (hp,(min ((s / 2),(1 / 2)))))
;
x in (Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2)))))
then reconsider q =
x as
Point of
(TOP-REAL (n + 1)) ;
A57:
x in hFIU
by A56, XBOOLE_0:def 4;
A58:
q in Sphere (
(0. (TOP-REAL (n + 1))),1)
proof
reconsider Q =
q as
Point of
(Euclid (n + 1)) by EUCLID:67;
set WB =
W /\ (Ball ((0. (TOP-REAL (n + 1))),1));
A59:
Int (W /\ (Ball ((0. (TOP-REAL (n + 1))),1))) = W /\ (Ball ((0. (TOP-REAL (n + 1))),1))
by TOPS_1:23;
hFIU c= h .: IU
by XBOOLE_1:17, RELAT_1:123;
then A60:
q in W
by A57, A14, XBOOLE_0:def 4;
assume
not
q in Sphere (
(0. (TOP-REAL (n + 1))),1)
;
contradiction
then
q in Ball (
(0. (TOP-REAL (n + 1))),1)
by A57, A37, A54, XBOOLE_0:def 3;
then
q in W /\ (Ball ((0. (TOP-REAL (n + 1))),1))
by A60, XBOOLE_0:def 4;
then consider w being
Real such that A61:
w > 0
and A62:
Ball (
Q,
w)
c= W /\ (Ball ((0. (TOP-REAL (n + 1))),1))
by A59, GOBOARD6:5;
set B =
Ball (
q,
w);
A63:
Ball (
Q,
w)
= Ball (
q,
w)
by TOPREAL9:13;
consider u being
object such that A64:
u in dom h
and A65:
u in FIU
and A66:
h . u = q
by FUNCT_1:def 6, A57;
reconsider u =
u as
Point of
M by A65;
A67:
Ball (
(0. (TOP-REAL (n + 1))),1)
c= cl_Ball (
(0. (TOP-REAL (n + 1))),1)
by A54, XBOOLE_1:11;
W /\ (Ball ((0. (TOP-REAL (n + 1))),1)) c= Ball (
(0. (TOP-REAL (n + 1))),1)
by XBOOLE_1:17;
then A68:
Ball (
q,
w)
c= Ball (
(0. (TOP-REAL (n + 1))),1)
by A62, A63;
then reconsider BB =
Ball (
q,
w) as
Subset of
(Tdisk ((0. (TOP-REAL (n + 1))),1)) by A67, XBOOLE_1:1, A37;
reconsider hBB =
h " BB as
Subset of
M by A12, XBOOLE_1:1;
A69:
Ball (
q,
w)
in the
topology of
(TOP-REAL (n + 1))
by PRE_TOPC:def 2;
|.(q - q).| = 0
by TOPRNS_1:28;
then
q in BB
by A61;
then A70:
u in hBB
by A64, A66, FUNCT_1:def 7;
BB /\ (cl_Ball ((0. (TOP-REAL (n + 1))),1)) = BB
by A67, XBOOLE_1:1, A68, XBOOLE_1:28;
then
BB in the
topology of
(Tdisk ((0. (TOP-REAL (n + 1))),1))
by A69, A37, PRE_TOPC:def 4;
then
BB is
open
by PRE_TOPC:def 2;
then A72:
h " BB is
open
by TOPGRP_1:26, A9, A6;
W /\ (Ball ((0. (TOP-REAL (n + 1))),1)) c= W
by XBOOLE_1:17;
then
BB c= W
by A62, A63;
then
BB c= h .: IU
by XBOOLE_1:19, A14;
then
h " BB c= Int U
by RELAT_1:143, A43;
then
hBB is
open
by A10, A12, A72, TSEP_1:9;
then A73:
Int hBB = hBB
by TOPS_1:23;
A74:
(Tdisk ((0. (TOP-REAL (n + 1))),1)) | BB = (TOP-REAL (n + 1)) | (Ball (q,w))
by A37, PRE_TOPC:7;
reconsider hBB =
hBB as
a_neighborhood of
u by A73, A70, CONNSP_2:def 1;
A75:
h .: hBB = BB
by FUNCT_1:77, A52;
A76:
(M | U) | (h " BB) = M | hBB
by A12, PRE_TOPC:7;
then reconsider hB =
h | hBB as
Function of
(M | hBB),
((TOP-REAL (n + 1)) | (Ball (q,w))) by JORDAN24:12, A74, A75;
hB is
being_homeomorphism
by A9, A6, A74, A75, A76, METRIZTS:2;
then A77:
M | hBB,
Tball (
q,
w)
are_homeomorphic
by T_0TOPSP:def 1;
Tball (
q,
w),
Tball (
(0. (TOP-REAL (n + 1))),1)
are_homeomorphic
by A61, Th3;
then
M | hBB,
Tball (
(0. (TOP-REAL (n + 1))),1)
are_homeomorphic
by A77, A61, BORSUK_3:3;
then A78:
u in Int M
by Def4;
u in Fr M
by A65, XBOOLE_0:def 4;
then
u in ([#] M) \ (Int M)
by SUBSET_1:def 4;
hence
contradiction
by XBOOLE_0:def 5, A78;
verum
end;
x in Ball (
hp,
(min ((s / 2),(1 / 2))))
by A56, XBOOLE_0:def 4;
hence
x in (Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2)))))
by A58, XBOOLE_0:def 4;
verum
end;
((Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2)))))) /\ (Ball (hp,(min ((s / 2),(1 / 2))))) =
(Sphere ((0. (TOP-REAL (n + 1))),1)) /\ ((Ball (hp,(min ((s / 2),(1 / 2))))) /\ (Ball (hp,(min ((s / 2),(1 / 2))))))
by XBOOLE_1:16
.=
(Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2)))))
;
then A79:
hFIU /\ (Ball (hp,(min ((s / 2),(1 / 2))))) = (Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2)))))
by A55, XBOOLE_1:26, A45;
reconsider v0 = (Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2))))) as Subset of ((TOP-REAL (n + 1)) | hFIU) by A38, A45;
Ball (hp,(min ((s / 2),(1 / 2)))) in the topology of (TOP-REAL (n + 1))
by PRE_TOPC:def 2;
then
v0 in the topology of ((TOP-REAL (n + 1)) | hFIU)
by A79, PRE_TOPC:def 4, A38;
then A80:
v0 is open
by PRE_TOPC:def 2;
A81:
(Ball ((0. (TOP-REAL n)),1)) \/ (Sphere ((0. (TOP-REAL n)),1)) = cl_Ball ((0. (TOP-REAL n)),1)
by TOPREAL9:18;
A83:
|.(hp - (0. (TOP-REAL (n + 1)))).| = |.((0. (TOP-REAL (n + 1))) - hp).|
by TOPRNS_1:27;
A84:
min ((s / 2),(1 / 2)) > 0
by A20, XXREAL_0:21;
then A85:
|.((0. (TOP-REAL (n + 1))) - hp).| < 1 + (min ((s / 2),(1 / 2)))
by A19, A83, XREAL_1:29;
|.(hp - hp).| = 0
by TOPRNS_1:28;
then
hp in Ball (hp,(min ((s / 2),(1 / 2))))
by A84;
then A86:
hp in (Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2)))))
by A9, A7, XBOOLE_0:def 4;
A87:
pF in Int U
by A4, CONNSP_2:def 1;
then A88:
pF in h " ((Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2))))))
by A16, A10, A12, A4, A86, FUNCT_1:def 7;
min ((s / 2),(1 / 2)) <= 1 / 2
by XXREAL_0:17;
then
min ((s / 2),(1 / 2)) < |.((0. (TOP-REAL (n + 1))) - hp).|
by A19, A83, XXREAL_0:2;
then consider g being Function of ((TOP-REAL (n + 1)) | ((Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (cl_Ball (hp,(min ((s / 2),(1 / 2))))))),(Tdisk ((0. (TOP-REAL n)),1)) such that
A89:
g is being_homeomorphism
and
A90:
g .: ((Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Sphere (hp,(min ((s / 2),(1 / 2)))))) = Sphere ((0. (TOP-REAL n)),1)
by A19, A83, A85, BROUWER3:19;
A91:
(g .: (Sphere ((0. (TOP-REAL (n + 1))),1))) /\ (g .: (Ball (hp,(min ((s / 2),(1 / 2)))))) = g .: ((Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2))))))
by A89, FUNCT_1:62;
A92:
[#] ((M | U) | FIU) = FIU
by PRE_TOPC:def 5;
then reconsider U0 = h " ((Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2)))))) as non empty Subset of ((M | U) | FIU) by A51, A25, XBOOLE_1:19, A16, A87, A4, A86, FUNCT_1:def 7;
reconsider U0 = h " ((Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2)))))) as Subset of ((M | U) | FIU) by A51, A25, XBOOLE_1:19, A92;
A93:
[#] ((M | (Fr M)) | FIU1) = FIU
by PRE_TOPC:def 5;
then reconsider u0 = U0 as Subset of ((M | (Fr M)) | FIU1) by A92;
hfiu " v0 = FIU /\ U0
by FUNCT_1:70;
then
hfiu " v0 = U0
by A51, A25, XBOOLE_1:19, XBOOLE_1:28;
then A94:
U0 is open
by A80, A40, TOPGRP_1:26;
reconsider FV0 = u0 as Subset of (M | (Fr M)) by XBOOLE_1:1, A92;
A95:
(Fr M) /\ (Int U) c= (Fr M) /\ U
by XBOOLE_1:26, TOPS_1:16;
then
(M | U) | FIU = M | ((Fr M) /\ (Int U))
by A36, XBOOLE_1:1, PRE_TOPC:7;
then
FV0 is open
by A34, A35, A94, TSEP_1:9, A93;
then
pF in Int FV0
by A88, TOPS_1:22;
then reconsider FV0 = FV0 as a_neighborhood of pF by CONNSP_2:def 1;
reconsider MV0 = FV0 as Subset of M by A51, XBOOLE_1:1;
h " ((Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2)))))) c= IU /\ (Fr M)
by A51, A25, XBOOLE_1:19;
then
FV0 c= (Fr M) /\ U
by A95;
then A96:
(M | U) | (h " ((Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2))))))) = M | MV0
by PRE_TOPC:7, A36, XBOOLE_1:1;
(Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Sphere (hp,(min ((s / 2),(1 / 2))))) misses (Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2)))))
by TOPREAL9:19, XBOOLE_1:76;
then A97:
Sphere ((0. (TOP-REAL n)),1) misses g .: ((Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2))))))
by A89, A90, FUNCT_1:66;
A98:
(g .: (Sphere ((0. (TOP-REAL (n + 1))),1))) /\ (g .: (Sphere (hp,(min ((s / 2),(1 / 2)))))) = g .: ((Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Sphere (hp,(min ((s / 2),(1 / 2))))))
by A89, FUNCT_1:62;
A99:
[#] ((TOP-REAL (n + 1)) | ((Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (cl_Ball (hp,(min ((s / 2),(1 / 2))))))) = (Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (cl_Ball (hp,(min ((s / 2),(1 / 2)))))
by PRE_TOPC:def 5;
then A100:
dom g = (Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (cl_Ball (hp,(min ((s / 2),(1 / 2)))))
by A89, TOPS_2:def 5;
A101:
(Ball (hp,(min ((s / 2),(1 / 2))))) \/ (Sphere (hp,(min ((s / 2),(1 / 2))))) = cl_Ball (hp,(min ((s / 2),(1 / 2))))
by TOPREAL9:18;
then reconsider ZV0 = (Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2))))) as Subset of ((TOP-REAL (n + 1)) | ((Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (cl_Ball (hp,(min ((s / 2),(1 / 2))))))) by XBOOLE_1:7, XBOOLE_1:26, A99;
A102:
g .: (cl_Ball (hp,(min ((s / 2),(1 / 2))))) = (g .: (Ball (hp,(min ((s / 2),(1 / 2)))))) \/ (g .: (Sphere (hp,(min ((s / 2),(1 / 2))))))
by A101, RELAT_1:120;
A103:
[#] (Tdisk ((0. (TOP-REAL n)),1)) = cl_Ball ((0. (TOP-REAL n)),1)
by PRE_TOPC:def 5;
then
rng g = cl_Ball ((0. (TOP-REAL n)),1)
by A89, TOPS_2:def 5;
then cl_Ball ((0. (TOP-REAL n)),1) =
g .: ((Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (cl_Ball (hp,(min ((s / 2),(1 / 2))))))
by A100, RELAT_1:113
.=
(g .: (Sphere ((0. (TOP-REAL (n + 1))),1))) /\ (g .: (cl_Ball (hp,(min ((s / 2),(1 / 2))))))
by A89, FUNCT_1:62
.=
(g .: ((Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2))))))) \/ (Sphere ((0. (TOP-REAL n)),1))
by A102, A98, A91, A90, XBOOLE_1:23
;
then
g .: ((Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2)))))) = Ball ((0. (TOP-REAL n)),1)
by A81, A41, A97, XBOOLE_1:71;
then A104:
(Tdisk ((0. (TOP-REAL n)),1)) | (g .: ZV0) = Tball ((0. (TOP-REAL n)),1)
by PRE_TOPC:7, A103;
A105:
((TOP-REAL (n + 1)) | ((Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (cl_Ball (hp,(min ((s / 2),(1 / 2))))))) | ZV0 = (TOP-REAL (n + 1)) | ((Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2))))))
by A99, PRE_TOPC:7;
then reconsider GG = g | ZV0 as Function of ((TOP-REAL (n + 1)) | ((Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2))))))),(Tball ((0. (TOP-REAL n)),1)) by A86, JORDAN24:12, A104;
A106:
GG is being_homeomorphism
by A89, METRIZTS:2, A105, A104;
A107:
M | MV0 = (M | (Fr M)) | FV0
by A5, PRE_TOPC:7;
then reconsider HH = h | FV0 as Function of ((M | (Fr M)) | FV0),((TOP-REAL (n + 1)) | ((Sphere ((0. (TOP-REAL (n + 1))),1)) /\ (Ball (hp,(min ((s / 2),(1 / 2))))))) by A96, A53, JORDAN24:12;
reconsider GH = GG * HH as Function of ((M | (Fr M)) | FV0),(Tball ((0. (TOP-REAL n)),1)) by A86;
take
FV0
; (M | (Fr M)) | FV0, Tball ((0. (TOP-REAL n)),1) are_homeomorphic
HH is being_homeomorphism
by A9, A6, METRIZTS:2, A96, A53, A107;
then
GH is being_homeomorphism
by A86, A106, TOPS_2:57;
hence
(M | (Fr M)) | FV0, Tball ((0. (TOP-REAL n)),1) are_homeomorphic
by T_0TOPSP:def 1; verum