theorem Th8:
  f is_isomorphism implies dom f = the carrier of U1 & rng f
  = the carrier of U2
proof
  assume f is_isomorphism;
  then f is_epimorphism;
  hence thesis by FUNCT_2:def 1;
end;
