reserve i, i1, i2, j, k for Nat,
  r, s for Real;

theorem Th3:
  for i,j being Nat holds (j+j) mod j=0
proof
  let i, j be Nat;
  thus (j+j)mod j= (2*j) mod j .= 0 by NAT_D:13;
end;
