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

small checks

Browse source
This commit is contained in:
Simon Cruanes 2016-04-15 11:54:00 +02:00
parent 0186edbf34
commit 479f4c1b79
2 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
solver/internal.ml
View file

@ -290,6 +290,7 @@ module Make
match a.var.reason with match a.var.reason with
| Bcp (Some cl) -> atoms, cl :: history, max lvl cl.c_level | Bcp (Some cl) -> atoms, cl :: history, max lvl cl.c_level
| Semantic 0 -> atoms, history, lvl | Semantic 0 -> atoms, history, lvl
| Bcp None -> assert false
| _ -> | _ ->
Log.debugf 0 "Unexpected semantic propagation at level 0: %a" Log.debugf 0 "Unexpected semantic propagation at level 0: %a"
(fun k->k St.pp_atom a); (fun k->k St.pp_atom a);

3
solver/res.ml
View file

@ -91,7 +91,8 @@ module Make(St : Solver_types.S) = struct
let l = List.map (fun a -> let l = List.map (fun a ->
match St.(a.var.reason) with match St.(a.var.reason) with
| St.Bcp Some d -> d | St.Bcp Some d -> d
| _ -> assert false) l | St.Bcp None -> assert false
| St.Semantic _ -> assert false) l
in in
St.make_clause (fresh_pcl_name ()) [] 0 true (St.History (c :: l)) St.make_clause (fresh_pcl_name ()) [] 0 true (St.History (c :: l))
(List.fold_left (fun i c -> max i c.St.c_level) 0 l) (List.fold_left (fun i c -> max i c.St.c_level) 0 l)