reserve r,r1,r2, s,x for Real,
  i for Integer;

theorem Th1:
  0 <= r & r < s implies [\ r/s /] = 0
proof
  assume
A1: 0 <= r & r < s;
  then r/s < s/s by XREAL_1:74;
  then r/s-1 < s/s-1 by XREAL_1:9;
  then r/s-1 < 1-1 by A1,XCMPLX_1:60;
  hence thesis by A1,INT_1:def 6;
end;
