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

Theorem bnj978 29297
Description: Technical lemma for bnj69 29356. 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
bnj978.1  |-  ( th  <->  ( R  FrSe  A  /\  X  e.  A  /\  y  e.  trCl ( X ,  A ,  R
)  /\  z  e.  pred ( y ,  A ,  R ) ) )
bnj978.2  |-  ( th 
->  z  e.  trCl ( X ,  A ,  R ) )
Assertion
Ref Expression
bnj978  |-  ( ( R  FrSe  A  /\  X  e.  A )  ->  TrFo (  trCl ( X ,  A ,  R ) ,  A ,  R ) )
Distinct variable groups:    y, A, z    y, R, z    y, X, z
Allowed substitution hints:    th( y, z)

Proof of Theorem bnj978
StepHypRef Expression
1 bnj978.1 . . . . . 6  |-  ( th  <->  ( R  FrSe  A  /\  X  e.  A  /\  y  e.  trCl ( X ,  A ,  R
)  /\  z  e.  pred ( y ,  A ,  R ) ) )
2 bnj978.2 . . . . . 6  |-  ( th 
->  z  e.  trCl ( X ,  A ,  R ) )
31, 2sylbir 204 . . . . 5  |-  ( ( R  FrSe  A  /\  X  e.  A  /\  y  e.  trCl ( X ,  A ,  R
)  /\  z  e.  pred ( y ,  A ,  R ) )  -> 
z  e.  trCl ( X ,  A ,  R ) )
43gen2 1537 . . . 4  |-  A. y A. z ( ( R 
FrSe  A  /\  X  e.  A  /\  y  e. 
trCl ( X ,  A ,  R )  /\  z  e.  pred ( y ,  A ,  R ) )  -> 
z  e.  trCl ( X ,  A ,  R ) )
5 bnj253 29045 . . . . . . 7  |-  ( ( R  FrSe  A  /\  X  e.  A  /\  y  e.  trCl ( X ,  A ,  R
)  /\  z  e.  pred ( y ,  A ,  R ) )  <->  ( ( R  FrSe  A  /\  X  e.  A )  /\  y  e.  trCl ( X ,  A ,  R )  /\  z  e.  pred ( y ,  A ,  R ) ) )
65imbi1i 315 . . . . . 6  |-  ( ( ( R  FrSe  A  /\  X  e.  A  /\  y  e.  trCl ( X ,  A ,  R )  /\  z  e.  pred ( y ,  A ,  R ) )  ->  z  e.  trCl ( X ,  A ,  R ) )  <->  ( (
( R  FrSe  A  /\  X  e.  A
)  /\  y  e.  trCl ( X ,  A ,  R )  /\  z  e.  pred ( y ,  A ,  R ) )  ->  z  e.  trCl ( X ,  A ,  R ) ) )
762albii 1557 . . . . 5  |-  ( A. y A. z ( ( R  FrSe  A  /\  X  e.  A  /\  y  e.  trCl ( X ,  A ,  R
)  /\  z  e.  pred ( y ,  A ,  R ) )  -> 
z  e.  trCl ( X ,  A ,  R ) )  <->  A. y A. z ( ( ( R  FrSe  A  /\  X  e.  A )  /\  y  e.  trCl ( X ,  A ,  R )  /\  z  e.  pred ( y ,  A ,  R ) )  ->  z  e.  trCl ( X ,  A ,  R ) ) )
8 3impexp 1356 . . . . . 6  |-  ( ( ( ( R  FrSe  A  /\  X  e.  A
)  /\  y  e.  trCl ( X ,  A ,  R )  /\  z  e.  pred ( y ,  A ,  R ) )  ->  z  e.  trCl ( X ,  A ,  R ) )  <->  ( ( R  FrSe  A  /\  X  e.  A )  ->  (
y  e.  trCl ( X ,  A ,  R )  ->  (
z  e.  pred (
y ,  A ,  R )  ->  z  e.  trCl ( X ,  A ,  R )
) ) ) )
982albii 1557 . . . . 5  |-  ( A. y A. z ( ( ( R  FrSe  A  /\  X  e.  A
)  /\  y  e.  trCl ( X ,  A ,  R )  /\  z  e.  pred ( y ,  A ,  R ) )  ->  z  e.  trCl ( X ,  A ,  R ) )  <->  A. y A. z ( ( R 
FrSe  A  /\  X  e.  A )  ->  (
y  e.  trCl ( X ,  A ,  R )  ->  (
z  e.  pred (
y ,  A ,  R )  ->  z  e.  trCl ( X ,  A ,  R )
) ) ) )
10 19.21v 1843 . . . . . . . 8  |-  ( A. z ( ( R 
FrSe  A  /\  X  e.  A )  ->  (
y  e.  trCl ( X ,  A ,  R )  ->  (
z  e.  pred (
y ,  A ,  R )  ->  z  e.  trCl ( X ,  A ,  R )
) ) )  <->  ( ( R  FrSe  A  /\  X  e.  A )  ->  A. z
( y  e.  trCl ( X ,  A ,  R )  ->  (
z  e.  pred (
y ,  A ,  R )  ->  z  e.  trCl ( X ,  A ,  R )
) ) ) )
11 19.21v 1843 . . . . . . . . 9  |-  ( A. z ( y  e. 
trCl ( X ,  A ,  R )  ->  ( z  e.  pred ( y ,  A ,  R )  ->  z  e.  trCl ( X ,  A ,  R )
) )  <->  ( y  e.  trCl ( X ,  A ,  R )  ->  A. z ( z  e.  pred ( y ,  A ,  R )  ->  z  e.  trCl ( X ,  A ,  R ) ) ) )
1211imbi2i 303 . . . . . . . 8  |-  ( ( ( R  FrSe  A  /\  X  e.  A
)  ->  A. z
( y  e.  trCl ( X ,  A ,  R )  ->  (
z  e.  pred (
y ,  A ,  R )  ->  z  e.  trCl ( X ,  A ,  R )
) ) )  <->  ( ( R  FrSe  A  /\  X  e.  A )  ->  (
y  e.  trCl ( X ,  A ,  R )  ->  A. z
( z  e.  pred ( y ,  A ,  R )  ->  z  e.  trCl ( X ,  A ,  R )
) ) ) )
1310, 12bitri 240 . . . . . . 7  |-  ( A. z ( ( R 
FrSe  A  /\  X  e.  A )  ->  (
y  e.  trCl ( X ,  A ,  R )  ->  (
z  e.  pred (
y ,  A ,  R )  ->  z  e.  trCl ( X ,  A ,  R )
) ) )  <->  ( ( R  FrSe  A  /\  X  e.  A )  ->  (
y  e.  trCl ( X ,  A ,  R )  ->  A. z
( z  e.  pred ( y ,  A ,  R )  ->  z  e.  trCl ( X ,  A ,  R )
) ) ) )
1413albii 1556 . . . . . 6  |-  ( A. y A. z ( ( R  FrSe  A  /\  X  e.  A )  ->  ( y  e.  trCl ( X ,  A ,  R )  ->  (
z  e.  pred (
y ,  A ,  R )  ->  z  e.  trCl ( X ,  A ,  R )
) ) )  <->  A. y
( ( R  FrSe  A  /\  X  e.  A
)  ->  ( y  e.  trCl ( X ,  A ,  R )  ->  A. z ( z  e.  pred ( y ,  A ,  R )  ->  z  e.  trCl ( X ,  A ,  R ) ) ) ) )
15 19.21v 1843 . . . . . 6  |-  ( A. y ( ( R 
FrSe  A  /\  X  e.  A )  ->  (
y  e.  trCl ( X ,  A ,  R )  ->  A. z
( z  e.  pred ( y ,  A ,  R )  ->  z  e.  trCl ( X ,  A ,  R )
) ) )  <->  ( ( R  FrSe  A  /\  X  e.  A )  ->  A. y
( y  e.  trCl ( X ,  A ,  R )  ->  A. z
( z  e.  pred ( y ,  A ,  R )  ->  z  e.  trCl ( X ,  A ,  R )
) ) ) )
16 df-ral 2561 . . . . . . . 8  |-  ( A. y  e.  trCl  ( X ,  A ,  R
) A. z ( z  e.  pred (
y ,  A ,  R )  ->  z  e.  trCl ( X ,  A ,  R )
)  <->  A. y ( y  e.  trCl ( X ,  A ,  R )  ->  A. z ( z  e.  pred ( y ,  A ,  R )  ->  z  e.  trCl ( X ,  A ,  R ) ) ) )
1716bicomi 193 . . . . . . 7  |-  ( A. y ( y  e. 
trCl ( X ,  A ,  R )  ->  A. z ( z  e.  pred ( y ,  A ,  R )  ->  z  e.  trCl ( X ,  A ,  R ) ) )  <->  A. y  e.  trCl  ( X ,  A ,  R ) A. z
( z  e.  pred ( y ,  A ,  R )  ->  z  e.  trCl ( X ,  A ,  R )
) )
1817imbi2i 303 . . . . . 6  |-  ( ( ( R  FrSe  A  /\  X  e.  A
)  ->  A. y
( y  e.  trCl ( X ,  A ,  R )  ->  A. z
( z  e.  pred ( y ,  A ,  R )  ->  z  e.  trCl ( X ,  A ,  R )
) ) )  <->  ( ( R  FrSe  A  /\  X  e.  A )  ->  A. y  e.  trCl  ( X ,  A ,  R ) A. z ( z  e. 
pred ( y ,  A ,  R )  ->  z  e.  trCl ( X ,  A ,  R ) ) ) )
1914, 15, 183bitri 262 . . . . 5  |-  ( A. y A. z ( ( R  FrSe  A  /\  X  e.  A )  ->  ( y  e.  trCl ( X ,  A ,  R )  ->  (
z  e.  pred (
y ,  A ,  R )  ->  z  e.  trCl ( X ,  A ,  R )
) ) )  <->  ( ( R  FrSe  A  /\  X  e.  A )  ->  A. y  e.  trCl  ( X ,  A ,  R ) A. z ( z  e. 
pred ( y ,  A ,  R )  ->  z  e.  trCl ( X ,  A ,  R ) ) ) )
207, 9, 193bitri 262 . . . 4  |-  ( A. y A. z ( ( R  FrSe  A  /\  X  e.  A  /\  y  e.  trCl ( X ,  A ,  R
)  /\  z  e.  pred ( y ,  A ,  R ) )  -> 
z  e.  trCl ( X ,  A ,  R ) )  <->  ( ( R  FrSe  A  /\  X  e.  A )  ->  A. y  e.  trCl  ( X ,  A ,  R ) A. z ( z  e. 
pred ( y ,  A ,  R )  ->  z  e.  trCl ( X ,  A ,  R ) ) ) )
214, 20mpbi 199 . . 3  |-  ( ( R  FrSe  A  /\  X  e.  A )  ->  A. y  e.  trCl  ( X ,  A ,  R ) A. z
( z  e.  pred ( y ,  A ,  R )  ->  z  e.  trCl ( X ,  A ,  R )
) )
22 dfss2 3182 . . . 4  |-  (  pred ( y ,  A ,  R )  C_  trCl ( X ,  A ,  R )  <->  A. z
( z  e.  pred ( y ,  A ,  R )  ->  z  e.  trCl ( X ,  A ,  R )
) )
2322ralbii 2580 . . 3  |-  ( A. y  e.  trCl  ( X ,  A ,  R
)  pred ( y ,  A ,  R ) 
C_  trCl ( X ,  A ,  R )  <->  A. y  e.  trCl  ( X ,  A ,  R ) A. z
( z  e.  pred ( y ,  A ,  R )  ->  z  e.  trCl ( X ,  A ,  R )
) )
2421, 23sylibr 203 . 2  |-  ( ( R  FrSe  A  /\  X  e.  A )  ->  A. y  e.  trCl  ( X ,  A ,  R )  pred (
y ,  A ,  R )  C_  trCl ( X ,  A ,  R ) )
25 df-bnj19 29038 . 2  |-  (  TrFo (  trCl ( X ,  A ,  R ) ,  A ,  R )  <->  A. y  e.  trCl  ( X ,  A ,  R )  pred (
y ,  A ,  R )  C_  trCl ( X ,  A ,  R ) )
2624, 25sylibr 203 1  |-  ( ( R  FrSe  A  /\  X  e.  A )  ->  TrFo (  trCl ( X ,  A ,  R ) ,  A ,  R ) )
Colors of variables: wff set class
Syntax hints:    -> wi 4    <-> wb 176    /\ wa 358    /\ w3a 934   A.wal 1530    e. wcel 1696   A.wral 2556    C_ wss 3165    /\ w-bnj17 29027    predc-bnj14 29029    FrSe w-bnj15 29033    trClc-bnj18 29035    TrFow-bnj19 29037
This theorem is referenced by:  bnj907  29313
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-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-ral 2561  df-in 3172  df-ss 3179  df-bnj17 29028  df-bnj19 29038
  Copyright terms: Public domain W3C validator