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