theorem :: REAL_1'19
  0 - a = - a;
