- 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, 22 insertions, 0 deletions

diff --git a/lib/tlm.mli b/lib/tlm.mli
new file mode 100644
index 000000000..abf1efc67
--- /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
+