 reserve x,y,X,Y for set;
reserve G for non empty multMagma,
  D for set,
  a,b,c,r,l for Element of G;
reserve M for non empty multLoopStr;
reserve H for non empty SubStr of G,
  N for non empty MonoidalSubStr of G;

theorem Th61:
  for D being set holds
    the carrier of D*+^+<0> = D* &
    the multF of D*+^+<0> = D-concatenation &
    1.(D*+^+<0>) = {}
proof
  let D be set;
  set M = D*+^+<0>;
  the multMagma of M = D*+^ & the_unity_wrt op(M) = un(M) by Def22,Th17;
  hence thesis by Def34,Th60;
end;
