theorem :: TOPREAL3'4
  a = (a + b) / 2 implies a = b;
