Metamath Proof Explorer


Theorem prdsdsval2

Description: Value of the metric in a structure product. (Contributed by Mario Carneiro, 20-Aug-2015)

Ref Expression
Hypotheses prdsbasmpt2.y Y=S𝑠xIR
prdsbasmpt2.b B=BaseY
prdsbasmpt2.s φSV
prdsbasmpt2.i φIW
prdsbasmpt2.r φxIRX
prdsdsval2.f φFB
prdsdsval2.g φGB
prdsdsval2.e E=distR
prdsdsval2.d D=distY
Assertion prdsdsval2 φFDG=supranxIFxEGx0*<

Proof

Step Hyp Ref Expression
1 prdsbasmpt2.y Y=S𝑠xIR
2 prdsbasmpt2.b B=BaseY
3 prdsbasmpt2.s φSV
4 prdsbasmpt2.i φIW
5 prdsbasmpt2.r φxIRX
6 prdsdsval2.f φFB
7 prdsdsval2.g φGB
8 prdsdsval2.e E=distR
9 prdsdsval2.d D=distY
10 eqid xIR=xIR
11 10 fnmpt xIRXxIRFnI
12 5 11 syl φxIRFnI
13 1 2 3 4 12 6 7 9 prdsdsval φFDG=supranyIFydistxIRyGy0*<
14 nfcv _xFy
15 nfcv _xdist
16 nffvmpt1 _xxIRy
17 15 16 nffv _xdistxIRy
18 nfcv _xGy
19 14 17 18 nfov _xFydistxIRyGy
20 nfcv _yFxdistxIRxGx
21 2fveq3 y=xdistxIRy=distxIRx
22 fveq2 y=xFy=Fx
23 fveq2 y=xGy=Gx
24 21 22 23 oveq123d y=xFydistxIRyGy=FxdistxIRxGx
25 19 20 24 cbvmpt yIFydistxIRyGy=xIFxdistxIRxGx
26 eqidd φI=I
27 10 fvmpt2 xIRXxIRx=R
28 27 fveq2d xIRXdistxIRx=distR
29 28 8 eqtr4di xIRXdistxIRx=E
30 29 oveqd xIRXFxdistxIRxGx=FxEGx
31 30 ralimiaa xIRXxIFxdistxIRxGx=FxEGx
32 5 31 syl φxIFxdistxIRxGx=FxEGx
33 mpteq12 I=IxIFxdistxIRxGx=FxEGxxIFxdistxIRxGx=xIFxEGx
34 26 32 33 syl2anc φxIFxdistxIRxGx=xIFxEGx
35 25 34 eqtrid φyIFydistxIRyGy=xIFxEGx
36 35 rneqd φranyIFydistxIRyGy=ranxIFxEGx
37 36 uneq1d φranyIFydistxIRyGy0=ranxIFxEGx0
38 37 supeq1d φsupranyIFydistxIRyGy0*<=supranxIFxEGx0*<
39 13 38 eqtrd φFDG=supranxIFxEGx0*<