reserve X for set, x,y,z for object,
  k,l,n for Nat,
  r for Real;
reserve i,i0,i1,i2,i3,i4,i5,i8,i9,j for Integer;

theorem Th8:
  i1 < 0 implies i1 <= - 1
proof
  assume i1 < 0;
  then 0 < - i1 by XREAL_1:58;
  then 1 <= - i1 by Lm4;
  then - - i1 <= - 1 by XREAL_1:24;
  hence thesis;
end;
