Many_Valued_Logic.Join_Semilattice
Ok : Interface.JOIN_SEMILATTICE
Error : Interface.JOIN_SEMILATTICE
type t
= (Ok.t, Error.t) Stdlib.result
val join : t -> t -> t