let add_stmt_assigns_goal config s acc b l_post = match b.b_assigns with
| WritesAny -> acc
| Writes assigns ->
let id = WpPropId.mk_stmt_assigns_id config.kf s b assigns in
match id with
| None -> acc
| Some id ->
if goal_to_select config id then
let labels = NormAtLabels.labels_stmt_assigns s l_post in
let assigns = NormAtLabels.preproc_assigns labels assigns in
let a_desc = WpPropId.mk_stmt_assigns_desc s assigns in
WpStrategy.add_assigns acc WpStrategy.Agoal id a_desc
else acc