X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Fstate.mli;h=8b4420c33e484f14a038f498681a5a5ebffb03ac;hp=8c126be9e99205feeabca181323e9bc0016edc81;hb=4f265eb7d78b740292b5543d94f9f0fa40d206d5;hpb=f5d90fb688bc1a9b29815fc33c369856e6c51a67

diff --git a/src/state.mli b/src/state.mli
index 8c126be..8b4420c 100644
--- a/src/state.mli
+++ b/src/state.mli
@@ -14,13 +14,11 @@
 (***********************************************************************)
 
 (** Implementation of states *)
+include module type of Hcons.PosInt
+include Common_sig.OrderedType with type t := t
 
-include Sigs.AUX.Type with type t = int
-
-val make : unit -> t
-(** Generate a fresh state *)
-
-val dummy : t
+val next : unit -> t
+val dummy_state : t
 (** Dummy state that can never be returned by [make ()] *)
 
 val print : Format.formatter -> t -> unit