reserve S for non empty non void ManySortedSign,
  A for MSAlgebra over S;

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;
