let add_fct_bhv_assigns_hyp acc kf tkind b = match b.b_assigns with
| WritesAny ->
let id = WpPropId.mk_kf_any_assigns_info () in
add_assigns_any acc Ahyp id
| Writes assigns ->
let id = WpPropId.mk_fct_assigns_id kf b tkind assigns in
match id with
| None ->
let id = WpPropId.mk_kf_any_assigns_info () in
add_assigns_any acc Ahyp id
| Some id ->
let labels = NormAtLabels.labels_fct_assigns in
let assigns' = NormAtLabels.preproc_assigns labels assigns in
let a_desc = WpPropId.mk_kf_assigns_desc assigns' in
add_assigns acc Ahyp id a_desc