let add_assigns_hyp  wenv obj h_assigns = match h_assigns with
    | WpPropId.AssignsLocations (h_id, a) ->
        let obj = W.use_assigns wenv (Some h_id) a obj in
          Some (Clabels.c_label a.WpPropId.a_label), obj
    | WpPropId.AssignsAny a ->
        let obj = W.use_assigns wenv None a obj in
          Some (Clabels.c_label a.WpPropId.a_label), obj
    | WpPropId.NoAssignsInfo -> None, obj