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

theorem
  id the Sorts of U1 = 1_MSAEndMonoid U1 by Def6;
