Users' Mathboxes Mathbox for Scott Fenton < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  funtransport Structured version   Unicode version

Theorem funtransport 28013
Description: The TransportTo relationship is a function. (Contributed by Scott Fenton, 18-Oct-2013.) (Revised by Mario Carneiro, 19-Apr-2014.)
Assertion
Ref Expression
funtransport  |-  Fun TransportTo

Proof of Theorem funtransport
Dummy variables  m  n  p  q  r  x  y are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 reeanv 2883 . . . . . 6  |-  ( E. n  e.  NN  E. m  e.  NN  (
( ( p  e.  ( ( EE `  n )  X.  ( EE `  n ) )  /\  q  e.  ( ( EE `  n
)  X.  ( EE
`  n ) )  /\  ( 1st `  q
)  =/=  ( 2nd `  q ) )  /\  x  =  ( iota_ r  e.  ( EE `  n ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) )  /\  ( ( p  e.  ( ( EE
`  m )  X.  ( EE `  m
) )  /\  q  e.  ( ( EE `  m )  X.  ( EE `  m ) )  /\  ( 1st `  q
)  =/=  ( 2nd `  q ) )  /\  y  =  ( iota_ r  e.  ( EE `  m ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) ) )  <->  ( E. n  e.  NN  ( ( p  e.  ( ( EE
`  n )  X.  ( EE `  n
) )  /\  q  e.  ( ( EE `  n )  X.  ( EE `  n ) )  /\  ( 1st `  q
)  =/=  ( 2nd `  q ) )  /\  x  =  ( iota_ r  e.  ( EE `  n ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) )  /\  E. m  e.  NN  ( ( p  e.  ( ( EE
`  m )  X.  ( EE `  m
) )  /\  q  e.  ( ( EE `  m )  X.  ( EE `  m ) )  /\  ( 1st `  q
)  =/=  ( 2nd `  q ) )  /\  y  =  ( iota_ r  e.  ( EE `  m ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) ) ) )
2 simp1 988 . . . . . . . . . . 11  |-  ( ( p  e.  ( ( EE `  n )  X.  ( EE `  n ) )  /\  q  e.  ( ( EE `  n )  X.  ( EE `  n
) )  /\  ( 1st `  q )  =/=  ( 2nd `  q
) )  ->  p  e.  ( ( EE `  n )  X.  ( EE `  n ) ) )
3 simp1 988 . . . . . . . . . . 11  |-  ( ( p  e.  ( ( EE `  m )  X.  ( EE `  m ) )  /\  q  e.  ( ( EE `  m )  X.  ( EE `  m
) )  /\  ( 1st `  q )  =/=  ( 2nd `  q
) )  ->  p  e.  ( ( EE `  m )  X.  ( EE `  m ) ) )
42, 3anim12i 566 . . . . . . . . . 10  |-  ( ( ( p  e.  ( ( EE `  n
)  X.  ( EE
`  n ) )  /\  q  e.  ( ( EE `  n
)  X.  ( EE
`  n ) )  /\  ( 1st `  q
)  =/=  ( 2nd `  q ) )  /\  ( p  e.  (
( EE `  m
)  X.  ( EE
`  m ) )  /\  q  e.  ( ( EE `  m
)  X.  ( EE
`  m ) )  /\  ( 1st `  q
)  =/=  ( 2nd `  q ) ) )  ->  ( p  e.  ( ( EE `  n )  X.  ( EE `  n ) )  /\  p  e.  ( ( EE `  m
)  X.  ( EE
`  m ) ) ) )
54anim1i 568 . . . . . . . . 9  |-  ( ( ( ( p  e.  ( ( EE `  n )  X.  ( EE `  n ) )  /\  q  e.  ( ( EE `  n
)  X.  ( EE
`  n ) )  /\  ( 1st `  q
)  =/=  ( 2nd `  q ) )  /\  ( p  e.  (
( EE `  m
)  X.  ( EE
`  m ) )  /\  q  e.  ( ( EE `  m
)  X.  ( EE
`  m ) )  /\  ( 1st `  q
)  =/=  ( 2nd `  q ) ) )  /\  ( x  =  ( iota_ r  e.  ( EE `  n ) ( ( 2nd `  q
)  Btwn  <. ( 1st `  q ) ,  r
>.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) )  /\  y  =  ( iota_ r  e.  ( EE `  m ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) ) )  ->  ( (
p  e.  ( ( EE `  n )  X.  ( EE `  n ) )  /\  p  e.  ( ( EE `  m )  X.  ( EE `  m
) ) )  /\  ( x  =  ( iota_ r  e.  ( EE
`  n ) ( ( 2nd `  q
)  Btwn  <. ( 1st `  q ) ,  r
>.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) )  /\  y  =  ( iota_ r  e.  ( EE `  m ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) ) ) )
65an4s 822 . . . . . . . 8  |-  ( ( ( ( p  e.  ( ( EE `  n )  X.  ( EE `  n ) )  /\  q  e.  ( ( EE `  n
)  X.  ( EE
`  n ) )  /\  ( 1st `  q
)  =/=  ( 2nd `  q ) )  /\  x  =  ( iota_ r  e.  ( EE `  n ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) )  /\  ( ( p  e.  ( ( EE
`  m )  X.  ( EE `  m
) )  /\  q  e.  ( ( EE `  m )  X.  ( EE `  m ) )  /\  ( 1st `  q
)  =/=  ( 2nd `  q ) )  /\  y  =  ( iota_ r  e.  ( EE `  m ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) ) )  ->  ( (
p  e.  ( ( EE `  n )  X.  ( EE `  n ) )  /\  p  e.  ( ( EE `  m )  X.  ( EE `  m
) ) )  /\  ( x  =  ( iota_ r  e.  ( EE
`  n ) ( ( 2nd `  q
)  Btwn  <. ( 1st `  q ) ,  r
>.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) )  /\  y  =  ( iota_ r  e.  ( EE `  m ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) ) ) )
7 xp1st 6601 . . . . . . . . . 10  |-  ( p  e.  ( ( EE
`  n )  X.  ( EE `  n
) )  ->  ( 1st `  p )  e.  ( EE `  n
) )
8 xp1st 6601 . . . . . . . . . 10  |-  ( p  e.  ( ( EE
`  m )  X.  ( EE `  m
) )  ->  ( 1st `  p )  e.  ( EE `  m
) )
9 axdimuniq 23110 . . . . . . . . . . . . 13  |-  ( ( ( n  e.  NN  /\  ( 1st `  p
)  e.  ( EE
`  n ) )  /\  ( m  e.  NN  /\  ( 1st `  p )  e.  ( EE `  m ) ) )  ->  n  =  m )
10 fveq2 5686 . . . . . . . . . . . . . . . . 17  |-  ( n  =  m  ->  ( EE `  n )  =  ( EE `  m
) )
1110riotaeqdv 6048 . . . . . . . . . . . . . . . 16  |-  ( n  =  m  ->  ( iota_ r  e.  ( EE
`  n ) ( ( 2nd `  q
)  Btwn  <. ( 1st `  q ) ,  r
>.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) )  =  ( iota_ r  e.  ( EE `  m ) ( ( 2nd `  q
)  Btwn  <. ( 1st `  q ) ,  r
>.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) )
1211eqeq2d 2449 . . . . . . . . . . . . . . 15  |-  ( n  =  m  ->  (
y  =  ( iota_ r  e.  ( EE `  n ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) )  <->  y  =  ( iota_ r  e.  ( EE `  m ) ( ( 2nd `  q
)  Btwn  <. ( 1st `  q ) ,  r
>.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) ) )
1312anbi2d 703 . . . . . . . . . . . . . 14  |-  ( n  =  m  ->  (
( x  =  (
iota_ r  e.  ( EE `  n ) ( ( 2nd `  q
)  Btwn  <. ( 1st `  q ) ,  r
>.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) )  /\  y  =  ( iota_ r  e.  ( EE `  n ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) )  <-> 
( x  =  (
iota_ r  e.  ( EE `  n ) ( ( 2nd `  q
)  Btwn  <. ( 1st `  q ) ,  r
>.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) )  /\  y  =  ( iota_ r  e.  ( EE `  m ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) ) ) )
14 eqtr3 2457 . . . . . . . . . . . . . 14  |-  ( ( x  =  ( iota_ r  e.  ( EE `  n ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) )  /\  y  =  ( iota_ r  e.  ( EE `  n ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) )  ->  x  =  y )
1513, 14syl6bir 229 . . . . . . . . . . . . 13  |-  ( n  =  m  ->  (
( x  =  (
iota_ r  e.  ( EE `  n ) ( ( 2nd `  q
)  Btwn  <. ( 1st `  q ) ,  r
>.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) )  /\  y  =  ( iota_ r  e.  ( EE `  m ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) )  ->  x  =  y ) )
169, 15syl 16 . . . . . . . . . . . 12  |-  ( ( ( n  e.  NN  /\  ( 1st `  p
)  e.  ( EE
`  n ) )  /\  ( m  e.  NN  /\  ( 1st `  p )  e.  ( EE `  m ) ) )  ->  (
( x  =  (
iota_ r  e.  ( EE `  n ) ( ( 2nd `  q
)  Btwn  <. ( 1st `  q ) ,  r
>.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) )  /\  y  =  ( iota_ r  e.  ( EE `  m ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) )  ->  x  =  y ) )
1716an4s 822 . . . . . . . . . . 11  |-  ( ( ( n  e.  NN  /\  m  e.  NN )  /\  ( ( 1st `  p )  e.  ( EE `  n )  /\  ( 1st `  p
)  e.  ( EE
`  m ) ) )  ->  ( (
x  =  ( iota_ r  e.  ( EE `  n ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) )  /\  y  =  ( iota_ r  e.  ( EE `  m ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) )  ->  x  =  y ) )
1817ex 434 . . . . . . . . . 10  |-  ( ( n  e.  NN  /\  m  e.  NN )  ->  ( ( ( 1st `  p )  e.  ( EE `  n )  /\  ( 1st `  p
)  e.  ( EE
`  m ) )  ->  ( ( x  =  ( iota_ r  e.  ( EE `  n
) ( ( 2nd `  q )  Btwn  <. ( 1st `  q ) ,  r >.  /\  <. ( 2nd `  q ) ,  r >.Cgr p ) )  /\  y  =  (
iota_ r  e.  ( EE `  m ) ( ( 2nd `  q
)  Btwn  <. ( 1st `  q ) ,  r
>.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) )  ->  x  =  y ) ) )
197, 8, 18syl2ani 656 . . . . . . . . 9  |-  ( ( n  e.  NN  /\  m  e.  NN )  ->  ( ( p  e.  ( ( EE `  n )  X.  ( EE `  n ) )  /\  p  e.  ( ( EE `  m
)  X.  ( EE
`  m ) ) )  ->  ( (
x  =  ( iota_ r  e.  ( EE `  n ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) )  /\  y  =  ( iota_ r  e.  ( EE `  m ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) )  ->  x  =  y ) ) )
2019impd 431 . . . . . . . 8  |-  ( ( n  e.  NN  /\  m  e.  NN )  ->  ( ( ( p  e.  ( ( EE
`  n )  X.  ( EE `  n
) )  /\  p  e.  ( ( EE `  m )  X.  ( EE `  m ) ) )  /\  ( x  =  ( iota_ r  e.  ( EE `  n
) ( ( 2nd `  q )  Btwn  <. ( 1st `  q ) ,  r >.  /\  <. ( 2nd `  q ) ,  r >.Cgr p ) )  /\  y  =  (
iota_ r  e.  ( EE `  m ) ( ( 2nd `  q
)  Btwn  <. ( 1st `  q ) ,  r
>.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) ) )  ->  x  =  y ) )
216, 20syl5 32 . . . . . . 7  |-  ( ( n  e.  NN  /\  m  e.  NN )  ->  ( ( ( ( p  e.  ( ( EE `  n )  X.  ( EE `  n ) )  /\  q  e.  ( ( EE `  n )  X.  ( EE `  n
) )  /\  ( 1st `  q )  =/=  ( 2nd `  q
) )  /\  x  =  ( iota_ r  e.  ( EE `  n
) ( ( 2nd `  q )  Btwn  <. ( 1st `  q ) ,  r >.  /\  <. ( 2nd `  q ) ,  r >.Cgr p ) ) )  /\  ( ( p  e.  ( ( EE `  m )  X.  ( EE `  m ) )  /\  q  e.  ( ( EE `  m )  X.  ( EE `  m
) )  /\  ( 1st `  q )  =/=  ( 2nd `  q
) )  /\  y  =  ( iota_ r  e.  ( EE `  m
) ( ( 2nd `  q )  Btwn  <. ( 1st `  q ) ,  r >.  /\  <. ( 2nd `  q ) ,  r >.Cgr p ) ) ) )  ->  x  =  y ) )
2221rexlimivv 2841 . . . . . 6  |-  ( E. n  e.  NN  E. m  e.  NN  (
( ( p  e.  ( ( EE `  n )  X.  ( EE `  n ) )  /\  q  e.  ( ( EE `  n
)  X.  ( EE
`  n ) )  /\  ( 1st `  q
)  =/=  ( 2nd `  q ) )  /\  x  =  ( iota_ r  e.  ( EE `  n ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) )  /\  ( ( p  e.  ( ( EE
`  m )  X.  ( EE `  m
) )  /\  q  e.  ( ( EE `  m )  X.  ( EE `  m ) )  /\  ( 1st `  q
)  =/=  ( 2nd `  q ) )  /\  y  =  ( iota_ r  e.  ( EE `  m ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) ) )  ->  x  =  y )
231, 22sylbir 213 . . . . 5  |-  ( ( E. n  e.  NN  ( ( p  e.  ( ( EE `  n )  X.  ( EE `  n ) )  /\  q  e.  ( ( EE `  n
)  X.  ( EE
`  n ) )  /\  ( 1st `  q
)  =/=  ( 2nd `  q ) )  /\  x  =  ( iota_ r  e.  ( EE `  n ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) )  /\  E. m  e.  NN  ( ( p  e.  ( ( EE
`  m )  X.  ( EE `  m
) )  /\  q  e.  ( ( EE `  m )  X.  ( EE `  m ) )  /\  ( 1st `  q
)  =/=  ( 2nd `  q ) )  /\  y  =  ( iota_ r  e.  ( EE `  m ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) ) )  ->  x  =  y )
2423gen2 1592 . . . 4  |-  A. x A. y ( ( E. n  e.  NN  (
( p  e.  ( ( EE `  n
)  X.  ( EE
`  n ) )  /\  q  e.  ( ( EE `  n
)  X.  ( EE
`  n ) )  /\  ( 1st `  q
)  =/=  ( 2nd `  q ) )  /\  x  =  ( iota_ r  e.  ( EE `  n ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) )  /\  E. m  e.  NN  ( ( p  e.  ( ( EE
`  m )  X.  ( EE `  m
) )  /\  q  e.  ( ( EE `  m )  X.  ( EE `  m ) )  /\  ( 1st `  q
)  =/=  ( 2nd `  q ) )  /\  y  =  ( iota_ r  e.  ( EE `  m ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) ) )  ->  x  =  y )
25 eqeq1 2444 . . . . . . . 8  |-  ( x  =  y  ->  (
x  =  ( iota_ r  e.  ( EE `  n ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) )  <->  y  =  ( iota_ r  e.  ( EE `  n ) ( ( 2nd `  q
)  Btwn  <. ( 1st `  q ) ,  r
>.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) ) )
2625anbi2d 703 . . . . . . 7  |-  ( x  =  y  ->  (
( ( p  e.  ( ( EE `  n )  X.  ( EE `  n ) )  /\  q  e.  ( ( EE `  n
)  X.  ( EE
`  n ) )  /\  ( 1st `  q
)  =/=  ( 2nd `  q ) )  /\  x  =  ( iota_ r  e.  ( EE `  n ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) )  <-> 
( ( p  e.  ( ( EE `  n )  X.  ( EE `  n ) )  /\  q  e.  ( ( EE `  n
)  X.  ( EE
`  n ) )  /\  ( 1st `  q
)  =/=  ( 2nd `  q ) )  /\  y  =  ( iota_ r  e.  ( EE `  n ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) ) ) )
2726rexbidv 2731 . . . . . 6  |-  ( x  =  y  ->  ( E. n  e.  NN  ( ( p  e.  ( ( EE `  n )  X.  ( EE `  n ) )  /\  q  e.  ( ( EE `  n
)  X.  ( EE
`  n ) )  /\  ( 1st `  q
)  =/=  ( 2nd `  q ) )  /\  x  =  ( iota_ r  e.  ( EE `  n ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) )  <->  E. n  e.  NN  ( ( p  e.  ( ( EE `  n )  X.  ( EE `  n ) )  /\  q  e.  ( ( EE `  n
)  X.  ( EE
`  n ) )  /\  ( 1st `  q
)  =/=  ( 2nd `  q ) )  /\  y  =  ( iota_ r  e.  ( EE `  n ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) ) ) )
2810, 10xpeq12d 4860 . . . . . . . . . 10  |-  ( n  =  m  ->  (
( EE `  n
)  X.  ( EE
`  n ) )  =  ( ( EE
`  m )  X.  ( EE `  m
) ) )
2928eleq2d 2505 . . . . . . . . 9  |-  ( n  =  m  ->  (
p  e.  ( ( EE `  n )  X.  ( EE `  n ) )  <->  p  e.  ( ( EE `  m )  X.  ( EE `  m ) ) ) )
3028eleq2d 2505 . . . . . . . . 9  |-  ( n  =  m  ->  (
q  e.  ( ( EE `  n )  X.  ( EE `  n ) )  <->  q  e.  ( ( EE `  m )  X.  ( EE `  m ) ) ) )
3129, 303anbi12d 1290 . . . . . . . 8  |-  ( n  =  m  ->  (
( p  e.  ( ( EE `  n
)  X.  ( EE
`  n ) )  /\  q  e.  ( ( EE `  n
)  X.  ( EE
`  n ) )  /\  ( 1st `  q
)  =/=  ( 2nd `  q ) )  <->  ( p  e.  ( ( EE `  m )  X.  ( EE `  m ) )  /\  q  e.  ( ( EE `  m
)  X.  ( EE
`  m ) )  /\  ( 1st `  q
)  =/=  ( 2nd `  q ) ) ) )
3231, 12anbi12d 710 . . . . . . 7  |-  ( n  =  m  ->  (
( ( p  e.  ( ( EE `  n )  X.  ( EE `  n ) )  /\  q  e.  ( ( EE `  n
)  X.  ( EE
`  n ) )  /\  ( 1st `  q
)  =/=  ( 2nd `  q ) )  /\  y  =  ( iota_ r  e.  ( EE `  n ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) )  <-> 
( ( p  e.  ( ( EE `  m )  X.  ( EE `  m ) )  /\  q  e.  ( ( EE `  m
)  X.  ( EE
`  m ) )  /\  ( 1st `  q
)  =/=  ( 2nd `  q ) )  /\  y  =  ( iota_ r  e.  ( EE `  m ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) ) ) )
3332cbvrexv 2943 . . . . . 6  |-  ( E. n  e.  NN  (
( p  e.  ( ( EE `  n
)  X.  ( EE
`  n ) )  /\  q  e.  ( ( EE `  n
)  X.  ( EE
`  n ) )  /\  ( 1st `  q
)  =/=  ( 2nd `  q ) )  /\  y  =  ( iota_ r  e.  ( EE `  n ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) )  <->  E. m  e.  NN  ( ( p  e.  ( ( EE `  m )  X.  ( EE `  m ) )  /\  q  e.  ( ( EE `  m
)  X.  ( EE
`  m ) )  /\  ( 1st `  q
)  =/=  ( 2nd `  q ) )  /\  y  =  ( iota_ r  e.  ( EE `  m ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) ) )
3427, 33syl6bb 261 . . . . 5  |-  ( x  =  y  ->  ( E. n  e.  NN  ( ( p  e.  ( ( EE `  n )  X.  ( EE `  n ) )  /\  q  e.  ( ( EE `  n
)  X.  ( EE
`  n ) )  /\  ( 1st `  q
)  =/=  ( 2nd `  q ) )  /\  x  =  ( iota_ r  e.  ( EE `  n ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) )  <->  E. m  e.  NN  ( ( p  e.  ( ( EE `  m )  X.  ( EE `  m ) )  /\  q  e.  ( ( EE `  m
)  X.  ( EE
`  m ) )  /\  ( 1st `  q
)  =/=  ( 2nd `  q ) )  /\  y  =  ( iota_ r  e.  ( EE `  m ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) ) ) )
3534mo4 2315 . . . 4  |-  ( E* x E. n  e.  NN  ( ( p  e.  ( ( EE
`  n )  X.  ( EE `  n
) )  /\  q  e.  ( ( EE `  n )  X.  ( EE `  n ) )  /\  ( 1st `  q
)  =/=  ( 2nd `  q ) )  /\  x  =  ( iota_ r  e.  ( EE `  n ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) )  <->  A. x A. y ( ( E. n  e.  NN  ( ( p  e.  ( ( EE
`  n )  X.  ( EE `  n
) )  /\  q  e.  ( ( EE `  n )  X.  ( EE `  n ) )  /\  ( 1st `  q
)  =/=  ( 2nd `  q ) )  /\  x  =  ( iota_ r  e.  ( EE `  n ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) )  /\  E. m  e.  NN  ( ( p  e.  ( ( EE
`  m )  X.  ( EE `  m
) )  /\  q  e.  ( ( EE `  m )  X.  ( EE `  m ) )  /\  ( 1st `  q
)  =/=  ( 2nd `  q ) )  /\  y  =  ( iota_ r  e.  ( EE `  m ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) ) )  ->  x  =  y ) )
3624, 35mpbir 209 . . 3  |-  E* x E. n  e.  NN  ( ( p  e.  ( ( EE `  n )  X.  ( EE `  n ) )  /\  q  e.  ( ( EE `  n
)  X.  ( EE
`  n ) )  /\  ( 1st `  q
)  =/=  ( 2nd `  q ) )  /\  x  =  ( iota_ r  e.  ( EE `  n ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) )
3736funoprab 6185 . 2  |-  Fun  { <. <. p ,  q
>. ,  x >.  |  E. n  e.  NN  ( ( p  e.  ( ( EE `  n )  X.  ( EE `  n ) )  /\  q  e.  ( ( EE `  n
)  X.  ( EE
`  n ) )  /\  ( 1st `  q
)  =/=  ( 2nd `  q ) )  /\  x  =  ( iota_ r  e.  ( EE `  n ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) ) }
38 df-transport 28012 . . 3  |- TransportTo  =  { <. <. p ,  q
>. ,  x >.  |  E. n  e.  NN  ( ( p  e.  ( ( EE `  n )  X.  ( EE `  n ) )  /\  q  e.  ( ( EE `  n
)  X.  ( EE
`  n ) )  /\  ( 1st `  q
)  =/=  ( 2nd `  q ) )  /\  x  =  ( iota_ r  e.  ( EE `  n ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) ) }
3938funeqi 5433 . 2  |-  ( Fun TransportTo  <->  Fun  {
<. <. p ,  q
>. ,  x >.  |  E. n  e.  NN  ( ( p  e.  ( ( EE `  n )  X.  ( EE `  n ) )  /\  q  e.  ( ( EE `  n
)  X.  ( EE
`  n ) )  /\  ( 1st `  q
)  =/=  ( 2nd `  q ) )  /\  x  =  ( iota_ r  e.  ( EE `  n ) ( ( 2nd `  q ) 
Btwn  <. ( 1st `  q
) ,  r >.  /\  <. ( 2nd `  q
) ,  r >.Cgr p ) ) ) } )
4037, 39mpbir 209 1  |-  Fun TransportTo
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    /\ wa 369    /\ w3a 965   A.wal 1367    = wceq 1369    e. wcel 1756   E*wmo 2253    =/= wne 2601   E.wrex 2711   <.cop 3878   class class class wbr 4287    X. cxp 4833   Fun wfun 5407   ` cfv 5413   iota_crio 6046   {coprab 6087   1stc1st 6570   2ndc2nd 6571   NNcn 10314   EEcee 23085    Btwn cbtwn 23086  Cgrccgr 23087  TransportToctransport 28011
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1591  ax-4 1602  ax-5 1670  ax-6 1708  ax-7 1728  ax-8 1758  ax-9 1760  ax-10 1775  ax-11 1780  ax-12 1792  ax-13 1943  ax-ext 2419  ax-sep 4408  ax-nul 4416  ax-pow 4465  ax-pr 4526  ax-un 6367  ax-cnex 9330  ax-resscn 9331  ax-1cn 9332  ax-icn 9333  ax-addcl 9334  ax-addrcl 9335  ax-mulcl 9336  ax-mulrcl 9337  ax-mulcom 9338  ax-addass 9339  ax-mulass 9340  ax-distr 9341  ax-i2m1 9342  ax-1ne0 9343  ax-1rid 9344  ax-rnegex 9345  ax-rrecex 9346  ax-cnre 9347  ax-pre-lttri 9348  ax-pre-lttrn 9349  ax-pre-ltadd 9350  ax-pre-mulgt0 9351
This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 966  df-3an 967  df-tru 1372  df-ex 1587  df-nf 1590  df-sb 1701  df-eu 2256  df-mo 2257  df-clab 2425  df-cleq 2431  df-clel 2434  df-nfc 2563  df-ne 2603  df-nel 2604  df-ral 2715  df-rex 2716  df-reu 2717  df-rab 2719  df-v 2969  df-sbc 3182  df-csb 3284  df-dif 3326  df-un 3328  df-in 3330  df-ss 3337  df-pss 3339  df-nul 3633  df-if 3787  df-pw 3857  df-sn 3873  df-pr 3875  df-tp 3877  df-op 3879  df-uni 4087  df-iun 4168  df-br 4288  df-opab 4346  df-mpt 4347  df-tr 4381  df-eprel 4627  df-id 4631  df-po 4636  df-so 4637  df-fr 4674  df-we 4676  df-ord 4717  df-on 4718  df-lim 4719  df-suc 4720  df-xp 4841  df-rel 4842  df-cnv 4843  df-co 4844  df-dm 4845  df-rn 4846  df-res 4847  df-ima 4848  df-iota 5376  df-fun 5415  df-fn 5416  df-f 5417  df-f1 5418  df-fo 5419  df-f1o 5420  df-fv 5421  df-riota 6047  df-ov 6089  df-oprab 6090  df-mpt2 6091  df-om 6472  df-1st 6572  df-2nd 6573  df-recs 6824  df-rdg 6858  df-er 7093  df-map 7208  df-en 7303  df-dom 7304  df-sdom 7305  df-pnf 9412  df-mnf 9413  df-xr 9414  df-ltxr 9415  df-le 9416  df-sub 9589  df-neg 9590  df-nn 10315  df-z 10639  df-uz 10854  df-fz 11430  df-ee 23088  df-transport 28012
This theorem is referenced by:  fvtransport  28014
  Copyright terms: Public domain W3C validator