theorem Th36:
  for f being Function of Seg i,Seg j st (j = 0 implies i = 0) & j <= len p
  holds p*f is FinSequence
proof
A0: i is Nat by TARSKI:1;
  let f be Function of Seg i,Seg j;
  assume j = 0 implies i = 0;
  then Seg j = {} implies Seg i = {};
  then
A1: dom f = Seg i by FUNCT_2:def 1;
  assume j <= len p;
  then rng f c= Seg j & Seg j c= Seg len p by FINSEQ_1:5,RELAT_1:def 19;
  then rng f c= Seg len p;
  then rng f c= dom p by FINSEQ_1:def 3;
  then dom(p*f) = dom f by RELAT_1:27;
  hence thesis by A0,A1,FINSEQ_1:def 2;
end;
