theorem :: FINSEQ_8:6
  len p<=k implies mid(p,1,k)=p
proof
  assume
A1: len p<=k;
  thus mid(p,1,k)=p|k by Th16
    .=p by A1,AFINSQ_1:52;
end;
