let n be Element of NAT ; :: thesis: for A being Subset of (TOP-REAL n) st n >= 2 & A is Bounded holds
UBD A is_outside_component_of A

let A be Subset of (TOP-REAL n); :: thesis: ( n >= 2 & A is Bounded implies UBD A is_outside_component_of A )
assume that
A1: n >= 2 and
A2: A is Bounded ; :: thesis: UBD A is_outside_component_of A
reconsider C = A as bounded Subset of (Euclid n) by A2, Def2;
per cases ( C <> {} or C = {} ) ;
suppose A3: C <> {} ; :: thesis: UBD A is_outside_component_of A
set x0 = the Element of C;
A4: the Element of C in C by A3;
then reconsider q1 = the Element of C as Point of (TOP-REAL n) ;
reconsider o = 0. (TOP-REAL n) as Point of (Euclid n) by EUCLID:67;
reconsider x0 = the Element of C as Point of (Euclid n) by A4;
consider r being Real such that
0 < r and
A5: for x, y being Point of (Euclid n) st x in C & y in C holds
dist (x,y) <= r by TBSP_1:def 7;
set R0 = (r + (dist (o,x0))) + 1;
reconsider W = (REAL n) \ { q where q is Point of (TOP-REAL n) : |.q.| < (r + (dist (o,x0))) + 1 } as Subset of (Euclid n) ;
A6: now
assume W meets A ; :: thesis: contradiction
then consider z being set such that
A7: z in W and
A8: z in A by XBOOLE_0:3;
A9: not z in { q where q is Point of (TOP-REAL n) : |.q.| < (r + (dist (o,x0))) + 1 } by A7, XBOOLE_0:def 5;
reconsider z = z as Point of (Euclid n) by A7;
dist (x0,z) <= r by A5, A8;
then ( dist (o,z) <= (dist (o,x0)) + (dist (x0,z)) & (dist (o,x0)) + (dist (x0,z)) <= (dist (o,x0)) + r ) by METRIC_1:4, XREAL_1:6;
then A10: dist (o,z) <= (dist (o,x0)) + r by XXREAL_0:2;
reconsider q1 = z as Point of (TOP-REAL n) by TOPREAL3:8;
A11: |.(q1 - (0. (TOP-REAL n))).| = dist (o,z) by JGRAPH_1:28;
|.q1.| >= (r + (dist (o,x0))) + 1 by A9;
then dist (o,z) >= (r + (dist (o,x0))) + 1 by A11, RLVECT_1:13;
then r + ((dist (o,x0)) + 1) <= r + (dist (o,x0)) by A10, XXREAL_0:2;
then (dist (o,x0)) + 1 <= (dist (o,x0)) + 0 by XREAL_1:6;
hence contradiction by XREAL_1:6; :: thesis: verum
end;
reconsider P = W as Subset of (TOP-REAL n) by TOPREAL3:8;
reconsider P = P as Subset of (TOP-REAL n) ;
the carrier of ((TOP-REAL n) | (A `)) = A ` by PRE_TOPC:8;
then reconsider P1 = Component_of (Down (P,(A `))) as Subset of (TOP-REAL n) by XBOOLE_1:1;
A12: P is connected by A1, Th70;
A13: UBD A c= P1
proof
A14: (TOP-REAL n) | P is connected by A12, CONNSP_1:def 3;
A15: P c= A ` by A6, SUBSET_1:23;
then Down (P,(A `)) = P by XBOOLE_1:28;
then ((TOP-REAL n) | (A `)) | (Down (P,(A `))) is connected by A15, A14, PRE_TOPC:7;
then A16: Down (P,(A `)) is connected by CONNSP_1:def 3;
reconsider G = A ` as non empty Subset of (TOP-REAL n) by A1, A2, Th74, XXREAL_0:2;
let z be set ; :: according to TARSKI:def 3 :: thesis: ( not z in UBD A or z in P1 )
A17: (TOP-REAL n) | G is non empty TopSpace ;
assume z in UBD A ; :: thesis: z in P1
then consider y being set such that
A18: z in y and
A19: y in { B where B is Subset of (TOP-REAL n) : B is_outside_component_of A } by TARSKI:def 4;
consider B being Subset of (TOP-REAL n) such that
A20: y = B and
A21: B is_outside_component_of A by A19;
consider C2 being Subset of ((TOP-REAL n) | (A `)) such that
A22: C2 = B and
A23: C2 is a_component and
A24: C2 is not bounded Subset of (Euclid n) by A21, Th18;
consider D2 being Subset of (Euclid n) such that
A25: D2 = { q where q is Point of (TOP-REAL n) : |.q.| < (r + (dist (o,x0))) + 1 } by Th75;
reconsider D2 = D2 as Subset of (Euclid n) ;
A26: A c= D2
proof
let z be set ; :: according to TARSKI:def 3 :: thesis: ( not z in A or z in D2 )
A27: |.q1.| = |.(q1 - (0. (TOP-REAL n))).| by RLVECT_1:13
.= dist (x0,o) by JGRAPH_1:28 ;
assume A28: z in A ; :: thesis: z in D2
then reconsider q2 = z as Point of (TOP-REAL n) ;
reconsider x1 = q2 as Point of (Euclid n) by TOPREAL3:8;
( |.(q2 - q1).| = dist (x1,x0) & dist (x1,x0) <= r ) by A5, A28, JGRAPH_1:28;
then A29: |.(q2 - q1).| + |.q1.| <= r + (dist (o,x0)) by A27, XREAL_1:6;
A30: r + (dist (o,x0)) < (r + (dist (o,x0))) + 1 by XREAL_1:29;
( |.q2.| = |.((q2 - q1) + q1).| & |.((q2 - q1) + q1).| <= |.(q2 - q1).| + |.q1.| ) by EUCLID:48, TOPRNS_1:29;
then |.q2.| <= r + (dist (o,x0)) by A29, XXREAL_0:2;
then |.q2.| < (r + (dist (o,x0))) + 1 by A30, XXREAL_0:2;
hence z in D2 by A25; :: thesis: verum
end;
the carrier of (Euclid n) = the carrier of (TOP-REAL n) by TOPREAL3:8;
then D2 ` c= the carrier of (TOP-REAL n) \ A by A26, XBOOLE_1:34;
then A31: P /\ (D2 `) c= P /\ (A `) by XBOOLE_1:26;
now
reconsider D = C2 as Subset of (Euclid n) by A22, TOPREAL3:8;
assume A32: W /\ C2 = {} ; :: thesis: contradiction
A33: C2 c= { q where q is Point of (TOP-REAL n) : |.q.| < (r + (dist (o,x0))) + 1 }
proof
let x8 be set ; :: according to TARSKI:def 3 :: thesis: ( not x8 in C2 or x8 in { q where q is Point of (TOP-REAL n) : |.q.| < (r + (dist (o,x0))) + 1 } )
assume A34: x8 in C2 ; :: thesis: x8 in { q where q is Point of (TOP-REAL n) : |.q.| < (r + (dist (o,x0))) + 1 }
assume not x8 in { q where q is Point of (TOP-REAL n) : |.q.| < (r + (dist (o,x0))) + 1 } ; :: thesis: contradiction
then x8 in W by A22, A24, A34, EUCLID:22, XBOOLE_0:def 5;
hence contradiction by A32, A34, XBOOLE_0:def 4; :: thesis: verum
end;
not D is bounded by A24;
hence contradiction by A25, A33, Th75, TBSP_1:14; :: thesis: verum
end;
then (Down (P,(A `))) /\ C2 <> {} by A25, A31, XBOOLE_1:3, XBOOLE_1:26;
then A35: Down (P,(A `)) meets C2 by XBOOLE_0:def 7;
C2 is connected by A23, CONNSP_1:def 5;
then C2 c= Component_of (Down (P,(A `))) by A16, A35, A17, CONNSP_3:16;
hence z in P1 by A18, A20, A22; :: thesis: verum
end;
P = W ;
then not W is bounded by A1, Th70;
then ( P1 is_outside_component_of A & P1 c= UBD A ) by A12, A6, Th27, Th71;
hence UBD A is_outside_component_of A by A13, XBOOLE_0:def 10; :: thesis: verum
end;
suppose A36: C = {} ; :: thesis: UBD A is_outside_component_of A
REAL n c= the carrier of (Euclid n) ;
then reconsider W = REAL n as Subset of (Euclid n) ;
W /\ A = {} by A36;
then A37: W misses A by XBOOLE_0:def 7;
reconsider P = W as Subset of (TOP-REAL n) by TOPREAL3:8;
reconsider P = P as Subset of (TOP-REAL n) ;
the carrier of ((TOP-REAL n) | (A `)) = A ` by PRE_TOPC:8;
then reconsider P1 = Component_of (Down (P,(A `))) as Subset of (TOP-REAL n) by XBOOLE_1:1;
[#] (TOP-REAL n) is a_component ;
then A38: [#] TopStruct(# the carrier of (TOP-REAL n), the topology of (TOP-REAL n) #) is a_component by CONNSP_1:45;
not W is bounded by A1, Th39, XXREAL_0:2;
then A39: P1 is_outside_component_of A by A37, Th33, Th71;
A = {} (TOP-REAL n) by A36;
then A40: UBD A = REAL n by A1, Th42, XXREAL_0:2;
( [#] (TOP-REAL n) = REAL n & (TOP-REAL n) | ([#] (TOP-REAL n)) = TopStruct(# the carrier of (TOP-REAL n), the topology of (TOP-REAL n) #) ) by EUCLID:22, TSEP_1:93;
hence UBD A is_outside_component_of A by A36, A39, A40, A38, CONNSP_3:7; :: thesis: verum
end;
end;