Many_Valued_Logic.Bounded_Meet_Semilattice
Ok : Bastet.Interface.BOUNDED_MEET_SEMILATTICE
Error : Bastet.Interface.BOUNDED_MEET_SEMILATTICE
include Bastet.Interface.MEET_SEMILATTICE
type t
val meet : t -> t -> t
val top : t