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 φ U UnifOn X
cstucnd.2 φ V UnifOn Y
cstucnd.3 φ A Y
Assertion cstucnd φ X × A U uCn V

Proof

Step Hyp Ref Expression
1 cstucnd.1 φ U UnifOn X
2 cstucnd.2 φ V UnifOn Y
3 cstucnd.3 φ A Y
4 fconst6g A Y X × A : X Y
5 3 4 syl φ X × A : X Y
6 1 adantr φ s V U UnifOn X
7 ustne0 U UnifOn X U
8 6 7 syl φ s V U
9 2 ad3antrrr φ s V r U x X y X V UnifOn Y
10 simpllr φ s V r U x X y X s V
11 3 ad3antrrr φ s V r U x X y X A Y
12 ustref V UnifOn Y s V A Y A s A
13 9 10 11 12 syl3anc φ s V r U x X y X A s A
14 simprl φ s V r U x X y X x X
15 fvconst2g A Y x X X × A x = A
16 11 14 15 syl2anc φ s V r U x X y X X × A x = A
17 simprr φ s V r U x X y X y X
18 fvconst2g A Y y X X × A y = A
19 11 17 18 syl2anc φ s V r U x X y X X × A y = A
20 13 16 19 3brtr4d φ s V r U x X y X X × A x s X × A y
21 20 a1d φ s V r U x X y X x r y X × A x s X × A y
22 21 ralrimivva φ s V r U x X y X x r y X × A x s X × A y
23 22 reximdva0 φ s V U r U x X y X x r y X × A x s X × A y
24 8 23 mpdan φ s V r U x X y X x r y X × A x s X × A y
25 24 ralrimiva φ s V r U x X y X x r y X × A x s X × A y
26 isucn U UnifOn X V UnifOn Y X × A U uCn V X × A : X Y s V r U x X y X x r y X × A x s X × A y
27 1 2 26 syl2anc φ X × A U uCn V X × A : X Y s V r U x X y X x r y X × A x s X × A y
28 5 25 27 mpbir2and φ X × A U uCn V