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