theorem
  F.:(i|->d,T9) = F[;](d,T9)
proof
  dom T9 = Seg len T9 by FINSEQ_1:def 3
    .= Seg i by CARD_1:def 7;
  hence thesis;
end;
