theorem
  (i|->(0 qua Real)) - R = -R by BINOP_2:2,FINSEQOP:56;
