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

Theorem bnj611 29266
Description: Technical lemma for bnj852 29269. This lemma may no longer be used or have become an indirect lemma of the theorem in question (i.e. a lemma of a lemma... of the theorem). (Contributed by Jonathan Ben-Naim, 3-Jun-2011.) (New usage is discouraged.)
Hypotheses
Ref Expression
bnj611.1  |-  ( ps  <->  A. i  e.  om  ( suc  i  e.  N  ->  ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) ) )
bnj611.2  |-  ( ps"  <->  [. G  / 
f ]. ps )
bnj611.3  |-  G  e. 
_V
Assertion
Ref Expression
bnj611  |-  ( ps"  <->  A. i  e.  om  ( suc  i  e.  N  ->  ( G `
 suc  i )  =  U_ y  e.  ( G `  i ) 
pred ( y ,  A ,  R ) ) )
Distinct variable groups:    A, f    i, G, y    f, N    R, f    f, i, y
Allowed substitution hints:    ps( y, f, i)    A( y, i)    R( y, i)    G( f)    N( y, i)    ps"( y, f, i)

Proof of Theorem bnj611
Dummy variable  e is distinct from all other variables.
StepHypRef Expression
1 bnj611.2 . 2  |-  ( ps"  <->  [. G  / 
f ]. ps )
2 df-ral 2561 . . . . 5  |-  ( A. i  e.  om  ( suc  i  e.  N  ->  ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) )  <->  A. i
( i  e.  om  ->  ( suc  i  e.  N  ->  ( f `  suc  i )  = 
U_ y  e.  ( f `  i ) 
pred ( y ,  A ,  R ) ) ) )
32bicomi 193 . . . 4  |-  ( A. i ( i  e. 
om  ->  ( suc  i  e.  N  ->  ( f `
 suc  i )  =  U_ y  e.  ( f `  i ) 
pred ( y ,  A ,  R ) ) )  <->  A. i  e.  om  ( suc  i  e.  N  ->  ( f `
 suc  i )  =  U_ y  e.  ( f `  i ) 
pred ( y ,  A ,  R ) ) )
4 bnj611.3 . . . 4  |-  G  e. 
_V
53, 4bnj524 29082 . . 3  |-  ( [. G  /  f ]. A. i ( i  e. 
om  ->  ( suc  i  e.  N  ->  ( f `
 suc  i )  =  U_ y  e.  ( f `  i ) 
pred ( y ,  A ,  R ) ) )  <->  [. G  / 
f ]. A. i  e. 
om  ( suc  i  e.  N  ->  ( f `
 suc  i )  =  U_ y  e.  ( f `  i ) 
pred ( y ,  A ,  R ) ) )
6 nfv 1609 . . . . . . . 8  |-  F/ f  i  e.  om
76sbc19.21g 3068 . . . . . . 7  |-  ( G  e.  _V  ->  ( [. G  /  f ]. ( i  e.  om  ->  ( suc  i  e.  N  ->  ( f `  suc  i )  = 
U_ y  e.  ( f `  i ) 
pred ( y ,  A ,  R ) ) )  <->  ( i  e.  om  ->  [. G  / 
f ]. ( suc  i  e.  N  ->  ( f `
 suc  i )  =  U_ y  e.  ( f `  i ) 
pred ( y ,  A ,  R ) ) ) ) )
84, 7ax-mp 8 . . . . . 6  |-  ( [. G  /  f ]. (
i  e.  om  ->  ( suc  i  e.  N  ->  ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) ) )  <-> 
( i  e.  om  ->  [. G  /  f ]. ( suc  i  e.  N  ->  ( f `  suc  i )  = 
U_ y  e.  ( f `  i ) 
pred ( y ,  A ,  R ) ) ) )
9 nfv 1609 . . . . . . . . . 10  |-  F/ f  suc  i  e.  N
109sbc19.21g 3068 . . . . . . . . 9  |-  ( G  e.  _V  ->  ( [. G  /  f ]. ( suc  i  e.  N  ->  ( f `  suc  i )  = 
U_ y  e.  ( f `  i ) 
pred ( y ,  A ,  R ) )  <->  ( suc  i  e.  N  ->  [. G  /  f ]. (
f `  suc  i )  =  U_ y  e.  ( f `  i
)  pred ( y ,  A ,  R ) ) ) )
114, 10ax-mp 8 . . . . . . . 8  |-  ( [. G  /  f ]. ( suc  i  e.  N  ->  ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) )  <->  ( suc  i  e.  N  ->  [. G  /  f ]. ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) ) )
12 fveq1 5540 . . . . . . . . . . 11  |-  ( f  =  G  ->  (
f `  suc  i )  =  ( G `  suc  i ) )
13 fveq1 5540 . . . . . . . . . . . 12  |-  ( f  =  G  ->  (
f `  i )  =  ( G `  i ) )
1413bnj1113 29133 . . . . . . . . . . 11  |-  ( f  =  G  ->  U_ y  e.  ( f `  i
)  pred ( y ,  A ,  R )  =  U_ y  e.  ( G `  i
)  pred ( y ,  A ,  R ) )
1512, 14eqeq12d 2310 . . . . . . . . . 10  |-  ( f  =  G  ->  (
( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R )  <->  ( G `  suc  i )  = 
U_ y  e.  ( G `  i ) 
pred ( y ,  A ,  R ) ) )
16 fveq1 5540 . . . . . . . . . . 11  |-  ( f  =  e  ->  (
f `  suc  i )  =  ( e `  suc  i ) )
17 fveq1 5540 . . . . . . . . . . . 12  |-  ( f  =  e  ->  (
f `  i )  =  ( e `  i ) )
1817bnj1113 29133 . . . . . . . . . . 11  |-  ( f  =  e  ->  U_ y  e.  ( f `  i
)  pred ( y ,  A ,  R )  =  U_ y  e.  ( e `  i
)  pred ( y ,  A ,  R ) )
1916, 18eqeq12d 2310 . . . . . . . . . 10  |-  ( f  =  e  ->  (
( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R )  <->  ( e `  suc  i )  = 
U_ y  e.  ( e `  i ) 
pred ( y ,  A ,  R ) ) )
20 fveq1 5540 . . . . . . . . . . 11  |-  ( e  =  G  ->  (
e `  suc  i )  =  ( G `  suc  i ) )
21 fveq1 5540 . . . . . . . . . . . 12  |-  ( e  =  G  ->  (
e `  i )  =  ( G `  i ) )
2221bnj1113 29133 . . . . . . . . . . 11  |-  ( e  =  G  ->  U_ y  e.  ( e `  i
)  pred ( y ,  A ,  R )  =  U_ y  e.  ( G `  i
)  pred ( y ,  A ,  R ) )
2320, 22eqeq12d 2310 . . . . . . . . . 10  |-  ( e  =  G  ->  (
( e `  suc  i )  =  U_ y  e.  ( e `  i )  pred (
y ,  A ,  R )  <->  ( G `  suc  i )  = 
U_ y  e.  ( G `  i ) 
pred ( y ,  A ,  R ) ) )
244, 15, 19, 23bnj610 29092 . . . . . . . . 9  |-  ( [. G  /  f ]. (
f `  suc  i )  =  U_ y  e.  ( f `  i
)  pred ( y ,  A ,  R )  <-> 
( G `  suc  i )  =  U_ y  e.  ( G `  i )  pred (
y ,  A ,  R ) )
2524imbi2i 303 . . . . . . . 8  |-  ( ( suc  i  e.  N  ->  [. G  /  f ]. ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) )  <->  ( suc  i  e.  N  ->  ( G `  suc  i
)  =  U_ y  e.  ( G `  i
)  pred ( y ,  A ,  R ) ) )
2611, 25bitri 240 . . . . . . 7  |-  ( [. G  /  f ]. ( suc  i  e.  N  ->  ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) )  <->  ( suc  i  e.  N  ->  ( G `  suc  i
)  =  U_ y  e.  ( G `  i
)  pred ( y ,  A ,  R ) ) )
2726imbi2i 303 . . . . . 6  |-  ( ( i  e.  om  ->  [. G  /  f ]. ( suc  i  e.  N  ->  ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) ) )  <-> 
( i  e.  om  ->  ( suc  i  e.  N  ->  ( G `  suc  i )  = 
U_ y  e.  ( G `  i ) 
pred ( y ,  A ,  R ) ) ) )
288, 27bitri 240 . . . . 5  |-  ( [. G  /  f ]. (
i  e.  om  ->  ( suc  i  e.  N  ->  ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) ) )  <-> 
( i  e.  om  ->  ( suc  i  e.  N  ->  ( G `  suc  i )  = 
U_ y  e.  ( G `  i ) 
pred ( y ,  A ,  R ) ) ) )
2928albii 1556 . . . 4  |-  ( A. i [. G  /  f ]. ( i  e.  om  ->  ( suc  i  e.  N  ->  ( f `  suc  i )  = 
U_ y  e.  ( f `  i ) 
pred ( y ,  A ,  R ) ) )  <->  A. i
( i  e.  om  ->  ( suc  i  e.  N  ->  ( G `  suc  i )  = 
U_ y  e.  ( G `  i ) 
pred ( y ,  A ,  R ) ) ) )
30 sbcalg 3052 . . . . 5  |-  ( G  e.  _V  ->  ( [. G  /  f ]. A. i ( i  e.  om  ->  ( suc  i  e.  N  ->  ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) ) )  <->  A. i [. G  / 
f ]. ( i  e. 
om  ->  ( suc  i  e.  N  ->  ( f `
 suc  i )  =  U_ y  e.  ( f `  i ) 
pred ( y ,  A ,  R ) ) ) ) )
314, 30ax-mp 8 . . . 4  |-  ( [. G  /  f ]. A. i ( i  e. 
om  ->  ( suc  i  e.  N  ->  ( f `
 suc  i )  =  U_ y  e.  ( f `  i ) 
pred ( y ,  A ,  R ) ) )  <->  A. i [. G  /  f ]. ( i  e.  om  ->  ( suc  i  e.  N  ->  ( f `  suc  i )  = 
U_ y  e.  ( f `  i ) 
pred ( y ,  A ,  R ) ) ) )
32 df-ral 2561 . . . 4  |-  ( A. i  e.  om  ( suc  i  e.  N  ->  ( G `  suc  i )  =  U_ y  e.  ( G `  i )  pred (
y ,  A ,  R ) )  <->  A. i
( i  e.  om  ->  ( suc  i  e.  N  ->  ( G `  suc  i )  = 
U_ y  e.  ( G `  i ) 
pred ( y ,  A ,  R ) ) ) )
3329, 31, 323bitr4ri 269 . . 3  |-  ( A. i  e.  om  ( suc  i  e.  N  ->  ( G `  suc  i )  =  U_ y  e.  ( G `  i )  pred (
y ,  A ,  R ) )  <->  [. G  / 
f ]. A. i ( i  e.  om  ->  ( suc  i  e.  N  ->  ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) ) ) )
34 bnj611.1 . . . 4  |-  ( ps  <->  A. i  e.  om  ( suc  i  e.  N  ->  ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) ) )
3534, 4bnj524 29082 . . 3  |-  ( [. G  /  f ]. ps  <->  [. G  /  f ]. A. i  e.  om  ( suc  i  e.  N  ->  ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) ) )
365, 33, 353bitr4ri 269 . 2  |-  ( [. G  /  f ]. ps  <->  A. i  e.  om  ( suc  i  e.  N  ->  ( G `  suc  i )  =  U_ y  e.  ( G `  i )  pred (
y ,  A ,  R ) ) )
371, 36bitri 240 1  |-  ( ps"  <->  A. i  e.  om  ( suc  i  e.  N  ->  ( G `
 suc  i )  =  U_ y  e.  ( G `  i ) 
pred ( y ,  A ,  R ) ) )
Colors of variables: wff set class
Syntax hints:    -> wi 4    <-> wb 176   A.wal 1530    = wceq 1632    e. wcel 1696   A.wral 2556   _Vcvv 2801   [.wsbc 3004   U_ciun 3921   suc csuc 4410   omcom 4672   ` cfv 5271    predc-bnj14 29029
This theorem is referenced by:  bnj600  29267  bnj908  29279
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-6 1715  ax-7 1720  ax-11 1727  ax-12 1878  ax-ext 2277
This theorem depends on definitions:  df-bi 177  df-or 359  df-an 360  df-3an 936  df-tru 1310  df-ex 1532  df-nf 1535  df-sb 1639  df-clab 2283  df-cleq 2289  df-clel 2292  df-nfc 2421  df-ral 2561  df-rex 2562  df-v 2803  df-sbc 3005  df-in 3172  df-ss 3179  df-uni 3844  df-iun 3923  df-br 4040  df-iota 5235  df-fv 5279
  Copyright terms: Public domain W3C validator