theorem Th16:
  M is well-unital iff
    for a being Element of M holds (1.M)*a = a & a*(1.M) = a;
