reserve f for Function;
reserve n,k,n1 for Nat;
reserve r,p for Real;
reserve x,y,z for object;
reserve seq,seq1,seq2,seq3,seq9,seq19 for Real_Sequence;

theorem Th24:
  r(#)(seq1-seq2)=r(#)seq1-r(#)seq2
proof
  thus r(#)(seq1-seq2)=r(#)seq1+r(#)(-seq2) by Th22
    .=r(#)seq1+((-1)*r)(#)seq2 by Th23
    .=r(#)seq1-(r(#)seq2) by Th23;
end;
