MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  ordtbas2 Unicode version

Theorem ordtbas2 16937
Description: Lemma for ordtbas 16938. (Contributed by Mario Carneiro, 3-Sep-2015.)
Hypotheses
Ref Expression
ordtval.1  |-  X  =  dom  R
ordtval.2  |-  A  =  ran  ( x  e.  X  |->  { y  e.  X  |  -.  y R x } )
ordtval.3  |-  B  =  ran  ( x  e.  X  |->  { y  e.  X  |  -.  x R y } )
ordtval.4  |-  C  =  ran  ( a  e.  X ,  b  e.  X  |->  { y  e.  X  |  ( -.  y R a  /\  -.  b R y ) } )
Assertion
Ref Expression
ordtbas2  |-  ( R  e.  TosetRel  ->  ( fi `  ( A  u.  B
) )  =  ( ( A  u.  B
)  u.  C ) )
Distinct variable groups:    a, b, A    x, a, y, R, b    X, a, b, x, y    B, a, b
Allowed substitution hints:    A( x, y)    B( x, y)    C( x, y, a, b)

Proof of Theorem ordtbas2
Dummy variables  m  n  z are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 ssun1 3351 . . . . . 6  |-  A  C_  ( A  u.  B
)
2 ssun2 3352 . . . . . . 7  |-  ( A  u.  B )  C_  ( { X }  u.  ( A  u.  B
) )
3 ordtval.1 . . . . . . . . . 10  |-  X  =  dom  R
4 ordtval.2 . . . . . . . . . 10  |-  A  =  ran  ( x  e.  X  |->  { y  e.  X  |  -.  y R x } )
5 ordtval.3 . . . . . . . . . 10  |-  B  =  ran  ( x  e.  X  |->  { y  e.  X  |  -.  x R y } )
63, 4, 5ordtuni 16936 . . . . . . . . 9  |-  ( R  e.  TosetRel  ->  X  =  U. ( { X }  u.  ( A  u.  B
) ) )
7 dmexg 4955 . . . . . . . . . 10  |-  ( R  e.  TosetRel  ->  dom  R  e.  _V )
83, 7syl5eqel 2380 . . . . . . . . 9  |-  ( R  e.  TosetRel  ->  X  e.  _V )
96, 8eqeltrrd 2371 . . . . . . . 8  |-  ( R  e.  TosetRel  ->  U. ( { X }  u.  ( A  u.  B ) )  e. 
_V )
10 uniexb 4579 . . . . . . . 8  |-  ( ( { X }  u.  ( A  u.  B
) )  e.  _V  <->  U. ( { X }  u.  ( A  u.  B
) )  e.  _V )
119, 10sylibr 203 . . . . . . 7  |-  ( R  e.  TosetRel  ->  ( { X }  u.  ( A  u.  B ) )  e. 
_V )
12 ssexg 4176 . . . . . . 7  |-  ( ( ( A  u.  B
)  C_  ( { X }  u.  ( A  u.  B )
)  /\  ( { X }  u.  ( A  u.  B )
)  e.  _V )  ->  ( A  u.  B
)  e.  _V )
132, 11, 12sylancr 644 . . . . . 6  |-  ( R  e.  TosetRel  ->  ( A  u.  B )  e.  _V )
14 ssexg 4176 . . . . . 6  |-  ( ( A  C_  ( A  u.  B )  /\  ( A  u.  B )  e.  _V )  ->  A  e.  _V )
151, 13, 14sylancr 644 . . . . 5  |-  ( R  e.  TosetRel  ->  A  e.  _V )
16 ssun2 3352 . . . . . 6  |-  B  C_  ( A  u.  B
)
17 ssexg 4176 . . . . . 6  |-  ( ( B  C_  ( A  u.  B )  /\  ( A  u.  B )  e.  _V )  ->  B  e.  _V )
1816, 13, 17sylancr 644 . . . . 5  |-  ( R  e.  TosetRel  ->  B  e.  _V )
19 elfiun 7199 . . . . 5  |-  ( ( A  e.  _V  /\  B  e.  _V )  ->  ( z  e.  ( fi `  ( A  u.  B ) )  <-> 
( z  e.  ( fi `  A )  \/  z  e.  ( fi `  B )  \/  E. m  e.  ( fi `  A
) E. n  e.  ( fi `  B
) z  =  ( m  i^i  n ) ) ) )
2015, 18, 19syl2anc 642 . . . 4  |-  ( R  e.  TosetRel  ->  ( z  e.  ( fi `  ( A  u.  B )
)  <->  ( z  e.  ( fi `  A
)  \/  z  e.  ( fi `  B
)  \/  E. m  e.  ( fi `  A
) E. n  e.  ( fi `  B
) z  =  ( m  i^i  n ) ) ) )
213, 4ordtbaslem 16934 . . . . . . . . 9  |-  ( R  e.  TosetRel  ->  ( fi `  A )  =  A )
2221sseq1d 3218 . . . . . . . 8  |-  ( R  e.  TosetRel  ->  ( ( fi
`  A )  C_  ( A  u.  B
)  <->  A  C_  ( A  u.  B ) ) )
231, 22mpbiri 224 . . . . . . 7  |-  ( R  e.  TosetRel  ->  ( fi `  A )  C_  ( A  u.  B )
)
24 ssun1 3351 . . . . . . 7  |-  ( A  u.  B )  C_  ( ( A  u.  B )  u.  C
)
2523, 24syl6ss 3204 . . . . . 6  |-  ( R  e.  TosetRel  ->  ( fi `  A )  C_  (
( A  u.  B
)  u.  C ) )
2625sseld 3192 . . . . 5  |-  ( R  e.  TosetRel  ->  ( z  e.  ( fi `  A
)  ->  z  e.  ( ( A  u.  B )  u.  C
) ) )
27 cnvtsr 14347 . . . . . . . . . . 11  |-  ( R  e.  TosetRel  ->  `' R  e.  TosetRel  )
28 df-rn 4716 . . . . . . . . . . . 12  |-  ran  R  =  dom  `' R
29 eqid 2296 . . . . . . . . . . . 12  |-  ran  (
x  e.  ran  R  |->  { y  e.  ran  R  |  -.  y `' R x } )  =  ran  ( x  e.  ran  R  |->  { y  e.  ran  R  |  -.  y `' R x } )
3028, 29ordtbaslem 16934 . . . . . . . . . . 11  |-  ( `' R  e.  TosetRel  ->  ( fi `  ran  ( x  e.  ran  R  |->  { y  e.  ran  R  |  -.  y `' R x } ) )  =  ran  ( x  e. 
ran  R  |->  { y  e.  ran  R  |  -.  y `' R x } ) )
3127, 30syl 15 . . . . . . . . . 10  |-  ( R  e.  TosetRel  ->  ( fi `  ran  ( x  e.  ran  R 
|->  { y  e.  ran  R  |  -.  y `' R x } ) )  =  ran  (
x  e.  ran  R  |->  { y  e.  ran  R  |  -.  y `' R x } ) )
32 tsrps 14346 . . . . . . . . . . . . . . 15  |-  ( R  e.  TosetRel  ->  R  e.  PosetRel )
333psrn 14334 . . . . . . . . . . . . . . 15  |-  ( R  e.  PosetRel  ->  X  =  ran  R )
3432, 33syl 15 . . . . . . . . . . . . . 14  |-  ( R  e.  TosetRel  ->  X  =  ran  R )
35 vex 2804 . . . . . . . . . . . . . . . . . . 19  |-  y  e. 
_V
36 vex 2804 . . . . . . . . . . . . . . . . . . 19  |-  x  e. 
_V
3735, 36brcnv 4880 . . . . . . . . . . . . . . . . . 18  |-  ( y `' R x  <->  x R
y )
3837bicomi 193 . . . . . . . . . . . . . . . . 17  |-  ( x R y  <->  y `' R x )
3938notbii 287 . . . . . . . . . . . . . . . 16  |-  ( -.  x R y  <->  -.  y `' R x )
4039a1i 10 . . . . . . . . . . . . . . 15  |-  ( R  e.  TosetRel  ->  ( -.  x R y  <->  -.  y `' R x ) )
4134, 40rabeqbidv 2796 . . . . . . . . . . . . . 14  |-  ( R  e.  TosetRel  ->  { y  e.  X  |  -.  x R y }  =  { y  e.  ran  R  |  -.  y `' R x } )
4234, 41mpteq12dv 4114 . . . . . . . . . . . . 13  |-  ( R  e.  TosetRel  ->  ( x  e.  X  |->  { y  e.  X  |  -.  x R y } )  =  ( x  e. 
ran  R  |->  { y  e.  ran  R  |  -.  y `' R x } ) )
4342rneqd 4922 . . . . . . . . . . . 12  |-  ( R  e.  TosetRel  ->  ran  ( x  e.  X  |->  { y  e.  X  |  -.  x R y } )  =  ran  ( x  e.  ran  R  |->  { y  e.  ran  R  |  -.  y `' R x } ) )
445, 43syl5eq 2340 . . . . . . . . . . 11  |-  ( R  e.  TosetRel  ->  B  =  ran  ( x  e.  ran  R 
|->  { y  e.  ran  R  |  -.  y `' R x } ) )
4544fveq2d 5545 . . . . . . . . . 10  |-  ( R  e.  TosetRel  ->  ( fi `  B )  =  ( fi `  ran  (
x  e.  ran  R  |->  { y  e.  ran  R  |  -.  y `' R x } ) ) )
4631, 45, 443eqtr4d 2338 . . . . . . . . 9  |-  ( R  e.  TosetRel  ->  ( fi `  B )  =  B )
4746sseq1d 3218 . . . . . . . 8  |-  ( R  e.  TosetRel  ->  ( ( fi
`  B )  C_  ( A  u.  B
)  <->  B  C_  ( A  u.  B ) ) )
4816, 47mpbiri 224 . . . . . . 7  |-  ( R  e.  TosetRel  ->  ( fi `  B )  C_  ( A  u.  B )
)
4948, 24syl6ss 3204 . . . . . 6  |-  ( R  e.  TosetRel  ->  ( fi `  B )  C_  (
( A  u.  B
)  u.  C ) )
5049sseld 3192 . . . . 5  |-  ( R  e.  TosetRel  ->  ( z  e.  ( fi `  B
)  ->  z  e.  ( ( A  u.  B )  u.  C
) ) )
51 ssun2 3352 . . . . . . . 8  |-  C  C_  ( ( A  u.  B )  u.  C
)
5221, 4syl6eq 2344 . . . . . . . . . . . . . . 15  |-  ( R  e.  TosetRel  ->  ( fi `  A )  =  ran  ( x  e.  X  |->  { y  e.  X  |  -.  y R x } ) )
5352eleq2d 2363 . . . . . . . . . . . . . 14  |-  ( R  e.  TosetRel  ->  ( m  e.  ( fi `  A
)  <->  m  e.  ran  ( x  e.  X  |->  { y  e.  X  |  -.  y R x } ) ) )
54 vex 2804 . . . . . . . . . . . . . . 15  |-  m  e. 
_V
55 breq2 4043 . . . . . . . . . . . . . . . . . . 19  |-  ( x  =  a  ->  (
y R x  <->  y R
a ) )
5655notbid 285 . . . . . . . . . . . . . . . . . 18  |-  ( x  =  a  ->  ( -.  y R x  <->  -.  y R a ) )
5756rabbidv 2793 . . . . . . . . . . . . . . . . 17  |-  ( x  =  a  ->  { y  e.  X  |  -.  y R x }  =  { y  e.  X  |  -.  y R a } )
5857cbvmptv 4127 . . . . . . . . . . . . . . . 16  |-  ( x  e.  X  |->  { y  e.  X  |  -.  y R x } )  =  ( a  e.  X  |->  { y  e.  X  |  -.  y R a } )
5958elrnmpt 4942 . . . . . . . . . . . . . . 15  |-  ( m  e.  _V  ->  (
m  e.  ran  (
x  e.  X  |->  { y  e.  X  |  -.  y R x }
)  <->  E. a  e.  X  m  =  { y  e.  X  |  -.  y R a } ) )
6054, 59ax-mp 8 . . . . . . . . . . . . . 14  |-  ( m  e.  ran  ( x  e.  X  |->  { y  e.  X  |  -.  y R x } )  <->  E. a  e.  X  m  =  { y  e.  X  |  -.  y R a } )
6153, 60syl6bb 252 . . . . . . . . . . . . 13  |-  ( R  e.  TosetRel  ->  ( m  e.  ( fi `  A
)  <->  E. a  e.  X  m  =  { y  e.  X  |  -.  y R a } ) )
6246, 5syl6eq 2344 . . . . . . . . . . . . . . 15  |-  ( R  e.  TosetRel  ->  ( fi `  B )  =  ran  ( x  e.  X  |->  { y  e.  X  |  -.  x R y } ) )
6362eleq2d 2363 . . . . . . . . . . . . . 14  |-  ( R  e.  TosetRel  ->  ( n  e.  ( fi `  B
)  <->  n  e.  ran  ( x  e.  X  |->  { y  e.  X  |  -.  x R y } ) ) )
64 vex 2804 . . . . . . . . . . . . . . 15  |-  n  e. 
_V
65 breq1 4042 . . . . . . . . . . . . . . . . . . 19  |-  ( x  =  b  ->  (
x R y  <->  b R
y ) )
6665notbid 285 . . . . . . . . . . . . . . . . . 18  |-  ( x  =  b  ->  ( -.  x R y  <->  -.  b R y ) )
6766rabbidv 2793 . . . . . . . . . . . . . . . . 17  |-  ( x  =  b  ->  { y  e.  X  |  -.  x R y }  =  { y  e.  X  |  -.  b R y } )
6867cbvmptv 4127 . . . . . . . . . . . . . . . 16  |-  ( x  e.  X  |->  { y  e.  X  |  -.  x R y } )  =  ( b  e.  X  |->  { y  e.  X  |  -.  b R y } )
6968elrnmpt 4942 . . . . . . . . . . . . . . 15  |-  ( n  e.  _V  ->  (
n  e.  ran  (
x  e.  X  |->  { y  e.  X  |  -.  x R y } )  <->  E. b  e.  X  n  =  { y  e.  X  |  -.  b R y } ) )
7064, 69ax-mp 8 . . . . . . . . . . . . . 14  |-  ( n  e.  ran  ( x  e.  X  |->  { y  e.  X  |  -.  x R y } )  <->  E. b  e.  X  n  =  { y  e.  X  |  -.  b R y } )
7163, 70syl6bb 252 . . . . . . . . . . . . 13  |-  ( R  e.  TosetRel  ->  ( n  e.  ( fi `  B
)  <->  E. b  e.  X  n  =  { y  e.  X  |  -.  b R y } ) )
7261, 71anbi12d 691 . . . . . . . . . . . 12  |-  ( R  e.  TosetRel  ->  ( ( m  e.  ( fi `  A )  /\  n  e.  ( fi `  B
) )  <->  ( E. a  e.  X  m  =  { y  e.  X  |  -.  y R a }  /\  E. b  e.  X  n  =  { y  e.  X  |  -.  b R y } ) ) )
73 reeanv 2720 . . . . . . . . . . . . 13  |-  ( E. a  e.  X  E. b  e.  X  (
m  =  { y  e.  X  |  -.  y R a }  /\  n  =  { y  e.  X  |  -.  b R y } )  <-> 
( E. a  e.  X  m  =  {
y  e.  X  |  -.  y R a }  /\  E. b  e.  X  n  =  {
y  e.  X  |  -.  b R y } ) )
74 ineq12 3378 . . . . . . . . . . . . . . . 16  |-  ( ( m  =  { y  e.  X  |  -.  y R a }  /\  n  =  { y  e.  X  |  -.  b R y } )  ->  ( m  i^i  n )  =  ( { y  e.  X  |  -.  y R a }  i^i  { y  e.  X  |  -.  b R y } ) )
75 inrab 3453 . . . . . . . . . . . . . . . 16  |-  ( { y  e.  X  |  -.  y R a }  i^i  { y  e.  X  |  -.  b R y } )  =  { y  e.  X  |  ( -.  y R a  /\  -.  b R y ) }
7674, 75syl6eq 2344 . . . . . . . . . . . . . . 15  |-  ( ( m  =  { y  e.  X  |  -.  y R a }  /\  n  =  { y  e.  X  |  -.  b R y } )  ->  ( m  i^i  n )  =  {
y  e.  X  | 
( -.  y R a  /\  -.  b R y ) } )
7776reximi 2663 . . . . . . . . . . . . . 14  |-  ( E. b  e.  X  ( m  =  { y  e.  X  |  -.  y R a }  /\  n  =  { y  e.  X  |  -.  b R y } )  ->  E. b  e.  X  ( m  i^i  n
)  =  { y  e.  X  |  ( -.  y R a  /\  -.  b R y ) } )
7877reximi 2663 . . . . . . . . . . . . 13  |-  ( E. a  e.  X  E. b  e.  X  (
m  =  { y  e.  X  |  -.  y R a }  /\  n  =  { y  e.  X  |  -.  b R y } )  ->  E. a  e.  X  E. b  e.  X  ( m  i^i  n
)  =  { y  e.  X  |  ( -.  y R a  /\  -.  b R y ) } )
7973, 78sylbir 204 . . . . . . . . . . . 12  |-  ( ( E. a  e.  X  m  =  { y  e.  X  |  -.  y R a }  /\  E. b  e.  X  n  =  { y  e.  X  |  -.  b R y } )  ->  E. a  e.  X  E. b  e.  X  ( m  i^i  n
)  =  { y  e.  X  |  ( -.  y R a  /\  -.  b R y ) } )
8072, 79syl6bi 219 . . . . . . . . . . 11  |-  ( R  e.  TosetRel  ->  ( ( m  e.  ( fi `  A )  /\  n  e.  ( fi `  B
) )  ->  E. a  e.  X  E. b  e.  X  ( m  i^i  n )  =  {
y  e.  X  | 
( -.  y R a  /\  -.  b R y ) } ) )
8180imp 418 . . . . . . . . . 10  |-  ( ( R  e.  TosetRel  /\  (
m  e.  ( fi
`  A )  /\  n  e.  ( fi `  B ) ) )  ->  E. a  e.  X  E. b  e.  X  ( m  i^i  n
)  =  { y  e.  X  |  ( -.  y R a  /\  -.  b R y ) } )
8254inex1 4171 . . . . . . . . . . 11  |-  ( m  i^i  n )  e. 
_V
83 eqid 2296 . . . . . . . . . . . 12  |-  ( a  e.  X ,  b  e.  X  |->  { y  e.  X  |  ( -.  y R a  /\  -.  b R y ) } )  =  ( a  e.  X ,  b  e.  X  |->  { y  e.  X  |  ( -.  y R a  /\  -.  b R y ) } )
8483elrnmpt2g 5972 . . . . . . . . . . 11  |-  ( ( m  i^i  n )  e.  _V  ->  (
( m  i^i  n
)  e.  ran  (
a  e.  X , 
b  e.  X  |->  { y  e.  X  | 
( -.  y R a  /\  -.  b R y ) } )  <->  E. a  e.  X  E. b  e.  X  ( m  i^i  n
)  =  { y  e.  X  |  ( -.  y R a  /\  -.  b R y ) } ) )
8582, 84ax-mp 8 . . . . . . . . . 10  |-  ( ( m  i^i  n )  e.  ran  ( a  e.  X ,  b  e.  X  |->  { y  e.  X  |  ( -.  y R a  /\  -.  b R y ) } )  <->  E. a  e.  X  E. b  e.  X  ( m  i^i  n
)  =  { y  e.  X  |  ( -.  y R a  /\  -.  b R y ) } )
8681, 85sylibr 203 . . . . . . . . 9  |-  ( ( R  e.  TosetRel  /\  (
m  e.  ( fi
`  A )  /\  n  e.  ( fi `  B ) ) )  ->  ( m  i^i  n )  e.  ran  ( a  e.  X ,  b  e.  X  |->  { y  e.  X  |  ( -.  y R a  /\  -.  b R y ) } ) )
87 ordtval.4 . . . . . . . . 9  |-  C  =  ran  ( a  e.  X ,  b  e.  X  |->  { y  e.  X  |  ( -.  y R a  /\  -.  b R y ) } )
8886, 87syl6eleqr 2387 . . . . . . . 8  |-  ( ( R  e.  TosetRel  /\  (
m  e.  ( fi
`  A )  /\  n  e.  ( fi `  B ) ) )  ->  ( m  i^i  n )  e.  C
)
8951, 88sseldi 3191 . . . . . . 7  |-  ( ( R  e.  TosetRel  /\  (
m  e.  ( fi
`  A )  /\  n  e.  ( fi `  B ) ) )  ->  ( m  i^i  n )  e.  ( ( A  u.  B
)  u.  C ) )
90 eleq1 2356 . . . . . . 7  |-  ( z  =  ( m  i^i  n )  ->  (
z  e.  ( ( A  u.  B )  u.  C )  <->  ( m  i^i  n )  e.  ( ( A  u.  B
)  u.  C ) ) )
9189, 90syl5ibrcom 213 . . . . . 6  |-  ( ( R  e.  TosetRel  /\  (
m  e.  ( fi
`  A )  /\  n  e.  ( fi `  B ) ) )  ->  ( z  =  ( m  i^i  n
)  ->  z  e.  ( ( A  u.  B )  u.  C
) ) )
9291rexlimdvva 2687 . . . . 5  |-  ( R  e.  TosetRel  ->  ( E. m  e.  ( fi `  A
) E. n  e.  ( fi `  B
) z  =  ( m  i^i  n )  ->  z  e.  ( ( A  u.  B
)  u.  C ) ) )
9326, 50, 923jaod 1246 . . . 4  |-  ( R  e.  TosetRel  ->  ( ( z  e.  ( fi `  A )  \/  z  e.  ( fi `  B
)  \/  E. m  e.  ( fi `  A
) E. n  e.  ( fi `  B
) z  =  ( m  i^i  n ) )  ->  z  e.  ( ( A  u.  B )  u.  C
) ) )
9420, 93sylbid 206 . . 3  |-  ( R  e.  TosetRel  ->  ( z  e.  ( fi `  ( A  u.  B )
)  ->  z  e.  ( ( A  u.  B )  u.  C
) ) )
9594ssrdv 3198 . 2  |-  ( R  e.  TosetRel  ->  ( fi `  ( A  u.  B
) )  C_  (
( A  u.  B
)  u.  C ) )
96 ssfii 7188 . . . 4  |-  ( ( A  u.  B )  e.  _V  ->  ( A  u.  B )  C_  ( fi `  ( A  u.  B )
) )
9713, 96syl 15 . . 3  |-  ( R  e.  TosetRel  ->  ( A  u.  B )  C_  ( fi `  ( A  u.  B ) ) )
9897adantr 451 . . . . . . . . . 10  |-  ( ( R  e.  TosetRel  /\  (
a  e.  X  /\  b  e.  X )
)  ->  ( A  u.  B )  C_  ( fi `  ( A  u.  B ) ) )
99 simprl 732 . . . . . . . . . . . . . 14  |-  ( ( R  e.  TosetRel  /\  (
a  e.  X  /\  b  e.  X )
)  ->  a  e.  X )
100 eqidd 2297 . . . . . . . . . . . . . 14  |-  ( ( R  e.  TosetRel  /\  (
a  e.  X  /\  b  e.  X )
)  ->  { y  e.  X  |  -.  y R a }  =  { y  e.  X  |  -.  y R a } )
10157eqeq2d 2307 . . . . . . . . . . . . . . 15  |-  ( x  =  a  ->  ( { y  e.  X  |  -.  y R a }  =  { y  e.  X  |  -.  y R x }  <->  { y  e.  X  |  -.  y R a }  =  { y  e.  X  |  -.  y R a } ) )
102101rspcev 2897 . . . . . . . . . . . . . 14  |-  ( ( a  e.  X  /\  { y  e.  X  |  -.  y R a }  =  { y  e.  X  |  -.  y R a } )  ->  E. x  e.  X  { y  e.  X  |  -.  y R a }  =  { y  e.  X  |  -.  y R x } )
10399, 100, 102syl2anc 642 . . . . . . . . . . . . 13  |-  ( ( R  e.  TosetRel  /\  (
a  e.  X  /\  b  e.  X )
)  ->  E. x  e.  X  { y  e.  X  |  -.  y R a }  =  { y  e.  X  |  -.  y R x } )
1048adantr 451 . . . . . . . . . . . . . 14  |-  ( ( R  e.  TosetRel  /\  (
a  e.  X  /\  b  e.  X )
)  ->  X  e.  _V )
105 rabexg 4180 . . . . . . . . . . . . . 14  |-  ( X  e.  _V  ->  { y  e.  X  |  -.  y R a }  e.  _V )
106 eqid 2296 . . . . . . . . . . . . . . 15  |-  ( x  e.  X  |->  { y  e.  X  |  -.  y R x } )  =  ( x  e.  X  |->  { y  e.  X  |  -.  y R x } )
107106elrnmpt 4942 . . . . . . . . . . . . . 14  |-  ( { y  e.  X  |  -.  y R a }  e.  _V  ->  ( { y  e.  X  |  -.  y R a }  e.  ran  (
x  e.  X  |->  { y  e.  X  |  -.  y R x }
)  <->  E. x  e.  X  { y  e.  X  |  -.  y R a }  =  { y  e.  X  |  -.  y R x } ) )
108104, 105, 1073syl 18 . . . . . . . . . . . . 13  |-  ( ( R  e.  TosetRel  /\  (
a  e.  X  /\  b  e.  X )
)  ->  ( {
y  e.  X  |  -.  y R a }  e.  ran  ( x  e.  X  |->  { y  e.  X  |  -.  y R x } )  <->  E. x  e.  X  { y  e.  X  |  -.  y R a }  =  { y  e.  X  |  -.  y R x } ) )
109103, 108mpbird 223 . . . . . . . . . . . 12  |-  ( ( R  e.  TosetRel  /\  (
a  e.  X  /\  b  e.  X )
)  ->  { y  e.  X  |  -.  y R a }  e.  ran  ( x  e.  X  |->  { y  e.  X  |  -.  y R x } ) )
110109, 4syl6eleqr 2387 . . . . . . . . . . 11  |-  ( ( R  e.  TosetRel  /\  (
a  e.  X  /\  b  e.  X )
)  ->  { y  e.  X  |  -.  y R a }  e.  A )
1111, 110sseldi 3191 . . . . . . . . . 10  |-  ( ( R  e.  TosetRel  /\  (
a  e.  X  /\  b  e.  X )
)  ->  { y  e.  X  |  -.  y R a }  e.  ( A  u.  B
) )
11298, 111sseldd 3194 . . . . . . . . 9  |-  ( ( R  e.  TosetRel  /\  (
a  e.  X  /\  b  e.  X )
)  ->  { y  e.  X  |  -.  y R a }  e.  ( fi `  ( A  u.  B ) ) )
113 simprr 733 . . . . . . . . . . . . . 14  |-  ( ( R  e.  TosetRel  /\  (
a  e.  X  /\  b  e.  X )
)  ->  b  e.  X )
114 eqidd 2297 . . . . . . . . . . . . . 14  |-  ( ( R  e.  TosetRel  /\  (
a  e.  X  /\  b  e.  X )
)  ->  { y  e.  X  |  -.  b R y }  =  { y  e.  X  |  -.  b R y } )
11567eqeq2d 2307 . . . . . . . . . . . . . . 15  |-  ( x  =  b  ->  ( { y  e.  X  |  -.  b R y }  =  { y  e.  X  |  -.  x R y }  <->  { y  e.  X  |  -.  b R y }  =  { y  e.  X  |  -.  b R y } ) )
116115rspcev 2897 . . . . . . . . . . . . . 14  |-  ( ( b  e.  X  /\  { y  e.  X  |  -.  b R y }  =  { y  e.  X  |  -.  b R y } )  ->  E. x  e.  X  { y  e.  X  |  -.  b R y }  =  { y  e.  X  |  -.  x R y } )
117113, 114, 116syl2anc 642 . . . . . . . . . . . . 13  |-  ( ( R  e.  TosetRel  /\  (
a  e.  X  /\  b  e.  X )
)  ->  E. x  e.  X  { y  e.  X  |  -.  b R y }  =  { y  e.  X  |  -.  x R y } )
118 rabexg 4180 . . . . . . . . . . . . . 14  |-  ( X  e.  _V  ->  { y  e.  X  |  -.  b R y }  e.  _V )
119 eqid 2296 . . . . . . . . . . . . . . 15  |-  ( x  e.  X  |->  { y  e.  X  |  -.  x R y } )  =  ( x  e.  X  |->  { y  e.  X  |  -.  x R y } )
120119elrnmpt 4942 . . . . . . . . . . . . . 14  |-  ( { y  e.  X  |  -.  b R y }  e.  _V  ->  ( { y  e.  X  |  -.  b R y }  e.  ran  (
x  e.  X  |->  { y  e.  X  |  -.  x R y } )  <->  E. x  e.  X  { y  e.  X  |  -.  b R y }  =  { y  e.  X  |  -.  x R y } ) )
121104, 118, 1203syl 18 . . . . . . . . . . . . 13  |-  ( ( R  e.  TosetRel  /\  (
a  e.  X  /\  b  e.  X )
)  ->  ( {
y  e.  X  |  -.  b R y }  e.  ran  ( x  e.  X  |->  { y  e.  X  |  -.  x R y } )  <->  E. x  e.  X  { y  e.  X  |  -.  b R y }  =  { y  e.  X  |  -.  x R y } ) )
122117, 121mpbird 223 . . . . . . . . . . . 12  |-  ( ( R  e.  TosetRel  /\  (
a  e.  X  /\  b  e.  X )
)  ->  { y  e.  X  |  -.  b R y }  e.  ran  ( x  e.  X  |->  { y  e.  X  |  -.  x R y } ) )
123122, 5syl6eleqr 2387 . . . . . . . . . . 11  |-  ( ( R  e.  TosetRel  /\  (
a  e.  X  /\  b  e.  X )
)  ->  { y  e.  X  |  -.  b R y }  e.  B )
12416, 123sseldi 3191 . . . . . . . . . 10  |-  ( ( R  e.  TosetRel  /\  (
a  e.  X  /\  b  e.  X )
)  ->  { y  e.  X  |  -.  b R y }  e.  ( A  u.  B
) )
12598, 124sseldd 3194 . . . . . . . . 9  |-  ( ( R  e.  TosetRel  /\  (
a  e.  X  /\  b  e.  X )
)  ->  { y  e.  X  |  -.  b R y }  e.  ( fi `  ( A  u.  B ) ) )
126 fiin 7191 . . . . . . . . 9  |-  ( ( { y  e.  X  |  -.  y R a }  e.  ( fi
`  ( A  u.  B ) )  /\  { y  e.  X  |  -.  b R y }  e.  ( fi `  ( A  u.  B
) ) )  -> 
( { y  e.  X  |  -.  y R a }  i^i  { y  e.  X  |  -.  b R y } )  e.  ( fi
`  ( A  u.  B ) ) )
127112, 125, 126syl2anc 642 . . . . . . . 8  |-  ( ( R  e.  TosetRel  /\  (
a  e.  X  /\  b  e.  X )
)  ->  ( {
y  e.  X  |  -.  y R a }  i^i  { y  e.  X  |  -.  b R y } )  e.  ( fi `  ( A  u.  B
) ) )
12875, 127syl5eqelr 2381 . . . . . . 7  |-  ( ( R  e.  TosetRel  /\  (
a  e.  X  /\  b  e.  X )
)  ->  { y  e.  X  |  ( -.  y R a  /\  -.  b R y ) }  e.  ( fi
`  ( A  u.  B ) ) )
129128ralrimivva 2648 . . . . . 6  |-  ( R  e.  TosetRel  ->  A. a  e.  X  A. b  e.  X  { y  e.  X  |  ( -.  y R a  /\  -.  b R y ) }  e.  ( fi `  ( A  u.  B
) ) )
13083fmpt2 6207 . . . . . 6  |-  ( A. a  e.  X  A. b  e.  X  {
y  e.  X  | 
( -.  y R a  /\  -.  b R y ) }  e.  ( fi `  ( A  u.  B
) )  <->  ( a  e.  X ,  b  e.  X  |->  { y  e.  X  |  ( -.  y R a  /\  -.  b R y ) } ) : ( X  X.  X ) --> ( fi `  ( A  u.  B )
) )
131129, 130sylib 188 . . . . 5  |-  ( R  e.  TosetRel  ->  ( a  e.  X ,  b  e.  X  |->  { y  e.  X  |  ( -.  y R a  /\  -.  b R y ) } ) : ( X  X.  X ) --> ( fi `  ( A  u.  B )
) )
132 frn 5411 . . . . 5  |-  ( ( a  e.  X , 
b  e.  X  |->  { y  e.  X  | 
( -.  y R a  /\  -.  b R y ) } ) : ( X  X.  X ) --> ( fi `  ( A  u.  B ) )  ->  ran  ( a  e.  X ,  b  e.  X  |->  { y  e.  X  |  ( -.  y R a  /\  -.  b R y ) } )  C_  ( fi `  ( A  u.  B ) ) )
133131, 132syl 15 . . . 4  |-  ( R  e.  TosetRel  ->  ran  ( a  e.  X ,  b  e.  X  |->  { y  e.  X  |  ( -.  y R a  /\  -.  b R y ) } )  C_  ( fi `  ( A  u.  B ) ) )
13487, 133syl5eqss 3235 . . 3  |-  ( R  e.  TosetRel  ->  C  C_  ( fi `  ( A  u.  B ) ) )
13597, 134unssd 3364 . 2  |-  ( R  e.  TosetRel  ->  ( ( A  u.  B )  u.  C )  C_  ( fi `  ( A  u.  B ) ) )
13695, 135eqssd 3209 1  |-  ( R  e.  TosetRel  ->  ( fi `  ( A  u.  B
) )  =  ( ( A  u.  B
)  u.  C ) )
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 176    /\ wa 358    \/ w3o 933    = wceq 1632    e. wcel 1696   A.wral 2556   E.wrex 2557   {crab 2560   _Vcvv 2801    u. cun 3163    i^i cin 3164    C_ wss 3165   {csn 3653   U.cuni 3843   class class class wbr 4039    e. cmpt 4093    X. cxp 4703   `'ccnv 4704   dom cdm 4705   ran crn 4706   -->wf 5267   ` cfv 5271    e. cmpt2 5876   ficfi 7180   PosetRelcps 14317    TosetRel ctsr 14318
This theorem is referenced by:  ordtbas  16938  leordtval  16959
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1536  ax-5 1547  ax-17 1606  ax-9 1644  ax-8 1661  ax-13 1698  ax-14 1700  ax-6 1715  ax-7 1720  ax-11 1727  ax-12 1878  ax-ext 2277  ax-sep 4157  ax-nul 4165  ax-pow 4204  ax-pr 4230  ax-un 4528
This theorem depends on definitions:  df-bi 177  df-or 359  df-an 360  df-3or 935  df-3an 936  df-tru 1310  df-ex 1532  df-nf 1535  df-sb 1639  df-eu 2160  df-mo 2161  df-clab 2283  df-cleq 2289  df-clel 2292  df-nfc 2421  df-ne 2461  df-ral 2561  df-rex 2562  df-reu 2563  df-rab 2565  df-v 2803  df-sbc 3005  df-csb 3095  df-dif 3168  df-un 3170  df-in 3172  df-ss 3179  df-pss 3181  df-nul 3469  df-if 3579  df-pw 3640  df-sn 3659  df-pr 3660  df-tp 3661  df-op 3662  df-uni 3844  df-int 3879  df-iun 3923  df-br 4040  df-opab 4094  df-mpt 4095  df-tr 4130  df-eprel 4321  df-id 4325  df-po 4330  df-so 4331  df-fr 4368  df-we 4370  df-ord 4411  df-on 4412  df-lim 4413  df-suc 4414  df-om 4673  df-xp 4711  df-rel 4712  df-cnv 4713  df-co 4714  df-dm 4715  df-rn 4716  df-res 4717  df-ima 4718  df-iota 5235  df-fun 5273  df-fn 5274  df-f 5275  df-f1 5276  df-fo 5277  df-f1o 5278  df-fv 5279  df-ov 5877  df-oprab 5878  df-mpt2 5879  df-1st 6138  df-2nd 6139  df-recs 6404  df-rdg 6439  df-1o 6495  df-oadd 6499  df-er 6676  df-en 6880  df-fin 6883  df-fi 7181  df-ps 14322  df-tsr 14323
  Copyright terms: Public domain W3C validator