Parameter Semiring.3-A

type t
type 'a arbitrary
val make : t arbitrary