let call_normal wenv ~get_pre ~get_post ~get_assigns stmt lv e args goals =
let wp =
W.call_normal wenv ~get_pre ~get_post ~get_assigns
stmt lv e args in
let f p () = wp p in
List.map (fun g -> make_goal g.g_id (f g.g_prop) [g.g_descr]) goals