theorem Th9:
  for i being Nat holds i+1 <= len(f-:p) implies LSeg(f-:p,i) = LSeg(f,i)
proof
  let i be Nat;
  f-:p = f|(p..f) by FINSEQ_5:def 1;
  hence thesis by Th3;
end;
