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