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

Theorem bnj1000 32289
Description: Technical lemma for bnj852 32269. 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
bnj1000.1  |-  ( ps  <->  A. i  e.  om  ( suc  i  e.  N  ->  ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) ) )
bnj1000.2  |-  ( ps"  <->  [. G  / 
f ]. ps )
bnj1000.3  |-  G  e. 
_V
bnj1000.15  |-  C  = 
U_ y  e.  ( f `  m ) 
pred ( y ,  A ,  R )
bnj1000.16  |-  G  =  ( f  u.  { <. n ,  C >. } )
Assertion
Ref Expression
bnj1000  |-  ( 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    f, N    R, f    f, i, y    y, n
Allowed substitution hints:    ps( y, f, i, m, n)    A( y, i, m, n)    C( y, f, i, m, n)    R( y, i, m, n)    G( y, f, m, n)    N( y, i, m, n)    ps"( y, f, i, m, n)

Proof of Theorem bnj1000
Dummy variables  e  w are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 bnj1000.2 . 2  |-  ( ps"  <->  [. G  / 
f ]. ps )
2 df-ral 2804 . . . . 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 202 . . . 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 ) ) )
43sbcbii 3354 . . 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 ) ) )
5 bnj1000.3 . . . . . . 7  |-  G  e. 
_V
6 nfv 1674 . . . . . . . 8  |-  F/ f  i  e.  om
76sbc19.21g 3367 . . . . . . 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 ) ) ) ) )
85, 7ax-mp 5 . . . . . 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 1674 . . . . . . . . . 10  |-  F/ f  suc  i  e.  N
109sbc19.21g 3367 . . . . . . . . 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 ) ) ) )
115, 10ax-mp 5 . . . . . . . 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 5801 . . . . . . . . . . 11  |-  ( f  =  G  ->  (
f `  suc  i )  =  ( G `  suc  i ) )
13 fveq1 5801 . . . . . . . . . . . 12  |-  ( f  =  G  ->  (
f `  i )  =  ( G `  i ) )
14 ax-5 1671 . . . . . . . . . . . . 13  |-  ( w  e.  ( f `  i )  ->  A. y  w  e.  ( f `  i ) )
15 bnj1000.16 . . . . . . . . . . . . . . . 16  |-  G  =  ( f  u.  { <. n ,  C >. } )
16 nfcv 2616 . . . . . . . . . . . . . . . . 17  |-  F/_ y
f
17 nfcv 2616 . . . . . . . . . . . . . . . . . . 19  |-  F/_ y
n
18 bnj1000.15 . . . . . . . . . . . . . . . . . . . 20  |-  C  = 
U_ y  e.  ( f `  m ) 
pred ( y ,  A ,  R )
19 nfiu1 4311 . . . . . . . . . . . . . . . . . . . 20  |-  F/_ y U_ y  e.  (
f `  m )  pred ( y ,  A ,  R )
2018, 19nfcxfr 2614 . . . . . . . . . . . . . . . . . . 19  |-  F/_ y C
2117, 20nfop 4186 . . . . . . . . . . . . . . . . . 18  |-  F/_ y <. n ,  C >.
2221nfsn 4045 . . . . . . . . . . . . . . . . 17  |-  F/_ y { <. n ,  C >. }
2316, 22nfun 3623 . . . . . . . . . . . . . . . 16  |-  F/_ y
( f  u.  { <. n ,  C >. } )
2415, 23nfcxfr 2614 . . . . . . . . . . . . . . 15  |-  F/_ y G
25 nfcv 2616 . . . . . . . . . . . . . . 15  |-  F/_ y
i
2624, 25nffv 5809 . . . . . . . . . . . . . 14  |-  F/_ y
( G `  i
)
2726nfcrii 2608 . . . . . . . . . . . . 13  |-  ( w  e.  ( G `  i )  ->  A. y  w  e.  ( G `  i ) )
2814, 27bnj1316 32169 . . . . . . . . . . . 12  |-  ( ( f `  i )  =  ( G `  i )  ->  U_ y  e.  ( f `  i
)  pred ( y ,  A ,  R )  =  U_ y  e.  ( G `  i
)  pred ( y ,  A ,  R ) )
2913, 28syl 16 . . . . . . . . . . 11  |-  ( f  =  G  ->  U_ y  e.  ( f `  i
)  pred ( y ,  A ,  R )  =  U_ y  e.  ( G `  i
)  pred ( y ,  A ,  R ) )
3012, 29eqeq12d 2476 . . . . . . . . . 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 ) ) )
31 fveq1 5801 . . . . . . . . . . 11  |-  ( f  =  e  ->  (
f `  suc  i )  =  ( e `  suc  i ) )
32 fveq1 5801 . . . . . . . . . . . 12  |-  ( f  =  e  ->  (
f `  i )  =  ( e `  i ) )
33 ax-5 1671 . . . . . . . . . . . . 13  |-  ( ( f `  i )  =  ( e `  i )  ->  A. y
( f `  i
)  =  ( e `
 i ) )
