Many_Valued_Logic.Lattice
Ok : Interface.LATTICE
Error : Interface.LATTICE
include sig ... end
type t
= (Ok.t, Error.t) Stdlib.result
val join : t -> t -> t
include module type of sig ... end with type t := t
val meet : t -> t -> t