sig
  val compute : (unit -> unit) Pervasives.ref
  val is_computed : (unit -> bool) Pervasives.ref
  val annotate_kf : (Db_types.kernel_function -> unit) Pervasives.ref
  val is_computed_kf : (Db_types.kernel_function -> bool) Pervasives.ref
  val self : State.t Pervasives.ref
  val do_precond : (Db_types.kernel_function -> unit) Pervasives.ref
  val do_all_rte : (Db_types.kernel_function -> unit) Pervasives.ref
  val get_all_status :
    (unit ->
     (State.t * (Db_types.kernel_function -> State.t) *
      (Db_types.kernel_function -> bool))
     list)
    Pervasives.ref
  val get_precond_status :
    (unit ->
     State.t * (Db_types.kernel_function -> State.t) *
     (Db_types.kernel_function -> bool))
    Pervasives.ref
  val get_signedOv_status :
    (unit ->
     State.t * (Db_types.kernel_function -> State.t) *
     (Db_types.kernel_function -> bool))
    Pervasives.ref
  val get_divMod_status :
    (unit ->
     State.t * (Db_types.kernel_function -> State.t) *
     (Db_types.kernel_function -> bool))
    Pervasives.ref
  val get_downCast_status :
    (unit ->
     State.t * (Db_types.kernel_function -> State.t) *
     (Db_types.kernel_function -> bool))
    Pervasives.ref
  val get_memAccess_status :
    (unit ->
     State.t * (Db_types.kernel_function -> State.t) *
     (Db_types.kernel_function -> bool))
    Pervasives.ref
  val get_unsignedOv_status :
    (unit ->
     State.t * (Db_types.kernel_function -> State.t) *
     (Db_types.kernel_function -> bool))
    Pervasives.ref
end