(***********************************************************************)
(*
- Time-stamp: <Last modified on 2013-01-30 19:07:11 CET by Kim Nguyen>
+ Time-stamp: <Last modified on 2013-03-04 23:02:21 CET by Kim Nguyen>
*)
(** Implementation of states *)
-include Sigs.AUX.Type with type t = int
+include Common_sig.Type with type t = int
val make : unit -> t
(** Generate a fresh state *)