Via.Core
include Preface_specs.Bounded_meet_semilattice.WITH_TOP
type t
The type held by the Bounded_meet_semilattice
Bounded_meet_semilattice
val top : t
the top value represent the greatest element of the meet semilattice
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}