Parameter Euclidean_Ring.3-A

val make : E.t Q.arbitrary