theorem Th4:
  id the Sorts of A is Endomorphism of A
proof
  thus id the Sorts of A is_homomorphism A,A by MSUALG_3:9;
end;
