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

Theorem frfi 7549
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 4637 . . . 4  |-  ( x  =  (/)  ->  ( R  Po  x  <->  R  Po  (/) ) )
2 freq2 4683 . . . 4  |-  ( x  =  (/)  ->  ( R  Fr  x  <->  R  Fr  (/) ) )
31, 2imbi12d 320 . . 3  |-  ( x  =  (/)  ->  ( ( R  Po  x  ->  R  Fr  x )  <->  ( R  Po  (/)  ->  R  Fr  (/) ) ) )
4 poeq2 4637 . . . 4  |-  ( x  =  y  ->  ( R  Po  x  <->  R  Po  y ) )
5 freq2 4683 . . . 4  |-  ( x  =  y  ->  ( R  Fr  x  <->  R  Fr  y ) )
64, 5imbi12d 320 . . 3  |-  ( x  =  y  ->  (
( R  Po  x  ->  R  Fr  x )  <-> 
( R  Po  y  ->  R  Fr  y ) ) )
7 poeq2 4637 . . . 4  |-  ( x  =  ( y  u. 
{ w } )  ->  ( R  Po  x 
<->  R  Po  ( y  u.  { w }
) ) )
8 freq2 4683 . . . 4  |-  ( x  =  ( y  u. 
{ w } )  ->  ( R  Fr  x 
<->  R  Fr  ( y  u.  { w }
) ) )
97, 8imbi12d 320 . . 3  |-  ( x  =  ( y  u. 
{ w } )  ->  ( ( R  Po  x  ->  R  Fr  x )  <->  ( R  Po  ( y  u.  {
w } )  ->  R  Fr  ( y  u.  { w } ) ) ) )
10 poeq2 4637 . . . 4  |-  ( x  =  A  ->  ( R  Po  x  <->  R  Po  A ) )
11 freq2 4683 . . . 4  |-  ( x  =  A  ->  ( R  Fr  x  <->  R  Fr  A ) )
1210, 11imbi12d 320 . . 3  |-  ( x  =  A  ->  (
( R  Po  x  ->  R  Fr  x )  <-> 
( R  Po  A  ->  R  Fr  A ) ) )
13 fr0 4691 . . . 4  |-  R  Fr  (/)
1413a1i 11 . . 3  |-  ( R  Po  (/)  ->  R  Fr  (/) )
15 ssun1 3512 . . . . . . 7  |-  y  C_  ( y  u.  {
w } )
16 poss 4635 . . . . . . 7  |-  ( y 
C_  ( y  u. 
{ w } )  ->  ( R  Po  ( y  u.  {
w } )  ->  R  Po  y )
)
1715, 16ax-mp 5 . . . . . 6  |-  ( R  Po  ( y  u. 
{ w } )  ->  R  Po  y
)
1817imim1i 58 . . . . 5  |-  ( ( R  Po  y  ->  R  Fr  y )  ->  ( R  Po  (
y  u.  { w } )  ->  R  Fr  y ) )
19 uncom 3493 . . . . . . . . . . . 12  |-  ( y  u.  { w }
)  =  ( { w }  u.  y
)
2019sseq2i 3374 . . . . . . . . . . 11  |-  ( x 
C_  ( y  u. 
{ w } )  <-> 
x  C_  ( {
w }  u.  y
) )
21 ssundif 3755 . . . . . . . . . . 11  |-  ( x 
C_  ( { w }  u.  y )  <->  ( x  \  { w } )  C_  y
)
2220, 21bitri 249 . . . . . . . . . 10  |-  ( x 
C_  ( y  u. 
{ w } )  <-> 
( x  \  {
w } )  C_  y )
2322anbi1i 695 . . . . . . . . 9  |-  ( ( x  C_  ( y  u.  { w } )  /\  x  =/=  (/) )  <->  ( (
x  \  { w } )  C_  y  /\  x  =/=  (/) ) )
24 breq1 4288 . . . . . . . . . . . . . 14  |-  ( v  =  z  ->  (
v R w  <->  z R w ) )
2524cbvrexv 2942 . . . . . . . . . . . . 13  |-  ( E. v  e.  x  v R w  <->  E. z  e.  x  z R w )
26 simpllr 758 . . . . . . . . . . . . . . . . 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 759 . . . . . . . . . . . . . . . . 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 4635 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( x 
C_  ( y  u. 
{ w } )  ->  ( R  Po  ( y  u.  {
w } )  ->  R  Po  x )
)
2928impcom 430 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( R  Po  ( y  u.  { w }
)  /\  x  C_  (
y  u.  { w } ) )  ->  R  Po  x )
3022, 29sylan2br 476 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( R  Po  ( y  u.  { w }
)  /\  ( x  \  { w } ) 
C_  y )  ->  R  Po  x )
3130ad2ant2r 746 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( R  Po  (
y  u.  { w } )  /\  R  Fr  y )  /\  (
( x  \  {
w } )  C_  y  /\  x  =/=  (/) ) )  ->  R  Po  x
)
32 simpr1 994 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( R  Po  x  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  ->  z  e.  x )
33 simpr2 995 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( R  Po  x  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  ->  z R w )
34 poirr 4644 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( R  Po  x  /\  w  e.  x )  ->  -.  w R w )
35343ad2antr3 1155 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( R  Po  x  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  ->  -.  w R w )
36 nbrne2 4303 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( z R w  /\  -.  w R w )  ->  z  =/=  w
)
3733, 35, 36syl2anc 661 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( R  Po  x  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  ->  z  =/=  w )
38 eldifsn 3993 . . . . . . . . . . . . . . . . . . . 20  |-  ( z  e.  ( x  \  { w } )  <-> 
( z  e.  x  /\  z  =/=  w
) )
3932, 37, 38sylanbrc 664 . . . . . . . . . . . . . . . . . . 19  |-  ( ( R  Po  x  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  ->  z  e.  ( x  \  { w } ) )
4031, 39sylan 471 . . . . . . . . . . . . . . . . . 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 3636 . . . . . . . . . . . . . . . . . 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 3476 . . . . . . . . . . . . . . . . . 18  |-  ( x 
\  { w }
)  C_  x
44 vex 2969 . . . . . . . . . . . . . . . . . . . 20  |-  x  e. 
_V
45 difexg 4433 . . . . . . . . . . . . . . . . . . . 20  |-  ( x  e.  _V  ->  (
x  \  { w } )  e.  _V )
4644, 45ax-mp 5 . . . . . . . . . . . . . . . . . . 19  |-  ( x 
\  { w }
)  e.  _V
47 fri 4674 . . . . . . . . . . . . . . . . . . 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 680 . . . . . . . . . . . . . . . . . 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 3410 . . . . . . . . . . . . . . . . . 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 63 . . . . . . . . . . . . . . . . 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 1216 . . . . . . . . . . . . . . . 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 4288 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( v  =  z  ->  (
v R u  <->  z R u ) )
5352notbid 294 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( v  =  z  ->  ( -.  v R u  <->  -.  z R u ) )
5453rspcv 3062 . . . . . . . . . . . . . . . . . . . . . . 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 465 . . . . . . . . . . . . . . . . . . . . 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 1031 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( R  Po  x  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  /\  u  e.  x )  ->  z R w )
58 simpll 753 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( R  Po  x  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  /\  u  e.  x )  ->  R  Po  x )
59 simplr1 1030 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( R  Po  x  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  /\  u  e.  x )  ->  z  e.  x )
60 simplr3 1032 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( R  Po  x  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  /\  u  e.  x )  ->  w  e.  x )
61 simpr 461 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( R  Po  x  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  /\  u  e.  x )  ->  u  e.  x )
62 potr 4645 . . . . . . . . . . . . . . . . . . . . . . . . 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 1220 . . . . . . . . . . . . . . . . . . . . . . . 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 675 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( R  Po  x  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  /\  u  e.  x )  ->  (
w R u  -> 
z R u ) )
6564con3d 133 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( R  Po  x  /\  ( z  e.  x  /\  z R w  /\  w  e.  x )
)  /\  u  e.  x )  ->  ( -.  z R u  ->  -.  w R u ) )
66 vex 2969 . . . . . . . . . . . . . . . . . . . . . . 23  |-  w  e. 
_V
67 breq1 4288 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( v  =  w  ->  (
v R u  <->  w R u ) )
6867notbid 294 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( v  =  w  ->  ( -.  v R u  <->  -.  w R u ) )
6966, 68ralsn 3908 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( A. v  e.  { w }  -.  v R u  <->  -.  w R u )
7065, 69syl6ibr 227 . . . . . . . . . . . . . . . . . . . . 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 44 . . . . . . . . . . . . . . . . . . . 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 3531 . . . . . . . . . . . . . . . . . . . . 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 434 . . . . . . . . . . . . . . . . . . . 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 29 . . . . . . . . . . . . . . . . . . 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 4012 . . . . . . . . . . . . . . . . . . . . 21  |-  ( w  e.  x  ->  (
( x  \  {
w } )  u. 
{ w } )  =  x )
7675raleqdv 2917 . . . . . . . . . . . . . . . . . . . 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 214 . . . . . . . . . . . . . . . . . 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 2822 . . . . . . . . . . . . . . . . 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 471 . . . . . . . . . . . . . . . 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 1205 . . . . . . . . . . . . . 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 2834 . . . . . . . . . . . . 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 217 . . . . . . . . . . . 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 2719 . . . . . . . . . . . . 13  |-  ( A. v  e.  x  -.  v R w  <->  -.  E. v  e.  x  v R w )
86 breq2 4289 . . . . . . . . . . . . . . . . 17  |-  ( u  =  w  ->  (
v R u  <->  v R w ) )
8786notbid 294 . . . . . . . . . . . . . . . 16  |-  ( u  =  w  ->  ( -.  v R u  <->  -.  v R w ) )
8887ralbidv 2729 . . . . . . . . . . . . . . 15  |-  ( u  =  w  ->  ( A. v  e.  x  -.  v R u  <->  A. v  e.  x  -.  v R w ) )
8988rspcev 3066 . . . . . . . . . . . . . 14  |-  ( ( w  e.  x  /\  A. v  e.  x  -.  v R w )  ->  E. u  e.  x  A. v  e.  x  -.  v R u )
9089expcom 435 . . . . . . . . . . . . 13  |-  ( A. v  e.  x  -.  v R w  ->  (
w  e.  x  ->  E. u  e.  x  A. v  e.  x  -.  v R u ) )
9185, 90sylbir 213 . . . . . . . . . . . 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 159 . . . . . . . . . . 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 4001 . . . . . . . . . . . 12  |-  ( -.  w  e.  x  -> 
( x  \  {
w } )  =  x )
9450expr 615 . . . . . . . . . . . . . . . 16  |-  ( ( R  Fr  y  /\  ( x  \  { w } )  C_  y
)  ->  ( (
x  \  { w } )  =/=  (/)  ->  E. u  e.  x  A. v  e.  ( x  \  {
w } )  -.  v R u ) )
95 neeq1 2610 . . . . . . . . . . . . . . . . 17  |-  ( ( x  \  { w } )  =  x  ->  ( ( x 
\  { w }
)  =/=  (/)  <->  x  =/=  (/) ) )
96 raleq 2911 . . . . . . . . . . . . . . . . . 18  |-  ( ( x  \  { w } )  =  x  ->  ( A. v  e.  ( x  \  {
w } )  -.  v R u  <->  A. v  e.  x  -.  v R u ) )
9796rexbidv 2730 . . . . . . . . . . . . . . . . 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 320 . . . . . . . . . . . . . . . 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 220 . . . . . . . . . . . . . . 15  |-  ( ( R  Fr  y  /\  ( x  \  { w } )  C_  y
)  ->  ( (
x  \  { w } )  =  x  ->  ( x  =/=  (/)  ->  E. u  e.  x  A. v  e.  x  -.  v R u ) ) )
10099com23 78 . . . . . . . . . . . . . 14  |-  ( ( R  Fr  y  /\  ( x  \  { w } )  C_  y
)  ->  ( x  =/=  (/)  ->  ( (
x  \  { w } )  =  x  ->  E. u  e.  x  A. v  e.  x  -.  v R u ) ) )
101100adantll 713 . . . . . . . . . . . . 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 619 . . . . . . . . . . . 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 32 . . . . . . . . . . 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 158 . . . . . . . . . 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 434 . . . . . . . . 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 217 . . . . . . . 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 1685 . . . . . . 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 4671 . . . . . . 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 212 . . . . . 6  |-  ( ( R  Po  ( y  u.  { w }
)  /\  R  Fr  y )  ->  R  Fr  ( y  u.  {
w } ) )
110109ex 434 . . . . 5  |-  ( R  Po  ( y  u. 
{ w } )  ->  ( R  Fr  y  ->  R  Fr  (
y  u.  { w } ) ) )
11118, 110sylcom 29 . . . 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 7544 . 2  |-  ( A  e.  Fin  ->  ( R  Po  A  ->  R  Fr  A ) )
114113impcom 430 1  |-  ( ( R  Po  A  /\  A  e.  Fin )  ->  R  Fr  A )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 184    /\ wa 369    /\ w3a 965   A.wal 1367    = wceq 1369    e. wcel 1756    =/= wne 2600   A.wral 2709   E.wrex 2710   _Vcvv 2966    \ cdif 3318    u. cun 3319    C_ wss 3321   (/)c0 3630   {csn 3870   class class class wbr 4285    Po wpo 4631    Fr wfr 4668   Fincfn 7302
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1591  ax-4 1602  ax-5 1670  ax-6 1708  ax-7 1728  ax-8 1758  ax-9 1760  ax-10 1775  ax-11 1780  ax-12 1792  ax-13 1943  ax-ext 2418  ax-sep 4406  ax-nul 4414  ax-pow 4463  ax-pr 4524  ax-un 6367
This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 966  df-3an 967  df-tru 1372  df-ex 1587  df-nf 1590  df-sb 1701  df-eu 2256  df-mo 2257  df-clab 2424  df-cleq 2430  df-clel 2433  df-nfc 2562  df-ne 2602  df-ral 2714  df-rex 2715  df-rab 2718  df-v 2968  df-sbc 3180  df-dif 3324  df-un 3326  df-in 3328  df-ss 3335  df-pss 3337  df-nul 3631  df-if 3785  df-pw 3855  df-sn 3871  df-pr 3873  df-tp 3875  df-op 3877  df-uni 4085  df-br 4286  df-opab 4344  df-tr 4379  df-eprel 4624  df-id 4628  df-po 4633  df-so 4634  df-fr 4671  df-we 4673  df-ord 4714  df-on 4715  df-lim 4716  df-suc 4717  df-xp 4838  df-rel 4839  df-cnv 4840  df-co 4841  df-dm 4842  df-rn 4843  df-res 4844  df-ima 4845  df-iota 5374  df-fun 5413  df-fn 5414  df-f 5415  df-f1 5416  df-fo 5417  df-f1o 5418  df-fv 5419  df-om 6472  df-1o 6912  df-er 7093  df-en 7303  df-fin 7306
This theorem is referenced by:  fimax2g  7550  wofi  7553  isfin1-3  8547
  Copyright terms: Public domain W3C validator