sig
  type t
  val empty : keep:bool -> Cil2cfg.t -> Calculus.Cfg.??.t
  val change_mode : Calculus.Cfg.??.-> unit
  val find : Calculus.Cfg.??.-> Cil2cfg.edge -> W.t_prop
  val set :
    WpAnnot.strategy ->
    W.t_env -> Calculus.Cfg.??.-> Cil2cfg.edge -> W.t_prop -> W.t_prop
  val wp_loop :
    Cil2cfg.t ->
    WpAnnot.strategy ->
    Calculus.Cfg.??.->
    Cil2cfg.node ->
    Cil2cfg.edge ->
    (Cil2cfg.node -> W.t_prop) -> (W.t_prop -> W.t_prop) -> W.t_prop
  val add_oblig :
    Calculus.Cfg.??.-> Cil_types.logic_label -> W.t_prop -> unit
end