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