From 577e393fd4003dd406332759055ebbcfabaabd69 Mon Sep 17 00:00:00 2001
From: filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Fri, 22 Oct 1999 14:44:58 +0000
Subject:  - répertoire tactics/  - discrimination nets (début) : modules Tlm
 et Dn
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@116 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tactics/dn.mli | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 tactics/dn.mli

(limited to 'tactics/dn.mli')

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
-- 
cgit v1.2.3