theorem
  rng p c= dom f implies f*p is XFinSequence
proof
  assume rng p c= dom f;
  then dom(f*p) = len p by RELAT_1:27;
  hence thesis by ORDINAL1:def 7;
end;
