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