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