theorem Th18:
  r(#)(seq1-seq2)=r(#)seq1-r(#)seq2
proof
  thus r(#)(seq1-seq2)=r(#)seq1+r(#)(-seq2) by Th16
    .=r(#)seq1+r(#)((-1r)(#)seq2)
    .=r(#)seq1+((-1r)*r)(#)seq2 by Th17
    .=r(#)seq1+(-1r)(#)(r(#)seq2) by Th17
    .=r(#)seq1-(r(#)seq2);
end;
