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