Parameter Meet_Semilattice.2-A

val make : MS.t Q.arbitrary