Let X, d, x, r and y be given.
Assume Hy: y open_ball X d x r.
An exact proof term for the current goal is (SepE2 X (λy0 : setRlt (apply_fun d (x,y0)) r) y Hy).