theorem Th50:
  for a,b being Integer st a < b holds a <= b - 1
proof
  let a,b be Integer;
  assume a < b;
  then a - 1 < b - 1 by XREAL_1:9;
  then a - 1 + 1 <= b - 1 by Th7;
  hence thesis;
end;
