better dimacs printing

This commit is contained in:
Simon Cruanes 2016-11-02 16:11:37 +01:00
parent 3321f556d6
commit bf5e6cf67c

View file

@ -120,10 +120,10 @@ module Make
St.pp_dimacs fmt c'
in
let pp s fmt vec =
Format.fprintf fmt "c %s@\n%a" s (Vec.print ~sep:"\n" aux) vec
Format.fprintf fmt "c %s@,%a" s (Vec.print ~sep:"" aux) vec
in
Format.fprintf fmt
"p cnf %d %d@\n%a%a%a"
"@[<v>p cnf %d %d@,%a%a%a@]@."
n m
(pp "Local assumptions") tmp
(pp "Hypotheses") hyps