sig   type t = Locations.Zone.t   val self_internal : State.t ref   val self_external : State.t ref   val compute : (Cil_types.kernel_function -> unit) ref   val get_internal : (Cil_types.kernel_function -> t) ref   val get_external : (Cil_types.kernel_function -> t) ref   val display : (Format.formatter -> Cil_types.kernel_function -> unit) ref   val pretty : Format.formatter -> t -> unit   val statement : (Cil_types.stmt -> t) ref   val kinstr : Cil_types.kinstr -> t option   val display_external :     (Format.formatter -> Cil_types.kernel_function -> unit) Pervasives.ref end