Hint Rewrite sem_cast_neutral_Vint : norm.
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).
Hint Resolve is_int_I32_Vint.
Lemma sem_cast_neutral_int: forall v,
isVint v ->
sem_cast_pointer v = Some v.