Distributive_Lattice.1-L
include Interface.LATTICE
include Interface.JOIN_SEMILATTICE
type t
val join : t -> t -> t
include Interface.MEET_SEMILATTICE with type t := t
val meet : t -> t -> t