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)