sig
  type t
  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
  type key
  type data
  val create : int -> t
  val add :
    t -> string -> Dashtbl.S.key -> State.t list -> Dashtbl.S.data -> unit
  val replace :
    reset:bool ->
    t -> string -> Dashtbl.S.key -> State.t list -> Dashtbl.S.data -> unit
  val memo :
    reset:bool ->
    (Dashtbl.S.data list -> Dashtbl.S.data) ->
    t -> string -> Dashtbl.S.key -> State.t list -> Dashtbl.S.data
  val clear : reset:bool -> t -> unit
  val remove : reset:bool -> t -> Dashtbl.S.key -> State.t -> unit
  val remove_all : reset:bool -> t -> Dashtbl.S.key -> unit
  val filter :
    reset:bool ->
    (Dashtbl.S.key -> State.t option -> Dashtbl.S.data -> bool) ->
    t -> Dashtbl.S.key -> unit
  val mem : t -> Dashtbl.S.key -> bool
  val is_local : t -> State.t -> bool
  val find :
    ?who:State.t list ->
    t -> Dashtbl.S.key -> State.t -> Dashtbl.S.data * State.t
  val find_key : t -> State.t -> (Dashtbl.S.key * State.t) list
  val find_data :
    ?who:State.t list -> t -> Dashtbl.S.key -> State.t -> Dashtbl.S.data
  val find_state :
    ?who:State.t list -> t -> Dashtbl.S.key -> State.t -> State.t
  val find_all_local :
    ?who:State.t list ->
    t -> Dashtbl.S.key -> State.t -> (Dashtbl.S.data * State.t) list
  val find_all_local_data :
    ?who:State.t list -> t -> Dashtbl.S.key -> State.t -> Dashtbl.S.data list
  val find_all_local_states :
    ?who:State.t list -> t -> Dashtbl.S.key -> State.t -> State.t list
  val find_all :
    ?who:State.t list ->
    t -> Dashtbl.S.key -> (Dashtbl.S.data * State.t) list
  val find_all_data :
    ?who:State.t list -> t -> Dashtbl.S.key -> Dashtbl.S.data list
  val find_all_states :
    ?who:State.t list -> t -> Dashtbl.S.key -> State.t list
  val iter :
    (Dashtbl.S.key -> State.t option -> Dashtbl.S.data * State.t -> unit) ->
    t -> unit
  val iter_key :
    (State.t option -> Dashtbl.S.data * State.t -> unit) ->
    t -> Dashtbl.S.key -> unit
  val fold :
    (Dashtbl.S.key -> State.t option -> Dashtbl.S.data * State.t -> '-> 'a) ->
    t -> '-> 'a
  val fold_key :
    (State.t option -> Dashtbl.S.data * State.t -> '-> 'a) ->
    t -> Dashtbl.S.key -> '-> 'a
  val length : t -> int
  type marshaled
  val marshaler : (t -> Dashtbl.S.marshaled) * (Dashtbl.S.marshaled -> t)
end