Interface.BOUNDED_LATTICE
include BOUNDED_JOIN_SEMILATTICE
include JOIN_SEMILATTICE
type t
val join : t -> t -> t
val bottom : t
include BOUNDED_MEET_SEMILATTICE with type t := t
include MEET_SEMILATTICE
val meet : t -> t -> t
val top : t