reserve UA for Universal_Algebra;
reserve S for non void non empty ManySortedSign,
  U1 for non-empty MSAlgebra over S;

theorem Th7:
  id the Sorts of U1 in MSAEnd U1
proof
  id the Sorts of U1 is_homomorphism U1, U1 by MSUALG_3:9;
  hence thesis by Def4;
end;