3433bnj956 32125 . . . . . . . . . . . 12  |-  ( ( f `  i )  =  ( e `  i )  ->  U_ y  e.  ( f `  i
)  pred ( y ,  A ,  R )  =  U_ y  e.  ( e `  i
)  pred ( y ,  A ,  R ) )
3532, 34syl 16 . . . . . . . . . . 11  |-  ( f  =  e  ->  U_ y  e.  ( f `  i
)  pred ( y ,  A ,  R )  =  U_ y  e.  ( e `  i
)  pred ( y ,  A ,  R ) )
3631, 35eqeq12d 2476 . . . . . . . . . 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 ) ) )
37 fveq1 5801 . . . . . . . . . . 11  |-  ( e  =  G  ->  (
e `  suc  i )  =  ( G `  suc  i ) )
38 fveq1 5801 . . . . . . . . . . . 12  |-  ( e  =  G  ->  (
e `  i )  =  ( G `  i ) )
39 ax-5 1671 . . . . . . . . . . . . 13  |-  ( w  e.  ( e `  i )  ->  A. y  w  e.  ( e `  i ) )
4039, 27bnj1316 32169 . . . . . . . . . . . 12  |-  ( ( e `  i )  =  ( G `  i )  ->  U_ y  e.  ( e `  i
)  pred ( y ,  A ,  R )  =  U_ y  e.  ( G `  i
)  pred ( y ,  A ,  R ) )
4138, 40syl 16 . . . . . . . . . . 11  |-  ( e  =  G  ->  U_ y  e.  ( e `  i
)  pred ( y ,  A ,  R )  =  U_ y  e.  ( G `  i
)  pred ( y ,  A ,  R ) )
4237, 41eqeq12d 2476 . . . . . . . . . 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 ) ) )
435, 30, 36, 42bnj610 32094 . . . . . . . . 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 ) )
4443imbi2i 312 . . . . . . . 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 ) ) )
4511, 44bitri 249 . . . . . . 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 ) ) )
4645imbi2i 312 . . . . . 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 ) ) ) )
478, 46bitri 249 . . . . 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 ) ) ) )
4847albii 1611 . . . 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 ) ) ) )
49 sbcal 3346 . . . 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 ) ) ) )
50 df-ral 2804 . . . 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 ) ) ) )
5148, 49, 503bitr4ri 278 . . 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 ) ) ) )
52 bnj1000.1 . . . 4  |-  ( ps  <->  A. i  e.  om  ( suc  i  e.  N  ->  ( f `  suc  i )  =  U_ y  e.  ( f `  i )  pred (
y ,  A ,  R ) ) )
5352sbcbii 3354 . . 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 ) ) )
544, 51, 533bitr4ri 278 . 2  |-  ( [. G  /  f ]. ps  <->  A. i  e.  om  ( suc  i  e.  N  ->  ( G `  suc  i )  =  U_ y  e.  ( G `  i )  pred (
y ,  A ,  R ) ) )
551, 54bitri 249 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 setvar class
Syntax hints:    -> wi 4    <-> wb 184   A.wal 1368    = wceq 1370    e. wcel 1758   A.wral 2799   _Vcvv 3078   [.wsbc 3294    u. cun 3437   {csn 3988   <.cop 3994   U_ciun 4282   suc csuc 4832   ` cfv 5529   omcom 6589    predc-bnj14 32031
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 1955  ax-ext 2432
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 2440  df-cleq 2446  df-clel 2449  df-nfc 2604  df-ral 2804  df-rex 2805  df-rab 2808  df-v 3080  df-sbc 3295  df-dif 3442  df-un 3444  df-in 3446  df-ss 3453  df-nul 3749  df-if 3903  df-sn 3989  df-pr 3991  df-op 3995  df-uni 4203  df-iun 4284  df-br 4404  df-iota 5492  df-fv 5537
This theorem is referenced by:  bnj965  32290
  Copyright terms: Public domain W3C validator