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