Module Make.Compare
module Medial_Magma : functor (M : Bastet.Interface.MEDIAL_MAGMA) -> functor (E : Bastet.Interface.EQ with type t = M.t) -> functor (A : ARBITRARY with type t := M.t and type 'a arbitrary := 'a Q.arbitrary) -> sig ... endmodule Quasigroup : functor (QG : Bastet.Interface.QUASIGROUP) -> functor (E : Bastet.Interface.EQ with type t = QG.t) -> functor (A : ARBITRARY with type t := QG.t and type 'a arbitrary := 'a Q.arbitrary) -> sig ... endmodule Semiring : functor (S : Bastet.Interface.SEMIRING) -> functor (E : Bastet.Interface.EQ with type t = S.t) -> functor (A : ARBITRARY with type t := S.t and type 'a arbitrary := 'a Q.arbitrary) -> sig ... endmodule Division_Ring : functor (D : Bastet.Interface.DIVISION_RING) -> functor (E : Bastet.Interface.EQ with type t = D.t) -> functor (A : ARBITRARY with type t := D.t and type 'a arbitrary := 'a Q.arbitrary) -> sig ... endmodule Euclidean_Ring : functor (E : Bastet.Interface.EUCLIDEAN_RING) -> functor (EQ : Bastet.Interface.EQ with type t = E.t) -> functor (A : ARBITRARY with type t := E.t and type 'a arbitrary := 'a Q.arbitrary) -> sig ... end