reserve T,T1,T2,S for non empty TopSpace;

theorem Th7:
  dom proj2=the carrier of TOP-REAL 2 & dom proj2=REAL 2
proof
  thus dom proj2=the carrier of TOP-REAL 2 by FUNCT_2:def 1;
  hence thesis by EUCLID:22;
end;
