(* begin hide *)
(* Compatibility *)
Notation absoption_orb := absorption_orb (only parsing).
(* end hide *)
(****************************)
(** * Properties of [implb] *)
(****************************)

Lemma implb_false_iff : forall b1 b2:bool, implb b1 b2 = false <-> (b1 = true /\ b2 = false).