theorem
  1 <= i & i <= len f implies Replace(f, i, p)/.i = p
proof
  assume 1 <= i & i <= len f;
  then i in dom f by FINSEQ_3:25;
  hence thesis by FUNCT_7:36;
end;
