theorem Th33:
  x in rng p & n = x..p - 1 implies p | Seg n = p -| x
proof
  assume x in rng p;
  then ex m st m = x..p - 1 & p | Seg m = p -| x by Def5;
  hence thesis;
end;
