theorem Th42:
  x in rng p & n = len p - x..p implies dom(p |-- x) = Seg n
proof
  assume x in rng p;
  then len(p |-- x) = len p - x..p by Def6;
  hence thesis by FINSEQ_1:def 3;
end;
