#[global]
Hint Immediate Is_true_eq_right Is_true_eq_left: bool.

(* Specifications: *)
Lemma eqb_refl : forall x:bool, Is_true (eqb x x).
Lemma eqb_eq : forall x y:bool, Is_true (eqb x y) -> x = y.
(** [Is_true] and connectives *)
Lemma orb_prop_elim :
forall a b:bool, Is_true (a || b) -> Is_true a \/ Is_true b.