Parameter Boolean_Algebra.2-A

val make : BA.t Q.arbitrary