Parameter Over_join_semilattice_and_meet_semilattice.Join_req

type t

The type held by the Join_semilattice.

val join : t -> t -> t

join x y is the least upper bound of {x,y}.