Users' Mathboxes Mathbox for Jonathan Ben-Naim < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  bnj18eq1 Structured version   Unicode version

Theorem bnj18eq1 29690
Description: Equality theorem for transitive closure. (Contributed by Mario Carneiro, 22-Dec-2016.) (New usage is discouraged.)
Assertion
Ref Expression
bnj18eq1  |-  ( X  =  Y  ->  trCl ( X ,  A ,  R )  =  trCl ( Y ,  A ,  R ) )

Proof of Theorem bnj18eq1
Dummy variables  f 
i  n  x  y are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 bnj602 29678 . . . . . . . . . . 11  |-  ( X  =  Y  ->  pred ( X ,  A ,  R )  =  pred ( Y ,  A ,  R ) )
21eqeq2d 2438 . . . . . . . . . 10  |-  ( X  =  Y  ->  (
( f `  (/) )  = 
pred ( X ,  A ,  R )  <->  ( f `  (/) )  = 
pred ( Y ,  A ,  R )
) )
323anbi2d 1340 . . . . . . . . 9  |-  ( X  =  Y  ->  (
( f  Fn  n  /\  ( f `  (/) )  = 
pred ( X ,  A ,  R )  /\  A. i  e.  om  ( suc  i  e.  n  ->  ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) ) )  <-> 
( f  Fn  n  /\  ( f `  (/) )  = 
pred ( Y ,  A ,  R )  /\  A. i  e.  om  ( suc  i  e.  n  ->  ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) ) ) ) )
43rexbidv 2878 . . . . . . . 8  |-  ( X  =  Y  ->  ( E. n  e.  ( om  \  { (/) } ) ( f  Fn  n  /\  ( f `  (/) )  = 
pred ( X ,  A ,  R )  /\  A. i  e.  om  ( suc  i  e.  n  ->  ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) ) )  <->  E. n  e.  ( om  \  { (/) } ) ( f  Fn  n  /\  ( f `  (/) )  = 
pred ( Y ,  A ,  R )  /\  A. i  e.  om  ( suc  i  e.  n  ->  ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) ) ) ) )
54abbidv 2546 . . . . . . 7  |-  ( X  =  Y  ->  { f  |  E. n  e.  ( om  \  { (/)
} ) ( f  Fn  n  /\  (
f `  (/) )  = 
pred ( X ,  A ,  R )  /\  A. i  e.  om  ( suc  i  e.  n  ->  ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) ) ) }  =  { f  |  E. n  e.  ( om  \  { (/)
} ) ( f  Fn  n  /\  (
f `  (/) )  = 
pred ( Y ,  A ,  R )  /\  A. i  e.  om  ( suc  i  e.  n  ->  ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) ) ) } )
65eleq2d 2491 . . . . . 6  |-  ( X  =  Y  ->  (
f  e.  { f  |  E. n  e.  ( om  \  { (/)
} ) ( f  Fn  n  /\  (
f `  (/) )  = 
pred ( X ,  A ,  R )  /\  A. i  e.  om  ( suc  i  e.  n  ->  ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) ) ) }  <->  f  e.  {
f  |  E. n  e.  ( om  \  { (/)
} ) ( f  Fn  n  /\  (
f `  (/) )  = 
pred ( Y ,  A ,  R )  /\  A. i  e.  om  ( suc  i  e.  n  ->  ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) ) ) } ) )
76anbi1d 709 . . . . 5  |-  ( X  =  Y  ->  (
( f  e.  {
f  |  E. n  e.  ( om  \  { (/)
} ) ( f  Fn  n  /\  (
f `  (/) )  = 
pred ( X ,  A ,  R )  /\  A. i  e.  om  ( suc  i  e.  n  ->  ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) ) ) }  /\  x  e. 
U_ i  e.  dom  f ( f `  i ) )  <->  ( f  e.  { f  |  E. n  e.  ( om  \  { (/) } ) ( f  Fn  n  /\  ( f `  (/) )  = 
pred ( Y ,  A ,  R )  /\  A. i  e.  om  ( suc  i  e.  n  ->  ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) ) ) }  /\  x  e. 
U_ i  e.  dom  f ( f `  i ) ) ) )
87rexbidv2 2874 . . . 4  |-  ( X  =  Y  ->  ( E. f  e.  { f  |  E. n  e.  ( om  \  { (/)
} ) ( f  Fn  n  /\  (
f `  (/) )  = 
pred ( X ,  A ,  R )  /\  A. i  e.  om  ( suc  i  e.  n  ->  ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) ) ) } x  e.  U_ i  e.  dom  f ( f `  i )  <->  E. f  e.  { f  |  E. n  e.  ( om  \  { (/)
} ) ( f  Fn  n  /\  (
f `  (/) )  = 
pred ( Y ,  A ,  R )  /\  A. i  e.  om  ( suc  i  e.  n  ->  ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) ) ) } x  e.  U_ i  e.  dom  f ( f `  i ) ) )
98abbidv 2546 . . 3  |-  ( X  =  Y  ->  { x  |  E. f  e.  {
f  |  E. n  e.  ( om  \  { (/)
} ) ( f  Fn  n  /\  (
f `  (/) )  = 
pred ( X ,  A ,  R )  /\  A. i  e.  om  ( suc  i  e.  n  ->  ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) ) ) } x  e.  U_ i  e.  dom  f ( f `  i ) }  =  { x  |  E. f  e.  {
f  |  E. n  e.  ( om  \  { (/)
} ) ( f  Fn  n  /\  (
f `  (/) )  = 
pred ( Y ,  A ,  R )  /\  A. i  e.  om  ( suc  i  e.  n  ->  ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) ) ) } x  e.  U_ i  e.  dom  f ( f `  i ) } )
10 df-iun 4244 . . 3  |-  U_ f  e.  { f  |  E. n  e.  ( om  \  { (/) } ) ( f  Fn  n  /\  ( f `  (/) )  = 
pred ( X ,  A ,  R )  /\  A. i  e.  om  ( suc  i  e.  n  ->  ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) ) ) } U_ i  e. 
dom  f ( f `
 i )  =  { x  |  E. f  e.  { f  |  E. n  e.  ( om  \  { (/) } ) ( f  Fn  n  /\  ( f `
 (/) )  =  pred ( X ,  A ,  R )  /\  A. i  e.  om  ( suc  i  e.  n  ->  ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) ) ) } x  e.  U_ i  e.  dom  f ( f `  i ) }
11 df-iun 4244 . . 3  |-  U_ f  e.  { f  |  E. n  e.  ( om  \  { (/) } ) ( f  Fn  n  /\  ( f `  (/) )  = 
pred ( Y ,  A ,  R )  /\  A. i  e.  om  ( suc  i  e.  n  ->  ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) ) ) } U_ i  e. 
dom  f ( f `
 i )  =  { x  |  E. f  e.  { f  |  E. n  e.  ( om  \  { (/) } ) ( f  Fn  n  /\  ( f `
 (/) )  =  pred ( Y ,  A ,  R )  /\  A. i  e.  om  ( suc  i  e.  n  ->  ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) ) ) } x  e.  U_ i  e.  dom  f ( f `  i ) }
129, 10, 113eqtr4g 2487 . 2  |-  ( X  =  Y  ->  U_ f  e.  { f  |  E. n  e.  ( om  \  { (/) } ) ( f  Fn  n  /\  ( f `  (/) )  = 
pred ( X ,  A ,  R )  /\  A. i  e.  om  ( suc  i  e.  n  ->  ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) ) ) } U_ i  e. 
dom  f ( f `
 i )  = 
U_ f  e.  {
f  |  E. n  e.  ( om  \  { (/)
} ) ( f  Fn  n  /\  (
f `  (/) )  = 
pred ( Y ,  A ,  R )  /\  A. i  e.  om  ( suc  i  e.  n  ->  ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) ) ) } U_ i  e. 
dom  f ( f `
 i ) )
13 df-bnj18 29452 . 2  |-  trCl ( X ,  A ,  R )  =  U_ f  e.  { f  |  E. n  e.  ( om  \  { (/) } ) ( f  Fn  n  /\  ( f `
 (/) )  =  pred ( X ,  A ,  R )  /\  A. i  e.  om  ( suc  i  e.  n  ->  ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) ) ) } U_ i  e. 
dom  f ( f `
 i )
14 df-bnj18 29452 . 2  |-  trCl ( Y ,  A ,  R )  =  U_ f  e.  { f  |  E. n  e.  ( om  \  { (/) } ) ( f  Fn  n  /\  ( f `
 (/) )  =  pred ( Y ,  A ,  R )  /\  A. i  e.  om  ( suc  i  e.  n  ->  ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) ) ) } U_ i  e. 
dom  f ( f `
 i )
1512, 13, 143eqtr4g 2487 1  |-  ( X  =  Y  ->  trCl ( X ,  A ,  R )  =  trCl ( Y ,  A ,  R ) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    /\ w3a 982    = wceq 1437    e. wcel 1872   {cab 2414   A.wral 2714   E.wrex 2715    \ cdif 3376   (/)c0 3704   {csn 3941   U_ciun 4242   dom cdm 4796   suc csuc 5387    Fn wfn 5539   ` cfv 5544   omcom 6650    predc-bnj14 29445    trClc-bnj18 29451
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1663  ax-4 1676  ax-5 1752  ax-6 1798  ax-7 1843  ax-10 1891  ax-11 1896  ax-12 1909  ax-13 2063  ax-ext 2408
This theorem depends on definitions:  df-bi 188  df-or 371  df-an 372  df-3an 984  df-tru 1440  df-ex 1658  df-nf 1662  df-sb 1791  df-clab 2415  df-cleq 2421  df-clel 2424  df-nfc 2558  df-ral 2719  df-rex 2720  df-rab 2723  df-v 3024  df-dif 3382  df-un 3384  df-in 3386  df-ss 3393  df-nul 3705  df-if 3855  df-sn 3942  df-pr 3944  df-op 3948  df-iun 4244  df-br 4367  df-bnj14 29446  df-bnj18 29452
This theorem is referenced by:  bnj1137  29756
  Copyright terms: Public domain W3C validator