X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=finiteCofinite.mli;h=b0dccc828a02d74ee5a0eecc5348fb4c611b2fa2;hb=df5fdb22632be887ecd9f5c46a014e7e970148a2;hp=b48955772a0bdead4ea664bbe3dcfbf927fe3437;hpb=d04661689691b4587cfc45a35e98604fcdc2b878;p=SXSI%2Fxpathcomp.git

diff --git a/finiteCofinite.mli b/finiteCofinite.mli
index b489557..b0dccc8 100644
--- a/finiteCofinite.mli
+++ b/finiteCofinite.mli
@@ -4,6 +4,7 @@ module type S =
   sig
     type elt
     type t
+    type set 
     val empty : t
     val any : t
     val is_empty : t -> bool
@@ -32,7 +33,12 @@ module type S =
     val choose : t -> elt
     val hash : t -> int
     val equal : t -> t -> bool
+    val uid : t -> Uid.t
+    val positive : t -> set
+    val negative : t -> set
+    val inj_positive : set -> t
+    val inj_negative : set -> t
   end
 
-module Make :  functor (E : Sigs.Set) -> S with type elt = E.elt
+module Make :  functor  (E : Ptset.S) -> S with type elt = E.elt and type set = E.t