module SatSolver:sig
..end
typevalue =
int
type
solution =
| |
SAT |
| |
UNSAT |
| |
TIMEOUT |
val string_of_value : value -> string
module type S =sig
..end
val solver : string Pervasives.ref
val get_solver : unit -> (module SatSolver.S)
val delete_dimacs_files : bool Pervasives.ref