mirror of
https://github.com/c-cube/sidekick.git
synced 2025-12-08 04:05:43 -05:00
36 lines
821 B
OCaml
36 lines
821 B
OCaml
(** {1 Process Statements} *)
|
|
|
|
open Sidekick_base
|
|
|
|
module Solver
|
|
: Sidekick_msat_solver.S with type T.Term.t = Term.t
|
|
and type T.Term.store = Term.store
|
|
and type T.Ty.t = Ty.t
|
|
and type T.Ty.store = Ty.store
|
|
|
|
val th_bool : Solver.theory
|
|
val th_data : Solver.theory
|
|
val th_lra : Solver.theory
|
|
|
|
type 'a or_error = ('a, string) CCResult.t
|
|
|
|
module Check_cc : sig
|
|
(** theory that check validity of conflicts *)
|
|
val theory : Solver.theory
|
|
end
|
|
|
|
val process_stmt :
|
|
?hyps:Solver.Atom.t list Vec.t ->
|
|
?gc:bool ->
|
|
?restarts:bool ->
|
|
?pp_cnf:bool ->
|
|
?dot_proof:string ->
|
|
?proof_file:string ->
|
|
?pp_model:bool ->
|
|
?check:bool ->
|
|
?time:float ->
|
|
?memory:float ->
|
|
?progress:bool ->
|
|
Solver.t ->
|
|
Statement.t ->
|
|
unit or_error
|