This is an inofficial mirror of http://metamath.tirix.org for personal testing of a visualizer extension only.

Metamath Proof Explorer

Theorem rescncf

Description: A continuous complex function restricted to a subset is continuous. (Contributed by Paul Chapman, 18-Oct-2007) (Revised by Mario Carneiro, 25-Aug-2014)

Ref Expression
Assertion rescncf 
|- ( C C_ A -> ( F e. ( A -cn-> B ) -> ( F |` C ) e. ( C -cn-> B ) ) )

Proof

Step Hyp Ref Expression
1 simpr 
 |-  ( ( C C_ A /\ F e. ( A -cn-> B ) ) -> F e. ( A -cn-> B ) )
2 cncfrss 
 |-  ( F e. ( A -cn-> B ) -> A C_ CC )
3 2 adantl 
 |-  ( ( C C_ A /\ F e. ( A -cn-> B ) ) -> A C_ CC )
4 cncfrss2 
 |-  ( F e. ( A -cn-> B ) -> B C_ CC )
5 4 adantl 
 |-  ( ( C C_ A /\ F e. ( A -cn-> B ) ) -> B C_ CC )
6 elcncf 
 |-  ( ( A C_ CC /\ B C_ CC ) -> ( F e. ( A -cn-> B ) <-> ( F : A --> B /\ A. x e. A A. y e. RR+ E. z e. RR+ A. w e. A ( ( abs ` ( x - w ) ) < z -> ( abs ` ( ( F ` x ) - ( F ` w ) ) ) < y ) ) ) )
7 3 5 6 syl2anc 
 |-  ( ( C C_ A /\ F e. ( A -cn-> B ) ) -> ( F e. ( A -cn-> B ) <-> ( F : A --> B /\ A. x e. A A. y e. RR+ E. z e. RR+ A. w e. A ( ( abs ` ( x - w ) ) < z -> ( abs ` ( ( F ` x ) - ( F ` w ) ) ) < y ) ) ) )
8 1 7 mpbid 
 |-  ( ( C C_ A /\ F e. ( A -cn-> B ) ) -> ( F : A --> B /\ A. x e. A A. y e. RR+ E. z e. RR+ A. w e. A ( ( abs ` ( x - w ) ) < z -> ( abs ` ( ( F ` x ) - ( F ` w ) ) ) < y ) ) )
9 8 simpld 
 |-  ( ( C C_ A /\ F e. ( A -cn-> B ) ) -> F : A --> B )
10 simpl 
 |-  ( ( C C_ A /\ F e. ( A -cn-> B ) ) -> C C_ A )
11 9 10 fssresd 
 |-  ( ( C C_ A /\ F e. ( A -cn-> B ) ) -> ( F |` C ) : C --> B )
12 8 simprd 
 |-  ( ( C C_ A /\ F e. ( A -cn-> B ) ) -> A. x e. A A. y e. RR+ E. z e. RR+ A. w e. A ( ( abs ` ( x - w ) ) < z -> ( abs ` ( ( F ` x ) - ( F ` w ) ) ) < y ) )
13 ssralv 
 |-  ( C C_ A -> ( A. x e. A A. y e. RR+ E. z e. RR+ A. w e. A ( ( abs ` ( x - w ) ) < z -> ( abs ` ( ( F ` x ) - ( F ` w ) ) ) < y ) -> A. x e. C A. y e. RR+ E. z e. RR+ A. w e. A ( ( abs ` ( x - w ) ) < z -> ( abs ` ( ( F ` x ) - ( F ` w ) ) ) < y ) ) )
14 ssralv 
 |-  ( C C_ A -> ( A. w e. A ( ( abs ` ( x - w ) ) < z -> ( abs ` ( ( F ` x ) - ( F ` w ) ) ) < y ) -> A. w e. C ( ( abs ` ( x - w ) ) < z -> ( abs ` ( ( F ` x ) - ( F ` w ) ) ) < y ) ) )
15 fvres 
 |-  ( x e. C -> ( ( F |` C ) ` x ) = ( F ` x ) )
16 fvres 
 |-  ( w e. C -> ( ( F |` C ) ` w ) = ( F ` w ) )
17 15 16 oveqan12d 
 |-  ( ( x e. C /\ w e. C ) -> ( ( ( F |` C ) ` x ) - ( ( F |` C ) ` w ) ) = ( ( F ` x ) - ( F ` w ) ) )
18 17 fveq2d 
 |-  ( ( x e. C /\ w e. C ) -> ( abs ` ( ( ( F |` C ) ` x ) - ( ( F |` C ) ` w ) ) ) = ( abs ` ( ( F ` x ) - ( F ` w ) ) ) )
19 18 breq1d 
 |-  ( ( x e. C /\ w e. C ) -> ( ( abs ` ( ( ( F |` C ) ` x ) - ( ( F |` C ) ` w ) ) ) < y <-> ( abs ` ( ( F ` x ) - ( F ` w ) ) ) < y ) )
