intro a ha
case mp.left
α : Type u_2
inst✝³ : LogicalConnective α
inst✝² : DecidableEq α
F : Type u_1
inst✝¹ : FunLike F α Prop
inst✝ : LogicalConnective.HomClass F α Prop
f : F
s₁ s₂ : Finset α
h : ∀ (a : α), a ∈ s₁ ∨ a ∈ s₂ → f a
⊢ ∀ a ∈ s₁, f a
case mp.left
α : Type u_2
inst✝³ : LogicalConnective α
inst✝² : DecidableEq α
F : Type u_1
inst✝¹ : FunLike F α Prop
inst✝ : LogicalConnective.HomClass F α Prop
f : F
s₁ s₂ : Finset α
h : ∀ (a : α), a ∈ s₁ ∨ a ∈ s₂ → f a
a : α
ha : a ∈ s₁
⊢ f a