(* 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. *)

(* Specifications: *)
Lemma denote_tc_igt_e:
forall m i j, app_pred (denote_tc_igt j (Vint i)) m ->
Int.unsigned i < Int.unsigned j.
Lemma int_type_tc_val_Vtrue:
forall t, is_int_type t = true -> tc_val t Vtrue.
Lemma int_type_tc_val_Vfalse:
forall t, is_int_type t = true -> tc_val t Vfalse.
Lemma int_type_tc_val_of_bool:
forall t b, is_int_type t = true -> tc_val t (Val.of_bool b).
Lemma Ptrofs_to_of64_lemma:
Archi.ptr64 = false ->
forall i, Ptrofs.to_int (Ptrofs.of_int64 i) = Int.repr (Int64.unsigned i).
Lemma Int64repr_Intsigned_zero:
forall i, Int64.repr (Int.signed i) = Int64.zero -> i=Int.zero.
Lemma Int64repr_Intunsigned_zero:
forall i, Int64.repr (Int.unsigned i) = Int64.zero -> i=Int.zero.
Lemma eq_block_true: forall b1 b2 i1 i2 A (a b: A),
is_true (sameblock (Vptr b1 i1) (Vptr b2 i2)) ->
(if eq_block b1 b2 then a else b) = a.
Lemma sizeof_range_true {CS: composite_env}: forall t A (a b: A) (max: Z),
negb (Z.eqb (sizeof t) 0) = true ->
Z.leb (sizeof t) max = true ->
(if zlt 0 (sizeof t) && zle (sizeof t) max then a else b) = a.