theorem Th6:
  o is commutative implies (e is_a_unity_wrt o iff e is_a_left_unity_wrt o)
by Th4;
