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

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