sig
  type 'a key = 'Structure.Key_Value.key
  val create_key : string -> 'a key
  val eq_type : 'a key -> 'b key -> ('a, 'b) Structure.eq option
  val print : 'a key Pretty_utils.formatter
  val compare : 'a key -> 'b key -> int
  val equal : 'a key -> 'b key -> bool
  val hash : 'a key -> int
  val tag : 'a key -> int
  type 'a data = (module Abstract_value.S with type t = 'a)
  type 'a structure =
      Unit : unit structure
    | Void : 'a structure
    | Leaf : 'a key * 'a data -> 'a structure
    | Node : 'a structure * 'b structure -> ('a * 'b) structure
    | Option : 'a structure * '-> 'a option structure
  val eq_structure :
    'a structure -> 'b structure -> ('a, 'b) Structure.eq option
  module type Internal =
    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
      val pretty_typ : Cil_types.typ option -> t Pretty_utils.formatter
      val top : t
      val is_included : t -> t -> bool
      val join : t -> t -> t
      val narrow : t -> t -> t Eval.or_bottom
      val zero : t
      val one : t
      val top_int : t
      val inject_int : Cil_types.typ -> Integer.t -> t
      val assume_non_zero : t -> t Abstract_value.truth
      val assume_bounded :
        Abstract_value.bound_kind ->
        Abstract_value.bound -> t -> t Abstract_value.truth
      val assume_not_nan :
        assume_finite:bool -> Cil_types.fkind -> t -> t Abstract_value.truth
      val assume_pointer : t -> t Abstract_value.truth
      val assume_comparable :
        Abstract_value.pointer_comparison ->
        t -> t -> (t * t) Abstract_value.truth
      val constant : Cil_types.exp -> Cil_types.constant -> t
      val forward_unop :
        Cil_types.typ -> Cil_types.unop -> t -> t Eval.or_bottom
      val forward_binop :
        Cil_types.typ -> Cil_types.binop -> t -> t -> t Eval.or_bottom
      val rewrap_integer : Eval_typ.integer_range -> t -> t
      val forward_cast :
        src_type:Eval_typ.scalar_typ ->
        dst_type:Eval_typ.scalar_typ -> t -> t Eval.or_bottom
      val backward_binop :
        input_type:Cil_types.typ ->
        resulting_type:Cil_types.typ ->
        Cil_types.binop ->
        left:t -> right:t -> result:t -> (t option * t option) Eval.or_bottom
      val backward_unop :
        typ_arg:Cil_types.typ ->
        Cil_types.unop -> arg:t -> res:t -> t option Eval.or_bottom
      val backward_cast :
        src_typ:Cil_types.typ ->
        dst_typ:Cil_types.typ ->
        src_val:t -> dst_val:t -> t option Eval.or_bottom
      val resolve_functions : t -> Kernel_function.t list Eval.or_top * bool
      val replace_base : Base.substitution -> t -> t
      val structure : t structure
    end
  module type External =
    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
      val pretty_typ : Cil_types.typ option -> t Pretty_utils.formatter
      val top : t
      val is_included : t -> t -> bool
      val join : t -> t -> t
      val narrow : t -> t -> t Eval.or_bottom
      val zero : t
      val one : t
      val top_int : t
      val inject_int : Cil_types.typ -> Integer.t -> t
      val assume_non_zero : t -> t Abstract_value.truth
      val assume_bounded :
        Abstract_value.bound_kind ->
        Abstract_value.bound -> t -> t Abstract_value.truth
      val assume_not_nan :
        assume_finite:bool -> Cil_types.fkind -> t -> t Abstract_value.truth
      val assume_pointer : t -> t Abstract_value.truth
      val assume_comparable :
        Abstract_value.pointer_comparison ->
        t -> t -> (t * t) Abstract_value.truth
      val constant : Cil_types.exp -> Cil_types.constant -> t
      val forward_unop :
        Cil_types.typ -> Cil_types.unop -> t -> t Eval.or_bottom
      val forward_binop :
        Cil_types.typ -> Cil_types.binop -> t -> t -> t Eval.or_bottom
      val rewrap_integer : Eval_typ.integer_range -> t -> t
      val forward_cast :
        src_type:Eval_typ.scalar_typ ->
        dst_type:Eval_typ.scalar_typ -> t -> t Eval.or_bottom
      val backward_binop :
        input_type:Cil_types.typ ->
        resulting_type:Cil_types.typ ->
        Cil_types.binop ->
        left:t -> right:t -> result:t -> (t option * t option) Eval.or_bottom
      val backward_unop :
        typ_arg:Cil_types.typ ->
        Cil_types.unop -> arg:t -> res:t -> t option Eval.or_bottom
      val backward_cast :
        src_typ:Cil_types.typ ->
        dst_typ:Cil_types.typ ->
        src_val:t -> dst_val:t -> t option Eval.or_bottom
      val resolve_functions : t -> Kernel_function.t list Eval.or_top * bool
      val replace_base : Base.substitution -> t -> t
      val structure : t structure
      val mem : 'a key -> bool
      val get : 'a key -> (t -> 'a) option
      val set : 'a key -> '-> t -> t
    end
end