sig
  module M :
    sig
      type y = L.t
      type t = Lmap_bitwise.Make_bitwise(L).t
      module Datatype :
        sig
          type t = t
          val rehash : t -> t
          val descr : Unmarshal.t
          val copy : t -> t
          val name : string
          val register_comparable :
            ?compare:(t -> t -> int) ->
            ?equal:(t -> t -> bool) ->
            ?hash:(t -> int) -> ?physical_hash:(t -> int) -> unit -> unit
          val is_comparable_set : unit -> bool
          val hash : t -> int
          val physical_hash : t -> int
          val equal : t -> t -> bool
          val compare : t -> t -> int
          val contain_project : (Project.project -> t -> bool) option ref
        end
      module LOffset :
        sig
          type t = Lmap_bitwise.Make_bitwise(L).LOffset.t
          val find_intervs :
            (Abstract_interp.Int.t -> Abstract_interp.Int.t -> y) ->
            Abstract_value.Int_Intervals.t -> t -> y
          val map : (bool * y -> bool * y) -> t -> t
          val fold :
            (Abstract_value.Int_Intervals.t -> bool * y -> '-> 'a) ->
            t -> '-> 'a
          val join : t -> t -> t
          val pretty : Format.formatter -> t -> unit
          val pretty_with_type :
            Cil_types.typ option -> Format.formatter -> t -> unit
          val collapse : t -> y
          val empty : t
          val is_empty : t -> bool
          val add_iset :
            exact:bool -> Abstract_value.Int_Intervals.t -> y -> t -> t
          val equal : t -> t -> bool
          val tag : t -> int
          module Datatype :
            sig
              type t = t
              val rehash : t -> t
              val descr : Unmarshal.t
              val copy : t -> t
              val name : string
              val register_comparable :
                ?compare:(t -> t -> int) ->
                ?equal:(t -> t -> bool) ->
                ?hash:(t -> int) -> ?physical_hash:(t -> int) -> unit -> unit
              val is_comparable_set : unit -> bool
              val hash : t -> int
              val physical_hash : t -> int
              val equal : t -> t -> bool
              val compare : t -> t -> int
              val contain_project : (Project.project -> t -> bool) option ref
            end
        end
      val pretty : Format.formatter -> t -> unit
      val empty : t
      val join : t -> t -> t
      val equal : t -> t -> bool
      val hash : t -> int
      val is_included : t -> t -> bool
      val add_binding : exact:bool -> t -> Locations.Zone.t -> y -> t
      val map_and_merge : (y -> y) -> t -> t -> t
      val filter_base : (Base.t -> bool) -> t -> t
      val find : t -> Locations.Zone.t -> y
      val find_base : t -> Locations.Zone.t -> LOffset.t
      exception Cannot_fold
      val uninitialize_locals : Cil_types.varinfo list -> t -> t
      val fold : (Locations.Zone.t -> bool * y -> '-> 'a) -> t -> '-> 'a
      val fold_base : (Base.t -> LOffset.t -> '-> 'a) -> t -> '-> 'a
      val map2 :
        ((bool * y) option -> (bool * y) option -> bool * y) -> t -> t -> t
      val copy_paste :
        f:(bool * y -> bool * y) ->
        Locations.location -> Locations.location -> t -> t
      exception Zone_unchanged
      val find_or_unchanged : t -> Locations.Zone.t -> y
      val add_binding : t -> Locations.location -> y -> t
    end
  type t = {
    map : Model.Make.State.M.t;
    leaks : Model.Make.Leaks.t;
    subst : Subst.t;
  }
  val pretty : Format.formatter -> Model.Make.State.t -> unit
  val find_zone_status :
    Model.Make.State.t -> Locations.Zone.t -> Model.Make.State.M.y
  val find_loc_status :
    Model.Make.State.t -> Locations.location -> Model.Make.State.M.y
  val find_loc_status_with_deps :
    ?with_deps:bool ->
    Model.Make.State.t -> Locations.location -> Model.Make.L.t1
  type exp_status = Status of S.t | Location of Locations.location
  val pretty_status : Format.formatter -> Model.Make.State.exp_status -> unit
  val last_stmt : Cil_types.stmt Pervasives.ref
  type call = { current_fun : Db_types.kernel_function; deps : S.t; }
  val call_stack : Model.Make.State.call Stack.t
  val reset : unit -> Model.Make.State.t
  val lval_to_loc : Db.Value.state -> Cil_types.lval -> Locations.location
  val status_of_deps : Db.Value.state -> Model.Make.State.t -> S.t
  val join_deps : Db.Value.state -> Model.Make.State.t -> S.t -> S.t
  val find_loc_or_status :
    ?with_deps:bool ->
    Db.Value.state ->
    Model.Make.State.t -> Cil_types.exp -> Model.Make.State.exp_status
  val find_exp_status :
    ?with_deps:bool ->
    Db.Value.state -> Model.Make.State.t -> Cil_types.exp -> Model.Make.L.t1
  val is_included : Model.Make.State.t -> Model.Make.State.t -> bool
  val combine :
    old:Model.Make.State.t -> Model.Make.State.t -> Model.Make.State.t
  val change_loc_status :
    Db.Value.state ->
    Model.Make.State.t ->
    Locations.location -> Model.Make.State.exp_status -> Model.Make.State.t
  val change_lval_status :
    Db.Value.state ->
    Model.Make.State.t ->
    Cil_types.lval -> Model.Make.State.exp_status -> Model.Make.State.t
  val change_lval_exp :
    Db.Value.state ->
    Model.Make.State.t ->
    Cil_types.lval -> Cil_types.exp -> Model.Make.State.t
  val clear_leaks : Model.Make.State.t -> Model.Make.State.t
  val push_call :
    Db.Value.state ->
    Db_types.kernel_function ->
    Cil_types.exp list -> Model.Make.State.t -> Model.Make.State.t
  val pop_call :
    Cil_types.kinstr ->
    Cil_types.fundec ->
    Cil_types.exp list ->
    old:Model.Make.State.t -> Model.Make.State.t -> Model.Make.State.t
  val print_results : Model.Make.State.t -> unit
  val add_leak :
    potential:bool ->
    Model.Make.State.t ->
    Cil_types.kinstr -> Cil_types.exp -> Model.Make.State.t
end