let push_instances where instances = match !hint_context with | None -> hint_context := Some instances | Some _ -> Wp_parameters.fatal "Hint context mismatch (push %s)" where