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

Theorem bnj978 28981
Description: Technical lemma for bnj69 29040. 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 1534 . . . 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 28729 . . . . . . 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 1554 . . . . 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 1554 . . . . 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 1831 . . . . . . . 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 1831 . . . . . . . . 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 1553 . . . . . 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 1831 . . . . . 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 2548 . . . . . . . 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 3169 . . . 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 2567 . . 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 28722 . 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 1527    e. wcel 1684   A.wral 2543    C_ wss 3152    /\ w-bnj17 28711    predc-bnj14 28713    FrSe w-bnj15 28717    trClc-bnj18 28719    TrFow-bnj19 28721
This theorem is referenced by:  bnj907  28997
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1533  ax-5 1544  ax-17 1603  ax-9 1635  ax-8 1643  ax-6 1703  ax-7 1708  ax-11 1715  ax-12 1866  ax-ext 2264
This theorem depends on definitions:  df-bi 177  df-an 360  df-3an 936  df-tru 1310  df-ex 1529  df-nf 1532  df-sb 1630  df-clab 2270  df-cleq 2276  df-clel 2279  df-ral 2548  df-in 3159  df-ss 3166  df-bnj17 28712  df-bnj19 28722
  Copyright terms: Public domain W3C validator