let prop_of_ptr p = F.p_not (F.p_eq (M.pointer_of_loc p) D.null)