Parameter Bounded_Lattice.2-A

val make : BL.t Q.arbitrary