MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  frsn Unicode version

Theorem frsn 4776
Description: Founded relation on a singleton. (Contributed by Mario Carneiro, 28-Dec-2014.) (Revised by Mario Carneiro, 23-Apr-2015.)
Assertion
Ref Expression
frsn  |-  ( Rel 
R  ->  ( R  Fr  { A }  <->  -.  A R A ) )

Proof of Theorem frsn
Dummy variables  x  y  z are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 df-fr 4368 . . . 4  |-  ( R  Fr  { A }  <->  A. x ( ( x 
C_  { A }  /\  x  =/=  (/) )  ->  E. y  e.  x  A. z  e.  x  -.  z R y ) )
2 df-ne 2461 . . . . . . . . . 10  |-  ( x  =/=  (/)  <->  -.  x  =  (/) )
3 simpr 447 . . . . . . . . . . . 12  |-  ( ( ( Rel  R  /\  A  e.  _V )  /\  x  C_  { A } )  ->  x  C_ 
{ A } )
4 sssn 3788 . . . . . . . . . . . 12  |-  ( x 
C_  { A }  <->  ( x  =  (/)  \/  x  =  { A } ) )
53, 4sylib 188 . . . . . . . . . . 11  |-  ( ( ( Rel  R  /\  A  e.  _V )  /\  x  C_  { A } )  ->  (
x  =  (/)  \/  x  =  { A } ) )
65ord 366 . . . . . . . . . 10  |-  ( ( ( Rel  R  /\  A  e.  _V )  /\  x  C_  { A } )  ->  ( -.  x  =  (/)  ->  x  =  { A } ) )
72, 6syl5bi 208 . . . . . . . . 9  |-  ( ( ( Rel  R  /\  A  e.  _V )  /\  x  C_  { A } )  ->  (
x  =/=  (/)  ->  x  =  { A } ) )
87impr 602 . . . . . . . 8  |-  ( ( ( Rel  R  /\  A  e.  _V )  /\  ( x  C_  { A }  /\  x  =/=  (/) ) )  ->  x  =  { A } )
9 eqimss 3243 . . . . . . . . . 10  |-  ( x  =  { A }  ->  x  C_  { A } )
109adantl 452 . . . . . . . . 9  |-  ( ( ( Rel  R  /\  A  e.  _V )  /\  x  =  { A } )  ->  x  C_ 
{ A } )
11 simpr 447 . . . . . . . . . 10  |-  ( ( ( Rel  R  /\  A  e.  _V )  /\  x  =  { A } )  ->  x  =  { A } )
12 snnzg 3756 . . . . . . . . . . 11  |-  ( A  e.  _V  ->  { A }  =/=  (/) )
1312ad2antlr 707 . . . . . . . . . 10  |-  ( ( ( Rel  R  /\  A  e.  _V )  /\  x  =  { A } )  ->  { A }  =/=  (/) )
1411, 13eqnetrd 2477 . . . . . . . . 9  |-  ( ( ( Rel  R  /\  A  e.  _V )  /\  x  =  { A } )  ->  x  =/=  (/) )
1510, 14jca 518 . . . . . . . 8  |-  ( ( ( Rel  R  /\  A  e.  _V )  /\  x  =  { A } )  ->  (
x  C_  { A }  /\  x  =/=  (/) ) )
168, 15impbida 805 . . . . . . 7  |-  ( ( Rel  R  /\  A  e.  _V )  ->  (
( x  C_  { A }  /\  x  =/=  (/) )  <->  x  =  { A } ) )
1716imbi1d 308 . . . . . 6  |-  ( ( Rel  R  /\  A  e.  _V )  ->  (
( ( x  C_  { A }  /\  x  =/=  (/) )  ->  E. y  e.  x  A. z  e.  x  -.  z R y )  <->  ( x  =  { A }  ->  E. y  e.  x  A. z  e.  x  -.  z R y ) ) )
1817albidv 1615 . . . . 5  |-  ( ( Rel  R  /\  A  e.  _V )  ->  ( A. x ( ( x 
C_  { A }  /\  x  =/=  (/) )  ->  E. y  e.  x  A. z  e.  x  -.  z R y )  <->  A. x ( x  =  { A }  ->  E. y  e.  x  A. z  e.  x  -.  z R y ) ) )
19 snex 4232 . . . . . 6  |-  { A }  e.  _V
20 raleq 2749 . . . . . . 7  |-  ( x  =  { A }  ->  ( A. z  e.  x  -.  z R y  <->  A. z  e.  { A }  -.  z R y ) )
2120rexeqbi1dv 2758 . . . . . 6  |-  ( x  =  { A }  ->  ( E. y  e.  x  A. z  e.  x  -.  z R y  <->  E. y  e.  { A } A. z  e. 
{ A }  -.  z R y ) )
2219, 21ceqsalv 2827 . . . . 5  |-  ( A. x ( x  =  { A }  ->  E. y  e.  x  A. z  e.  x  -.  z R y )  <->  E. y  e.  { A } A. z  e.  { A }  -.  z R y )
2318, 22syl6bb 252 . . . 4  |-  ( ( Rel  R  /\  A  e.  _V )  ->  ( A. x ( ( x 
C_  { A }  /\  x  =/=  (/) )  ->  E. y  e.  x  A. z  e.  x  -.  z R y )  <->  E. y  e.  { A } A. z  e.  { A }  -.  z R y ) )
241, 23syl5bb 248 . . 3  |-  ( ( Rel  R  /\  A  e.  _V )  ->  ( R  Fr  { A } 
<->  E. y  e.  { A } A. z  e. 
{ A }  -.  z R y ) )
25 breq2 4043 . . . . . . . 8  |-  ( y  =  A  ->  (
z R y  <->  z R A ) )
2625notbid 285 . . . . . . 7  |-  ( y  =  A  ->  ( -.  z R y  <->  -.  z R A ) )
2726ralbidv 2576 . . . . . 6  |-  ( y  =  A  ->  ( A. z  e.  { A }  -.  z R y  <->  A. z  e.  { A }  -.  z R A ) )
2827rexsng 3686 . . . . 5  |-  ( A  e.  _V  ->  ( E. y  e.  { A } A. z  e.  { A }  -.  z R y  <->  A. z  e.  { A }  -.  z R A ) )
29 breq1 4042 . . . . . . 7  |-  ( z  =  A  ->  (
z R A  <->  A R A ) )
3029notbid 285 . . . . . 6  |-  ( z  =  A  ->  ( -.  z R A  <->  -.  A R A ) )
3130ralsng 3685 . . . . 5  |-  ( A  e.  _V  ->  ( A. z  e.  { A }  -.  z R A  <->  -.  A R A ) )
3228, 31bitrd 244 . . . 4  |-  ( A  e.  _V  ->  ( E. y  e.  { A } A. z  e.  { A }  -.  z R y  <->  -.  A R A ) )
3332adantl 452 . . 3  |-  ( ( Rel  R  /\  A  e.  _V )  ->  ( E. y  e.  { A } A. z  e.  { A }  -.  z R y  <->  -.  A R A ) )
3424, 33bitrd 244 . 2  |-  ( ( Rel  R  /\  A  e.  _V )  ->  ( R  Fr  { A } 
<->  -.  A R A ) )
35 snprc 3708 . . . . 5  |-  ( -.  A  e.  _V  <->  { A }  =  (/) )
36 fr0 4388 . . . . . 6  |-  R  Fr  (/)
37 freq2 4380 . . . . . 6  |-  ( { A }  =  (/)  ->  ( R  Fr  { A }  <->  R  Fr  (/) ) )
3836, 37mpbiri 224 . . . . 5  |-  ( { A }  =  (/)  ->  R  Fr  { A } )
3935, 38sylbi 187 . . . 4  |-  ( -.  A  e.  _V  ->  R  Fr  { A }
)
4039adantl 452 . . 3  |-  ( ( Rel  R  /\  -.  A  e.  _V )  ->  R  Fr  { A } )
41 brrelex 4743 . . . . 5  |-  ( ( Rel  R  /\  A R A )  ->  A  e.  _V )
4241ex 423 . . . 4  |-  ( Rel 
R  ->  ( A R A  ->  A  e. 
_V ) )
4342con3and 428 . . 3  |-  ( ( Rel  R  /\  -.  A  e.  _V )  ->  -.  A R A )
4440, 432thd 231 . 2  |-  ( ( Rel  R  /\  -.  A  e.  _V )  ->  ( R  Fr  { A }  <->  -.  A R A ) )
4534, 44pm2.61dan 766 1  |-  ( Rel 
R  ->  ( R  Fr  { A }  <->  -.  A R A ) )
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 176    \/ wo 357    /\ wa 358   A.wal 1530    = wceq 1632    e. wcel 1696    =/= wne 2459   A.wral 2556   E.wrex 2557   _Vcvv 2801    C_ wss 3165   (/)c0 3468   {csn 3653   class class class wbr 4039    Fr wfr 4365   Rel wrel 4710
This theorem is referenced by:  wesn  4777
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-14 1700  ax-6 1715  ax-7 1720  ax-11 1727  ax-12 1878  ax-ext 2277  ax-sep 4157  ax-nul 4165  ax-pr 4230
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-ne 2461  df-ral 2561  df-rex 2562  df-rab 2565  df-v 2803  df-sbc 3005  df-dif 3168  df-un 3170  df-in 3172  df-ss 3179  df-nul 3469  df-if 3579  df-sn 3659  df-pr 3660  df-op 3662  df-br 4040  df-opab 4094  df-fr 4368  df-xp 4711  df-rel 4712
  Copyright terms: Public domain W3C validator