Parameter Heyting_Algebra.2-A

val make : HA.t Q.arbitrary