theorem Th40:
  -(R1 - R2) = -R1 + R2
proof
  thus -(R1 - R2) = -(R1+ -R2) by FINSEQOP:84
    .= -R1 +--R2 by Th31
    .= -R1 + R2 by Th28;
end;
