From 577e393fd4003dd406332759055ebbcfabaabd69 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Fri, 22 Oct 1999 14:44:58 +0000
Subject:  - 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
---
 lib/tlm.mli | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 lib/tlm.mli

(limited to 'lib')

diff --git a/lib/tlm.mli b/lib/tlm.mli
new file mode 100644
index 0000000000..abf1efc671
--- /dev/null
+++ b/lib/tlm.mli
@@ -0,0 +1,22 @@
+
+(* $Id$ *)
+
+type ('a,'b) t
+
+val create : unit -> ('a,'b) t
+
+(* Work on labels, not on paths *)
+
+val map : ('a,'b) t -> 'a -> ('a,'b) t
+val xtract : ('a,'b) t -> 'b list
+val dom : ('a,'b) t -> 'a list
+val in_dom : ('a,'b) t -> 'a -> bool
+
+(* Work on paths, not labels *)
+
+val add : ('a,'b) t -> 'a list * 'b -> ('a,'b) t
+val rmv : ('a,'b) t -> ('a list * 'b) -> ('a,'b) t
+
+val app : (('a list * 'c) -> unit) -> ('a,'c) t -> unit
+val to_list : ('a,'b) t -> ('a list * 'b) list
+
-- 
cgit v1.2.3