theorem Th61:
  len (P * FSeq) = len FSeq
proof
  dom(P * FSeq) = dom FSeq by Th59;
  then Seg len (P * FSeq) = dom FSeq by FINSEQ_1:def 3;
  hence thesis by FINSEQ_1:def 3;
end;
