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

[bugfix/medium] Fixed printing of the new reasons

Browse source
This commit is contained in:
Guillaume Bury 2016-04-15 13:30:20 +02:00
parent 63d8dc1dc2
commit dcde8de10d
1 changed files with 5 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
solver/solver_types.ml
View file

@ -257,12 +257,11 @@ module McMake (E : Expr_intf.S) = struct
let level a = let level a =
match a.var.v_level, a.var.reason with match a.var.v_level, a.var.reason with
| n, _ when n < 0 -> assert false | n, _ when n < 0 -> sprintf "%%"
| 0, Some (Bcp c) -> sprintf "->0/%s" c.name | n, None -> sprintf "%d" n
| 0, None -> "@0" | n, Some Decision -> sprintf "@@%d" n
| n, Some (Bcp c) -> sprintf "->%d/%s" n c.name | n, Some Bcp c -> sprintf "->%d/%s" n c.name
| n, None -> sprintf "@@%d" n | n, Some Semantic lvl -> sprintf "::%d/%d" n lvl
| n, Some (Semantic lvl) -> sprintf "::%d/%d" n lvl
let value a = let value a =
if a.is_true then sprintf "[T%s]" (level a) if a.is_true then sprintf "[T%s]" (level a)