theorem :: REAL_2'88_1
  3 * a = a + a + a;
