(* TODO: Improve this efficiency as well. *)

(* Specifications: *)
Lemma denote_tc_assert'_andp'_e:
forall {CS: compspecs} a b rho m, denote_tc_assert' (tc_andp' a b) rho m ->
denote_tc_assert' a rho m /\ denote_tc_assert' b rho m.
Lemma cast_int_long_nonzero:
forall s i, Int.eq i Int.zero = false ->
Int64.eq (cast_int_long s i) Int64.zero = false.