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

wip: fix main solver

Browse source
This commit is contained in:
Simon Cruanes 2018-05-23 22:24:24 -05:00
parent 39be2c260e
commit d1c88e73f7
2 changed files with 18 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
src/sat/Internal.ml
View file

@ -886,12 +886,8 @@ module Make (Th : Theory_intf.S) = struct
*)
let attach_clause (self:t) (c:clause) : unit =
assert (not @@ Clause.dead c);
if not (Clause.attached c) then (
if Array.length c.atoms >= 2 && not (Clause.attached c) then (
Log.debugf 5 (fun k -> k "(@[sat.attach_clause@ %a@])" Clause.debug c);
on_backtrack self
(fun () ->
Log.debugf 5 (fun k->k "(@[sat.detach_clause@ %a@])" Clause.debug c);
Clause.set_attached c false);
Vec.push c.atoms.(0).neg.watched c;
Vec.push c.atoms.(1).neg.watched c;
Clause.set_attached c true;
@ -1164,8 +1160,6 @@ module Make (Th : Theory_intf.S) = struct
assert (List.length atoms = Array.length c.atoms);
List.iteri (fun i a -> c.atoms.(i) <- a) atoms;
Log.debugf 3 (fun k->k "(@[sat.add_clause.new_clause@ %a@])" Clause.debug c);
(* kill clause once we backtrack *)
on_backtrack st (fun () -> Clause.mark_dead c);
match atoms with
| [] ->
(* report Unsat immediately *)
@ -1204,9 +1198,19 @@ module Make (Th : Theory_intf.S) = struct
the clause is false in the current trail *)
and add_clause ~permanent st (c:clause) : unit =
if permanent then (
redo_down_to_level_0 st (fun () -> add_clause_ st (Clause.copy c))
add_clause_ st c;
redo_down_to_level_0 st (fun () -> attach_clause st c)
) else (
add_clause_ st c
(* kill clause once we backtrack *)
on_backtrack st (fun () -> Clause.mark_dead c);
add_clause_ st c;
(* detach clause once we backtrack *)
if Clause.attached c then (
on_backtrack st
(fun () ->
Log.debugf 5 (fun k->k "(@[sat.detach_clause@ %a@])" Clause.debug c);
Clause.set_attached c false);
)
)
(* process a conflict:
@ -1329,7 +1333,7 @@ module Make (Th : Theory_intf.S) = struct
let act_propagate (st:t) f causes proof : unit =
let l = List.rev_map (Atom.make st) causes in
if List.for_all (fun a -> a.is_true) l then (
if List.for_all Atom.is_true l then (
let p = Atom.make st f in
let c = Clause.make_l (p :: List.map Atom.neg l) (Lemma proof) in
if p.is_true then (

2
src/smt/Solver.ml
View file

@ -392,7 +392,7 @@ let do_on_exit ~on_exit =
let assume (self:t) (c:Lit.t IArray.t) : unit =
let sat = solver self in
let c = Sat_solver.Clause.make (IArray.to_array_map (Sat_solver.Atom.make sat) c) in
Sat_solver.add_clause ~permanent:false sat c
Sat_solver.add_clause ~permanent:true sat c
let[@inline] assume_eq self t u expl : unit =
Congruence_closure.assert_eq (cc self) t u (E_lit expl)