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

Lemma implb_orb_distrib_l : forall b1 b2 b3:bool, implb (b1 || b2) b3 = implb b1 b3 && implb b2 b3.