let add_assigns_goal wenv obj g_assigns = match g_assigns with
| WpPropId.AssignsAny _ | WpPropId.NoAssignsInfo -> obj
| WpPropId.AssignsLocations a ->
debug "add assign goal (@[%s@])@."
(WpPropId.prop_id_name (WpPropId.assigns_info_id a));
W.add_assigns wenv a obj