theorem
  dom f = {c} implies f = {[c,f/.c]}
proof
  assume dom f = {c};
  then c in dom f & f = {[c,(f qua Function).c]} by GRFUNC_1:7,TARSKI:def 1;
  hence thesis by PARTFUN1:def 6;
end;
