let n be Element of NAT ; :: thesis: the_Complex_Space n is regular
let p be Point of (the_Complex_Space n); :: according to COMPTS_1:def 5 :: thesis: for b₁ being Element of bool the carrier of (the_Complex_Space n) holds
( b₁ = {} or not b₁ is closed or not p in b₁ ` or ex b<sub>2</sub>, b<sub>3</sub> being Element of bool the carrier of (the_Complex_Space n) st
( b<sub>2</sub> is open & b<sub>3</sub> is open & p in b<sub>2</sub> & b<sub>1</sub> c= b<sub>3</sub> & b<sub>2</sub> misses b<sub>3</sub> ) )
let P be Subset of (the_Complex_Space n); :: thesis: ( P = {} or not P is closed or not p in P ` or ex b₁, b₂ being Element of bool the carrier of (the_Complex_Space n) st
( b₁ is open & b₂ is open & p in b₁ & P c= b₂ & b₁ misses b₂ ) )
assume A1: ( P <> {} & P is closed & p in P ` ) ; :: thesis: ex b₁, b₂ being Element of bool the carrier of (the_Complex_Space n) st
( b₁ is open & b₂ is open & p in b₁ & P c= b₂ & b₁ misses b₂ )
reconsider z1 = p as Element of COMPLEX n ;
reconsider A = P as Subset of (COMPLEX n) ;
A2: A is closed by A1, Th110;
set d = (dist z1,A) / 2;
not p in P by A1, XBOOLE_0:def 5;
then A3: 0 < (dist z1,A) / 2 by A1, A2, Th88, XREAL_1:217;
reconsider K1 = Ball z1,((dist z1,A) / 2), K2 = Ball A,((dist z1,A) / 2) as Subset of (the_Complex_Space n) ;
take K1 ; :: thesis: ex b₁ being Element of bool the carrier of (the_Complex_Space n) st
( K1 is open & b₁ is open & p in K1 & P c= b₁ & K1 misses b₁ )
take K2 ; :: thesis: ( K1 is open & K2 is open & p in K1 & P c= K2 & K1 misses K2 )
( Ball z1,((dist z1,A) / 2) is open & Ball A,((dist z1,A) / 2) is open ) by A1, Th82, Th93;
hence ( K1 is open & K2 is open ) by Th108; :: thesis: ( p in K1 & P c= K2 & K1 misses K2 )
thus ( p in K1 & P c= K2 ) by A3, Th81, Th92; :: thesis: K1 misses K2
assume K1 /\ K2 <> {} ; :: according to XBOOLE_0:def 7 :: thesis: contradiction
then consider x being Element of COMPLEX n such that
A4: x in (Ball z1,((dist z1,A) / 2)) /\ (Ball A,((dist z1,A) / 2)) by SUBSET_1:10;
( x in K1 & x in K2 ) by A4, XBOOLE_0:def 4;
then ( |.(z1 - x).| < (dist z1,A) / 2 & dist x,A < (dist z1,A) / 2 ) by Th80, Th90;
then |.(z1 - x).| + (dist x,A) < ((dist z1,A) / 2) + ((dist z1,A) / 2) by XREAL_1:10;
hence contradiction by A1, Th89; :: thesis: verum