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