let X, Y be Subset of REAL; :: thesis: ( X c= Y implies Cl X c= Cl Y )
assume A1: X c= Y ; :: thesis: Cl X c= Cl Y
set ClX = { A where A is Subset of REAL : ( X c= A & A is closed ) } ;
Y c= Cl Y by Th94;
then X c= Cl Y by A1, XBOOLE_1:1;
then Cl Y in { A where A is Subset of REAL : ( X c= A & A is closed ) } ;
hence Cl X c= Cl Y by SETFAM_1:3; :: thesis: verum