let add_goals basename goals (obligs, p) =
let add_named acc (n, p) =
let goal_name = basename^"_"^n in
W.add_goals goal_name acc p
in
let add_id acc (id, p) = add_named acc (WpAnnot.prop_txt id, p) in
let goals = List.fold_left add_id goals p in
let goals = List.fold_left add_named goals obligs in
goals