Definition beq_int (i1 i2 : Integers.int) : bool :=
Zbool.Zeq_bool (Int.intval i1) (Int.intval i2).

(* Specifications: *)
Lemma beq_int_true : forall a b, beq_int a b = true -> a = b.
Hint Resolve beq_int_true : expr_beq.
Lemma beq_int_refl : forall i, beq_int i i = true.
Hint Resolve beq_int_refl : expr_beq.