Removed useless argument to Th.assume

sat/sat.ml

@@ -72,7 +72,7 @@ module Tsat = struct
 
   let dummy = ()
   let empty () = ()
-  let assume ~cs:_ _ _ _ = ()
+  let assume _ _ _ = ()
 end
 
 module Make(Dummy : sig end) = struct

sat/solver.ml

@@ -381,7 +381,7 @@ module Make (F : Formula_intf.S)
       let full_model = nb_assigns() = env.nb_init_vars in
       env.tenv <-
         List.fold_left
-          (fun t (a,ex) -> let t = Th.assume ~cs:true a ex t in t)
+          (fun t (a,ex) -> let t = Th.assume a ex t in t)
           env.tenv !facts;
       if full_model then expensive_theory_propagate ()
       else None
@@ -561,6 +561,7 @@ module Make (F : Formula_intf.S)
     var_decay_activity ();
     clause_decay_activity ()
 
+  (*
   let check_inconsistency_of dep =
     try
       let env = ref (Th.empty()) in ();
@@ -572,6 +573,7 @@ module Make (F : Formula_intf.S)
       (* ignore (Th.expensive_processing !env); *)
       assert false
     with Th.Inconsistent _ -> ()
+  *)
 
   let theory_analyze dep =
     let atoms, sz, max_lvl, c_hist =
@@ -701,9 +703,11 @@ module Make (F : Formula_intf.S)
   let check_vec vec =
     for i = 0 to Vec.size vec - 1 do check_clause (Vec.get vec i) done
 
+  (*
   let check_model () =
     check_vec env.clauses;
     check_vec env.learnts
+  *)
 
   (* fixpoint of propagation and decisions until a model is found, or a
      conflict is reached *)

sat/theory_intf.ml

@@ -37,10 +37,9 @@ module type S = sig
   val empty : unit -> t
   (** A function to create an empty theory. *)
 
-  val assume : cs:bool -> formula -> explanation -> t -> t
+  val assume : formula -> explanation -> t -> t
   (** Return a new theory state with the formula as assumption.
       @raise Inconsistent if the new state would be inconsistent. *)
-  (* TODO: remove (apparently) useless [cs] parameter *)
 
 end