Many_Valued_Logic.Bounded_Join_Semilattice
Ok : Bastet.Interface.BOUNDED_JOIN_SEMILATTICE
Error : Bastet.Interface.BOUNDED_JOIN_SEMILATTICE
include Bastet.Interface.JOIN_SEMILATTICE
type t
val join : t -> t -> t
val bottom : t