reserve a, b, c, d, e for Complex;

theorem :: REAL_1'29
  a * (b - c) = a * b - a * c;
