simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2025-12-09 04:35:35 -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 ! *)
match l with
| a :: ((_ :: _) as r) ->
| a :: r ->
Log.debug 5 "Resolving (with history) %a" St.pp_clause c;
let temp_c, temp_cl = List.fold_left add_res a r in
Log.debug 10 " Switching to unit resolutions";