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