repeat refine' le_trans (card_insert_le _ _) (succ_le_succ _)
p : ℕ
hpri : Fact p.Prime
hp5 : 5 ≤ p
a b : ℤ
k₁ k₂ : Fin p
h0 : 0 < p
h1 : 1 < p
s : Finset ℕ := {0, 1, ↑k₁, ↑k₂}
⊢ s.card ≤ 4
p : ℕ
hpri : Fact p.Prime
hp5 : 5 ≤ p
a b : ℤ
k₁ k₂ : Fin p
h0 : 0 < p
h1 : 1 < p
s : Finset ℕ := {0, 1, ↑k₁, ↑k₂}
⊢ {↑k₂}.card ≤ 1