theorem Th31:
  (-1) * h = -h
proof
  |.-1.| = - (-1) by ABSVALUE:def 1;
  hence (-1) * h = -( 1 * h) by Def8
    .= -h by Th25;
end;