20 19 imbi2d 
 |-  ( ( x e. C /\ w e. C ) -> ( ( ( abs ` ( x - w ) ) < z -> ( abs ` ( ( ( F |` C ) ` x ) - ( ( F |` C ) ` w ) ) ) < y ) <-> ( ( abs ` ( x - w ) ) < z -> ( abs ` ( ( F ` x ) - ( F ` w ) ) ) < y ) ) )
21 20 biimprd 
 |-  ( ( x e. C /\ w e. C ) -> ( ( ( abs ` ( x - w ) ) < z -> ( abs ` ( ( F ` x ) - ( F ` w ) ) ) < y ) -> ( ( abs ` ( x - w ) ) < z -> ( abs ` ( ( ( F |` C ) ` x ) - ( ( F |` C ) ` w ) ) ) < y ) ) )
22 21 ralimdva 
 |-  ( x e. C -> ( A. w e. C ( ( abs ` ( x - w ) ) < z -> ( abs ` ( ( F ` x ) - ( F ` w ) ) ) < y ) -> A. w e. C ( ( abs ` ( x - w ) ) < z -> ( abs ` ( ( ( F |` C ) ` x ) - ( ( F |` C ) ` w ) ) ) < y ) ) )
23 14 22 sylan9 
 |-  ( ( C C_ A /\ x e. C ) -> ( A. w e. A ( ( abs ` ( x - w ) ) < z -> ( abs ` ( ( F ` x ) - ( F ` w ) ) ) < y ) -> A. w e. C ( ( abs ` ( x - w ) ) < z -> ( abs ` ( ( ( F |` C ) ` x ) - ( ( F |` C ) ` w ) ) ) < y ) ) )
24 23 reximdv 
 |-  ( ( C C_ A /\ x e. C ) -> ( E. z e. RR+ A. w e. A ( ( abs ` ( x - w ) ) < z -> ( abs ` ( ( F ` x ) - ( F ` w ) ) ) < y ) -> E. z e. RR+ A. w e. C ( ( abs ` ( x - w ) ) < z -> ( abs ` ( ( ( F |` C ) ` x ) - ( ( F |` C ) ` w ) ) ) < y ) ) )
25 24 ralimdv 
 |-  ( ( C C_ A /\ x e. C ) -> ( A. y e. RR+ E. z e. RR+ A. w e. A ( ( abs ` ( x - w ) ) < z -> ( abs ` ( ( F ` x ) - ( F ` w ) ) ) < y ) -> A. y e. RR+ E. z e. RR+ A. w e. C ( ( abs ` ( x - w ) ) < z -> ( abs ` ( ( ( F |` C ) ` x ) - ( ( F |` C ) ` w ) ) ) < y ) ) )
26 25 ralimdva 
 |-  ( C C_ A -> ( A. x e. C A. y e. RR+ E. z e. RR+ A. w e. A ( ( abs ` ( x - w ) ) < z -> ( abs ` ( ( F ` x ) - ( F ` w ) ) ) < y ) -> A. x e. C A. y e. RR+ E. z e. RR+ A. w e. C ( ( abs ` ( x - w ) ) < z -> ( abs ` ( ( ( F |` C ) ` x ) - ( ( F |` C ) ` w ) ) ) < y ) ) )
27 13 26 syld 
 |-  ( C C_ A -> ( A. x e. A A. y e. RR+ E. z e. RR+ A. w e. A ( ( abs ` ( x - w ) ) < z -> ( abs ` ( ( F ` x ) - ( F ` w ) ) ) < y ) -> A. x e. C A. y e. RR+ E. z e. RR+ A. w e. C ( ( abs ` ( x - w ) ) < z -> ( abs ` ( ( ( F |` C ) ` x ) - ( ( F |` C ) ` w ) ) ) < y ) ) )
28 10 12 27 sylc 
 |-  ( ( C C_ A /\ F e. ( A -cn-> B ) ) -> A. x e. C A. y e. RR+ E. z e. RR+ A. w e. C ( ( abs ` ( x - w ) ) < z -> ( abs ` ( ( ( F |` C ) ` x ) - ( ( F |` C ) ` w ) ) ) < y ) )
29 10 3 sstrd 
 |-  ( ( C C_ A /\ F e. ( A -cn-> B ) ) -> C C_ CC )
30 elcncf 
 |-  ( ( C C_ CC /\ B C_ CC ) -> ( ( F |` C ) e. ( C -cn-> B ) <-> ( ( F |` C ) : C --> B /\ A. x e. C A. y e. RR+ E. z e. RR+ A. w e. C ( ( abs ` ( x - w ) ) < z -> ( abs ` ( ( ( F |` C ) ` x ) - ( ( F |` C ) ` w ) ) ) < y ) ) ) )
31 29 5 30 syl2anc 
 |-  ( ( C C_ A /\ F e. ( A -cn-> B ) ) -> ( ( F |` C ) e. ( C -cn-> B ) <-> ( ( F |` C ) : C --> B /\ A. x e. C A. y e. RR+ E. z e. RR+ A. w e. C ( ( abs ` ( x - w ) ) < z -> ( abs ` ( ( ( F |` C ) ` x ) - ( ( F |` C ) ` w ) ) ) < y ) ) ) )
32 11 28 31 mpbir2and 
 |-  ( ( C C_ A /\ F e. ( A -cn-> B ) ) -> ( F |` C ) e. ( C -cn-> B ) )
33 32 ex 
 |-  ( C C_ A -> ( F e. ( A -cn-> B ) -> ( F |` C ) e. ( C -cn-> B ) ) )