apply Set.ext
α : Sort u_1
β : Sort u_2
γ : ?m.8715
f : α → β
s : Set α
⊢ (s.bind fun x => Set.pure (f x)) = Set.map f s
case a
α : Sort u_1
β : Sort u_2
γ : ?m.8715
f : α → β
s : Set α
⊢ ∀ (x : β), (x ∈ s.bind fun x => Set.pure (f x)) ↔ x ∈ Set.map f s