have := mem_singleton.mp h
case a.mpr.inr
α : Type u_1
inst✝¹ : Fintype α
inst✝ : DecidableEq α
B : Finset α
v : α
A : Finset α
hB : B ⊆ A
hv : v ∈ B
a : α
h : a ∈ {v}
h' : a ∈ A → a ≠ v ∧ a ∈ B
ha : v ∈ A
⊢ False
case a.mpr.inr
α : Type u_1
inst✝¹ : Fintype α
inst✝ : DecidableEq α
B : Finset α
v : α
A : Finset α
hB : B ⊆ A
hv : v ∈ B
a : α
h : a ∈ {v}
h' : a ∈ A → a ≠ v ∧ a ∈ B
ha : v ∈ A
this : a = v
⊢ False