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

Metamath Proof Explorer

Theorem lmbr

Description: Express the binary relation "sequence F converges to point P " in a topological space. Definition 1.4-1 of Kreyszig p. 25. The condition F C_ ( CC X. X ) allows to use objects more general than sequences when convenient; see the comment in df-lm . (Contributed by Mario Carneiro, 14-Nov-2013)

Ref Expression
Hypothesis lmbr.2 
|- ( ph -> J e. ( TopOn ` X ) )
Assertion lmbr 
|- ( ph -> ( F ( ~~>t ` J ) P <-> ( F e. ( X ^pm CC ) /\ P e. X /\ A. u e. J ( P e. u -> E. y e. ran ZZ>= ( F |` y ) : y --> u ) ) ) )

Proof

Step Hyp Ref Expression
1 lmbr.2 
 |-  ( ph -> J e. ( TopOn ` X ) )
2 lmfval 
 |-  ( J e. ( TopOn ` X ) -> ( ~~>t ` J ) = { <. f , x >. | ( f e. ( X ^pm CC ) /\ x e. X /\ A. u e. J ( x e. u -> E. y e. ran ZZ>= ( f |` y ) : y --> u ) ) } )
3 1 2 syl 
 |-  ( ph -> ( ~~>t ` J ) = { <. f , x >. | ( f e. ( X ^pm CC ) /\ x e. X /\ A. u e. J ( x e. u -> E. y e. ran ZZ>= ( f |` y ) : y --> u ) ) } )
4 3 breqd 
 |-  ( ph -> ( F ( ~~>t ` J ) P <-> F { <. f , x >. | ( f e. ( X ^pm CC ) /\ x e. X /\ A. u e. J ( x e. u -> E. y e. ran ZZ>= ( f |` y ) : y --> u ) ) } P ) )
5 reseq1 
 |-  ( f = F -> ( f |` y ) = ( F |` y ) )
6 5 feq1d 
 |-  ( f = F -> ( ( f |` y ) : y --> u <-> ( F |` y ) : y --> u ) )
7 6 rexbidv 
 |-  ( f = F -> ( E. y e. ran ZZ>= ( f |` y ) : y --> u <-> E. y e. ran ZZ>= ( F |` y ) : y --> u ) )
8 7 imbi2d 
 |-  ( f = F -> ( ( x e. u -> E. y e. ran ZZ>= ( f |` y ) : y --> u ) <-> ( x e. u -> E. y e. ran ZZ>= ( F |` y ) : y --> u ) ) )
9 8 ralbidv 
 |-  ( f = F -> ( A. u e. J ( x e. u -> E. y e. ran ZZ>= ( f |` y ) : y --> u ) <-> A. u e. J ( x e. u -> E. y e. ran ZZ>= ( F |` y ) : y --> u ) ) )
10 eleq1 
 |-  ( x = P -> ( x e. u <-> P e. u ) )
11 10 imbi1d 
 |-  ( x = P -> ( ( x e. u -> E. y e. ran ZZ>= ( F |` y ) : y --> u ) <-> ( P e. u -> E. y e. ran ZZ>= ( F |` y ) : y --> u ) ) )
12 11 ralbidv 
 |-  ( x = P -> ( A. u e. J ( x e. u -> E. y e. ran ZZ>= ( F |` y ) : y --> u ) <-> A. u e. J ( P e. u -> E. y e. ran ZZ>= ( F |` y ) : y --> u ) ) )
13 9 12 sylan9bb 
 |-  ( ( f = F /\ x = P ) -> ( A. u e. J ( x e. u -> E. y e. ran ZZ>= ( f |` y ) : y --> u ) <-> A. u e. J ( P e. u -> E. y e. ran ZZ>= ( F |` y ) : y --> u ) ) )
14 df-3an 
 |-  ( ( f e. ( X ^pm CC ) /\ x e. X /\ A. u e. J ( x e. u -> E. y e. ran ZZ>= ( f |` y ) : y --> u ) ) <-> ( ( f e. ( X ^pm CC ) /\ x e. X ) /\ A. u e. J ( x e. u -> E. y e. ran ZZ>= ( f |` y ) : y --> u ) ) )
15 14 opabbii 
 |-  { <. f , x >. | ( f e. ( X ^pm CC ) /\ x e. X /\ A. u e. J ( x e. u -> E. y e. ran ZZ>= ( f |` y ) : y --> u ) ) } = { <. f , x >. | ( ( f e. ( X ^pm CC ) /\ x e. X ) /\ A. u e. J ( x e. u -> E. y e. ran ZZ>= ( f |` y ) : y --> u ) ) }
16 13 15 brab2a 
 |-  ( F { <. f , x >. | ( f e. ( X ^pm CC ) /\ x e. X /\ A. u e. J ( x e. u -> E. y e. ran ZZ>= ( f |` y ) : y --> u ) ) } P <-> ( ( F e. ( X ^pm CC ) /\ P e. X ) /\ A. u e. J ( P e. u -> E. y e. ran ZZ>= ( F |` y ) : y --> u ) ) )
17 df-3an 
 |-  ( ( F e. ( X ^pm CC ) /\ P e. X /\ A. u e. J ( P e. u -> E. y e. ran ZZ>= ( F |` y ) : y --> u ) ) <-> ( ( F e. ( X ^pm CC ) /\ P e. X ) /\ A. u e. J ( P e. u -> E. y e. ran ZZ>= ( F |` y ) : y --> u ) ) )
18 16 17 bitr4i 
 |-  ( F { <. f , x >. | ( f e. ( X ^pm CC ) /\ x e. X /\ A. u e. J ( x e. u -> E. y e. ran ZZ>= ( f |` y ) : y --> u ) ) } P <-> ( F e. ( X ^pm CC ) /\ P e. X /\ A. u e. J ( P e. u -> E. y e. ran ZZ>= ( F |` y ) : y --> u ) ) )
19 4 18 bitrdi 
 |-  ( ph -> ( F ( ~~>t ` J ) P <-> ( F e. ( X ^pm CC ) /\ P e. X /\ A. u e. J ( P e. u -> E. y e. ran ZZ>= ( F |` y ) : y --> u ) ) ) )