Module type Env.S

module type S = Env_intf.S


module Ctx: Ctx.S 
module C: Clause.S  with module Ctx = Ctx
module ProofState: ProofState.S  with module C = C and module Ctx = Ctx
type inf_rule = C.t -> C.t list 
An inference returns a list of conclusions
type generate_rule = full:bool -> unit -> C.t list 
Generation of clauses regardless of current clause.
type binary_inf_rule = inf_rule 
type unary_inf_rule = inf_rule 
type simplify_rule = C.t -> C.t SimplM.t 
Simplify the clause structurally (basic simplifications), in the simplification monad. (c, `Same) means the clause has not been simplified; (c, `New) means the clause has been simplified at least once
type active_simplify_rule = simplify_rule 
type rw_simplify_rule = simplify_rule 
type backward_simplify_rule = C.t -> C.ClauseSet.t 
backward simplification by a unit clause. It returns a set of active clauses that can potentially be simplified by the given clause. backward_simplify c therefore returns a subset of ProofState.ActiveSet.clauses ()
type redundant_rule = C.t -> bool 
check whether the clause is redundant w.r.t the set
type backward_redundant_rule = C.ClauseSet.t -> C.t -> C.ClauseSet.t 
find redundant clauses in ProofState.ActiveSet w.r.t the clause. first param is the set of already known redundant clause, the rule should add clauses to it
type is_trivial_trail_rule = Trail.t -> bool 
Rule that checks whether the trail is trivial (a tautology)
type is_trivial_rule = C.t -> bool 
Rule that checks whether the clause is trivial (a tautology)
type term_rewrite_rule = Logtk.Term.t -> (Logtk.Term.t * Logtk.Proof.parent list) option 
Rewrite rule on terms
type lit_rewrite_rule = Logtk.Literal.t ->
(Logtk.Literal.t * Logtk.Proof.parent list * Logtk.Proof.tag list) option
Rewrite rule on literals
type multi_simpl_rule = C.t -> C.t list option 
(maybe) rewrite a clause to a set of clauses. Must return None if the clause is unmodified
type 'a conversion_result = 
| CR_skip (*
rule didn't fire
| CR_add of 'a (*
add this to the result
| CR_return of 'a (*
shortcut the remaining rules, return this
type clause_conversion_rule = Logtk.Statement.clause_t -> C.t list conversion_result 
A hook to convert a particular statement into a list of clauses

Modify the Env

val add_passive : C.t Sequence.t -> unit
Add passive clauses
val add_active : C.t Sequence.t -> unit
Add active clauses
val add_simpl : C.t Sequence.t -> unit
Add simplification clauses
val remove_passive : C.t Sequence.t -> unit
Remove passive clauses
val remove_active : C.t Sequence.t -> unit
Remove active clauses
val remove_simpl : C.t Sequence.t -> unit
Remove simplification clauses
val get_passive : unit -> C.t Sequence.t
Passive clauses
val get_active : unit -> C.t Sequence.t
Active clauses
val add_binary_inf : string -> binary_inf_rule -> unit
Add a binary inference rule
val add_unary_inf : string -> unary_inf_rule -> unit
Add a unary inference rule
val add_rw_simplify : rw_simplify_rule -> unit
Add forward rewriting rule
val add_active_simplify : active_simplify_rule -> unit
Add simplification w.r.t active set
val add_backward_simplify : backward_simplify_rule -> unit
Add simplification of the active set
val add_redundant : redundant_rule -> unit
Add redundancy criterion w.r.t. the active set
val add_backward_redundant : backward_redundant_rule -> unit
Add rule that finds redundant clauses within active set
val add_basic_simplify : simplify_rule -> unit
Add basic simplification rule
val add_unary_simplify : simplify_rule -> unit
Add unary simplification rule (not dependent on proof state)
val add_multi_simpl_rule : multi_simpl_rule -> unit
Add a multi-clause simplification rule
val add_is_trivial_trail : is_trivial_trail_rule -> unit
Add tautology detection rule
val add_is_trivial : is_trivial_rule -> unit
Add tautology detection rule
val add_rewrite_rule : string -> term_rewrite_rule -> unit
Add a term rewrite rule
val add_lit_rule : string -> lit_rewrite_rule -> unit
Add a literal rewrite rule
val add_generate : string -> generate_rule -> unit
val cr_skip : 'a conversion_result
val cr_return : 'a -> 'a conversion_result
val cr_add : 'a -> 'a conversion_result
val add_clause_conversion : clause_conversion_rule -> unit
val add_step_init : (unit -> unit) -> unit
add a function to call before each saturation step

Use the Env

val multi_simplify : C.t -> C.t list option
Can we simplify the clause into a List of simplified clauses?
val params : Params.t
val get_empty_clauses : unit -> C.ClauseSet.t
Set of known empty clauses
val get_some_empty_clause : unit -> C.t option
Some empty clause, if present, otherwise None
val has_empty_clause : unit -> bool
Is there an empty clause?
val on_start : unit Logtk.Signal.t
Triggered before starting saturation
val on_input_statement : Logtk.Statement.clause_t Logtk.Signal.t
Triggered on every input statement
val convert_input_statements : Logtk.Statement.clause_t CCVector.ro_vector -> C.t Clause.sets
Convert raw input statements into clauses, triggering Env_intf.S.on_input_statement
val on_empty_clause : C.t Logtk.Signal.t
Signal triggered when an empty clause is found
val ord : unit -> Logtk.Ordering.t
val precedence : unit -> Logtk.Precedence.t
val signature : unit -> Logtk.Signature.t
val pp : unit CCFormat.printer
val pp_full : unit CCFormat.printer

High level operations

type stats = int * int * int 
statistics on clauses : num active, num passive, num simplification
val stats : unit -> stats
Compute stats
val next_passive : unit -> C.t option
Extract next passive clause
val do_binary_inferences : C.t -> C.t Sequence.t
do binary inferences that involve the given clause
val do_unary_inferences : C.t -> C.t Sequence.t
do unary inferences for the given clause
val do_generate : full:bool -> unit -> C.t Sequence.t
do generating inferences
val is_trivial_trail : Trail.t -> bool
Check whether the trail is trivial
val is_trivial : C.t -> bool
Check whether the clause is trivial
val is_active : C.t -> bool
Is the clause in the active set
val is_passive : C.t -> bool
Is the clause a passive clause?
val basic_simplify : simplify_rule
Basic (and fast) simplifications
val unary_simplify : simplify_rule
Simplify the clause.
val backward_simplify : C.t -> C.ClauseSet.t * C.t Sequence.t
Perform backward simplification with the given clause. It returns the CSet of clauses that become redundant, and the sequence of those very same clauses after simplification.
val simplify_active_with : (C.t -> C.t list option) -> unit
Can be called when a simplification relation becomes stronger, with the strengthened relation. (e.g. new axioms should be declared because a theory was detected). This will go through the whole active set, trying to simplify clauses with the given function. Simplified clauses will be put back in the passive set.
val forward_simplify : simplify_rule
Simplify the clause w.r.t to the active set and experts
val generate : C.t -> C.t Sequence.t
Perform all generating inferences
val is_redundant : C.t -> bool
Is the given clause redundant w.r.t the active set?
val subsumed_by : C.t -> C.ClauseSet.t
List of active clauses subsumed by the given clause
val all_simplify : C.t -> C.t list SimplM.t
Use all simplification rules to convert a clause into a set of maximally simplified clause (or [] if they are all trivial).
val step_init : unit -> unit
call all functions registered with Env_intf.S.add_step_init


val flex_state : unit -> Logtk.Flex_state.t
State inherited from configuration
val update_flex_state : (Logtk.Flex_state.t -> Logtk.Flex_state.t) -> unit
update_flex_state f changes flex_state () using f
val flex_add : 'a Logtk.Flex_state.key -> 'a -> unit
add k -> v to the flex state
val flex_get : 'a Logtk.Flex_state.key -> 'a
flex_get k is the same as Flex_state.get_exn k (flex_state ()).
Raises Not_found if the key is not present