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