Metamath Proof Explorer


Theorem ucnima

Description: An equivalent statement of the definition of uniformly continuous function. (Contributed by Thierry Arnoux, 19-Nov-2017)

Ref Expression
Hypotheses ucnprima.1 φUUnifOnX
ucnprima.2 φVUnifOnY
ucnprima.3 φFUuCnV
ucnprima.4 φWV
ucnprima.5 G=xX,yXFxFy
Assertion ucnima φrUGrW

Proof

Step Hyp Ref Expression
1 ucnprima.1 φUUnifOnX
2 ucnprima.2 φVUnifOnY
3 ucnprima.3 φFUuCnV
4 ucnprima.4 φWV
5 ucnprima.5 G=xX,yXFxFy
6 breq w=WFxwFyFxWFy
7 6 imbi2d w=WxryFxwFyxryFxWFy
8 7 ralbidv w=WyXxryFxwFyyXxryFxWFy
9 8 rexralbidv w=WrUxXyXxryFxwFyrUxXyXxryFxWFy
10 isucn UUnifOnXVUnifOnYFUuCnVF:XYwVrUxXyXxryFxwFy
11 1 2 10 syl2anc φFUuCnVF:XYwVrUxXyXxryFxwFy
12 3 11 mpbid φF:XYwVrUxXyXxryFxwFy
13 12 simprd φwVrUxXyXxryFxwFy
14 9 13 4 rspcdva φrUxXyXxryFxWFy
15 simplll φrUxXyXxryFxWFyprφ
16 simplr φrUxXyXxryFxWFyprxXyXxryFxWFy
17 ustssxp UUnifOnXrUrX×X
18 1 17 sylan φrUrX×X
19 18 sselda φrUprpX×X
20 19 adantlr φrUxXyXxryFxWFyprpX×X
21 simpr φrUxXyXxryFxWFyprpr
22 simplr φxXyXxryFxWFypX×XxXyXxryFxWFy
23 simpr φpX×XpX×X
24 elxp2 pX×XxXyXp=xy
25 23 24 sylib φpX×XxXyXp=xy
26 simpr φp=xyp=xy
27 26 eleq1d φp=xyprxyr
28 27 adantlr φpX×Xp=xyprxyr
29 df-br xryxyr
30 28 29 bitr4di φpX×Xp=xyprxry
31 simplr φpX×Xp=xypX×X
32 opex F1stpF2ndpV
33 1 2 3 4 5 ucnimalem G=pX×XF1stpF2ndp
34 33 fvmpt2 pX×XF1stpF2ndpVGp=F1stpF2ndp
35 31 32 34 sylancl φpX×Xp=xyGp=F1stpF2ndp
36 simpr φpX×Xp=xyp=xy
37 1st2nd2 pX×Xp=1stp2ndp
38 31 37 syl φpX×Xp=xyp=1stp2ndp
39 36 38 eqtr3d φpX×Xp=xyxy=1stp2ndp
40 vex xV
41 vex yV
42 40 41 opth xy=1stp2ndpx=1stpy=2ndp
43 39 42 sylib φpX×Xp=xyx=1stpy=2ndp
44 43 simpld φpX×Xp=xyx=1stp
45 44 fveq2d φpX×Xp=xyFx=F1stp
46 43 simprd φpX×Xp=xyy=2ndp
47 46 fveq2d φpX×Xp=xyFy=F2ndp
48 45 47 opeq12d φpX×Xp=xyFxFy=F1stpF2ndp
49 35 48 eqtr4d φpX×Xp=xyGp=FxFy
50 49 eleq1d φpX×Xp=xyGpWFxFyW
51 df-br FxWFyFxFyW
52 50 51 bitr4di φpX×Xp=xyGpWFxWFy
53 30 52 imbi12d φpX×Xp=xyprGpWxryFxWFy
54 53 exbiri φpX×Xp=xyxryFxWFyprGpW
55 54 reximdv φpX×XyXp=xyyXxryFxWFyprGpW
56 55 reximdv φpX×XxXyXp=xyxXyXxryFxWFyprGpW
57 25 56 mpd φpX×XxXyXxryFxWFyprGpW
58 57 adantlr φxXyXxryFxWFypX×XxXyXxryFxWFyprGpW
59 22 58 r19.29d2r φxXyXxryFxWFypX×XxXyXxryFxWFyxryFxWFyprGpW
60 pm3.35 xryFxWFyxryFxWFyprGpWprGpW
61 60 rexlimivw yXxryFxWFyxryFxWFyprGpWprGpW
62 61 rexlimivw xXyXxryFxWFyxryFxWFyprGpWprGpW
63 59 62 syl φxXyXxryFxWFypX×XprGpW
64 63 imp φxXyXxryFxWFypX×XprGpW
65 15 16 20 21 64 syl1111anc φrUxXyXxryFxWFyprGpW
66 65 ralrimiva φrUxXyXxryFxWFyprGpW
67 66 ex φrUxXyXxryFxWFyprGpW
68 67 reximdva φrUxXyXxryFxWFyrUprGpW
69 14 68 mpd φrUprGpW
70 5 mpofun FunG
71 opex FxFyV
72 5 71 dmmpo domG=X×X
73 18 72 sseqtrrdi φrUrdomG
74 funimass4 FunGrdomGGrWprGpW
75 70 73 74 sylancr φrUGrWprGpW
76 75 biimprd φrUprGpWGrW
77 76 ralrimiva φrUprGpWGrW
78 r19.29r rUprGpWrUprGpWGrWrUprGpWprGpWGrW
79 69 77 78 syl2anc φrUprGpWprGpWGrW
80 pm3.35 prGpWprGpWGrWGrW
81 80 reximi rUprGpWprGpWGrWrUGrW
82 79 81 syl φrUGrW