theorem
  -(<*>REAL) = <*>REAL;
