case intro
α : Type u
β : Type v
ι : Sort w
γ : Type x
a : α
s : Set α
a✝ : Fintype ↑s
⊢ Set.Finite (insert a s)
α : Type u
β : Type v
ι : Sort w
γ : Type x
a : α
s : Set α
hs : Set.Finite s
⊢ Set.Finite (insert a s)
cases hs
no goals
case intro
α : Type u
β : Type v
ι : Sort w
γ : Type x
a : α
s : Set α
a✝ : Fintype ↑s
⊢ Set.Finite (insert a s)
apply toFinite