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

Better unsat_core

Browse source
This commit is contained in:
Guillaume Bury 2016-01-21 16:39:35 +01:00
parent ea1a360148
commit ddbedc6606
1 changed files with 11 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
solver/res.ml
View file

@ -146,16 +146,19 @@ module Make(St : Solver_types.S) = struct
assert (cmp_cl l (to_list conclusion) = 0); assert (cmp_cl l (to_list conclusion) = 0);
{ conclusion; step = Resolution (c', d', a); } { conclusion; step = Resolution (c', d', a); }
(* Compute unsat-core *) (* Compute unsat-core
TODO: the uniq sort at the end may be costly, maybe remove it,
or compare the clauses faster ? *)
let unsat_core proof = let unsat_core proof =
let rec aux acc proof = let rec aux acc = function
let p = expand proof in | [] -> acc
match p.step with | c :: r ->
| Hypothesis | Lemma _ -> p.conclusion :: acc begin match c.St.cpremise with
| Resolution (proof1, proof2, _) -> | St.History [] | St.Lemma _ -> aux (c :: acc) r
aux (aux acc proof1) proof2 | St.History l -> aux acc (l @ r)
end
in in
sort_uniq cmp (aux [] proof) sort_uniq cmp (aux [] [proof])
(* Iter on proofs *) (* Iter on proofs *)
module H = Hashtbl.Make(struct module H = Hashtbl.Make(struct