simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2025-12-07 03:35:38 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

External.assume no longer needs to catch Unsat

Browse source 
Following changes to the assume function in internal, it does not raise
Unsat anymore, so there is no reason to try and catch it in external.
This commit is contained in:
Guillaume Bury 2016-08-19 01:06:22 +02:00
parent 119f3a8566
commit 9eee458c2a
2 changed files with 3 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/core/external.ml
View file

@ -68,10 +68,7 @@ module Make
{ unsat_conflict; get_proof; } { unsat_conflict; get_proof; }
(* Wrappers around internal functions*) (* Wrappers around internal functions*)
let assume ?tag l = let assume = S.assume
try
S.assume ?tag l
with S.Unsat -> ()
let solve ?(assumptions=[]) () = let solve ?(assumptions=[]) () =
try try

5
src/core/internal.mli
View file

@ -25,8 +25,7 @@ module Make
val assume : ?tag:int -> St.formula list list -> unit val assume : ?tag:int -> St.formula list list -> unit
(** Add the list of clauses to the current set of assumptions. (** Add the list of clauses to the current set of assumptions.
Modifies the sat solver state in place. Modifies the sat solver state in place. *)
@raise Unsat if a conflict is detect when adding the clauses *)
val push : unit -> unit val push : unit -> unit
(** Create a decision level for local assumptions. (** Create a decision level for local assumptions.
@ -36,7 +35,7 @@ module Make
(** Pop a decision level for local assumptions. *) (** Pop a decision level for local assumptions. *)
val local : St.formula list -> unit val local : St.formula list -> unit
(** Add local assumptions (** Add local assumptions
@param assumptions list of additional local assumptions to make, @param assumptions list of additional local assumptions to make,
removed after the callback returns a value *) removed after the callback returns a value *)