(***************************************)
(** * Reflection of [bool] into [Prop] *)
(***************************************)
(** [Is_true] and equality *)
#[global]
Hint Unfold Is_true: bool.

(* Specifications: *)
Lemma Is_true_eq_true : forall x:bool, Is_true x -> x = true.
Lemma Is_true_eq_left : forall x:bool, x = true -> Is_true x.
Lemma Is_true_eq_right : forall x:bool, true = x -> Is_true x.
Notation Is_true_eq_true2 := Is_true_eq_right (only parsing).