projects
/
tatoo.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* Seal the representation of states
[tatoo.git]
/
src
/
state.mli
diff --git
a/src/state.mli
b/src/state.mli
index
1d25a67
..
8b4420c
100644
(file)
--- a/
src/state.mli
+++ b/
src/state.mli
@@
-14,13
+14,11
@@
(***********************************************************************)
(** Implementation of states *)
(***********************************************************************)
(** 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
(** Dummy state that can never be returned by [make ()] *)
val print : Format.formatter -> t -> unit