Stateid
val initial : t
val dummy : t
val fresh : unit -> t
val to_string : t -> string
val of_int : int -> t
val to_int : t -> int
val add : Exninfo.info -> valid:t -> t -> Exninfo.info
val get : Exninfo.info -> (t * t) option
val is_valid : doc:int -> t -> bool
val set_is_valid : (doc:int -> t -> bool) -> unit