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