let add_goal wenv obj g =
    let g_id = WpAnnot.id_of_id_pred g in
    let g_pred = WpAnnot.body_of_id_pred g in
        Wp_parameters.debug ~level:3 "add goal (@[%s:@ %a@])@."
          (WpAnnot.prop_txt g_id) !Ast_printer.d_predicate_named g_pred;
        W.add_goal wenv g_id g_pred obj