theorem Th38:
  0.REAL n = 0.TOP-REAL n
proof
  the RLSStruct of TOP-REAL n = RealVectSpace Seg n by Def8;
  hence thesis;
end;
