Parameter Meet_Semilattice.2-A

type t
type 'a arbitrary
val make : t arbitrary