(************************)
(** * Order on booleans *)
(************************)
#[global]
Hint Unfold le: bool.

(* Specifications: *)
Lemma le_implb : forall b1 b2, le b1 b2 <-> implb b1 b2 = true.
#[ local ] Definition lt (b1 b2:bool) :=
match b1 with
| true => False
| false => b2 = true
end.