theorem Th66:
  r <= a & a < [\r/]+1 implies frac r <= frac a
proof
  assume
A1: r <= a;
  assume a < [\r/]+1;
  then [\a/] = [\r/] by A1,Th65;
  hence thesis by A1,XREAL_1:9;
end;
