sig
  type 'v truth =
      [ `False | `True | `TrueReduced of '| `Unknown of '| `Unreachable ]
  type bound_kind = Alarms.bound_kind = Lower_bound | Upper_bound
  type bound = Int of Integer.t | Float of float * Cil_types.fkind
  type pointer_comparison = Equality | Relation | Subtraction
  module type S =
    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_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
    end
  type 'v key = 'Structure.Key_Value.key
  module type Leaf =
    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 truth
      val assume_bounded : bound_kind -> bound -> t -> t truth
      val assume_not_nan :
        assume_finite:bool -> Cil_types.fkind -> t -> t truth
      val assume_comparable : pointer_comparison -> t -> t -> (t * t) 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 key : t Abstract_value.key
    end
end