reserve n for Nat;

theorem Th23:
  for f,g be FinSequence holds dom f c= dom (f^'g)
proof
  let f,g be FinSequence;
  len f <= len(f^'g) by TOPREAL8:7;
  hence thesis by FINSEQ_3:30;
end;
