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