let add_stmt_spec_assigns_hyp acc kf s l_post spec =
match assigns_upper_bound spec with
| None ->
add_assigns_any acc Ahyp
(WpPropId.mk_stmt_any_assigns_info s)
| Some(bhv, assigns) ->
let id = WpPropId.mk_stmt_assigns_id kf s bhv assigns in
match id with
| None -> add_assigns_any acc Ahyp
(WpPropId.mk_stmt_any_assigns_info s)
| Some id ->
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
add_assigns acc Ahyp id a_desc