Metamath Proof Explorer


Theorem blfvalps

Description: The value of the ball function. (Contributed by NM, 30-Aug-2006) (Revised by Mario Carneiro, 11-Nov-2013) (Revised by Thierry Arnoux, 11-Feb-2018)

Ref Expression
Assertion blfvalps DPsMetXballD=xX,r*yX|xDy<r

Proof

Step Hyp Ref Expression
1 df-bl ball=dVxdomdomd,r*ydomdomd|xdy<r
2 dmeq d=Ddomd=domD
3 2 dmeqd d=Ddomdomd=domdomD
4 psmetdmdm DPsMetXX=domdomD
5 4 eqcomd DPsMetXdomdomD=X
6 3 5 sylan9eqr DPsMetXd=Ddomdomd=X
7 eqidd DPsMetXd=D*=*
8 simpr DPsMetXd=Dd=D
9 8 oveqd DPsMetXd=Dxdy=xDy
10 9 breq1d DPsMetXd=Dxdy<rxDy<r
11 6 10 rabeqbidv DPsMetXd=Dydomdomd|xdy<r=yX|xDy<r
12 6 7 11 mpoeq123dv DPsMetXd=Dxdomdomd,r*ydomdomd|xdy<r=xX,r*yX|xDy<r
13 elex DPsMetXDV
14 ssrab2 yX|xDy<rX
15 elfvdm DPsMetXXdomPsMet
16 15 adantr DPsMetXxXr*XdomPsMet
17 elpw2g XdomPsMetyX|xDy<r𝒫XyX|xDy<rX
18 16 17 syl DPsMetXxXr*yX|xDy<r𝒫XyX|xDy<rX
19 14 18 mpbiri DPsMetXxXr*yX|xDy<r𝒫X
20 19 ralrimivva DPsMetXxXr*yX|xDy<r𝒫X
21 eqid xX,r*yX|xDy<r=xX,r*yX|xDy<r
22 21 fmpo xXr*yX|xDy<r𝒫XxX,r*yX|xDy<r:X×*𝒫X
23 20 22 sylib DPsMetXxX,r*yX|xDy<r:X×*𝒫X
24 xrex *V
25 xpexg XdomPsMet*VX×*V
26 15 24 25 sylancl DPsMetXX×*V
27 15 pwexd DPsMetX𝒫XV
28 fex2 xX,r*yX|xDy<r:X×*𝒫XX×*V𝒫XVxX,r*yX|xDy<rV
29 23 26 27 28 syl3anc DPsMetXxX,r*yX|xDy<rV
30 1 12 13 29 fvmptd2 DPsMetXballD=xX,r*yX|xDy<r