X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=ptset.mli;h=3b46f5c777b0bffaf9864c9f92c864e419d35cad;hb=cf6d366b25132eea7b0f1966c11d034d748af0fa;hp=2eef80cff3b6615869affb6c68d274c566c21780;hpb=09870a49122b3d7048422818dbb0a038513b4d14;p=SXSI%2Fxpathcomp.git

diff --git a/ptset.mli b/ptset.mli
index 2eef80c..3b46f5c 100644
--- a/ptset.mli
+++ b/ptset.mli
@@ -26,6 +26,7 @@ module type S =
 sig
 
   type elt
+  type data
   type t
   val empty : t
   val is_empty : t -> bool
@@ -65,8 +66,13 @@ val hash : t -> int
 val uid : t -> int
 val uncons : t -> elt * t
 val from_list : elt list -> t 
+val make : data -> t
+val node : t -> data
 end
 
 
-module Int : S with type elt = int
+module Int : sig 
+  include S with type elt = int
+  val print : Format.formatter -> t -> unit
+end
 module Make ( H : Hcons.S ) : S with type elt = H.t