reserve x,y,z for Real,
  a,b,c,d,e,f,g,h for Nat,
  k,l,m,n,m1,n1,m2,n2 for Integer,
  q for Rational;
reserve fs,fs1,fs2,fs3 for FinSequence;
reserve D for non empty set,
  v,v1,v2,v3 for object,
  fp for FinSequence of NAT,
  fr,fr1,fr2 for FinSequence of INT,
  ft for FinSequence of REAL;
reserve x,y,t for Integer;
reserve n for Nat;

theorem
  n > 0 & k mod n <> 0 implies - (k div n) = (-k) div n + 1
proof
  assume
A1: n > 0;
  assume k mod n <> 0;
  then not n qua Integer divides k by A1,INT_1:62;
  then
A2: k/n is not Integer by A1,Th17;
  thus - (k div n) = - [\ k / n /] by INT_1:def 9
    .= [\ (-k) / n /] + 1 by A2,INT_1:63
    .= (-k) div n + 1 by INT_1:def 9;
end;
