sig
  type t
  exception Unchanged
  val pretty : Format.formatter -> State_imp.t -> unit
  val add : Cvalue.Model.t -> State_imp.t -> unit
  val fold : (Cvalue.Model.t -> '-> 'a) -> State_imp.t -> '-> 'a
  val iter : (Cvalue.Model.t -> unit) -> State_imp.t -> unit
  val merge_into : State_imp.t -> State_imp.t -> unit
  val merge_set_into : State_set.t -> State_imp.t -> unit
  val merge_set_return_new : State_set.t -> State_imp.t -> State_set.t
  val join : State_imp.t -> Cvalue.Model.t
  val join_dropping_relations : State_imp.t -> Cvalue.Model.t
  val exists : (Cvalue.Model.t -> bool) -> State_imp.t -> bool
  val is_empty : State_imp.t -> bool
  val length : State_imp.t -> int
  val empty : unit -> State_imp.t
  val singleton : Cvalue.Model.t -> State_imp.t
  val to_set : State_imp.t -> State_set.t
end