let pop_instances where =
    match !hint_context with
      | Some instances ->
          hint_context := None ;
          List.filter (fun h -> h#alive) instances
      | None ->
          Wp_parameters.fatal "Hint context mismatch (pop %s)" where