sig
  type state
  type eval_env
  val env_current_state : eval_env -> state Eval.or_bottom
  val env_annot : pre:state -> here:state -> unit -> eval_env
  val env_pre_f : pre:state -> unit -> eval_env
  val env_post_f :
    pre:state ->
    post:state -> result:Cil_types.varinfo option -> unit -> eval_env
  val eval_predicate : eval_env -> Cil_types.predicate -> Alarmset.status
  val reduce_by_predicate :
    eval_env -> bool -> Cil_types.predicate -> eval_env
  type t = state
  val ty : t Type.t
  val name : string
  val descr : t Descr.t
  val packed_descr : Structural_descr.pack
  val reprs : t list
  val equal : t -> t -> bool
  val compare : t -> t -> int
  val hash : t -> int
  val pretty_code : Format.formatter -> t -> unit
  val internal_pretty_code : Type.precedence -> Format.formatter -> t -> unit
  val pretty : Format.formatter -> t -> unit
  val varname : t -> string
  val mem_project : (Project_skeleton.t -> bool) -> t -> bool
  val copy : t -> t
end