Compare.Distributive_Lattice
L : Interface.DISTRIBUTIVE_LATTICE
E : Interface.EQ with type t = L.t
val distributivity : L.t -> L.t -> L.t -> bool