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