Removed useless level in plugin_intf

smt/mcsat.ml

@@ -35,7 +35,7 @@ module Tsmt = struct
   }
 
   type res =
-    | Sat of level
+    | Sat
     | Unsat of formula list * proof
 
   type eval_res =
@@ -74,7 +74,7 @@ module Tsmt = struct
                 | Fsmt.Distinct (i, j) ->
                   env := { !env with cc = CC.add_neq !env.cc i j }
           done;
-          Sat (current_level ())
+          Sat
       with CC.Unsat x ->
         Log.debug 8 "Making explanation clause...";
         Unsat (to_clause x, ())

solver/mcsolver.ml

@@ -635,7 +635,7 @@ module Make (E : Expr_intf.S)
   let rec theory_propagate () =
     let head = Vec.size env.trail in
     match Th.assume (current_slice ()) with
-    | Th.Sat _ ->
+    | Th.Sat ->
       env.tatoms_qhead <- head;
       propagate ()
     | Th.Unsat (l, p) ->

solver/plugin_intf.ml

@@ -47,7 +47,7 @@ module type S = sig
       Formulas in the unsat clause must come from the current set of assumptions, i.e
       must have been encountered in a slice. *)
   type res =
-    | Sat of level
+    | Sat
     | Unsat of formula list * proof
 
   type eval_res =