mirror of
https://github.com/c-cube/sidekick.git
synced 2025-12-06 03:05:31 -05:00
15 lines
425 B
OCaml
15 lines
425 B
OCaml
(** SAT-solver proof emission. *)
|
|
|
|
open Proof_term
|
|
|
|
type lit = Lit.t
|
|
|
|
val sat_input_clause : lit list -> Proof_term.t
|
|
(** Emit an input clause. *)
|
|
|
|
val sat_redundant_clause : lit list -> hyps:step_id Iter.t -> Proof_term.t
|
|
(** Emit a clause deduced by the SAT solver, redundant wrt previous clauses.
|
|
The clause must be RUP wrt [hyps]. *)
|
|
|
|
val sat_unsat_core : lit list -> Proof_term.t
|
|
(** TODO: is this relevant here? *)
|