Module Float.Infix
module Additive : sig ... endmodule Multiplicative : sig ... endinclude sig ... end
val (|+|) : Euclidean_Ring.t -> Euclidean_Ring.t -> Euclidean_Ring.tval (|*|) : Euclidean_Ring.t -> Euclidean_Ring.t -> Euclidean_Ring.tval (|-|) : Euclidean_Ring.t -> Euclidean_Ring.t -> Euclidean_Ring.tval (|/|) : Euclidean_Ring.t -> Euclidean_Ring.t -> Euclidean_Ring.tval (|%|) : Euclidean_Ring.t -> Euclidean_Ring.t -> Euclidean_Ring.t