reserve n for Nat;

theorem Th25:
  for f,g be FinSequence st f^'g is constant holds f is constant
proof
  let f,g be FinSequence;
  assume f^'g is constant;
  then reconsider h = f^'g as constant FinSequence;
  rng f c= rng h by TOPREAL8:10;
  hence thesis;
end;
