reserve k, m, n, p, K, N for Nat;
reserve i for Integer;
reserve x, y, eps for Real;
reserve seq, seq1, seq2 for Real_Sequence;
reserve sq for FinSequence of REAL;

theorem Th7:
  n>0 implies aseq(k).n=1-(k/n)
proof
  assume
A1: n>0;
  thus aseq(k).n = (n-k)/n by Def1
    .= (n/n)-(k/n)
    .= 1-(k/n) by A1,XCMPLX_1:60;
end;
