Lattice.Core_via_join_and_meet
module Req : Preface_specs.Lattice.WITH_JOIN_AND_MEET
include Preface_specs.Join_semilattice.WITH_JOIN with type t = Req.t
type t = Req.t
The type held by the Join_semilattice.
Join_semilattice
val join : t -> t -> t
join x y is the least upper bound of {x,y}.
join x y
{x,y}
include Preface_specs.Meet_semilattice.WITH_MEET with type t := t
val meet : t -> t -> t
meet x y is the greatest lower bound of {x, y}.
meet x y
{x, y}