module Types_unify: sig
.. end
type
termGL =
type
givesIF = termGL
type
secretsIF = termGL * termGL
type
requestKind =
type
requestIF = termGL * termGL * requestKind *
termGL
type
witnessIF = termGL * termGL * termGL
type
mtermIF = termGL
type
wtermIF = string * termGL
type
containsIF =
type
conditionIF =
type
generic_conditionIF =
type
termIF = wtermIF list * mtermIF list *
witnessIF list * requestIF list *
secretsIF list * containsIF list
type
knowIF = termGL list
type
nameIF = string
type
stepIF = nameIF * wtermIF list * mtermIF list *
conditionIF list * containsIF list *
containsIF list * termIF
type
types_section = (termGL * string) list
type
factIF =
type
attack_state_elem =
type
attack_state = attack_state_elem list
type
parseReturn = stepIF list *
(knowIF * wtermIF list * secretsIF list *
containsIF list)
list * types_section * attack_state list
type
sign =
type
term =
type
t_equal = (int * term) list
type
t_unequal = (term * term) list
type
t_freevar =
type
t_subst = t_equal * t_freevar * t_unequal
type
t_split_subst = t_equal * term list list * t_equal *
t_freevar * t_unequal
type
ctrTestResult =
| |
Equal |
| |
NeverEqual |
| |
Uncertain |
type
t_todec = (term * term) list
type
t_know_elem =
type
t_know = t_know_elem list
type
t_request = (requestKind * term) list
type
t_witness = term list
type
t_secret =
type
t_sets_elem =
type
t_sets = term list * t_sets_elem list
type
t_etat = t_todec * t_know * t_witness *
t_secret * t_sets * t_subst
type
t_system = t_etat list
type
t_forw =
type
tabletype = (int * string) list
type
t_role_table = (string * string list) list
type
t_msg = term
type
t_TestSet =
| |
TestInSet of term |
| |
TestNotInSet of term |
type
t_NewSet =
| |
AddToSet of term |
| |
RemoveFromSet of term |
type
t_secrecygoal = t_secret
type
t_step = t_msg * t_msg * term * term *
t_secrecygoal * t_witness * t_request *
t_unequal * t_TestSet list *
t_NewSet list
type
t_StepKind =
| |
Sooner |
| |
Generic |
| |
Maybe_Sooner |
type
t_trace = (string * nameIF * t_step * t_equal) list
type
t_role =
type
t_specif = (string * t_role) list
type
t_state = (t_system * t_trace * t_specif) list
type
t_unforgeable = term list
type
t_partition = int list list
type
t_po = (int * int list) list
type
t_attack_state =
type
t_attack_state_goal = t_attack_state list
type
atkKind =
type
t_unif_prestate = (term * term) list * term list list *
int list * t_subst
type
t_unif_state = (term * term) list * term list list *
int list * int list * t_subst
type
t_vi_ctrs = (int * int) list * t_partition list
exception Invalid_Var_Identif
exception No_Solution