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

Fix for lack of insertion of new atoms in iheap.

Browse source
This commit is contained in:
Guillaume Bury 2015-01-26 15:54:28 +01:00
parent db0bd8c2df
commit a5c67c7545
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
solver/mcsolver.ml
View file

@ -650,6 +650,7 @@ module Make (L : Log_intf.S)(E : Expr_intf.S)
propagate () propagate ()
| Th.Unsat (l, p) -> | Th.Unsat (l, p) ->
let l = List.rev_map new_atom l in let l = List.rev_map new_atom l in
List.iter (fun a -> insert_var_order (Either.mk_right a.var)) l;
let c = St.make_clause (St.fresh_name ()) l (List.length l) true (Lemma p) in let c = St.make_clause (St.fresh_name ()) l (List.length l) true (Lemma p) in
Some c Some c