 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;

theorem Th6:
  G is unital iff ex a st for b holds a*b = b & b*a = b;
