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