(* Lemma Int64_eq_repr_int_nonzero: forall s i, Int.eq i Int.zero = false -> Int64.eq (cast_int_long s i) Int64.zero = false. *)

Lemma denote_tc_igt_e:
forall m i j, app_pred (denote_tc_igt j (Vint i)) m ->
Int.unsigned i < Int.unsigned j.