module type Euclidean = sig .. end
sig
end
An euclidean domain.
include Ring.T
val div : t -> t -> t * t
t -> t -> t * t