simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2025-12-08 04:05:43 -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 =
match a.var.v_level, a.var.reason with
| n, _ when n < 0 -> assert false
| 0, Some (Bcp c) -> sprintf "->0/%s" c.name
| 0, None -> "@0"
| 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, _ when n < 0 -> sprintf "%%"
| n, None -> sprintf "%d" n
| n, Some Decision -> sprintf "@@%d" n
| n, Some Bcp c -> sprintf "->%d/%s" n c.name
| n, Some Semantic lvl -> sprintf "::%d/%d" n lvl
let value a =
if a.is_true then sprintf "[T%s]" (level a)