intro ⟨_, ⟨rfl, hp⟩, h⟩
case a.mp
α : Sort u_2
β : Sort u_1
γ : ?m.6883
a : α
p : Prop
f : α → Set β
y : β
⊢ y ∈ (Set.pureIf a p).bind f → y ∈ (f a).inter (Set.const p)
case a.mp
α : Sort u_2
β : Sort u_1
γ : ?m.6883
a : α
p : Prop
f : α → Set β
y : β
hp : p
h : y ∈ f a
⊢ y ∈ (f a).inter (Set.const p)