let pp_goal fmt name g = begin Format.fprintf fmt "@[<v 0>Proof Obligation %a:@]@\n" WpAnnot.pp_id g.g_id ; pp_dnode fmt g.g_descr ; Format.fprintf fmt "@[<v 2>Goal %s:@\n%a@]@." name W.pretty g.g_prop ; end