Compare.Bounded_Lattice
L : Bastet.Interface.BOUNDED_LATTICE
E : Bastet.Interface.EQ with type t = L.t
val absorption : L.t -> L.t -> bool