cases h
α : Sort u_1
β : Sort u_2
f✝ : Set (α → β)
a : α
s : Set α
y : β
f : α → β
hf : f ∈ f✝
h✝ : y ∈ (Set.map f s).insert (f a)
h : y ∈ Set.pure (f a)
⊢ y ∈ (Set.map (fun f => f a) f✝).union (f✝.bind fun f => Set.map f s)
case refl
α : Sort u_1
β : Sort u_2
f✝ : Set (α → β)
a : α
s : Set α
f : α → β
hf : f ∈ f✝
h : f a ∈ (Set.map f s).insert (f a)
⊢ f a ∈ (Set.map (fun f => f a) f✝).union (f✝.bind fun f => Set.map f s)