Metamath Proof Explorer

Theorem metcnpi3

Description: Epsilon-delta property of a metric space function continuous at P . A variation of metcnpi2 with non-strict ordering. (Contributed by NM, 16-Dec-2007) (Revised by Mario Carneiro, 13-Nov-2013)

Ref Expression
Hypotheses metcn.2 
|- J = ( MetOpen ` C )
metcn.4 
|- K = ( MetOpen ` D )
Assertion metcnpi3 
|- ( ( ( C e. ( *Met ` X ) /\ D e. ( *Met ` Y ) ) /\ ( F e. ( ( J CnP K ) ` P ) /\ A e. RR+ ) ) -> E. x e. RR+ A. y e. X ( ( y C P ) <_ x -> ( ( F ` y ) D ( F ` P ) ) <_ A ) )

Proof

Step Hyp Ref Expression
1 metcn.2 
 |-  J = ( MetOpen ` C )
2 metcn.4 
 |-  K = ( MetOpen ` D )
3 1 2 metcnpi2 
 |-  ( ( ( C e. ( *Met ` X ) /\ D e. ( *Met ` Y ) ) /\ ( F e. ( ( J CnP K ) ` P ) /\ A e. RR+ ) ) -> E. z e. RR+ A. y e. X ( ( y C P ) < z -> ( ( F ` y ) D ( F ` P ) ) < A ) )
4 rphalfcl 
 |-  ( z e. RR+ -> ( z / 2 ) e. RR+ )
5 4 ad2antrl 
 |-  ( ( ( ( C e. ( *Met ` X ) /\ D e. ( *Met ` Y ) ) /\ ( F e. ( ( J CnP K ) ` P ) /\ A e. RR+ ) ) /\ ( z e. RR+ /\ A. y e. X ( ( y C P ) < z -> ( ( F ` y ) D ( F ` P ) ) < A ) ) ) -> ( z / 2 ) e. RR+ )
6 simplll 
 |-  ( ( ( ( C e. ( *Met ` X ) /\ D e. ( *Met ` Y ) ) /\ ( F e. ( ( J CnP K ) ` P ) /\ A e. RR+ ) ) /\ ( z e. RR+ /\ y e. X ) ) -> C e. ( *Met ` X ) )
7 simprr 
 |-  ( ( ( ( C e. ( *Met ` X ) /\ D e. ( *Met ` Y ) ) /\ ( F e. ( ( J CnP K ) ` P ) /\ A e. RR+ ) ) /\ ( z e. RR+ /\ y e. X ) ) -> y e. X )
8 simplrl 
 |-  ( ( ( ( C e. ( *Met ` X ) /\ D e. ( *Met ` Y ) ) /\ ( F e. ( ( J CnP K ) ` P ) /\ A e. RR+ ) ) /\ ( z e. RR+ /\ y e. X ) ) -> F e. ( ( J CnP K ) ` P ) )
9 eqid 
 |-  U. J = U. J
10 9 cnprcl 
 |-  ( F e. ( ( J CnP K ) ` P ) -> P e. U. J )
11 8 10 syl 
 |-  ( ( ( ( C e. ( *Met ` X ) /\ D e. ( *Met ` Y ) ) /\ ( F e. ( ( J CnP K ) ` P ) /\ A e. RR+ ) ) /\ ( z e. RR+ /\ y e. X ) ) -> P e. U. J )
12 1 mopnuni 
 |-  ( C e. ( *Met ` X ) -> X = U. J )
13 6 12 syl 
 |-  ( ( ( ( C e. ( *Met ` X ) /\ D e. ( *Met ` Y ) ) /\ ( F e. ( ( J CnP K ) ` P ) /\ A e. RR+ ) ) /\ ( z e. RR+ /\ y e. X ) ) -> X = U. J )
