obtain ⟨t, hts, hcard⟩ := exists_subset_encard_eq h
case refine_2
α : Type u_1
β : Type u_2
s t : Set α
n : ℕ
h : ↑n ≤ s.encard
⊢ Nonempty (Fin n ↪ ↑s)
case refine_2.intro.intro
α : Type u_1
β : Type u_2
s t✝ : Set α
n : ℕ
h : ↑n ≤ s.encard
t : Set α
hts : t ⊆ s
hcard : t.encard = ↑n
⊢ Nonempty (Fin n ↪ ↑s)