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