
theorem ReplaceValue2:
  for f be FinSequence,
      i,j be Nat,
      a,b being object st
    i in dom f & j in dom f & i <> j holds
    (Replace (f,i,j,a,b)).j = b
  proof
    let f be FinSequence,
        i,j be Nat,
        a,b be object;
    set g = Replace (f,i,j,a,b);
    assume i in dom f & j in dom f & i <> j; then
    j in dom (f +* (i,a)) by FUNCT_7:30;
    hence thesis by FUNCT_7:31;
  end;
