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

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