[sledge] Change confusing order of Multiset args

Reviewed By: ngorogiannis

Differential Revision: D26250540

fbshipit-source-id: 5fd5da36b

sledge/nonstdlib/multiset.ml

@@ -10,10 +10,10 @@
 open! NS0
 include Multiset_intf
 
-module Make
+module Make (Elt : sig
-    (Mul : MULTIPLICITY) (Elt : sig
+  type t [@@deriving compare, sexp_of]
-      type t [@@deriving compare, sexp_of]
+end)
-    end) =
+(Mul : MULTIPLICITY) =
 struct
   module M = Map.Make (Elt)
 

sledge/nonstdlib/multiset.mli

@@ -9,7 +9,7 @@
 
 include module type of Multiset_intf
 
-module Make
+module Make (Elt : sig
-    (Mul : MULTIPLICITY) (Elt : sig
+  type t [@@deriving compare, sexp_of]
-      type t [@@deriving compare, sexp_of]
+end)
-    end) : S with type mul = Mul.t with type elt = Elt.t
+(Mul : MULTIPLICITY) : S with type mul = Mul.t with type elt = Elt.t

sledge/src/fol/arithmetic.ml

@@ -14,7 +14,7 @@ module Representation
     (Trm : INDETERMINATE with type var := Var.t) =
 struct
   module Prod = struct
-    include Multiset.Make (Int) (Trm)
+    include Multiset.Make (Trm) (Int)
 
     let t_of_sexp = t_of_sexp Trm.t_of_sexp
   end
@@ -78,7 +78,7 @@ struct
   end
 
   module Sum = struct
-    include Multiset.Make (Q) (Mono)
+    include Multiset.Make (Mono) (Q)
 
     let t_of_sexp = t_of_sexp Mono.t_of_sexp
   end