Definition isVint v := match v with Vint _ => True | _ => False end.

(* Specifications: *)
Lemma is_int_is_Vint: forall i s v, is_int i s v -> isVint v.
Lemma is_int_I32_Vint: forall s v, is_int I32 s (Vint v).
Lemma sem_cast_neutral_int: forall v, isVint v -> sem_cast_pointer v = Some v.