diff options
Diffstat (limited to 'tactics/dn.mli')
| -rw-r--r-- | tactics/dn.mli | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/tactics/dn.mli b/tactics/dn.mli new file mode 100644 index 000000000..211b75a36 --- /dev/null +++ b/tactics/dn.mli @@ -0,0 +1,25 @@ + +(* $Id$ *) + +(* Discrimination nets. *) + +type ('lbl,'pat) dn_args = 'pat -> ('lbl * 'pat list) option + +type ('lbl,'pat,'inf) t = { + tm : (('lbl * int) option,'pat * 'inf) Tlm.t; + args : ('lbl,'pat) dn_args } + +type ('lbl,'pat,'inf) under_t = (('lbl * int) option,'pat * 'inf) Tlm.t + +val create : ('lbl,'pat) dn_args -> ('lbl,'pat,'inf) t + +val add : ('lbl,'pat,'inf) t -> 'pat * 'inf -> ('lbl,'pat,'inf) t + +val rmv : ('lbl,'pat,'inf) t -> 'pat * 'inf -> ('lbl,'pat,'inf) t + +val path_of : ('lbl,'pat) dn_args -> 'pat -> ('lbl * int) option list + +val lookup : + ('lbl,'pat,'inf) t -> ('lbl,'term) dn_args -> 'term -> ('pat * 'inf) list + +val app : (('pat * 'inf) -> unit) -> ('lbl,'pat,'inf) t -> unit |