theorem Th20:
  dom ((f,i):=(k,r)) = dom f
proof
  set fik = (f,i):=k;
  thus dom ((f,i):=(k,r)) =dom fik by FUNCT_7:30
    .=dom f by FUNCT_7:30;
end;
