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

debug in sat

Browse source
This commit is contained in:
Simon Cruanes 2022-08-16 21:29:29 -04:00
parent 99dc9743a3
commit 947f790f9f
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/sat/solver.ml
View file

@ -1240,15 +1240,15 @@ let acts_raise self (l : Lit.t list) (p : Proof_step.id) : 'a =
let check_consequence_lits_false_ self l p : unit =
let store = self.store in
Log.debugf 50 (fun k ->
k "(@[sat.check-consequence-lits: %a@ :for %a@])"
k "(@[sat.check-consequence-lits:@ :consequence (@[%a@])@ :for %a@])"
(Util.pp_list (Atom.debug store))
l (Atom.debug store) p);
match List.find (fun a -> Atom.is_true store a) l with
| a ->
invalid_argf
"slice.acts_propagate:@ Consequence should contain only false literals,@ \
but @[%a@] is true"
(Atom.debug store) (Atom.neg a)
but @[%a@] is true@ when propagating %a"
(Atom.debug store) p (Atom.debug store) a
| exception Not_found -> ()
let acts_propagate (self : t) f (expl : reason) =