simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2025-12-06 11:15:43 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Removed useless level in plugin_intf

Browse source
This commit is contained in:
Guillaume Bury 2015-01-13 17:36:13 +01:00
parent fe41b38501
commit cf578d1868
3 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
smt/mcsat.ml
View file

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

2
solver/mcsolver.ml
View file

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

2
solver/plugin_intf.ml
View file

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