Bounded_Join_Semilattice.1-J
include Interface.JOIN_SEMILATTICE
type t
val join : t -> t -> t
val bottom : t