theorem Th7:
  o is commutative implies (e is_a_unity_wrt o iff e is_a_right_unity_wrt o)
by Th5;
