theorem Th19:
  k in dom f implies ((f,i):=(k,r)).k = r
proof
  set fik = (f,i):=k;
A1: dom fik = dom f by FUNCT_7:30;
  assume k in dom f;
  hence thesis by A1,FUNCT_7:31;
end;
