theorem :: TOPREAL6'2
  a - 2 * a = -a;
