reserve i,n,m for Nat,
  x,y,X,Y for set,
  r,s for Real;

theorem
  for T be TopStruct st T is compact holds T is countably_compact;
