mirror of
https://github.com/c-cube/sidekick.git
synced 2025-12-10 21:24:06 -05:00
7 lines
250 B
OCaml
7 lines
250 B
OCaml
type ('f, 'p) res = Sat | Unsat of 'f list * 'p
|
|
type 'f slice = { start:int; length:int; get:int -> 'f }
|
|
module type S = sig
|
|
val backtrack : level -> unit
|
|
val current_level : unit -> level
|
|
val assume : formula slice -> (formula, proof) res
|
|
end
|