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

Bugfix in proof generation

Browse source
This commit is contained in:
Guillaume Bury 2014-11-15 18:38:24 +01:00
parent 6801acdafd
commit dbf0646171
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
sat/res.ml
View file

@ -157,7 +157,7 @@ module Make(St : Solver_types.S) = struct
let add_clause c cl l = (* We assume that all clauses in l are already proved ! *) let add_clause c cl l = (* We assume that all clauses in l are already proved ! *)
match l with match l with
| a :: ((_ :: _) as r) -> | a :: r ->
Log.debug 5 "Resolving (with history) %a" St.pp_clause c; Log.debug 5 "Resolving (with history) %a" St.pp_clause c;
let temp_c, temp_cl = List.fold_left add_res a r in let temp_c, temp_cl = List.fold_left add_res a r in
Log.debug 10 " Switching to unit resolutions"; Log.debug 10 " Switching to unit resolutions";