let pointer_of_loc = function | Path _ -> Wp_parameters.fatal "Pointer of functional variable" | Mloc l -> M.pointer_of_loc l