Parameter Bounded_Distributive_Lattice.2-A

val make : BDL.t Q.arbitrary