per cases ( x in dom f or not x in dom f ) ;
end;