set g = f | {x};
per cases ( x in dom f or not x in dom f ) ;
end;