theorem
  R - (i|->(0 qua Real)) = R
proof
  thus R - (i|->(0 qua Real)) = R + (i|->(-(0 qua Element of NAT))) by Th21
    .= R by BINOP_2:2,FINSEQOP:56;
end;
