Many_Valued_Logic.Meet_Semilattice
Ok : Interface.MEET_SEMILATTICE
Error : Interface.MEET_SEMILATTICE
type t
= (Ok.t, Error.t) Stdlib.result
val meet : t -> t -> t