Parameter Quasigroup.3-A

type t
type 'a arbitrary
val make : t arbitrary