Module Section_rules


module Section_rules: sig .. end

val get_if_term : Types.predicate -> Types.if_term
val apply_subst : (Types.atoms_type Types.term_structure *
Types.atoms_type Types.term_structure)
list ->
Types.atoms_type Types.term_structure ->
Types.atoms_type Types.term_structure
val get_if_lhs : Types.predicate list ->
(Types.atoms_type Types.term_structure * Types.term) list *
Types.if_term list * Types.if_term list
val get_if_cond : Types.predicate list -> Types.if_term list
val get_iknows : Types.predicate list -> Types.if_term list
val update_dummy_vars : Types.predicate list ->
Types.predicate list ->
int list ->
Types.atoms_type Types.term_structure list * Types.predicate list *
Types.predicate list
val get_received_fresh_terms : Types.atoms_type Types.term_structure -> Types.atoms_type list
val update_received_fresh_terms : Types.atoms_type Types.term_structure list ->
Types.predicate list ->
Types.atoms_type Types.term_structure list ->
Types.atoms_type Types.term_structure list
val get_fresh_terms : Types.if_term list -> Types.atoms_type list
val get_primed_vars : Types.predicate list -> int list
val get_real_fresh_terms : Types.predicate list -> Types.predicate list -> Types.atoms_type list
val update_fresh_terms : Types.atoms_type list ->
Types.atoms_type Types.term_structure list ->
Types.atoms_type Types.term_structure list ->
Types.atoms_type Types.term_structure list
val get_step_var_list : Types.atoms_type Types.term_structure list ->
Types.atoms_type Types.term_structure list Pervasives.ref ->
Types.atoms_type Types.term_structure list
val update_vars_with_cond : ('a * 'a) list -> 'a list -> 'a list
val update_rhs_primed_vars : (Types.atoms_type Types.term_structure * Types.term) list ->
Types.predicate list ->
Types.term list ->
Types.atoms_type Types.term_structure list ->
(Types.atoms_type Types.term_structure * Types.term) list * Types.term list
val update_rhs_atoms : (Types.atoms_type Types.term_structure * Types.term) list ->
Types.if_term list -> Types.if_term list
val get_if_reactions : int ->
< get_label : 'a; get_lhs : Types.predicate list;
get_rhs : Types.predicate list; .. >
list -> int list -> int -> 'b -> (int * ('a * Types.basic_if_rule)) list