
theorem Th27:
  for A being Category, a,b,c being Object of A holds Args(compsym
  (a,b,c), MSAlg A) = product <*Hom(b,c), Hom(a,b)*> & Result(compsym(a,b,c),
  MSAlg A) = Hom(a,c)
proof
  let A be Category, a,b,c be Object of A;
  for a,b being Object of A holds (the Sorts of MSAlg A).homsym(a,b) = Hom
  (a,b) by Def13;
  hence thesis by Lm5;
end;
