let add_goal kf env g_id g_pred (obligs, p) = 
    let new_goal = W.add_goal kf env g_id g_pred  W.ptrue in
      (*
    let rec mk_name l = match l with [] -> ""
      | n::[] -> n
      | n::tl -> n^"_"^(mk_name tl)
    in
    let new_goal = (mk_name g.name, new_goal) in
    *)

    let new_goal = (g_id, new_goal) in
    (obligs, new_goal::p)