mirror of
https://github.com/c-cube/sidekick.git
synced 2025-12-15 23:36:11 -05:00
8c8209c08c
- only one functor to instantiate - explicit state that is carried around - remove minismt stuff
59 lines
1.7 KiB
OCaml
59 lines
1.7 KiB
OCaml
|
|
(** Main API *)
|
|
|
|
module Theory_intf = Theory_intf
|
|
module Solver_types_intf = Solver_types_intf
|
|
module Config = Config
|
|
|
|
module Res = Res
|
|
|
|
module type S = Solver_intf.S
|
|
|
|
type negated = Theory_intf.negated =
|
|
| Negated
|
|
| Same_sign
|
|
|
|
type ('formula, 'proof) res = ('formula, 'proof) Theory_intf.res =
|
|
| Sat
|
|
(** The current set of assumptions is satisfiable. *)
|
|
| Unsat of 'formula list * 'proof
|
|
(** The current set of assumptions is *NOT* satisfiable, and here is a
|
|
theory tautology (with its proof), for which every litteral is false
|
|
under the current assumptions. *)
|
|
(** Type returned by the theory. Formulas in the unsat clause must come from the
|
|
current set of assumptions, i.e must have been encountered in a slice. *)
|
|
|
|
type 'form sat_state = 'form Solver_intf.sat_state = Sat_state of {
|
|
eval : 'form -> bool;
|
|
eval_level : 'form -> bool * int;
|
|
iter_trail : ('form -> unit) -> unit;
|
|
}
|
|
|
|
type ('clause, 'proof) unsat_state = ('clause, 'proof) Solver_intf.unsat_state = Unsat_state of {
|
|
unsat_conflict : unit -> 'clause;
|
|
get_proof : unit -> 'proof;
|
|
}
|
|
|
|
type 'clause export = 'clause Solver_intf.export = {
|
|
hyps : 'clause Vec.t;
|
|
history : 'clause Vec.t;
|
|
local : 'clause Vec.t;
|
|
}
|
|
|
|
type ('form, 'proof) actions = ('form,'proof) Theory_intf.actions = Actions of {
|
|
push : 'form list -> 'proof -> unit;
|
|
on_backtrack: (unit -> unit) -> unit;
|
|
at_level_0 : unit -> bool;
|
|
}
|
|
|
|
type ('form, 'proof) slice_actions = ('form, 'proof) Theory_intf.slice_actions = Slice_acts of {
|
|
slice_iter : ('form -> unit) -> unit;
|
|
slice_propagate : 'form -> 'form list -> 'proof -> unit;
|
|
}
|
|
|
|
module Make(E : Theory_intf.S) = Solver.Make(Solver_types.Make(E))(E)
|
|
|
|
(**/**)
|
|
module Vec = Vec
|
|
module Log = Log
|
|
(**/**)
|