X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=ptset.mli;h=fc95d4e603d73e71259286724b4962e054c435e4;hb=9f227961ae2219728e4cdd56e4d4c4e7165e4306;hp=cfdedae66607e0720d4e701c2264007b571728cc;hpb=b8aa8e7f1036cf00d0fadc75ccbe0264bae6c1b2;p=SXSI%2Fxpathcomp.git

diff --git a/ptset.mli b/ptset.mli
index cfdedae..fc95d4e 100644
--- a/ptset.mli
+++ b/ptset.mli
@@ -63,7 +63,7 @@ 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
@@ -71,5 +71,9 @@ 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