let X be non empty TopSpace; :: thesis: ( ( X is T_2 & X is locally-compact ) iff One-Point_Compactification X is T_2 )
set D = { (U \/ {([#] X)}) where U is Subset of X : ( U is open & U ` is compact ) } ;
A1: the topology of (One-Point_Compactification X) = the topology of X \/ { (U \/ {([#] X)}) where U is Subset of X : ( U is open & U ` is compact ) } by Def9;
A2: [#] (One-Point_Compactification X) = succ ([#] X) by Def9;
A3: [#] X c= [#] (One-Point_Compactification X) by Th4;
thus ( X is T_2 & X is locally-compact implies One-Point_Compactification X is T_2 ) :: thesis: ( One-Point_Compactification X is T_2 implies ( X is T_2 & X is locally-compact ) )
proof
assume that
A4: X is T_2 and
A5: X is locally-compact ; :: thesis: One-Point_Compactification X is T_2
let p, q be Point of (One-Point_Compactification X); :: according to PRE_TOPC:def 16 :: thesis: ( p = q or ex b1, b2 being Element of bool the carrier of (One-Point_Compactification X) st
( b1 is open & b2 is open & p in b1 & q in b2 & b1 misses b2 ) )

assume A6: p <> q ; :: thesis: ex b1, b2 being Element of bool the carrier of (One-Point_Compactification X) st
( b1 is open & b2 is open & p in b1 & q in b2 & b1 misses b2 )

per cases ( ( p in [#] X & q in [#] X ) or ( p in [#] X & q in {([#] X)} ) or ( q in [#] X & p in {([#] X)} ) or ( p in {([#] X)} & q in {([#] X)} ) ) by A2, XBOOLE_0:def 3;
suppose ( p in [#] X & q in [#] X ) ; :: thesis: ex b1, b2 being Element of bool the carrier of (One-Point_Compactification X) st
( b1 is open & b2 is open & p in b1 & q in b2 & b1 misses b2 )

then consider W, V being Subset of X such that
A7: ( W is open & V is open ) and
A8: ( p in W & q in V & W misses V ) by A4, A6, PRE_TOPC:def 16;
reconsider W = W, V = V as Subset of (One-Point_Compactification X) by A3, XBOOLE_1:1;
take W ; :: thesis: ex b1 being Element of bool the carrier of (One-Point_Compactification X) st
( W is open & b1 is open & p in W & q in b1 & W misses b1 )

take V ; :: thesis: ( W is open & V is open & p in W & q in V & W misses V )
( W in the topology of X & V in the topology of X ) by A7, PRE_TOPC:def 5;
then ( W in the topology of (One-Point_Compactification X) & V in the topology of (One-Point_Compactification X) ) by A1, XBOOLE_0:def 3;
hence ( W is open & V is open ) by PRE_TOPC:def 5; :: thesis: ( p in W & q in V & W misses V )
thus ( p in W & q in V & W misses V ) by A8; :: thesis: verum
end;
suppose that A9: p in [#] X and
A10: q in {([#] X)} ; :: thesis: ex b1, b2 being Element of bool the carrier of (One-Point_Compactification X) st
( b1 is open & b2 is open & p in b1 & q in b2 & b1 misses b2 )

reconsider px = p as Point of X by A9;
consider P being a_neighborhood of px such that
A11: P is compact by A5, Def6;
[#] X c= [#] (One-Point_Compactification X) by A2, XBOOLE_1:7;
then reconsider W = Int P as Subset of (One-Point_Compactification X) by XBOOLE_1:1;
A12: (P ` ) ` = P ;
(P ` ) \/ {([#] X)} in { (U \/ {([#] X)}) where U is Subset of X : ( U is open & U ` is compact ) } by A11, A12, A4;
then A13: (P ` ) \/ {([#] X)} in the topology of (One-Point_Compactification X) by A1, XBOOLE_0:def 3;
then reconsider V = (P ` ) \/ {([#] X)} as Subset of (One-Point_Compactification X) ;
take W ; :: thesis: ex b1 being Element of bool the carrier of (One-Point_Compactification X) st
( W is open & b1 is open & p in W & q in b1 & W misses b1 )

take V ; :: thesis: ( W is open & V is open & p in W & q in V & W misses V )
W in the topology of X by PRE_TOPC:def 5;
then W in the topology of (One-Point_Compactification X) by A1, XBOOLE_0:def 3;
hence W is open by PRE_TOPC:def 5; :: thesis: ( V is open & p in W & q in V & W misses V )
thus V is open by A13, PRE_TOPC:def 5; :: thesis: ( p in W & q in V & W misses V )
thus p in W by CONNSP_2:def 1; :: thesis: ( q in V & W misses V )
thus q in V by A10, XBOOLE_0:def 3; :: thesis: W misses V
( Int P c= [#] X & not [#] X in [#] X ) ;
then not [#] X in Int P ;
then A14: Int P misses {([#] X)} by ZFMISC_1:56;
Int P c= P by TOPS_1:44;
then Int P misses P ` by SUBSET_1:44;
hence W misses V by A14, XBOOLE_1:70; :: thesis: verum
end;
suppose that A15: q in [#] X and
A16: p in {([#] X)} ; :: thesis: ex b1, b2 being Element of bool the carrier of (One-Point_Compactification X) st
( b1 is open & b2 is open & p in b1 & q in b2 & b1 misses b2 )

reconsider qx = q as Point of X by A15;
consider Q being a_neighborhood of qx such that
A17: Q is compact by A5, Def6;
[#] X c= [#] (One-Point_Compactification X) by Th4;
then reconsider W = Int Q as Subset of (One-Point_Compactification X) by XBOOLE_1:1;
A18: (Q ` ) ` = Q ;
(Q ` ) \/ {([#] X)} in { (U \/ {([#] X)}) where U is Subset of X : ( U is open & U ` is compact ) } by A17, A18, A4;
then A19: (Q ` ) \/ {([#] X)} in the topology of (One-Point_Compactification X) by A1, XBOOLE_0:def 3;
then reconsider V = (Q ` ) \/ {([#] X)} as Subset of (One-Point_Compactification X) ;
take V ; :: thesis: ex b1 being Element of bool the carrier of (One-Point_Compactification X) st
( V is open & b1 is open & p in V & q in b1 & V misses b1 )

take W ; :: thesis: ( V is open & W is open & p in V & q in W & V misses W )
thus V is open by A19, PRE_TOPC:def 5; :: thesis: ( W is open & p in V & q in W & V misses W )
W in the topology of X by PRE_TOPC:def 5;
then W in the topology of (One-Point_Compactification X) by A1, XBOOLE_0:def 3;
hence W is open by PRE_TOPC:def 5; :: thesis: ( p in V & q in W & V misses W )
thus p in V by A16, XBOOLE_0:def 3; :: thesis: ( q in W & V misses W )
thus q in W by CONNSP_2:def 1; :: thesis: V misses W
( Int Q c= [#] X & not [#] X in [#] X ) ;
then not [#] X in Int Q ;
then A20: Int Q misses {([#] X)} by ZFMISC_1:56;
Int Q c= Q by TOPS_1:44;
then Int Q misses Q ` by SUBSET_1:44;
hence V misses W by A20, XBOOLE_1:70; :: thesis: verum
end;
suppose ( p in {([#] X)} & q in {([#] X)} ) ; :: thesis: ex b1, b2 being Element of bool the carrier of (One-Point_Compactification X) st
( b1 is open & b2 is open & p in b1 & q in b2 & b1 misses b2 )

then ( p = [#] X & q = [#] X ) by TARSKI:def 1;
hence ex b1, b2 being Element of bool the carrier of (One-Point_Compactification X) st
( b1 is open & b2 is open & p in b1 & q in b2 & b1 misses b2 ) by A6; :: thesis: verum
end;
end;
end;
assume A21: One-Point_Compactification X is T_2 ; :: thesis: ( X is T_2 & X is locally-compact )
A22: X is SubSpace of One-Point_Compactification X by Th5;
hence X is T_2 by A21; :: thesis: X is locally-compact
let x be Point of X; :: according to COMPACT1:def 6 :: thesis: ex U being a_neighborhood of x st U is compact
x in [#] X ;
then reconsider p = x as Point of (One-Point_Compactification X) by A3;
[#] X in {([#] X)} by TARSKI:def 1;
then reconsider q = [#] X as Point of (One-Point_Compactification X) by A2, XBOOLE_0:def 3;
not [#] X in [#] X ;
then p <> q ;
then consider V, U being Subset of (One-Point_Compactification X) such that
A23: V is open and
A24: U is open and
A25: p in V and
A26: q in U and
A27: V misses U by A21, PRE_TOPC:def 16;
A28: U in the topology of (One-Point_Compactification X) by A24, PRE_TOPC:def 5;
now
assume U in the topology of X ; :: thesis: contradiction
then q in [#] X by A26;
hence contradiction ; :: thesis: verum
end;
then U in { (U \/ {([#] X)}) where U is Subset of X : ( U is open & U ` is compact ) } by A1, A28, XBOOLE_0:def 3;
then consider W being Subset of X such that
A29: U = W \/ {([#] X)} and
W is open and
A30: W ` is compact ;
A31: V c= U ` by A27, SUBSET_1:43;
A32: [#] X in {([#] X)} by TARSKI:def 1;
then A33: [#] X in U by A29, XBOOLE_0:def 3;
A34: not [#] X in [#] X ;
A35: ([#] X) \ U = (([#] X) \ W) /\ (([#] X) \ {([#] X)}) by A29, XBOOLE_1:53
.= (([#] X) \ W) /\ ([#] X) by A34, ZFMISC_1:65
.= ([#] X) \ W by XBOOLE_1:28 ;
A36: ([#] (One-Point_Compactification X)) \ U = (([#] X) \ U) \/ ({([#] X)} \ U) by A2, XBOOLE_1:42
.= (([#] X) \ W) \/ {} by A33, A35, ZFMISC_1:68
.= W ` ;
then A37: V c= [#] X by A31, XBOOLE_1:1;
A38: now
assume V in { (U \/ {([#] X)}) where U is Subset of X : ( U is open & U ` is compact ) } ; :: thesis: contradiction
then ex S being Subset of X st
( V = S \/ {([#] X)} & S is open & S ` is compact ) ;
then [#] X in V by A32, XBOOLE_0:def 3;
then [#] X in [#] X by A37;
hence contradiction ; :: thesis: verum
end;
V in the topology of (One-Point_Compactification X) by A23, PRE_TOPC:def 5;
then V in the topology of X by A1, A38, XBOOLE_0:def 3;
then reconsider Vx = V as open Subset of X by PRE_TOPC:def 5;
set K = Cl Vx;
A39: (U ` ) /\ ([#] X) = W ` by A36, XBOOLE_1:28;
A40: W ` is closed by A22, A39, PRE_TOPC:43, A24;
A41: x in Int Vx by A25, TOPS_1:55;
Int Vx c= Int (Cl Vx) by PRE_TOPC:48, TOPS_1:48;
then reconsider K = Cl Vx as a_neighborhood of x by A41, CONNSP_2:def 1;
take K ; :: thesis: K is compact
thus K is compact by A30, A31, A36, A40, COMPTS_1:18, TOPS_1:31; :: thesis: verum