sig
  type t_prop
  val pretty : Format.formatter -> t_prop -> unit
  val merge : t_prop -> t_prop -> t_prop
  val empty : t_prop
  type t_env
  val new_env : Db_types.kernel_function -> t_env
  val add_axiom :
    WpAnnot.prop_id ->
    string ->
    Cil_types.logic_label list -> Cil_types.predicate Cil_types.named -> unit
  val add_hyp :
    t_env ->
    WpAnnot.prop_id ->
    Cil_types.predicate Cil_types.named -> t_prop -> t_prop
  val add_goal :
    t_env ->
    WpAnnot.prop_id ->
    Cil_types.predicate Cil_types.named -> t_prop -> t_prop
  val add_as_hyp : t_env -> t_prop -> t_prop -> t_prop
  val add_as_goal : t_env -> t_prop -> t_prop -> t_prop
  val add_assigns :
    t_env ->
    WpAnnot.prop_id ->
    Cil_types.logic_label ->
    WpAnnot.a_kind ->
    Cil_types.identified_term Cil_types.assigns list -> t_prop -> t_prop
  val use_assigns :
    t_env ->
    WpAnnot.prop_id ->
    WpAnnot.a_kind ->
    Cil_types.identified_term Cil_types.assigns list -> t_prop -> t_prop
  val assigns_method : unit -> Mcfg.assigns_method
  val label : t_env -> Cil_types.logic_label -> t_prop -> t_prop
  val assign : t_env -> Cil_types.lval -> Cil_types.exp -> t_prop -> t_prop
  val return : t_env -> Cil_types.exp option -> t_prop -> t_prop
  val test : t_env -> Cil_types.exp -> t_prop -> t_prop -> t_prop
  val switch :
    t_env ->
    Cil_types.exp -> (Cil_types.exp list * t_prop) list -> t_prop -> t_prop
  val call_normal :
    t_env ->
    get_pre:(Db_types.kernel_function ->
             (WpAnnot.prop_id * Cil_types.predicate Cil_types.named) list) ->
    get_post:(Db_types.kernel_function ->
              (WpAnnot.prop_id * Cil_types.predicate Cil_types.named) list) ->
    get_assigns:(Db_types.kernel_function ->
                 Cil_types.identified_term Cil_types.assigns list) ->
    Cil_types.stmt ->
    Cil_types.lval option ->
    Cil_types.exp -> Cil_types.exp list -> t_prop -> t_prop
  val call_exit :
    t_env ->
    get_pre:(Db_types.kernel_function ->
             (WpAnnot.prop_id * Cil_types.predicate Cil_types.named) list) ->
    get_exits:(Db_types.kernel_function ->
               (WpAnnot.prop_id * Cil_types.predicate Cil_types.named) list) ->
    get_assigns:(Db_types.kernel_function ->
                 Cil_types.identified_term Cil_types.assigns list) ->
    Cil_types.stmt -> Cil_types.exp -> Cil_types.exp list -> t_prop -> t_prop
  val scope :
    t_env -> Cil_types.varinfo list -> Mcfg.scope -> t_prop -> t_prop
  val build_prop_of_from :
    t_env -> WpAnnot.t_id_pred list -> t_prop -> t_prop
  val close : t_env -> t_prop -> t_prop
  val zip : t_prop -> WpModel.D.F.pred
end