sig
  val model_name : string
  type t_prop
  val pretty : Format.formatter -> Toprop.T_for_Cfg.t_prop -> unit
  val ptrue : Toprop.T_for_Cfg.t_prop
  type t_env
  val new_env : unit -> Toprop.T_for_Cfg.t_env
  val process_at_vars :
    Toprop.T_for_Cfg.t_env ->
    Cil_types.logic_label ->
    Toprop.T_for_Cfg.t_prop -> Toprop.T_for_Cfg.t_prop
  val quantify_at_vars :
    Toprop.T_for_Cfg.t_env ->
    Cil_types.logic_label ->
    Toprop.T_for_Cfg.t_prop -> Toprop.T_for_Cfg.t_prop
  val add_hyp :
    Db_types.kernel_function ->
    Toprop.T_for_Cfg.t_env ->
    WpAnnot.prop_kind ->
    Cil_types.predicate Cil_types.named ->
    Toprop.T_for_Cfg.t_prop -> Toprop.T_for_Cfg.t_prop
  val add_goal :
    Db_types.kernel_function ->
    Toprop.T_for_Cfg.t_env ->
    WpAnnot.prop_kind ->
    Cil_types.predicate Cil_types.named ->
    Toprop.T_for_Cfg.t_prop -> Toprop.T_for_Cfg.t_prop
  val assign :
    Cil_types.lval ->
    Cil_types.exp -> Toprop.T_for_Cfg.t_prop -> Toprop.T_for_Cfg.t_prop
  val return :
    Db_types.kernel_function ->
    Cil_types.exp option ->
    Toprop.T_for_Cfg.t_prop -> Toprop.T_for_Cfg.t_prop
  val test :
    Cil_types.exp ->
    Toprop.T_for_Cfg.t_prop ->
    Toprop.T_for_Cfg.t_prop -> Toprop.T_for_Cfg.t_prop
  val call :
    (Db_types.kernel_function ->
     Cil_types.predicate Cil_types.named list *
     Cil_types.predicate Cil_types.named list *
     Cil_types.identified_term Cil_types.assigns list) ->
    Cil_types.lval option ->
    Cil_types.exp ->
    Cil_types.exp list -> Toprop.T_for_Cfg.t_prop -> Toprop.T_for_Cfg.t_prop
  val wp_loop :
    string ->
    Cil_types.identified_term Cil_types.assigns list ->
    Toprop.T_for_Cfg.t_prop -> Toprop.T_for_Cfg.t_prop
  val quantif_locals :
    Db_types.kernel_function ->
    Toprop.T_for_Cfg.t_prop -> Toprop.T_for_Cfg.t_prop
  val close :
    Db_types.kernel_function ->
    Toprop.T_for_Cfg.t_env ->
    Toprop.T_for_Cfg.t_prop -> Toprop.T_for_Cfg.t_prop
  val add_goals :
    string -> Fol.decl list -> Toprop.T_for_Cfg.t_prop -> Fol.decl list
  val add_glob_decls : Fol.decl list -> Fol.decl list
end