theorem
  len Replace(f, i, p) = len f by FUNCT_7:97;
