reserve T for TopSpace,
  A, B for Subset of T;

theorem :: Theorem 1
  A is supercondensed implies A` is subcondensed
proof
A1: (Int A)` = Cl (A`) by TDLAT_3:2;
  assume A is supercondensed;
  then
A2: (Int Cl A)` = (Int A)`;
  (Int Cl A)` = Cl (Cl A)` by TDLAT_3:2
    .= Cl Int (A`) by TDLAT_3:3;
  hence thesis by A2,A1;
end;
