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

Theorem frfi 7352
Description: A partial order is well-founded on a finite set. (Contributed by Jeff Madsen, 18-Jun-2010.) (Proof shortened by Mario Carneiro, 29-Jan-2014.)
Assertion
Ref Expression
frfi  |-  ( ( R  Po  A  /\  A  e.  Fin )  ->  R  Fr  A )

Proof of Theorem frfi
Dummy variables  u  v  w  x  y 
z are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 poeq2 4507 . . . 4  |-  ( x  =  (/)  ->  ( R  Po  x  <->  R  Po  (/) ) )
2 freq2 4553 . . . 4  |-  ( x  =  (/)  ->  ( R  Fr  x  <->  R  Fr  (/) ) )
31, 2imbi12d 312 . . 3  |-  ( x  =  (/)  ->  ( ( R  Po  x  ->  R  Fr  x )  <->  ( R  Po  (/)  ->  R  Fr  (/) ) ) )
4 poeq2 4507 . . . 4  |-  ( x  =  y  ->  ( R  Po  x  <->  R  Po  y ) )
5 freq2 4553 . . . 4  |-  ( x  =  y  ->  ( R  Fr  x  <->  R  Fr  y ) )
64, 5imbi12d 312 . . 3  |-  ( x  =  y  ->  (
( R  Po  x  ->  R  Fr  x )  <-> 
( R  Po  y  ->  R  Fr  y ) ) )
7 poeq2 4507 . . . 4  |-  ( x  =  ( y  u. 
{ w } )  ->  ( R  Po  x 
<->  R  Po  ( y  u.  { w }
) ) )
8 freq2 4553 . . . 4  |-  ( x  =  ( y  u. 
{ w } )  ->  ( R  Fr  x 
<->  R  Fr  ( y  u.  { w }
) ) )
97, 8imbi12d 312 . . 3  |-  ( x  =  ( y  u. 
{ w } )  ->  ( ( R  Po  x  ->  R  Fr  x )  <->  ( R  Po  ( y  u.  {
w } )  ->  R  Fr  ( y  u.  { w } ) ) ) )
10 poeq2 4507 . . . 4  |-  ( x  =  A  ->  ( R  Po  x  <->  R  Po  A ) )
11 freq2 4553 . . . 4  |-  ( x  =  A  ->  ( R  Fr  x  <->  R  Fr  A ) )
1210, 11imbi12d 312 . . 3  |-  ( x  =  A  ->  (
( R  Po  x  ->  R  Fr  x )  <-> 
( R  Po  A  ->  R  Fr  A ) ) )
13 fr0 4561 . . . 4  |-  R  Fr  (/)
1413a1i 11 . . 3  |-  ( R  Po  (/)  ->  R  Fr  (/) )
15 ssun1 3510 . . . . . . 7  |-  y  C_  ( y  u.  {
w } )
16 poss 4505 . . . . . . 7  |-  ( y 
C_  ( y  u. 
{ w } )  ->  ( R  Po  ( y  u.  {
w } )  ->  R  Po  y )
)
1715, 16ax-mp 8 . . . . . 6  |-  ( R  Po  ( y  u. 
{ w } )  ->  R  Po  y
)
1817imim1i 56 . . . . 5  |-  ( ( R  Po  y  ->  R  Fr  y )  ->  ( R  Po  (
y  u.  { w } )  ->  R  Fr  y ) )
19 uncom 3491 . . . . . . . . . . . 12  |-  ( y  u.  { w }
)  =  ( { w }  u.  y
)
2019sseq2i 3373 . . . . . . . . . . 11  |-  ( x 
C_  ( y  u. 
{ w } )  <-> 
x  C_  ( {
w }  u.  y
) )
21 ssundif 3711 . . . . . . . . . . 11  |-  ( x 
C_  ( { w }  u.  y )  <->  ( x  \  { w } )  C_  y
)
2220, 21bitri 241 . . . . . . . . . 10  |-  ( x 
C_  ( y  u. 
{ w } )  <-> 
( x  \  {
w } )  C_  y )
2322anbi1i 677 . . . . . . . . 9  |-  ( ( x  C_  ( y  u.  { w } )  /\  x  =/=  (/) )  <->  ( (
x  \  { w } )  C_  y  /\  x  =/=  (/) ) )
24 breq1 4215 . . . . . . . . . . . . . 14  |-  ( v  =  z  ->  (
v R w  <->  z R w ) )
2524cbvrexv 2933 . . . . . . . . . . . . 13  |-  ( E. v  e.  x  v R w  <->  E. z  e.  x  z R w )
26 simpllr 736 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( R  Po  ( y  u.  {
w } )  /\  R  Fr  y )  /\  ( ( x  \  { w } ) 
C_  y  /\  x  =/=  (/) ) )  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  ->  R  Fr  y )
27 simplrl 737 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( R  Po  ( y  u.  {
w } )  /\  R  Fr  y )  /\  ( ( x  \  { w } ) 
C_  y  /\  x  =/=  (/) ) )  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  ->  ( x  \  { w } ) 
C_  y )
28 poss 4505 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( x 
C_  ( y  u. 
{ w } )  ->  ( R  Po  ( y  u.  {
w } )  ->  R  Po  x )
)
2928impcom 420 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( R  Po  ( y  u.  { w }
)  /\  x  C_  (
y  u.  { w } ) )  ->  R  Po  x )
3022, 29sylan2br 463 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( R  Po  ( y  u.  { w }
)  /\  ( x  \  { w } ) 
C_  y )  ->  R  Po  x )
3130ad2ant2r 728 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( R  Po  (
y  u.  { w } )  /\  R  Fr  y )  /\  (
( x  \  {
w } )  C_  y  /\  x  =/=  (/) ) )  ->  R  Po  x
)
32 simpr1 963 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( R  Po  x  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  ->  z  e.  x )
33 simpr2 964 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( R  Po  x  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  ->  z R w )
34 poirr 4514 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( R  Po  x  /\  w  e.  x )  ->  -.  w R w )
35343ad2antr3 1124 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( R  Po  x  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  ->  -.  w R w )
36 nbrne2 4230 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( z R w  /\  -.  w R w )  ->  z  =/=  w
)
3733, 35, 36syl2anc 643 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( R  Po  x  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  ->  z  =/=  w )
38 eldifsn 3927 . . . . . . . . . . . . . . . . . . . 20  |-  ( z  e.  ( x  \  { w } )  <-> 
( z  e.  x  /\  z  =/=  w
) )
3932, 37, 38sylanbrc 646 . . . . . . . . . . . . . . . . . . 19  |-  ( ( R  Po  x  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  ->  z  e.  ( x  \  { w } ) )
4031, 39sylan 458 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( R  Po  ( y  u.  {
w } )  /\  R  Fr  y )  /\  ( ( x  \  { w } ) 
C_  y  /\  x  =/=  (/) ) )  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  ->  z  e.  ( x  \  { w } ) )
41 ne0i 3634 . . . . . . . . . . . . . . . . . 18  |-  ( z  e.  ( x  \  { w } )  ->  ( x  \  { w } )  =/=  (/) )
4240, 41syl 16 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( R  Po  ( y  u.  {
w } )  /\  R  Fr  y )  /\  ( ( x  \  { w } ) 
C_  y  /\  x  =/=  (/) ) )  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  ->  ( x  \  { w } )  =/=  (/) )
43 difss 3474 . . . . . . . . . . . . . . . . . 18  |-  ( x 
\  { w }
)  C_  x
44 vex 2959 . . . . . . . . . . . . . . . . . . . 20  |-  x  e. 
_V
45 difexg 4351 . . . . . . . . . . . . . . . . . . . 20  |-  ( x  e.  _V  ->  (
x  \  { w } )  e.  _V )
4644, 45ax-mp 8 . . . . . . . . . . . . . . . . . . 19  |-  ( x 
\  { w }
)  e.  _V
47 fri 4544 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( x  \  { w } )  e.  _V  /\  R  Fr  y )  /\  (
( x  \  {
w } )  C_  y  /\  ( x  \  { w } )  =/=  (/) ) )  ->  E. u  e.  (
x  \  { w } ) A. v  e.  ( x  \  {
w } )  -.  v R u )
4846, 47mpanl1 662 . . . . . . . . . . . . . . . . . 18  |-  ( ( R  Fr  y  /\  ( ( x  \  { w } ) 
C_  y  /\  (
x  \  { w } )  =/=  (/) ) )  ->  E. u  e.  ( x  \  { w } ) A. v  e.  ( x  \  {
w } )  -.  v R u )
49 ssrexv 3408 . . . . . . . . . . . . . . . . . 18  |-  ( ( x  \  { w } )  C_  x  ->  ( E. u  e.  ( x  \  {
w } ) A. v  e.  ( x  \  { w } )  -.  v R u  ->  E. u  e.  x  A. v  e.  (
x  \  { w } )  -.  v R u ) )
5043, 48, 49mpsyl 61 . . . . . . . . . . . . . . . . 17  |-  ( ( R  Fr  y  /\  ( ( x  \  { w } ) 
C_  y  /\  (
x  \  { w } )  =/=  (/) ) )  ->  E. u  e.  x  A. v  e.  (
x  \  { w } )  -.  v R u )
5126, 27, 42, 50syl12anc 1182 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( R  Po  ( y  u.  {
w } )  /\  R  Fr  y )  /\  ( ( x  \  { w } ) 
C_  y  /\  x  =/=  (/) ) )  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  ->  E. u  e.  x  A. v  e.  ( x  \  {
w } )  -.  v R u )
52 breq1 4215 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( v  =  z  ->  (
v R u  <->  z R u ) )
5352notbid 286 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( v  =  z  ->  ( -.  v R u  <->  -.  z R u ) )
5453rspcv 3048 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( z  e.  ( x  \  { w } )  ->  ( A. v  e.  ( x  \  {
w } )  -.  v R u  ->  -.  z R u ) )
5539, 54syl 16 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( R  Po  x  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  ->  ( A. v  e.  ( x  \  { w } )  -.  v R u  ->  -.  z R u ) )
5655adantr 452 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( R  Po  x  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  /\  u  e.  x )  ->  ( A. v  e.  (
x  \  { w } )  -.  v R u  ->  -.  z R u ) )
57 simplr2 1000 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( R  Po  x  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  /\  u  e.  x )  ->  z R w )
58 simpll 731 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( R  Po  x  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  /\  u  e.  x )  ->  R  Po  x )
59 simplr1 999 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( R  Po  x  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  /\  u  e.  x )  ->  z  e.  x )
60 simplr3 1001 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( R  Po  x  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  /\  u  e.  x )  ->  w  e.  x )
61 simpr 448 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( R  Po  x  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  /\  u  e.  x )  ->  u  e.  x )
62 potr 4515 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( R  Po  x  /\  ( z  e.  x  /\  w  e.  x  /\  u  e.  x
) )  ->  (
( z R w  /\  w R u )  ->  z R u ) )
6358, 59, 60, 61, 62syl13anc 1186 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( R  Po  x  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  /\  u  e.  x )  ->  (
( z R w  /\  w R u )  ->  z R u ) )
6457, 63mpand 657 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( R  Po  x  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  /\  u  e.  x )  ->  (
w R u  -> 
z R u ) )
6564con3d 127 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( R  Po  x  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  /\  u  e.  x )  ->  ( -.  z R u  ->  -.  w R u ) )
66 vex 2959 . . . . . . . . . . . . . . . . . . . . . . 23  |-  w  e. 
_V
67 breq1 4215 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( v  =  w  ->  (
v R u  <->  w R u ) )
6867notbid 286 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( v  =  w  ->  ( -.  v R u  <->  -.  w R u ) )
6966, 68ralsn 3849 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( A. v  e.  { w }  -.  v R u  <->  -.  w R u )
7065, 69syl6ibr 219 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( R  Po  x  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  /\  u  e.  x )  ->  ( -.  z R u  ->  A. v  e.  { w }  -.  v R u ) )
7156, 70syld 42 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( R  Po  x  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  /\  u  e.  x )  ->  ( A. v  e.  (
x  \  { w } )  -.  v R u  ->  A. v  e.  { w }  -.  v R u ) )
72 ralun 3529 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( A. v  e.  ( x  \  { w } )  -.  v R u  /\  A. v  e.  { w }  -.  v R u )  ->  A. v  e.  (
( x  \  {
w } )  u. 
{ w } )  -.  v R u )
7372ex 424 . . . . . . . . . . . . . . . . . . . 20  |-  ( A. v  e.  ( x  \  { w } )  -.  v R u  ->  ( A. v  e.  { w }  -.  v R u  ->  A. v  e.  ( ( x  \  { w } )  u.  { w }
)  -.  v R u ) )
7471, 73sylcom 27 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( R  Po  x  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  /\  u  e.  x )  ->  ( A. v  e.  (
x  \  { w } )  -.  v R u  ->  A. v  e.  ( ( x  \  { w } )  u.  { w }
)  -.  v R u ) )
75 difsnid 3944 . . . . . . . . . . . . . . . . . . . . 21  |-  ( w  e.  x  ->  (
( x  \  {
w } )  u. 
{ w } )  =  x )
7675raleqdv 2910 . . . . . . . . . . . . . . . . . . . 20  |-  ( w  e.  x  ->  ( A. v  e.  (
( x  \  {
w } )  u. 
{ w } )  -.  v R u  <->  A. v  e.  x  -.  v R u ) )
7760, 76syl 16 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( R  Po  x  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  /\  u  e.  x )  ->  ( A. v  e.  (
( x  \  {
w } )  u. 
{ w } )  -.  v R u  <->  A. v  e.  x  -.  v R u ) )
7874, 77sylibd 206 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( R  Po  x  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  /\  u  e.  x )  ->  ( A. v  e.  (
x  \  { w } )  -.  v R u  ->  A. v  e.  x  -.  v R u ) )
7978reximdva 2818 . . . . . . . . . . . . . . . . 17  |-  ( ( R  Po  x  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  ->  ( E. u  e.  x  A. v  e.  ( x  \  { w } )  -.  v R u  ->  E. u  e.  x  A. v  e.  x  -.  v R u ) )
8031, 79sylan 458 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( R  Po  ( y  u.  {
w } )  /\  R  Fr  y )  /\  ( ( x  \  { w } ) 
C_  y  /\  x  =/=  (/) ) )  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  ->  ( E. u  e.  x  A. v  e.  ( x  \  { w } )  -.  v R u  ->  E. u  e.  x  A. v  e.  x  -.  v R u ) )
8151, 80mpd 15 . . . . . . . . . . . . . . 15  |-  ( ( ( ( R  Po  ( y  u.  {
w } )  /\  R  Fr  y )  /\  ( ( x  \  { w } ) 
C_  y  /\  x  =/=  (/) ) )  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  ->  E. u  e.  x  A. v  e.  x  -.  v R u )
82813exp2 1171 . . . . . . . . . . . . . 14  |-  ( ( ( R  Po  (
y  u.  { w } )  /\  R  Fr  y )  /\  (
( x  \  {
w } )  C_  y  /\  x  =/=  (/) ) )  ->  ( z  e.  x  ->  ( z R w  ->  ( w  e.  x  ->  E. u  e.  x  A. v  e.  x  -.  v R u ) ) ) )
8382rexlimdv 2829 . . . . . . . . . . . . 13  |-  ( ( ( R  Po  (
y  u.  { w } )  /\  R  Fr  y )  /\  (
( x  \  {
w } )  C_  y  /\  x  =/=  (/) ) )  ->  ( E. z  e.  x  z R w  ->  ( w  e.  x  ->  E. u  e.  x  A. v  e.  x  -.  v R u ) ) )
8425, 83syl5bi 209 . . . . . . . . . . . 12  |-  ( ( ( R  Po  (
y  u.  { w } )  /\  R  Fr  y )  /\  (
( x  \  {
w } )  C_  y  /\  x  =/=  (/) ) )  ->  ( E. v  e.  x  v R w  ->  ( w  e.  x  ->  E. u  e.  x  A. v  e.  x  -.  v R u ) ) )
85 ralnex 2715 . . . . . . . . . . . . 13  |-  ( A. v  e.  x  -.  v R w  <->  -.  E. v  e.  x  v R w )
86 breq2 4216 . . . . . . . . . . . . . . . . 17  |-  ( u  =  w  ->  (
v R u  <->  v R w ) )
8786notbid 286 . . . . . . . . . . . . . . . 16  |-  ( u  =  w  ->  ( -.  v R u  <->  -.  v R w ) )
8887ralbidv 2725 . . . . . . . . . . . . . . 15  |-  ( u  =  w  ->  ( A. v  e.  x  -.  v R u  <->  A. v  e.  x  -.  v R w ) )
8988rspcev 3052 . . . . . . . . . . . . . 14  |-  ( ( w  e.  x  /\  A. v  e.  x  -.  v R w )  ->  E. u  e.  x  A. v  e.  x  -.  v R u )
9089expcom 425 . . . . . . . . . . . . 13  |-  ( A. v  e.  x  -.  v R w  ->  (
w  e.  x  ->  E. u  e.  x  A. v  e.  x  -.  v R u ) )
9185, 90sylbir 205 . . . . . . . . . . . 12  |-  ( -. 
E. v  e.  x  v R w  ->  (
w  e.  x  ->  E. u  e.  x  A. v  e.  x  -.  v R u ) )
9284, 91pm2.61d1 153 . . . . . . . . . . 11  |-  ( ( ( R  Po  (
y  u.  { w } )  /\  R  Fr  y )  /\  (
( x  \  {
w } )  C_  y  /\  x  =/=  (/) ) )  ->  ( w  e.  x  ->  E. u  e.  x  A. v  e.  x  -.  v R u ) )
93 difsn 3933 . . . . . . . . . . . 12  |-  ( -.  w  e.  x  -> 
( x  \  {
w } )  =  x )
9450expr 599 . . . . . . . . . . . . . . . 16  |-  ( ( R  Fr  y  /\  ( x  \  { w } )  C_  y
)  ->  ( (
x  \  { w } )  =/=  (/)  ->  E. u  e.  x  A. v  e.  ( x  \  {
w } )  -.  v R u ) )
95 neeq1 2609 . . . . . . . . . . . . . . . . 17  |-  ( ( x  \  { w } )  =  x  ->  ( ( x 
\  { w }
)  =/=  (/)  <->  x  =/=  (/) ) )
96 raleq 2904 . . . . . . . . . . . . . . . . . 18  |-  ( ( x  \  { w } )  =  x  ->  ( A. v  e.  ( x  \  {
w } )  -.  v R u  <->  A. v  e.  x  -.  v R u ) )
9796rexbidv 2726 . . . . . . . . . . . . . . . . 17  |-  ( ( x  \  { w } )  =  x  ->  ( E. u  e.  x  A. v  e.  ( x  \  {
w } )  -.  v R u  <->  E. u  e.  x  A. v  e.  x  -.  v R u ) )
9895, 97imbi12d 312 . . . . . . . . . . . . . . . 16  |-  ( ( x  \  { w } )  =  x  ->  ( ( ( x  \  { w } )  =/=  (/)  ->  E. u  e.  x  A. v  e.  ( x  \  {
w } )  -.  v R u )  <-> 
( x  =/=  (/)  ->  E. u  e.  x  A. v  e.  x  -.  v R u ) ) )
9994, 98syl5ibcom 212 . . . . . . . . . . . . . . 15  |-  ( ( R  Fr  y  /\  ( x  \  { w } )  C_  y
)  ->  ( (
x  \  { w } )  =  x  ->  ( x  =/=  (/)  ->  E. u  e.  x  A. v  e.  x  -.  v R u ) ) )
10099com23 74 . . . . . . . . . . . . . 14  |-  ( ( R  Fr  y  /\  ( x  \  { w } )  C_  y
)  ->  ( x  =/=  (/)  ->  ( (
x  \  { w } )  =  x  ->  E. u  e.  x  A. v  e.  x  -.  v R u ) ) )
101100adantll 695 . . . . . . . . . . . . 13  |-  ( ( ( R  Po  (
y  u.  { w } )  /\  R  Fr  y )  /\  (
x  \  { w } )  C_  y
)  ->  ( x  =/=  (/)  ->  ( (
x  \  { w } )  =  x  ->  E. u  e.  x  A. v  e.  x  -.  v R u ) ) )
102101impr 603 . . . . . . . . . . . 12  |-  ( ( ( R  Po  (
y  u.  { w } )  /\  R  Fr  y )  /\  (
( x  \  {
w } )  C_  y  /\  x  =/=  (/) ) )  ->  ( ( x 
\  { w }
)  =  x  ->  E. u  e.  x  A. v  e.  x  -.  v R u ) )
10393, 102syl5 30 . . . . . . . . . . 11  |-  ( ( ( R  Po  (
y  u.  { w } )  /\  R  Fr  y )  /\  (
( x  \  {
w } )  C_  y  /\  x  =/=  (/) ) )  ->  ( -.  w  e.  x  ->  E. u  e.  x  A. v  e.  x  -.  v R u ) )
10492, 103pm2.61d 152 . . . . . . . . . 10  |-  ( ( ( R  Po  (
y  u.  { w } )  /\  R  Fr  y )  /\  (
( x  \  {
w } )  C_  y  /\  x  =/=  (/) ) )  ->  E. u  e.  x  A. v  e.  x  -.  v R u )
105104ex 424 . . . . . . . . 9  |-  ( ( R  Po  ( y  u.  { w }
)  /\  R  Fr  y )  ->  (
( ( x  \  { w } ) 
C_  y  /\  x  =/=  (/) )  ->  E. u  e.  x  A. v  e.  x  -.  v R u ) )
10623, 105syl5bi 209 . . . . . . . 8  |-  ( ( R  Po  ( y  u.  { w }
)  /\  R  Fr  y )  ->  (
( x  C_  (
y  u.  { w } )  /\  x  =/=  (/) )  ->  E. u  e.  x  A. v  e.  x  -.  v R u ) )
107106alrimiv 1641 . . . . . . 7  |-  ( ( R  Po  ( y  u.  { w }
)  /\  R  Fr  y )  ->  A. x
( ( x  C_  ( y  u.  {
w } )  /\  x  =/=  (/) )  ->  E. u  e.  x  A. v  e.  x  -.  v R u ) )
108 df-fr 4541 . . . . . . 7  |-  ( R  Fr  ( y  u. 
{ w } )  <->  A. x ( ( x 
C_  ( y  u. 
{ w } )  /\  x  =/=  (/) )  ->  E. u  e.  x  A. v  e.  x  -.  v R u ) )
109107, 108sylibr 204 . . . . . 6  |-  ( ( R  Po  ( y  u.  { w }
)  /\  R  Fr  y )  ->  R  Fr  ( y  u.  {
w } ) )
110109ex 424 . . . . 5  |-  ( R  Po  ( y  u. 
{ w } )  ->  ( R  Fr  y  ->  R  Fr  (
y  u.  { w } ) ) )
11118, 110sylcom 27 . . . 4  |-  ( ( R  Po  y  ->  R  Fr  y )  ->  ( R  Po  (
y  u.  { w } )  ->  R  Fr  ( y  u.  {
w } ) ) )
112111a1i 11 . . 3  |-  ( y  e.  Fin  ->  (
( R  Po  y  ->  R  Fr  y )  ->  ( R  Po  ( y  u.  {
w } )  ->  R  Fr  ( y  u.  { w } ) ) ) )
1133, 6, 9, 12, 14, 112findcard2 7348 . 2  |-  ( A  e.  Fin  ->  ( R  Po  A  ->  R  Fr  A ) )
114113impcom 420 1  |-  ( ( R  Po  A  /\  A  e.  Fin )  ->  R  Fr  A )
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 177    /\ wa 359    /\ w3a 936   A.wal 1549    = wceq 1652    e. wcel 1725    =/= wne 2599   A.wral 2705   E.wrex 2706   _Vcvv 2956    \ cdif 3317    u. cun 3318    C_ wss 3320   (/)c0 3628   {csn 3814   class class class wbr 4212    Po wpo 4501    Fr wfr 4538   Fincfn 7109
This theorem is referenced by:  fimax2g  7353  wofi  7356  isfin1-3  8266
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1555  ax-5 1566  ax-17 1626  ax-9 1666  ax-8 1687  ax-13 1727  ax-14 1729  ax-6 1744  ax-7 1749  ax-11 1761  ax-12 1950  ax-ext 2417  ax-sep 4330  ax-nul 4338  ax-pow 4377  ax-pr 4403  ax-un 4701
This theorem depends on definitions:  df-bi 178  df-or 360  df-an 361  df-3or 937  df-3an 938  df-tru 1328  df-ex 1551  df-nf 1554  df-sb 1659  df-eu 2285  df-mo 2286  df-clab 2423  df-cleq 2429  df-clel 2432  df-nfc 2561  df-ne 2601  df-ral 2710  df-rex 2711  df-rab 2714  df-v 2958  df-sbc 3162  df-dif 3323  df-un 3325  df-in 3327  df-ss 3334  df-pss 3336  df-nul 3629  df-if 3740  df-pw 3801  df-sn 3820  df-pr 3821  df-tp 3822  df-op 3823  df-uni 4016  df-br 4213  df-opab 4267  df-tr 4303  df-eprel 4494  df-id 4498  df-po 4503  df-so 4504  df-fr 4541  df-we 4543  df-ord 4584  df-on 4585  df-lim 4586  df-suc 4587  df-om 4846  df-xp 4884  df-rel 4885  df-cnv 4886  df-co 4887  df-dm 4888  df-rn 4889  df-res 4890  df-ima 4891  df-iota 5418  df-fun 5456  df-fn 5457  df-f 5458  df-f1 5459  df-fo 5460  df-f1o 5461  df-fv 5462  df-1o 6724  df-er 6905  df-en 7110  df-fin 7113
  Copyright terms: Public domain W3C validator