diff --git a/src/arith/lra/simplex.ml b/src/arith/lra/simplex.ml
index 0d47ff40..e12224ac 100644
--- a/src/arith/lra/simplex.ml
+++ b/src/arith/lra/simplex.ml
@@ -695,6 +695,13 @@ module Make_full_for_expr(V : VAR_GEN)
      with type Var.t = V.t
       and type C.t = Q.t
       and type Var.lit = V.lit)
+  : S_FULL with type var = V.t
+            and type lit = V.lit
+            and module L = L
+            and module Var_map = L.Var_map
+            and type L.var = V.t
+            and type L.Comb.t = L.Comb.t
+            and type param = V.Fresh.t
 = struct
   include Make_inner(V)(L.Var_map)(V.Fresh)
   module L = L
@@ -721,4 +728,8 @@ module Make_full_for_expr(V : VAR_GEN)
 end
 
 module Make_full(V : VAR_GEN)
+  : S_FULL with type var = V.t
+            and type lit = V.lit
+            and type L.var = V.t
+            and type param = V.Fresh.t
   = Make_full_for_expr(V)(Linear_expr.Make(struct include Q let pp = pp_print end)(V))
diff --git a/src/arith/lra/simplex.mli b/src/arith/lra/simplex.mli
index 9fc81194..8bbcef5d 100644
--- a/src/arith/lra/simplex.mli
+++ b/src/arith/lra/simplex.mli
@@ -22,6 +22,8 @@ module Make_full_for_expr(V : VAR_GEN)
             and type lit = V.lit
             and module L = L
             and module Var_map = L.Var_map
+            and type L.var = V.t
+            and type L.Comb.t = L.Comb.t
             and type param = V.Fresh.t
 
 module Make_full(V : VAR_GEN)