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