(*            | Vint _ => Some (eval_var i t rho) *)

(* Specifications: *)
Lemma is_pointer_or_null_force_int_ptr:
forall v, is_pointer_or_null v -> (force_val
match v with
| Vint _ => if Archi.ptr64 then None else Some v
| Vlong _ => if Archi.ptr64 then Some v else None
| Vptr _ _ => Some v
| _ => None
end) = v.