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

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