theorem Th21:
  x in rng p implies 1 <= x..p & x..p <= len p
proof
  assume x in rng p;
  then x..p in dom p by Th20;
  hence thesis by FINSEQ_3:25;
end;
