
theorem Th26:
  for A being Category, a being Object of A holds Result(idsym a,
  MSAlg A) = Hom(a,a)
proof
  let A be Category, a be Object of A;
  thus Result(idsym a, MSAlg A) = (the Sorts of MSAlg A).the_result_sort_of
  idsym a by PRALG_2:3
    .= (the Sorts of MSAlg A).homsym(a,a) by Def3
    .= Hom(a,a) by Def13;
end;
