let X be non empty TopSpace; :: thesis: for x being Point of X holds
( X is_locally_connected_in x iff for U1 being non empty Subset of X st U1 is open & x in U1 holds
ex x1 being Point of (X | U1) st
( x1 = x & x in Int () ) )

let x be Point of X; :: thesis: ( X is_locally_connected_in x iff for U1 being non empty Subset of X st U1 is open & x in U1 holds
ex x1 being Point of (X | U1) st
( x1 = x & x in Int () ) )

A1: ( X is_locally_connected_in x implies for U1 being non empty Subset of X st U1 is open & x in U1 holds
ex x1 being Point of (X | U1) st
( x1 = x & x in Int () ) )
proof
assume A2: X is_locally_connected_in x ; :: thesis: for U1 being non empty Subset of X st U1 is open & x in U1 holds
ex x1 being Point of (X | U1) st
( x1 = x & x in Int () )

let U1 be non empty Subset of X; :: thesis: ( U1 is open & x in U1 implies ex x1 being Point of (X | U1) st
( x1 = x & x in Int () ) )

assume that
A3: U1 is open and
A4: x in U1 ; :: thesis: ex x1 being Point of (X | U1) st
( x1 = x & x in Int () )

x in [#] (X | U1) by ;
then reconsider x1 = x as Point of (X | U1) ;
reconsider S1 = Component_of x1 as Subset of (X | U1) ;
take x1 ; :: thesis: ( x1 = x & x in Int () )
reconsider S = S1 as Subset of X by PRE_TOPC:11;
A5: x in S by CONNSP_1:38;
S1 is a_component by CONNSP_1:40;
then A6: S is_a_component_of U1 by CONNSP_1:def 6;
U1 is a_neighborhood of x by A3, A4, Th3;
then S is a_neighborhood of x by A2, A6, A5, Th13;
then S1 is a_neighborhood of x1 by Th10;
hence ( x1 = x & x in Int () ) by Def1; :: thesis: verum
end;
( ( for U1 being non empty Subset of X st U1 is open & x in U1 holds
ex x1 being Point of (X | U1) st
( x1 = x & x in Int () ) ) implies X is_locally_connected_in x )
proof
assume A7: for U1 being non empty Subset of X st U1 is open & x in U1 holds
ex x1 being Point of (X | U1) st
( x1 = x & x in Int () ) ; :: thesis:
for U1 being Subset of X st U1 is a_neighborhood of x holds
ex V1 being Subset of X st
( V1 is a_neighborhood of x & V1 is connected & V1 c= U1 )
proof
let U1 be Subset of X; :: thesis: ( U1 is a_neighborhood of x implies ex V1 being Subset of X st
( V1 is a_neighborhood of x & V1 is connected & V1 c= U1 ) )

assume U1 is a_neighborhood of x ; :: thesis: ex V1 being Subset of X st
( V1 is a_neighborhood of x & V1 is connected & V1 c= U1 )

then consider V being non empty Subset of X such that
A8: V is a_neighborhood of x and
A9: V is open and
A10: V c= U1 by Th5;
consider x1 being Point of (X | V) such that
A11: x1 = x and
A12: x in Int () by A7, A8, A9, Th4;
set S1 = Component_of x1;
reconsider S = Component_of x1 as Subset of X by PRE_TOPC:11;
take S ; :: thesis: ( S is a_neighborhood of x & S is connected & S c= U1 )
Component_of x1 c= [#] (X | V) ;
then A13: ( Component_of x1 is connected & S c= V ) by PRE_TOPC:def 5;
Component_of x1 is a_neighborhood of x1 by ;
hence ( S is a_neighborhood of x & S is connected & S c= U1 ) by ; :: thesis: verum
end;
hence X is_locally_connected_in x ; :: thesis: verum
end;
hence ( X is_locally_connected_in x iff for U1 being non empty Subset of X st U1 is open & x in U1 holds
ex x1 being Point of (X | U1) st
( x1 = x & x in Int () ) ) by A1; :: thesis: verum