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

Fixed a bug in proof dot printer (+ indent)

Browse source
This commit is contained in:
Guillaume Bury 2014-11-07 17:46:32 +01:00
parent cac9df4510
commit d6cfd27f32
2 changed files with 22 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
sat/res.ml
View file

@ -274,16 +274,15 @@ module Make(St : Solver_types.S)(Proof : sig type proof end) = struct
Hashtbl.iter (fun c (_, id) -> Hashtbl.replace ids c (false, id)) ids Hashtbl.iter (fun c (_, id) -> Hashtbl.replace ids c (false, id)) ids
let is_drawn c = let is_drawn c =
try ignore (c_id c);
fst (Hashtbl.find ids c) fst (Hashtbl.find ids c)
with Not_found ->
false
let has_drawn c = let has_drawn c =
assert (Hashtbl.mem ids c); if not (is_drawn c) then
let b, id = Hashtbl.find ids c in let b, id = Hashtbl.find ids c in
assert (not b);
Hashtbl.replace ids c (true, id) Hashtbl.replace ids c (true, id)
else
()
let print_clause fmt c = print_cl fmt (to_list c) let print_clause fmt c = print_cl fmt (to_list c)