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

Theorem oieq2 7318
Description: Equality theorem for ordinal isomorphism. (Contributed by Mario Carneiro, 23-May-2015.)
Assertion
Ref Expression
oieq2  |-  ( A  =  B  -> OrdIso ( R ,  A )  = OrdIso
( R ,  B
) )

Proof of Theorem oieq2
Dummy variables  h  j  t  u  v  w  x  z are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 weeq2 4464 . . . 4  |-  ( A  =  B  ->  ( R  We  A  <->  R  We  B ) )
2 seeq2 4448 . . . 4  |-  ( A  =  B  ->  ( R Se  A  <->  R Se  B )
)
31, 2anbi12d 691 . . 3  |-  ( A  =  B  ->  (
( R  We  A  /\  R Se  A )  <->  ( R  We  B  /\  R Se  B ) ) )
4 rabeq 2858 . . . . . . 7  |-  ( A  =  B  ->  { w  e.  A  |  A. j  e.  ran  h  j R w }  =  { w  e.  B  |  A. j  e.  ran  h  j R w } )
54raleqdv 2818 . . . . . . 7  |-  ( A  =  B  ->  ( A. u  e.  { w  e.  A  |  A. j  e.  ran  h  j R w }  -.  u R v  <->  A. u  e.  { w  e.  B  |  A. j  e.  ran  h  j R w }  -.  u R v ) )
64, 5riotaeqbidv 6394 . . . . . 6  |-  ( A  =  B  ->  ( iota_ v  e.  { w  e.  A  |  A. j  e.  ran  h  j R w } A. u  e.  { w  e.  A  |  A. j  e.  ran  h  j R w }  -.  u R v )  =  ( iota_ v  e.  {
w  e.  B  |  A. j  e.  ran  h  j R w } A. u  e. 
{ w  e.  B  |  A. j  e.  ran  h  j R w }  -.  u R v ) )
76mpteq2dv 4188 . . . . 5  |-  ( A  =  B  ->  (
h  e.  _V  |->  (
iota_ v  e.  { w  e.  A  |  A. j  e.  ran  h  j R w } A. u  e.  { w  e.  A  |  A. j  e.  ran  h  j R w }  -.  u R v ) )  =  ( h  e. 
_V  |->  ( iota_ v  e. 
{ w  e.  B  |  A. j  e.  ran  h  j R w } A. u  e. 
{ w  e.  B  |  A. j  e.  ran  h  j R w }  -.  u R v ) ) )
8 recseq 6476 . . . . 5  |-  ( ( h  e.  _V  |->  (
iota_ v  e.  { w  e.  A  |  A. j  e.  ran  h  j R w } A. u  e.  { w  e.  A  |  A. j  e.  ran  h  j R w }  -.  u R v ) )  =  ( h  e. 
_V  |->  ( iota_ v  e. 
{ w  e.  B  |  A. j  e.  ran  h  j R w } A. u  e. 
{ w  e.  B  |  A. j  e.  ran  h  j R w }  -.  u R v ) )  -> recs ( ( h  e. 
_V  |->  ( iota_ v  e. 
{ w  e.  A  |  A. j  e.  ran  h  j R w } A. u  e. 
{ w  e.  A  |  A. j  e.  ran  h  j R w }  -.  u R v ) ) )  = recs ( ( h  e.  _V  |->  ( iota_ v  e.  { w  e.  B  |  A. j  e.  ran  h  j R w } A. u  e.  { w  e.  B  |  A. j  e.  ran  h  j R w }  -.  u R v ) ) ) )
97, 8syl 15 . . . 4  |-  ( A  =  B  -> recs ( ( h  e.  _V  |->  (
iota_ v  e.  { w  e.  A  |  A. j  e.  ran  h  j R w } A. u  e.  { w  e.  A  |  A. j  e.  ran  h  j R w }  -.  u R v ) ) )  = recs ( ( h  e.  _V  |->  (
iota_ v  e.  { w  e.  B  |  A. j  e.  ran  h  j R w } A. u  e.  { w  e.  B  |  A. j  e.  ran  h  j R w }  -.  u R v ) ) ) )
109imaeq1d 5093 . . . . . . 7  |-  ( A  =  B  ->  (recs ( ( h  e. 
_V  |->  ( iota_ v  e. 
{ w  e.  A  |  A. j  e.  ran  h  j R w } A. u  e. 
{ w  e.  A  |  A. j  e.  ran  h  j R w }  -.  u R v ) ) )
" x )  =  (recs ( ( h  e.  _V  |->  ( iota_ v  e.  { w  e.  B  |  A. j  e.  ran  h  j R w } A. u  e.  { w  e.  B  |  A. j  e.  ran  h  j R w }  -.  u R v ) ) )
" x ) )
1110raleqdv 2818 . . . . . 6  |-  ( A  =  B  ->  ( A. z  e.  (recs ( ( h  e. 
_V  |->  ( iota_ v  e. 
{ w  e.  A  |  A. j  e.  ran  h  j R w } A. u  e. 
{ w  e.  A  |  A. j  e.  ran  h  j R w }  -.  u R v ) ) )
" x ) z R t  <->  A. z  e.  (recs ( ( h  e.  _V  |->  ( iota_ v  e.  { w  e.  B  |  A. j  e.  ran  h  j R w } A. u  e.  { w  e.  B  |  A. j  e.  ran  h  j R w }  -.  u R v ) ) )
" x ) z R t ) )
1211rexeqbi1dv 2821 . . . . 5  |-  ( A  =  B  ->  ( E. t  e.  A  A. z  e.  (recs ( ( h  e. 
_V  |->  ( iota_ v  e. 
{ w  e.  A  |  A. j  e.  ran  h  j R w } A. u  e. 
{ w  e.  A  |  A. j  e.  ran  h  j R w }  -.  u R v ) ) )
" x ) z R t  <->  E. t  e.  B  A. z  e.  (recs ( ( h  e.  _V  |->  ( iota_ v  e.  { w  e.  B  |  A. j  e.  ran  h  j R w } A. u  e.  { w  e.  B  |  A. j  e.  ran  h  j R w }  -.  u R v ) ) )
" x ) z R t ) )
1312rabbidv 2856 . . . 4  |-  ( A  =  B  ->  { x  e.  On  |  E. t  e.  A  A. z  e.  (recs ( ( h  e.  _V  |->  ( iota_ v  e.  { w  e.  A  |  A. j  e.  ran  h  j R w } A. u  e.  { w  e.  A  |  A. j  e.  ran  h  j R w }  -.  u R v ) ) )
" x ) z R t }  =  { x  e.  On  |  E. t  e.  B  A. z  e.  (recs ( ( h  e. 
_V  |->  ( iota_ v  e. 
{ w  e.  B  |  A. j  e.  ran  h  j R w } A. u  e. 
{ w  e.  B  |  A. j  e.  ran  h  j R w }  -.  u R v ) ) )
" x ) z R t } )
149, 13reseq12d 5038 . . 3  |-  ( A  =  B  ->  (recs ( ( h  e. 
_V  |->  ( iota_ v  e. 
{ w  e.  A  |  A. j  e.  ran  h  j R w } A. u  e. 
{ w  e.  A  |  A. j  e.  ran  h  j R w }  -.  u R v ) ) )  |`  { x  e.  On  |  E. t  e.  A  A. z  e.  (recs ( ( h  e. 
_V  |->  ( iota_ v  e. 
{ w  e.  A  |  A. j  e.  ran  h  j R w } A. u  e. 
{ w  e.  A  |  A. j  e.  ran  h  j R w }  -.  u R v ) ) )
" x ) z R t } )  =  (recs ( ( h  e.  _V  |->  (
iota_ v  e.  { w  e.  B  |  A. j  e.  ran  h  j R w } A. u  e.  { w  e.  B  |  A. j  e.  ran  h  j R w }  -.  u R v ) ) )  |`  { x  e.  On  |  E. t  e.  B  A. z  e.  (recs ( ( h  e.  _V  |->  ( iota_ v  e.  { w  e.  B  |  A. j  e.  ran  h  j R w } A. u  e.  { w  e.  B  |  A. j  e.  ran  h  j R w }  -.  u R v ) ) )
" x ) z R t } ) )
15 eqidd 2359 . . 3  |-  ( A  =  B  ->  (/)  =  (/) )
163, 14, 15ifbieq12d 3663 . 2  |-  ( A  =  B  ->  if ( ( R  We  A  /\  R Se  A ) ,  (recs ( ( h  e.  _V  |->  (
iota_ v  e.  { w  e.  A  |  A. j  e.  ran  h  j R w } A. u  e.  { w  e.  A  |  A. j  e.  ran  h  j R w }  -.  u R v ) ) )  |`  { x  e.  On  |  E. t  e.  A  A. z  e.  (recs ( ( h  e.  _V  |->  ( iota_ v  e.  { w  e.  A  |  A. j  e.  ran  h  j R w } A. u  e.  { w  e.  A  |  A. j  e.  ran  h  j R w }  -.  u R v ) ) )
" x ) z R t } ) ,  (/) )  =  if ( ( R  We  B  /\  R Se  B ) ,  (recs ( ( h  e.  _V  |->  (
iota_ v  e.  { w  e.  B  |  A. j  e.  ran  h  j R w } A. u  e.  { w  e.  B  |  A. j  e.  ran  h  j R w }  -.  u R v ) ) )  |`  { x  e.  On  |  E. t  e.  B  A. z  e.  (recs ( ( h  e.  _V  |->  ( iota_ v  e.  { w  e.  B  |  A. j  e.  ran  h  j R w } A. u  e.  { w  e.  B  |  A. j  e.  ran  h  j R w }  -.  u R v ) ) )
" x ) z R t } ) ,  (/) ) )
17 df-oi 7315 . 2  |- OrdIso ( R ,  A )  =  if ( ( R  We  A  /\  R Se  A ) ,  (recs ( ( h  e. 
_V  |->  ( iota_ v  e. 
{ w  e.  A  |  A. j  e.  ran  h  j R w } A. u  e. 
{ w  e.  A  |  A. j  e.  ran  h  j R w }  -.  u R v ) ) )  |`  { x  e.  On  |  E. t  e.  A  A. z  e.  (recs ( ( h  e. 
_V  |->  ( iota_ v  e. 
{ w  e.  A  |  A. j  e.  ran  h  j R w } A. u  e. 
{ w  e.  A  |  A. j  e.  ran  h  j R w }  -.  u R v ) ) )
" x ) z R t } ) ,  (/) )
18 df-oi 7315 . 2  |- OrdIso ( R ,  B )  =  if ( ( R  We  B  /\  R Se  B ) ,  (recs ( ( h  e. 
_V  |->  ( iota_ v  e. 
{ w  e.  B  |  A. j  e.  ran  h  j R w } A. u  e. 
{ w  e.  B  |  A. j  e.  ran  h  j R w }  -.  u R v ) ) )  |`  { x  e.  On  |  E. t  e.  B  A. z  e.  (recs ( ( h  e. 
_V  |->  ( iota_ v  e. 
{ w  e.  B  |  A. j  e.  ran  h  j R w } A. u  e. 
{ w  e.  B  |  A. j  e.  ran  h  j R w }  -.  u R v ) ) )
" x ) z R t } ) ,  (/) )
1916, 17, 183eqtr4g 2415 1  |-  ( A  =  B  -> OrdIso ( R ,  A )  = OrdIso
( R ,  B
) )
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 358    = wceq 1642   A.wral 2619   E.wrex 2620   {crab 2623   _Vcvv 2864   (/)c0 3531   ifcif 3641   class class class wbr 4104    e. cmpt 4158   Se wse 4432    We wwe 4433   Oncon0 4474   ran crn 4772    |` cres 4773   "cima 4774   iota_crio 6384  recscrecs 6474  OrdIsocoi 7314
This theorem is referenced by:  hartogslem1  7347  cantnfval  7459  cantnf0  7466  cantnfres  7469  cantnf  7485  dfac12lem1  7859  dfac12r  7862  hsmexlem2  8143  hsmexlem4  8145  ltbwe  16313
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1546  ax-5 1557  ax-17 1616  ax-9 1654  ax-8 1675  ax-6 1729  ax-7 1734  ax-11 1746  ax-12 1930  ax-ext 2339  ax-sep 4222
This theorem depends on definitions:  df-bi 177  df-or 359  df-an 360  df-3an 936  df-tru 1319  df-ex 1542  df-nf 1545  df-sb 1649  df-eu 2213  df-clab 2345  df-cleq 2351  df-clel 2354  df-nfc 2483  df-ral 2624  df-rex 2625  df-reu 2626  df-rab 2628  df-v 2866  df-dif 3231  df-un 3233  df-in 3235  df-ss 3242  df-nul 3532  df-if 3642  df-sn 3722  df-pr 3723  df-op 3725  df-uni 3909  df-br 4105  df-opab 4159  df-mpt 4160  df-po 4396  df-so 4397  df-fr 4434  df-se 4435  df-we 4436  df-xp 4777  df-cnv 4779  df-dm 4781  df-rn 4782  df-res 4783  df-ima 4784  df-iota 5301  df-fv 5345  df-riota 6391  df-recs 6475  df-oi 7315
  Copyright terms: Public domain W3C validator