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