Bounded_Meet_Semilattice.1-B
include Interface.MEET_SEMILATTICE
type t
val meet : t -> t -> t
val top : t