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