14 11 13 eleqtrrd 
 |-  ( ( ( ( C e. ( *Met ` X ) /\ D e. ( *Met ` Y ) ) /\ ( F e. ( ( J CnP K ) ` P ) /\ A e. RR+ ) ) /\ ( z e. RR+ /\ y e. X ) ) -> P e. X )
15 xmetcl 
 |-  ( ( C e. ( *Met ` X ) /\ y e. X /\ P e. X ) -> ( y C P ) e. RR* )
16 6 7 14 15 syl3anc 
 |-  ( ( ( ( C e. ( *Met ` X ) /\ D e. ( *Met ` Y ) ) /\ ( F e. ( ( J CnP K ) ` P ) /\ A e. RR+ ) ) /\ ( z e. RR+ /\ y e. X ) ) -> ( y C P ) e. RR* )
17 4 ad2antrl 
 |-  ( ( ( ( C e. ( *Met ` X ) /\ D e. ( *Met ` Y ) ) /\ ( F e. ( ( J CnP K ) ` P ) /\ A e. RR+ ) ) /\ ( z e. RR+ /\ y e. X ) ) -> ( z / 2 ) e. RR+ )
18 17 rpxrd 
 |-  ( ( ( ( C e. ( *Met ` X ) /\ D e. ( *Met ` Y ) ) /\ ( F e. ( ( J CnP K ) ` P ) /\ A e. RR+ ) ) /\ ( z e. RR+ /\ y e. X ) ) -> ( z / 2 ) e. RR* )
19 rpxr 
 |-  ( z e. RR+ -> z e. RR* )
20 19 ad2antrl 
 |-  ( ( ( ( C e. ( *Met ` X ) /\ D e. ( *Met ` Y ) ) /\ ( F e. ( ( J CnP K ) ` P ) /\ A e. RR+ ) ) /\ ( z e. RR+ /\ y e. X ) ) -> z e. RR* )
21 rphalflt 
 |-  ( z e. RR+ -> ( z / 2 ) < z )
22 21 ad2antrl 
 |-  ( ( ( ( C e. ( *Met ` X ) /\ D e. ( *Met ` Y ) ) /\ ( F e. ( ( J CnP K ) ` P ) /\ A e. RR+ ) ) /\ ( z e. RR+ /\ y e. X ) ) -> ( z / 2 ) < z )
23 xrlelttr 
 |-  ( ( ( y C P ) e. RR* /\ ( z / 2 ) e. RR* /\ z e. RR* ) -> ( ( ( y C P ) <_ ( z / 2 ) /\ ( z / 2 ) < z ) -> ( y C P ) < z ) )
24 23 expcomd 
 |-  ( ( ( y C P ) e. RR* /\ ( z / 2 ) e. RR* /\ z e. RR* ) -> ( ( z / 2 ) < z -> ( ( y C P ) <_ ( z / 2 ) -> ( y C P ) < z ) ) )
25 24 imp 
 |-  ( ( ( ( y C P ) e. RR* /\ ( z / 2 ) e. RR* /\ z e. RR* ) /\ ( z / 2 ) < z ) -> ( ( y C P ) <_ ( z / 2 ) -> ( y C P ) < z ) )
26 16 18 20 22 25 syl31anc 
 |-  ( ( ( ( C e. ( *Met ` X ) /\ D e. ( *Met ` Y ) ) /\ ( F e. ( ( J CnP K ) ` P ) /\ A e. RR+ ) ) /\ ( z e. RR+ /\ y e. X ) ) -> ( ( y C P ) <_ ( z / 2 ) -> ( y C P ) < z ) )
27 simpllr 
 |-  ( ( ( ( C e. ( *Met ` X ) /\ D e. ( *Met ` Y ) ) /\ ( F e. ( ( J CnP K ) ` P ) /\ A e. RR+ ) ) /\ ( z e. RR+ /\ y e. X ) ) -> D e. ( *Met ` Y ) )
28 1 mopntopon 
 |-  ( C e. ( *Met ` X ) -> J e. ( TopOn ` X ) )
29 6 28 syl 
 |-  ( ( ( ( C e. ( *Met ` X ) /\ D e. ( *Met ` Y ) ) /\ ( F e. ( ( J CnP K ) ` P ) /\ A e. RR+ ) ) /\ ( z e. RR+ /\ y e. X ) ) -> J e. ( TopOn ` X ) )
30 2 mopntopon 
 |-  ( D e. ( *Met ` Y ) -> K e. ( TopOn ` Y ) )
31 27 30 syl 
 |-  ( ( ( ( C e. ( *Met ` X ) /\ D e. ( *Met ` Y ) ) /\ ( F e. ( ( J CnP K ) ` P ) /\ A e. RR+ ) ) /\ ( z e. RR+ /\ y e. X ) ) -> K e. ( TopOn ` Y ) )
32 cnpf2 
 |-  ( ( J e. ( TopOn ` X ) /\ K e. ( TopOn ` Y ) /\ F e. ( ( J CnP K ) ` P ) ) -> F : X --> Y )
33 29 31 8 32 syl3anc 
 |-  ( ( ( ( C e. ( *Met ` X ) /\ D e. ( *Met ` Y ) ) /\ ( F e. ( ( J CnP K ) ` P ) /\ A e. RR+ ) ) /\ ( z e. RR+ /\ y e. X ) ) -> F : X --> Y )
34 33 7 ffvelcdmd 
 |-  ( ( ( ( C e. ( *Met ` X ) /\ D e. ( *Met ` Y ) ) /\ ( F e. ( ( J CnP K ) ` P ) /\ A e. RR+ ) ) /\ ( z e. RR+ /\ y e. X ) ) -> ( F ` y ) e. Y )
35 33 14 ffvelcdmd 
 |-  ( ( ( ( C e. ( *Met ` X ) /\ D e. ( *Met ` Y ) ) /\ ( F e. ( ( J CnP K ) ` P ) /\ A e. RR+ ) ) /\ ( z e. RR+ /\ y e. X ) ) -> ( F ` P ) e. Y )
36 xmetcl 
 |-  ( ( D e. ( *Met ` Y ) /\ ( F ` y ) e. Y /\ ( F ` P ) e. Y ) -> ( ( F ` y ) D ( F ` P ) ) e. RR* )
37 27 34 35 36 syl3anc 
 |-  ( ( ( ( C e. ( *Met ` X ) /\ D e. ( *Met ` Y ) ) /\ ( F e. ( ( J CnP K ) ` P ) /\ A e. RR+ ) ) /\ ( z e. RR+ /\ y e. X ) ) -> ( ( F ` y ) D ( F ` P ) ) e. RR* )
38 simplrr 
 |-  ( ( ( ( C e. ( *Met ` X ) /\ D e. ( *Met ` Y ) ) /\ ( F e. ( ( J CnP K ) ` P ) /\ A e. RR+ ) ) /\ ( z e. RR+ /\ y e. X ) ) -> A e. RR+ )
39 38 rpxrd 
 |-  ( ( ( ( C e. ( *Met ` X ) /\ D e. ( *Met ` Y ) ) /\ ( F e. ( ( J CnP K ) ` P ) /\ A e. RR+ ) ) /\ ( z e. RR+ /\ y e. X ) ) -> A e. RR* )
40 xrltle 
 |-  ( ( ( ( F ` y ) D ( F ` P ) ) e. RR* /\ A e. RR* ) -> ( ( ( F ` y ) D ( F ` P ) ) < A -> ( ( F ` y ) D ( F ` P ) ) <_ A ) )
41 37 39 40 syl2anc 
 |-  ( ( ( ( C e. ( *Met ` X ) /\ D e. ( *Met ` Y ) ) /\ ( F e. ( ( J CnP K ) ` P ) /\ A e. RR+ ) ) /\ ( z e. RR+ /\ y e. X ) ) -> ( ( ( F ` y ) D ( F ` P ) ) < A -> ( ( F ` y ) D ( F ` P ) ) <_ A ) )
42 26 41 imim12d 
 |-  ( ( ( ( C e. ( *Met ` X ) /\ D e. ( *Met ` Y ) ) /\ ( F e. ( ( J CnP K ) ` P ) /\ A e. RR+ ) ) /\ ( z e. RR+ /\ y e. X ) ) -> ( ( ( y C P ) < z -> ( ( F ` y ) D ( F ` P ) ) < A ) -> ( ( y C P ) <_ ( z / 2 ) -> ( ( F ` y ) D ( F ` P ) ) <_ A ) ) )
43 42 anassrs 
 |-  ( ( ( ( ( C e. ( *Met ` X ) /\ D e. ( *Met ` Y ) ) /\ ( F e. ( ( J CnP K ) ` P ) /\ A e. RR+ ) ) /\ z e. RR+ ) /\ y e. X ) -> ( ( ( y C P ) < z -> ( ( F ` y ) D ( F ` P ) ) < A ) -> ( ( y C P ) <_ ( z / 2 ) -> ( ( F ` y ) D ( F ` P ) ) <_ A ) ) )
44 43 ralimdva 
 |-  ( ( ( ( C e. ( *Met ` X ) /\ D e. ( *Met ` Y ) ) /\ ( F e. ( ( J CnP K ) ` P ) /\ A e. RR+ ) ) /\ z e. RR+ ) -> ( A. y e. X ( ( y C P ) < z -> ( ( F ` y ) D ( F ` P ) ) < A ) -> A. y e. X ( ( y C P ) <_ ( z / 2 ) -> ( ( F ` y ) D ( F ` P ) ) <_ A ) ) )
45 44 impr 
 |-  ( ( ( ( C e. ( *Met ` X ) /\ D e. ( *Met ` Y ) ) /\ ( F e. ( ( J CnP K ) ` P ) /\ A e. RR+ ) ) /\ ( z e. RR+ /\ A. y e. X ( ( y C P ) < z -> ( ( F ` y ) D ( F ` P ) ) < A ) ) ) -> A. y e. X ( ( y C P ) <_ ( z / 2 ) -> ( ( F ` y ) D ( F ` P ) ) <_ A ) )
46 breq2 
 |-  ( x = ( z / 2 ) -> ( ( y C P ) <_ x <-> ( y C P ) <_ ( z / 2 ) ) )
47 46 rspceaimv 
 |-  ( ( ( z / 2 ) e. RR+ /\ A. y e. X ( ( y C P ) <_ ( z / 2 ) -> ( ( F ` y ) D ( F ` P ) ) <_ A ) ) -> E. x e. RR+ A. y e. X ( ( y C P ) <_ x -> ( ( F ` y ) D ( F ` P ) ) <_ A ) )
48 5 45 47 syl2anc 
 |-  ( ( ( ( C e. ( *Met ` X ) /\ D e. ( *Met ` Y ) ) /\ ( F e. ( ( J CnP K ) ` P ) /\ A e. RR+ ) ) /\ ( z e. RR+ /\ A. y e. X ( ( y C P ) < z -> ( ( F ` y ) D ( F ` P ) ) < A ) ) ) -> E. x e. RR+ A. y e. X ( ( y C P ) <_ x -> ( ( F ` y ) D ( F ` P ) ) <_ A ) )
49 3 48 rexlimddv 
 |-  ( ( ( C e. ( *Met ` X ) /\ D e. ( *Met ` Y ) ) /\ ( F e. ( ( J CnP K ) ` P ) /\ A e. RR+ ) ) -> E. x e. RR+ A. y e. X ( ( y C P ) <_ x -> ( ( F ` y ) D ( F ` P ) ) <_ A ) )