theorem Th13:
  for p being 1-sorted-yielding FinSequence holds len Carrier p = len p
proof
  let p be 1-sorted-yielding FinSequence;
  dom Carrier p = dom p by Def13;
  hence thesis by FINSEQ_3:29;
end;
