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

refactor: a bit of cleanup for mcsat

Browse source
This commit is contained in:
Simon Cruanes 2019-02-09 17:12:33 -06:00 • committed by Guillaume Bury
parent 7583e78bd2
commit 8ad78b2acd
1 changed files with 12 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
src/core/Internal.ml
View file

@ -850,20 +850,23 @@ module Make(Plugin : PLUGIN)
| None -> assert false
)
let mk_atom_mcsat_ st a =
match a.var.v_assignable with
| Some _ -> ()
| None ->
let l = ref [] in
Plugin.iter_assignable st.th
(fun t -> l := Lit.make st.st t :: !l)
a.var.pa.lit;
a.var.v_assignable <- Some !l;
()
(* When we have a new literal,
we need to first create the list of its subterms. *)
let mk_atom st (f:formula) : atom =
let res = Atom.make st.st f in
if Plugin.mcsat then (
begin match res.var.v_assignable with
| Some _ -> ()
| None ->
let l = ref [] in
Plugin.iter_assignable st.th
(fun t -> l := Lit.make st.st t :: !l)
res.var.pa.lit;
res.var.v_assignable <- Some !l;
end;
mk_atom_mcsat_ st res;
);
res