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

small fix

Browse source
This commit is contained in:
Simon Cruanes 2016-07-29 15:11:53 +02:00
parent bc200474eb
commit 38a6d8c481
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/core/external.ml
View file

@ -54,10 +54,10 @@ module Make
let assume ?tag l = S.assume ?tag l let assume ?tag l = S.assume ?tag l
let mk_sat () : _ sat_state = let mk_sat () : (_,_) sat_state =
{ model=S.model; eval=S.eval; eval_level=S.eval_level } { model=S.model; eval=S.eval; eval_level=S.eval_level }
let mk_unsat () : _ unsat_state = let mk_unsat () : (_,_) unsat_state =
let unsat_conflict () = match S.unsat_conflict () with let unsat_conflict () = match S.unsat_conflict () with
| None -> assert false | None -> assert false
| Some c -> c | Some c -> c