let X be non empty TopSpace; :: thesis: for A being Subset of X holds
( A in the topology of X iff the topology of X = A -extension_of_the_topology_of X )

let A be Subset of X; :: thesis: ( A in the topology of X iff the topology of X = A -extension_of_the_topology_of X )
thus ( A in the topology of X implies the topology of X = A -extension_of_the_topology_of X ) :: thesis: ( the topology of X = A -extension_of_the_topology_of X implies A in the topology of X )
proof
assume A1: A in the topology of X ; :: thesis:
now :: thesis: for W being object st W in A -extension_of_the_topology_of X holds
W in the topology of X
let W be object ; :: thesis: ( W in A -extension_of_the_topology_of X implies W in the topology of X )
assume W in A -extension_of_the_topology_of X ; :: thesis: W in the topology of X
then consider H, G being Subset of X such that
A2: W = H \/ (G /\ A) and
A3: H in the topology of X and
A4: G in the topology of X ;
reconsider H1 = H as Subset of X ;
A5: G /\ A is open by ;
H1 is open by A3;
then H1 \/ (G /\ A) is open by A5;
hence W in the topology of X by A2; :: thesis: verum
end;
then A6: A -extension_of_the_topology_of X c= the topology of X by TARSKI:def 3;
the topology of X c= A -extension_of_the_topology_of X by Th88;
hence the topology of X = A -extension_of_the_topology_of X by A6; :: thesis: verum
end;
thus ( the topology of X = A -extension_of_the_topology_of X implies A in the topology of X ) by Th91; :: thesis: verum