run_tac do
  for i in [317, 163, 83, 43, 23, 13, 7, 5, 3, 2] do
    let i : Term := quote i
    evalTactic <| ←
      `(tactic| refine' exists_prime_lt_and_le_two_mul_succ $i (by norm_num1) (by norm_num1) _)
case inr
n : ℕ
hn0 : n ≠ 0
⊢ n < 521 → ∃ p, p.Prime ∧ n < p ∧ p ≤ 2 * n
case inr
n : ℕ
hn0 : n ≠ 0
⊢ n < 2 → ∃ p, p.Prime ∧ n < p ∧ p ≤ 2 * n