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