X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=ptset.mli;h=477acc36afb5d58135a2a29ebd0e466418db5dca;hb=343ce6fc6c893c69b4820a17b4b6a0be7cd50d87;hp=3b46f5c777b0bffaf9864c9f92c864e419d35cad;hpb=04639fe524ee20f7f84c8b08387312d714c9bd56;p=SXSI%2Fxpathcomp.git

diff --git a/ptset.mli b/ptset.mli
index 3b46f5c..477acc3 100644
--- a/ptset.mli
+++ b/ptset.mli
@@ -63,11 +63,13 @@ val intersect : t -> t -> bool
 val is_singleton : t -> bool
 val mem_union : t -> t -> t
 val hash : t -> int
-val uid : t -> int
+val uid : t -> Uid.t
 val uncons : t -> elt * t
 val from_list : elt list -> t 
 val make : data -> t
 val node : t -> data
+
+val with_id : Uid.t -> t
 end
 
 
@@ -75,4 +77,5 @@ 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