sig
module Env : Env.S
module C :
sig
module Ctx :
sig
val ord : unit -> Logtk.Ordering.t
val selection_fun : unit -> Selection.t
val set_selection_fun : Selection.t -> unit
val set_ord : Logtk.Ordering.t -> unit
val signature : unit -> Logtk.Signature.t
val renaming : Logtk.Subst.Renaming.t
val compare : Logtk.Term.t -> Logtk.Term.t -> Logtk.Comparison.t
val select : Selection.t
val renaming_clear : unit -> Logtk.Subst.Renaming.t
val lost_completeness : unit -> unit
val is_completeness_preserved : unit -> bool
val add_signature : Logtk.Signature.t -> unit
val find_signature : Logtk.ID.t -> Logtk.Type.t option
val find_signature_exn : Logtk.ID.t -> Logtk.Type.t
val declare : Logtk.ID.t -> Logtk.Type.t -> unit
val on_new_symbol : (Logtk.ID.t * Logtk.Type.t) Logtk.Signal.t
val on_signature_update : Logtk.Signature.t Logtk.Signal.t
module Lit :
sig
val from_hooks : unit -> Logtk.Literal.Conv.hook_from list
val add_from_hook : Logtk.Literal.Conv.hook_from -> unit
val to_hooks : unit -> Logtk.Literal.Conv.hook_to list
val add_to_hook : Logtk.Literal.Conv.hook_to -> unit
val of_form : Logtk.Term.t Logtk.SLiteral.t -> Logtk.Literal.t
val to_form : Logtk.Literal.t -> Logtk.Term.t Logtk.SLiteral.t
end
end
type t
type clause = t
type flag = SClause.flag
val set_flag : flag -> t -> bool -> unit
val get_flag : flag -> t -> bool
val mark_redundant : t -> unit
val is_redundant : t -> bool
val mark_backward_simplified : t -> unit
val is_backward_simplified : t -> bool
val equal : t -> t -> bool
val hash : t -> int
val compare : t -> t -> int
val id : t -> int
val lits : t -> Logtk.Literal.t array
val is_ground : t -> bool
val weight : t -> int
module Tbl :
sig
type key = t
type 'a t
val create : int -> 'a t
val clear : 'a t -> unit
val reset : 'a t -> unit
val copy : 'a t -> 'a t
val add : 'a t -> key -> 'a -> unit
val remove : 'a t -> key -> unit
val find : 'a t -> key -> 'a
val find_all : 'a t -> key -> 'a list
val replace : 'a t -> key -> 'a -> unit
val mem : 'a t -> key -> bool
val iter : (key -> 'a -> unit) -> 'a t -> unit
val filter_map_inplace : (key -> 'a -> 'a option) -> 'a t -> unit
val fold : (key -> 'a -> 'b -> 'b) -> 'a t -> 'b -> 'b
val length : 'a t -> int
val stats : 'a t -> Hashtbl.statistics
val get : 'a t -> key -> 'a option
val get_or : 'a t -> key -> default:'a -> 'a
val add_list : 'a list t -> key -> 'a -> unit
val incr : ?by:int -> int t -> key -> unit
val decr : ?by:int -> int t -> key -> unit
val keys : 'a t -> key CCHashtbl.sequence
val values : 'a t -> 'a CCHashtbl.sequence
val keys_list : 'a t -> key list
val values_list : 'a t -> 'a list
val map_list : (key -> 'a -> 'b) -> 'a t -> 'b list
val to_seq : 'a t -> (key * 'a) CCHashtbl.sequence
val of_seq : (key * 'a) CCHashtbl.sequence -> 'a t
val add_seq : 'a t -> (key * 'a) CCHashtbl.sequence -> unit
val add_seq_count : int t -> key CCHashtbl.sequence -> unit
val of_seq_count : key CCHashtbl.sequence -> int t
val to_list : 'a t -> (key * 'a) list
val of_list : (key * 'a) list -> 'a t
val update :
'a t -> f:(key -> 'a option -> 'a option) -> k:key -> unit
val get_or_add : 'a t -> f:(key -> 'a) -> k:key -> 'a
val print :
key CCHashtbl.printer ->
'a CCHashtbl.printer -> 'a t CCHashtbl.printer
end
val is_goal : t -> bool
val distance_to_goal : t -> int option
val comes_from_goal : t -> bool
val pp_trail : Trail.t CCFormat.printer
val has_trail : t -> bool
val trail : t -> Trail.t
val trail_l : t list -> Trail.t
val update_trail : (Trail.t -> Trail.t) -> t -> t
val trail_subsumes : t -> t -> bool
val is_active : t -> v:Trail.valuation -> bool
val create :
penalty:int ->
trail:Trail.t -> Logtk.Literal.t list -> Clause_intf.proof_step -> t
val create_a :
penalty:int ->
trail:Trail.t -> Logtk.Literal.t array -> Clause_intf.proof_step -> t
val of_sclause :
?penalty:int -> SClause.t -> Clause_intf.proof_step -> t
val of_forms :
?penalty:int ->
trail:Trail.t ->
Logtk.Term.t Logtk.SLiteral.t list -> Clause_intf.proof_step -> t
val of_forms_axiom :
?penalty:int ->
file:string -> name:string -> Logtk.Term.t Logtk.SLiteral.t list -> t
val of_statement : Logtk.Statement.clause_t -> t list
val proof_step : t -> Clause_intf.proof_step
val proof : t -> Clause_intf.proof
val proof_parent : t -> Proof.Parent.t
val proof_parent_subst :
t Logtk.Scoped.t -> Logtk.Subst.t -> Proof.Parent.t
val update_proof :
t -> (Clause_intf.proof_step -> Clause_intf.proof_step) -> t
val is_empty : t -> bool
val length : t -> int
val maxlits : t Logtk.Scoped.t -> Logtk.Subst.t -> CCBV.t
val is_maxlit : t Logtk.Scoped.t -> Logtk.Subst.t -> idx:int -> bool
val eligible_res : t Logtk.Scoped.t -> Logtk.Subst.t -> CCBV.t
val eligible_res_no_subst : t -> CCBV.t
val eligible_param : t Logtk.Scoped.t -> Logtk.Subst.t -> CCBV.t
val is_eligible_param :
t Logtk.Scoped.t -> Logtk.Subst.t -> idx:int -> bool
val has_selected_lits : t -> bool
val is_selected : t -> int -> bool
val selected_lits : t -> (Logtk.Literal.t * int) list
val penalty : t -> int
val is_unit_clause : t -> bool
val is_oriented_rule : t -> bool
val symbols : ?init:Logtk.ID.Set.t -> t Sequence.t -> Logtk.ID.Set.t
val to_sclause : t -> SClause.t
val to_forms : t -> Logtk.Term.t Logtk.SLiteral.t list
val to_s_form : t -> Logtk.TypedSTerm.Form.t
module Seq :
sig
val lits : t -> Logtk.Literal.t Sequence.t
val terms : t -> Logtk.Term.t Sequence.t
val vars : t -> Logtk.Type.t Logtk.HVar.t Sequence.t
end
module Eligible :
sig
type t = int -> Logtk.Literal.t -> bool
val res : clause -> t
val param : clause -> t
val eq : t
val arith : t
val filter : (Logtk.Literal.t -> bool) -> t
val max : clause -> t
val pos : t
val neg : t
val always : t
val combine : t list -> t
val ( ** ) : t -> t -> t
val ( ++ ) : t -> t -> t
val ( ~~ ) : t -> t
end
module ClauseSet :
sig
type elt = t
type t
val empty : t
val is_empty : t -> bool
val mem : elt -> t -> bool
val add : elt -> t -> t
val singleton : elt -> t
val remove : elt -> t -> t
val union : t -> t -> t
val inter : t -> t -> t
val diff : t -> t -> t
val compare : t -> t -> int
val equal : t -> t -> bool
val subset : t -> t -> bool
val iter : (elt -> unit) -> t -> unit
val map : (elt -> elt) -> t -> t
val fold : (elt -> 'a -> 'a) -> t -> 'a -> 'a
val for_all : (elt -> bool) -> t -> bool
val exists : (elt -> bool) -> t -> bool
val filter : (elt -> bool) -> t -> t
val partition : (elt -> bool) -> t -> t * t
val cardinal : t -> int
val elements : t -> elt list
val min_elt : t -> elt
val max_elt : t -> elt
val choose : t -> elt
val split : elt -> t -> t * bool * t
val find : elt -> t -> elt
val of_seq : elt CCSet.sequence -> t
val add_seq : t -> elt CCSet.sequence -> t
val to_seq : t -> elt CCSet.sequence
val of_list : elt list -> t
val add_list : t -> elt list -> t
val to_list : t -> elt list
val pp :
?start:string ->
?stop:string ->
?sep:string -> elt CCSet.printer -> t CCSet.printer
end
module Pos : sig val at : t -> Logtk.Position.t -> Logtk.Term.t end
module WithPos :
sig
type t = {
clause : clause;
pos : Logtk.Position.t;
term : Logtk.Term.t;
}
val compare : t -> t -> int
val pp : t CCFormat.printer
end
val pp : t CCFormat.printer
val pp_tstp : t CCFormat.printer
val pp_tstp_full : t CCFormat.printer
val to_string : t -> string
val pp_set : ClauseSet.t CCFormat.printer
val pp_set_tstp : ClauseSet.t CCFormat.printer
end
module PS :
sig
module Ctx :
sig
val ord : unit -> Logtk.Ordering.t
val selection_fun : unit -> Selection.t
val set_selection_fun : Selection.t -> unit
val set_ord : Logtk.Ordering.t -> unit
val signature : unit -> Logtk.Signature.t
val renaming : Logtk.Subst.Renaming.t
val compare : Logtk.Term.t -> Logtk.Term.t -> Logtk.Comparison.t
val select : Selection.t
val renaming_clear : unit -> Logtk.Subst.Renaming.t
val lost_completeness : unit -> unit
val is_completeness_preserved : unit -> bool
val add_signature : Logtk.Signature.t -> unit
val find_signature : Logtk.ID.t -> Logtk.Type.t option
val find_signature_exn : Logtk.ID.t -> Logtk.Type.t
val declare : Logtk.ID.t -> Logtk.Type.t -> unit
val on_new_symbol : (Logtk.ID.t * Logtk.Type.t) Logtk.Signal.t
val on_signature_update : Logtk.Signature.t Logtk.Signal.t
module Lit :
sig
val from_hooks : unit -> Logtk.Literal.Conv.hook_from list
val add_from_hook : Logtk.Literal.Conv.hook_from -> unit
val to_hooks : unit -> Logtk.Literal.Conv.hook_to list
val add_to_hook : Logtk.Literal.Conv.hook_to -> unit
val of_form : Logtk.Term.t Logtk.SLiteral.t -> Logtk.Literal.t
val to_form : Logtk.Literal.t -> Logtk.Term.t Logtk.SLiteral.t
end
end
module C :
sig
module Ctx :
sig
val ord : unit -> Logtk.Ordering.t
val selection_fun : unit -> Selection.t
val set_selection_fun : Selection.t -> unit
val set_ord : Logtk.Ordering.t -> unit
val signature : unit -> Logtk.Signature.t
val renaming : Logtk.Subst.Renaming.t
val compare :
Logtk.Term.t -> Logtk.Term.t -> Logtk.Comparison.t
val select : Selection.t
val renaming_clear : unit -> Logtk.Subst.Renaming.t
val lost_completeness : unit -> unit
val is_completeness_preserved : unit -> bool
val add_signature : Logtk.Signature.t -> unit
val find_signature : Logtk.ID.t -> Logtk.Type.t option
val find_signature_exn : Logtk.ID.t -> Logtk.Type.t
val declare : Logtk.ID.t -> Logtk.Type.t -> unit
val on_new_symbol : (Logtk.ID.t * Logtk.Type.t) Logtk.Signal.t
val on_signature_update : Logtk.Signature.t Logtk.Signal.t
module Lit :
sig
val from_hooks : unit -> Logtk.Literal.Conv.hook_from list
val add_from_hook : Logtk.Literal.Conv.hook_from -> unit
val to_hooks : unit -> Logtk.Literal.Conv.hook_to list
val add_to_hook : Logtk.Literal.Conv.hook_to -> unit
val of_form :
Logtk.Term.t Logtk.SLiteral.t -> Logtk.Literal.t
val to_form :
Logtk.Literal.t -> Logtk.Term.t Logtk.SLiteral.t
end
end
type t = Env.C.t
type clause = t
type flag = SClause.flag
val set_flag : flag -> t -> bool -> unit
val get_flag : flag -> t -> bool
val mark_redundant : t -> unit
val is_redundant : t -> bool
val mark_backward_simplified : t -> unit
val is_backward_simplified : t -> bool
val equal : t -> t -> bool
val hash : t -> int
val compare : t -> t -> int
val id : t -> int
val lits : t -> Logtk.Literal.t array
val is_ground : t -> bool
val weight : t -> int
module Tbl :
sig
type key = t
type 'a t = 'a Env.C.Tbl.t
val create : int -> 'a t
val clear : 'a t -> unit
val reset : 'a t -> unit
val copy : 'a t -> 'a t
val add : 'a t -> key -> 'a -> unit
val remove : 'a t -> key -> unit
val find : 'a t -> key -> 'a
val find_all : 'a t -> key -> 'a list
val replace : 'a t -> key -> 'a -> unit
val mem : 'a t -> key -> bool
val iter : (key -> 'a -> unit) -> 'a t -> unit
val filter_map_inplace :
(key -> 'a -> 'a option) -> 'a t -> unit
val fold : (key -> 'a -> 'b -> 'b) -> 'a t -> 'b -> 'b
val length : 'a t -> int
val stats : 'a t -> Hashtbl.statistics
val get : 'a t -> key -> 'a option
val get_or : 'a t -> key -> default:'a -> 'a
val add_list : 'a list t -> key -> 'a -> unit
val incr : ?by:int -> int t -> key -> unit
val decr : ?by:int -> int t -> key -> unit
val keys : 'a t -> key CCHashtbl.sequence
val values : 'a t -> 'a CCHashtbl.sequence
val keys_list : 'a t -> key list
val values_list : 'a t -> 'a list
val map_list : (key -> 'a -> 'b) -> 'a t -> 'b list
val to_seq : 'a t -> (key * 'a) CCHashtbl.sequence
val of_seq : (key * 'a) CCHashtbl.sequence -> 'a t
val add_seq : 'a t -> (key * 'a) CCHashtbl.sequence -> unit
val add_seq_count : int t -> key CCHashtbl.sequence -> unit
val of_seq_count : key CCHashtbl.sequence -> int t
val to_list : 'a t -> (key * 'a) list
val of_list : (key * 'a) list -> 'a t
val update :
'a t -> f:(key -> 'a option -> 'a option) -> k:key -> unit
val get_or_add : 'a t -> f:(key -> 'a) -> k:key -> 'a
val print :
key CCHashtbl.printer ->
'a CCHashtbl.printer -> 'a t CCHashtbl.printer
end
val is_goal : t -> bool
val distance_to_goal : t -> int option
val comes_from_goal : t -> bool
val pp_trail : Trail.t CCFormat.printer
val has_trail : t -> bool
val trail : t -> Trail.t
val trail_l : t list -> Trail.t
val update_trail : (Trail.t -> Trail.t) -> t -> t
val trail_subsumes : t -> t -> bool
val is_active : t -> v:Trail.valuation -> bool
val create :
penalty:int ->
trail:Trail.t ->
Logtk.Literal.t list -> Clause_intf.proof_step -> t
val create_a :
penalty:int ->
trail:Trail.t ->
Logtk.Literal.t array -> Clause_intf.proof_step -> t
val of_sclause :
?penalty:int -> SClause.t -> Clause_intf.proof_step -> t
val of_forms :
?penalty:int ->
trail:Trail.t ->
Logtk.Term.t Logtk.SLiteral.t list -> Clause_intf.proof_step -> t
val of_forms_axiom :
?penalty:int ->
file:string ->
name:string -> Logtk.Term.t Logtk.SLiteral.t list -> t
val of_statement : Logtk.Statement.clause_t -> t list
val proof_step : t -> Clause_intf.proof_step
val proof : t -> Clause_intf.proof
val proof_parent : t -> Proof.Parent.t
val proof_parent_subst :
t Logtk.Scoped.t -> Logtk.Subst.t -> Proof.Parent.t
val update_proof :
t -> (Clause_intf.proof_step -> Clause_intf.proof_step) -> t
val is_empty : t -> bool
val length : t -> int
val maxlits : t Logtk.Scoped.t -> Logtk.Subst.t -> CCBV.t
val is_maxlit :
t Logtk.Scoped.t -> Logtk.Subst.t -> idx:int -> bool
val eligible_res : t Logtk.Scoped.t -> Logtk.Subst.t -> CCBV.t
val eligible_res_no_subst : t -> CCBV.t
val eligible_param : t Logtk.Scoped.t -> Logtk.Subst.t -> CCBV.t
val is_eligible_param :
t Logtk.Scoped.t -> Logtk.Subst.t -> idx:int -> bool
val has_selected_lits : t -> bool
val is_selected : t -> int -> bool
val selected_lits : t -> (Logtk.Literal.t * int) list
val penalty : t -> int
val is_unit_clause : t -> bool
val is_oriented_rule : t -> bool
val symbols :
?init:Logtk.ID.Set.t -> t Sequence.t -> Logtk.ID.Set.t
val to_sclause : t -> SClause.t
val to_forms : t -> Logtk.Term.t Logtk.SLiteral.t list
val to_s_form : t -> Logtk.TypedSTerm.Form.t
module Seq :
sig
val lits : t -> Logtk.Literal.t Sequence.t
val terms : t -> Logtk.Term.t Sequence.t
val vars : t -> Logtk.Type.t Logtk.HVar.t Sequence.t
end
module Eligible :
sig
type t = int -> Logtk.Literal.t -> bool
val res : clause -> t
val param : clause -> t
val eq : t
val arith : t
val filter : (Logtk.Literal.t -> bool) -> t
val max : clause -> t
val pos : t
val neg : t
val always : t
val combine : t list -> t
val ( ** ) : t -> t -> t
val ( ++ ) : t -> t -> t
val ( ~~ ) : t -> t
end
module ClauseSet :
sig
type elt = t
type t = Env.C.ClauseSet.t
val empty : t
val is_empty : t -> bool
val mem : elt -> t -> bool
val add : elt -> t -> t
val singleton : elt -> t
val remove : elt -> t -> t
val union : t -> t -> t
val inter : t -> t -> t
val diff : t -> t -> t
val compare : t -> t -> int
val equal : t -> t -> bool
val subset : t -> t -> bool
val iter : (elt -> unit) -> t -> unit
val map : (elt -> elt) -> t -> t
val fold : (elt -> 'a -> 'a) -> t -> 'a -> 'a
val for_all : (elt -> bool) -> t -> bool
val exists : (elt -> bool) -> t -> bool
val filter : (elt -> bool) -> t -> t
val partition : (elt -> bool) -> t -> t * t
val cardinal : t -> int
val elements : t -> elt list
val min_elt : t -> elt
val max_elt : t -> elt
val choose : t -> elt
val split : elt -> t -> t * bool * t
val find : elt -> t -> elt
val of_seq : elt CCSet.sequence -> t
val add_seq : t -> elt CCSet.sequence -> t
val to_seq : t -> elt CCSet.sequence
val of_list : elt list -> t
val add_list : t -> elt list -> t
val to_list : t -> elt list
val pp :
?start:string ->
?stop:string ->
?sep:string -> elt CCSet.printer -> t CCSet.printer
end
module Pos : sig val at : t -> Logtk.Position.t -> Logtk.Term.t end
module WithPos :
sig
type t =
Env.C.WithPos.t = {
clause : clause;
pos : Logtk.Position.t;
term : Logtk.Term.t;
}
val compare : t -> t -> int
val pp : t CCFormat.printer
end
val pp : t CCFormat.printer
val pp_tstp : t CCFormat.printer
val pp_tstp_full : t CCFormat.printer
val to_string : t -> string
val pp_set : ClauseSet.t CCFormat.printer
val pp_set_tstp : ClauseSet.t CCFormat.printer
end
module CQueue :
sig
module C :
sig
module Ctx :
sig
val ord : unit -> Logtk.Ordering.t
val selection_fun : unit -> Selection.t
val set_selection_fun : Selection.t -> unit
val set_ord : Logtk.Ordering.t -> unit
val signature : unit -> Logtk.Signature.t
val renaming : Logtk.Subst.Renaming.t
val compare :
Logtk.Term.t -> Logtk.Term.t -> Logtk.Comparison.t
val select : Selection.t
val renaming_clear : unit -> Logtk.Subst.Renaming.t
val lost_completeness : unit -> unit
val is_completeness_preserved : unit -> bool
val add_signature : Logtk.Signature.t -> unit
val find_signature : Logtk.ID.t -> Logtk.Type.t option
val find_signature_exn : Logtk.ID.t -> Logtk.Type.t
val declare : Logtk.ID.t -> Logtk.Type.t -> unit
val on_new_symbol :
(Logtk.ID.t * Logtk.Type.t) Logtk.Signal.t
val on_signature_update : Logtk.Signature.t Logtk.Signal.t
module Lit :
sig
val from_hooks :
unit -> Logtk.Literal.Conv.hook_from list
val add_from_hook :
Logtk.Literal.Conv.hook_from -> unit
val to_hooks : unit -> Logtk.Literal.Conv.hook_to list
val add_to_hook : Logtk.Literal.Conv.hook_to -> unit
val of_form :
Logtk.Term.t Logtk.SLiteral.t -> Logtk.Literal.t
val to_form :
Logtk.Literal.t -> Logtk.Term.t Logtk.SLiteral.t
end
end
type t = C.t
type clause = t
type flag = SClause.flag
val set_flag : flag -> t -> bool -> unit
val get_flag : flag -> t -> bool
val mark_redundant : t -> unit
val is_redundant : t -> bool
val mark_backward_simplified : t -> unit
val is_backward_simplified : t -> bool
val equal : t -> t -> bool
val hash : t -> int
val compare : t -> t -> int
val id : t -> int
val lits : t -> Logtk.Literal.t array
val is_ground : t -> bool
val weight : t -> int
module Tbl :
sig
type key = t
type 'a t = 'a C.Tbl.t
val create : int -> 'a t
val clear : 'a t -> unit
val reset : 'a t -> unit
val copy : 'a t -> 'a t
val add : 'a t -> key -> 'a -> unit
val remove : 'a t -> key -> unit
val find : 'a t -> key -> 'a
val find_all : 'a t -> key -> 'a list
val replace : 'a t -> key -> 'a -> unit
val mem : 'a t -> key -> bool
val iter : (key -> 'a -> unit) -> 'a t -> unit
val filter_map_inplace :
(key -> 'a -> 'a option) -> 'a t -> unit
val fold : (key -> 'a -> 'b -> 'b) -> 'a t -> 'b -> 'b
val length : 'a t -> int
val stats : 'a t -> Hashtbl.statistics
val get : 'a t -> key -> 'a option
val get_or : 'a t -> key -> default:'a -> 'a
val add_list : 'a list t -> key -> 'a -> unit
val incr : ?by:int -> int t -> key -> unit
val decr : ?by:int -> int t -> key -> unit
val keys : 'a t -> key CCHashtbl.sequence
val values : 'a t -> 'a CCHashtbl.sequence
val keys_list : 'a t -> key list
val values_list : 'a t -> 'a list
val map_list : (key -> 'a -> 'b) -> 'a t -> 'b list
val to_seq : 'a t -> (key * 'a) CCHashtbl.sequence
val of_seq : (key * 'a) CCHashtbl.sequence -> 'a t
val add_seq : 'a t -> (key * 'a) CCHashtbl.sequence -> unit
val add_seq_count : int t -> key CCHashtbl.sequence -> unit
val of_seq_count : key CCHashtbl.sequence -> int t
val to_list : 'a t -> (key * 'a) list
val of_list : (key * 'a) list -> 'a t
val update :
'a t ->
f:(key -> 'a option -> 'a option) -> k:key -> unit
val get_or_add : 'a t -> f:(key -> 'a) -> k:key -> 'a
val print :
key CCHashtbl.printer ->
'a CCHashtbl.printer -> 'a t CCHashtbl.printer
end
val is_goal : t -> bool
val distance_to_goal : t -> int option
val comes_from_goal : t -> bool
val pp_trail : Trail.t CCFormat.printer
val has_trail : t -> bool
val trail : t -> Trail.t
val trail_l : t list -> Trail.t
val update_trail : (Trail.t -> Trail.t) -> t -> t
val trail_subsumes : t -> t -> bool
val is_active : t -> v:Trail.valuation -> bool
val create :
penalty:int ->
trail:Trail.t ->
Logtk.Literal.t list -> Clause_intf.proof_step -> t
val create_a :
penalty:int ->
trail:Trail.t ->
Logtk.Literal.t array -> Clause_intf.proof_step -> t
val of_sclause :
?penalty:int -> SClause.t -> Clause_intf.proof_step -> t
val of_forms :
?penalty:int ->
trail:Trail.t ->
Logtk.Term.t Logtk.SLiteral.t list ->
Clause_intf.proof_step -> t
val of_forms_axiom :
?penalty:int ->
file:string ->
name:string -> Logtk.Term.t Logtk.SLiteral.t list -> t
val of_statement : Logtk.Statement.clause_t -> t list
val proof_step : t -> Clause_intf.proof_step
val proof : t -> Clause_intf.proof
val proof_parent : t -> Proof.Parent.t
val proof_parent_subst :
t Logtk.Scoped.t -> Logtk.Subst.t -> Proof.Parent.t
val update_proof :
t -> (Clause_intf.proof_step -> Clause_intf.proof_step) -> t
val is_empty : t -> bool
val length : t -> int
val maxlits : t Logtk.Scoped.t -> Logtk.Subst.t -> CCBV.t
val is_maxlit :
t Logtk.Scoped.t -> Logtk.Subst.t -> idx:int -> bool
val eligible_res : t Logtk.Scoped.t -> Logtk.Subst.t -> CCBV.t
val eligible_res_no_subst : t -> CCBV.t
val eligible_param :
t Logtk.Scoped.t -> Logtk.Subst.t -> CCBV.t
val is_eligible_param :
t Logtk.Scoped.t -> Logtk.Subst.t -> idx:int -> bool
val has_selected_lits : t -> bool
val is_selected : t -> int -> bool
val selected_lits : t -> (Logtk.Literal.t * int) list
val penalty : t -> int
val is_unit_clause : t -> bool
val is_oriented_rule : t -> bool
val symbols :
?init:Logtk.ID.Set.t -> t Sequence.t -> Logtk.ID.Set.t
val to_sclause : t -> SClause.t
val to_forms : t -> Logtk.Term.t Logtk.SLiteral.t list
val to_s_form : t -> Logtk.TypedSTerm.Form.t
module Seq :
sig
val lits : t -> Logtk.Literal.t Sequence.t
val terms : t -> Logtk.Term.t Sequence.t
val vars : t -> Logtk.Type.t Logtk.HVar.t Sequence.t
end
module Eligible :
sig
type t = int -> Logtk.Literal.t -> bool
val res : clause -> t
val param : clause -> t
val eq : t
val arith : t
val filter : (Logtk.Literal.t -> bool) -> t
val max : clause -> t
val pos : t
val neg : t
val always : t
val combine : t list -> t
val ( ** ) : t -> t -> t
val ( ++ ) : t -> t -> t
val ( ~~ ) : t -> t
end
module ClauseSet :
sig
type elt = t
type t = C.ClauseSet.t
val empty : t
val is_empty : t -> bool
val mem : elt -> t -> bool
val add : elt -> t -> t
val singleton : elt -> t
val remove : elt -> t -> t
val union : t -> t -> t
val inter : t -> t -> t
val diff : t -> t -> t
val compare : t -> t -> int
val equal : t -> t -> bool
val subset : t -> t -> bool
val iter : (elt -> unit) -> t -> unit
val map : (elt -> elt) -> t -> t
val fold : (elt -> 'a -> 'a) -> t -> 'a -> 'a
val for_all : (elt -> bool) -> t -> bool
val exists : (elt -> bool) -> t -> bool
val filter : (elt -> bool) -> t -> t
val partition : (elt -> bool) -> t -> t * t
val cardinal : t -> int
val elements : t -> elt list
val min_elt : t -> elt
val max_elt : t -> elt
val choose : t -> elt
val split : elt -> t -> t * bool * t
val find : elt -> t -> elt
val of_seq : elt CCSet.sequence -> t
val add_seq : t -> elt CCSet.sequence -> t
val to_seq : t -> elt CCSet.sequence
val of_list : elt list -> t
val add_list : t -> elt list -> t
val to_list : t -> elt list
val pp :
?start:string ->
?stop:string ->
?sep:string -> elt CCSet.printer -> t CCSet.printer
end
module Pos :
sig val at : t -> Logtk.Position.t -> Logtk.Term.t end
module WithPos :
sig
type t =
C.WithPos.t = {
clause : clause;
pos : Logtk.Position.t;
term : Logtk.Term.t;
}
val compare : t -> t -> int
val pp : t CCFormat.printer
end
val pp : t CCFormat.printer
val pp_tstp : t CCFormat.printer
val pp_tstp_full : t CCFormat.printer
val to_string : t -> string
val pp_set : ClauseSet.t CCFormat.printer
val pp_set_tstp : ClauseSet.t CCFormat.printer
end
module WeightFun :
sig
type t = C.t -> int
val default : t
val penalty : t
val favor_all_neg : t
val favor_non_all_neg : t
val favor_ground : t
val favor_horn : t
val favor_goal : t
val combine : (t * int) list -> t
end
type t
val add : t -> C.t -> unit
val add_seq : t -> C.t Sequence.t -> unit
val length : t -> int
val is_empty : t -> bool
val take_first : t -> C.t
val name : t -> string
val make : ratio:int -> weight:(C.t -> int) -> string -> t
val bfs : unit -> t
val almost_bfs : unit -> t
val explore : unit -> t
val ground : unit -> t
val goal_oriented : unit -> t
val default : unit -> t
val of_profile : ClauseQueue_intf.profile -> t
val pp : t CCFormat.printer
val to_string : t -> string
end
module TermIndex :
sig
type t
type elt = C.WithPos.t
module Leaf :
sig
type t
type elt = elt
val empty : t
val add : t -> Logtk.Index_intf.term -> elt -> t
val remove : t -> Logtk.Index_intf.term -> elt -> t
val is_empty : t -> bool
val iter : t -> (Logtk.Index_intf.term -> elt -> unit) -> unit
val fold :
t -> 'a -> ('a -> Logtk.Index_intf.term -> elt -> 'a) -> 'a
val size : t -> int
val fold_unify :
?subst:Logtk.Unif_subst.t ->
t Logtk.Scoped.t ->
Logtk.Index_intf.term Logtk.Scoped.t ->
(Logtk.Index_intf.term * elt * Logtk.Unif_subst.t) Sequence.t
val fold_match :
?subst:Logtk.Index_intf.subst ->
t Logtk.Scoped.t ->
Logtk.Index_intf.term Logtk.Scoped.t ->
(Logtk.Index_intf.term * elt * Logtk.Index_intf.subst)
Sequence.t
val fold_matched :
?subst:Logtk.Index_intf.subst ->
t Logtk.Scoped.t ->
Logtk.Index_intf.term Logtk.Scoped.t ->
(Logtk.Index_intf.term * elt * Logtk.Index_intf.subst)
Sequence.t
end
val name : string
val empty : unit -> t
val is_empty : t -> bool
val size : t -> int
val add : t -> Logtk.Index_intf.term -> elt -> t
val add_seq : t -> (Logtk.Index_intf.term * elt) Sequence.t -> t
val add_list : t -> (Logtk.Index_intf.term * elt) list -> t
val remove : t -> Logtk.Index_intf.term -> elt -> t
val remove_seq : t -> (Logtk.Index_intf.term * elt) Sequence.t -> t
val remove_list : t -> (Logtk.Index_intf.term * elt) list -> t
val iter : t -> (Logtk.Index_intf.term -> elt -> unit) -> unit
val fold :
t -> ('a -> Logtk.Index_intf.term -> elt -> 'a) -> 'a -> 'a
val retrieve_unifiables :
?subst:Logtk.Unif_subst.t ->
t Logtk.Scoped.t ->
Logtk.Index_intf.term Logtk.Scoped.t ->
(Logtk.Index_intf.term * elt * Logtk.Unif_subst.t) Sequence.t
val retrieve_generalizations :
?subst:Logtk.Index_intf.subst ->
t Logtk.Scoped.t ->
Logtk.Index_intf.term Logtk.Scoped.t ->
(Logtk.Index_intf.term * elt * Logtk.Index_intf.subst) Sequence.t
val retrieve_specializations :
?subst:Logtk.Index_intf.subst ->
t Logtk.Scoped.t ->
Logtk.Index_intf.term Logtk.Scoped.t ->
(Logtk.Index_intf.term * elt * Logtk.Index_intf.subst) Sequence.t
val to_dot : elt CCFormat.printer -> t CCFormat.printer
end
module UnitIndex :
sig
type t
module E :
sig
type t = Logtk.Term.t * Logtk.Term.t * bool * C.t
type rhs = Logtk.Term.t
val compare : t -> t -> int
val extract : t -> Logtk.Index_intf.term * rhs * bool
val priority : t -> int
end
type rhs = E.rhs
val empty : unit -> t
val is_empty : t -> bool
val add : t -> E.t -> t
val add_seq : t -> E.t Sequence.t -> t
val add_list : t -> E.t list -> t
val remove : t -> E.t -> t
val remove_seq : t -> E.t Sequence.t -> t
val size : t -> int
val iter : t -> (Logtk.Index_intf.term -> E.t -> unit) -> unit
val retrieve :
?subst:Logtk.Index_intf.subst ->
sign:bool ->
t Logtk.Scoped.t ->
Logtk.Index_intf.term Logtk.Scoped.t ->
(Logtk.Index_intf.term * rhs * E.t * Logtk.Index_intf.subst)
Sequence.t
val to_dot : t CCFormat.printer
end
module SubsumptionIndex :
sig
type t
module C :
sig
type t = C.t
val compare : t -> t -> int
val to_lits : t -> Logtk.Index_intf.lits
val labels : t -> Logtk.Index_intf.labels
end
val name : string
val empty : unit -> t
val add : t -> C.t -> t
val add_seq : t -> C.t Sequence.t -> t
val add_list : t -> C.t list -> t
val remove : t -> C.t -> t
val remove_seq : t -> C.t Sequence.t -> t
val retrieve_subsuming :
t ->
Logtk.Index_intf.lits ->
Logtk.Index_intf.labels -> C.t Sequence.t
val retrieve_subsuming_c : t -> C.t -> C.t Sequence.t
val retrieve_subsumed :
t ->
Logtk.Index_intf.lits ->
Logtk.Index_intf.labels -> C.t Sequence.t
val retrieve_subsumed_c : t -> C.t -> C.t Sequence.t
val retrieve_alpha_equiv :
t ->
Logtk.Index_intf.lits ->
Logtk.Index_intf.labels -> C.t Sequence.t
val retrieve_alpha_equiv_c : t -> C.t -> C.t Sequence.t
val iter : t -> C.t Sequence.t
val fold : ('a -> C.t -> 'a) -> 'a -> t -> 'a
end
module type CLAUSE_SET =
sig
val on_add_clause : C.t Logtk.Signal.t
val on_remove_clause : C.t Logtk.Signal.t
val add : C.t Sequence.t -> unit
val remove : C.t Sequence.t -> unit
end
module ActiveSet :
sig
val on_add_clause : C.t Logtk.Signal.t
val on_remove_clause : C.t Logtk.Signal.t
val add : C.t Sequence.t -> unit
val remove : C.t Sequence.t -> unit
val clauses : unit -> C.ClauseSet.t
val num_clauses : unit -> int
end
module SimplSet : CLAUSE_SET
module PassiveSet :
sig
val on_add_clause : C.t Logtk.Signal.t
val on_remove_clause : C.t Logtk.Signal.t
val add : C.t Sequence.t -> unit
val remove : C.t Sequence.t -> unit
val clauses : unit -> C.ClauseSet.t
val queue : CQueue.t
val next : unit -> C.t option
val num_clauses : unit -> int
end
type stats = int * int * int
val stats : unit -> stats
val pp : unit CCFormat.printer
val debug : unit CCFormat.printer
end
val register : unit -> unit
end