rw [insert_map] at h
case a.mp
α : Sort u_1
β : Sort u_2
f✝ : Set (α → β)
a : α
s : Set α
y : β
f : α → β
hf : f ∈ f✝
h : y ∈ Set.map f (s.insert a)
⊢ y ∈ (Set.map (fun f => f a) f✝).union (f✝.bind fun f => Set.map f s)
case a.mp
α : 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)
⊢ y ∈ (Set.map (fun f => f a) f✝).union (f✝.bind fun f => Set.map f s)