theorem
  U1,U1 are_isomorphic
proof
  set i = id the carrier of U1;
  i is_homomorphism & rng i = the carrier of U1 by Th5;
  then i is_isomorphism by Th7;
  hence thesis;
end;
