sig
  type t
  val empty : Cil2cfg.t -> Calculus.Cfg.??.t
  val is_pass1 : Calculus.Cfg.??.-> bool
  val change_mode_if_needed : Calculus.Cfg.??.-> unit
  val find : Calculus.Cfg.??.-> Cil2cfg.edge -> W.t_prop
  val set :
    WpStrategy.strategy ->
    W.t_env -> Calculus.Cfg.??.-> Cil2cfg.edge -> W.t_prop -> W.t_prop
  val add_oblig : Calculus.Cfg.??.-> Clabels.c_label -> W.t_prop -> unit
  val add_memo : Calculus.Cfg.??.-> Cil2cfg.edge -> W.t_prop -> unit
end