Metamath Proof Explorer


Theorem cstucnd

Description: A constant function is uniformly continuous. Deduction form. Example 1 of BourbakiTop1 p. II.6. (Contributed by Thierry Arnoux, 16-Nov-2017)

Ref Expression
Hypotheses cstucnd.1 φUUnifOnX
cstucnd.2 φVUnifOnY
cstucnd.3 φAY
Assertion cstucnd φX×AUuCnV

Proof

Step Hyp Ref Expression
1 cstucnd.1 φUUnifOnX
2 cstucnd.2 φVUnifOnY
3 cstucnd.3 φAY
4 fconst6g AYX×A:XY
5 3 4 syl φX×A:XY
6 1 adantr φsVUUnifOnX
7 ustne0 UUnifOnXU
8 6 7 syl φsVU
9 2 ad3antrrr φsVrUxXyXVUnifOnY
10 simpllr φsVrUxXyXsV
11 3 ad3antrrr φsVrUxXyXAY
12 ustref VUnifOnYsVAYAsA
13 9 10 11 12 syl3anc φsVrUxXyXAsA
14 simprl φsVrUxXyXxX
15 fvconst2g AYxXX×Ax=A
16 11 14 15 syl2anc φsVrUxXyXX×Ax=A
17 simprr φsVrUxXyXyX
18 fvconst2g AYyXX×Ay=A
19 11 17 18 syl2anc φsVrUxXyXX×Ay=A
20 13 16 19 3brtr4d φsVrUxXyXX×AxsX×Ay
21 20 a1d φsVrUxXyXxryX×AxsX×Ay
22 21 ralrimivva φsVrUxXyXxryX×AxsX×Ay
23 22 reximdva0 φsVUrUxXyXxryX×AxsX×Ay
24 8 23 mpdan φsVrUxXyXxryX×AxsX×Ay
25 24 ralrimiva φsVrUxXyXxryX×AxsX×Ay
26 isucn UUnifOnXVUnifOnYX×AUuCnVX×A:XYsVrUxXyXxryX×AxsX×Ay
27 1 2 26 syl2anc φX×AUuCnVX×A:XYsVrUxXyXxryX×AxsX×Ay
28 5 25 27 mpbir2and φX×AUuCnV