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

Theorem oieq2 7828
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 4807 . . . 4  |-  ( A  =  B  ->  ( R  We  A  <->  R  We  B ) )
2 seeq2 4791 . . . 4  |-  ( A  =  B  ->  ( R Se  A  <->  R Se  B )
)
31, 2anbi12d 710 . . 3  |-  ( A  =  B  ->  (
( R  We  A  /\  R Se  A )  <->  ( R  We  B  /\  R Se  B ) ) )
4 rabeq 3062 . . . . . . 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 3019 . . . . . . 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 6154 . . . . . 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 4477 . . . . 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 6933 . . . . 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 16 . . . 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 5266 . . . . . . 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 3019 . . . . . 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 3022 . . . . 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 3060 . . . 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 5209 . . 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 } ) )
153, 14ifbieq1d 3910 . 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 } ) ,  (/) ) )
16 df-oi 7825 . 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 } ) ,  (/) )
17 df-oi 7825 . 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 } ) ,  (/) )
1815, 16, 173eqtr4g 2517 1  |-  ( A  =  B  -> OrdIso ( R ,  A )  = OrdIso
( R ,  B
) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 369    = wceq 1370   A.wral 2795   E.wrex 2796   {crab 2799   _Vcvv 3068   (/)c0 3735   ifcif 3889   class class class wbr 4390    |-> cmpt 4448   Se wse 4775    We wwe 4776   Oncon0 4817   ran crn 4939    |` cres 4940   "cima 4941   iota_crio 6150  recscrecs 6931  OrdIsocoi 7824
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1592  ax-4 1603  ax-5 1671  ax-6 1710  ax-7 1730  ax-10 1777  ax-11 1782  ax-12 1794  ax-13 1952  ax-ext 2430  ax-sep 4511
This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3an 967  df-tru 1373  df-ex 1588  df-nf 1591  df-sb 1703  df-clab 2437  df-cleq 2443  df-clel 2446  df-nfc 2601  df-ral 2800  df-rex 2801  df-rab 2804  df-v 3070  df-dif 3429  df-un 3431  df-in 3433  df-ss 3440  df-nul 3736  df-if 3890  df-sn 3976  df-pr 3978  df-op 3982  df-uni 4190  df-br 4391  df-opab 4449  df-mpt 4450  df-po 4739  df-so 4740  df-fr 4777  df-se 4778  df-we 4779  df-xp 4944  df-cnv 4946  df-dm 4948  df-rn 4949  df-res 4950  df-ima 4951  df-iota 5479  df-fv 5524  df-riota 6151  df-recs 6932  df-oi 7825
This theorem is referenced by:  hartogslem1  7857  cantnffvalOLD  7972  cantnfval  7977  cantnf0  7984  cantnfres  7986  cantnf  8002  cantnfvalOLD  8007  cantnfOLD  8024  dfac12lem1  8413  dfac12r  8416  hsmexlem2  8697  hsmexlem4  8699  ltbwe  17661
  Copyright terms: Public domain W3C validator