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