theorem
  for seq being sequence of S holds CastSeq(CastSeq(seq),S) = seq by Def41;
