- répertoire tactics/

 - discrimination nets (début) : modules Tlm et Dn


git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@116 85f007b7-540e-0410-9357-904b9bb8a0f7

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