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

diff --git a/src/state.mli b/src/state.mli
index 1d25a67..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 Common_sig.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