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

Theorem frfi 7578
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 4666 . . . 4  |-  ( x  =  (/)  ->  ( R  Po  x  <->  R  Po  (/) ) )
2 freq2 4712 . . . 4  |-  ( x  =  (/)  ->  ( R  Fr  x  <->  R  Fr  (/) ) )
31, 2imbi12d 320 . . 3  |-  ( x  =  (/)  ->  ( ( R  Po  x  ->  R  Fr  x )  <->  ( R  Po  (/)  ->  R  Fr  (/) ) ) )
4 poeq2 4666 . . . 4  |-  ( x  =  y  ->  ( R  Po  x  <->  R  Po  y ) )
5 freq2 4712 . . . 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 4666 . . . 4  |-  ( x  =  ( y  u. 
{ w } )  ->  ( R  Po  x 
<->  R  Po  ( y  u.  { w }
) ) )
8 freq2 4712 . . . 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 4666 . . . 4  |-  ( x  =  A  ->  ( R  Po  x  <->  R  Po  A ) )
11 freq2 4712 . . . 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 4720 . . . 4  |-  R  Fr  (/)
1413a1i 11 . . 3  |-  ( R  Po  (/)  ->  R  Fr  (/) )
15 ssun1 3540 . . . . . . 7  |-  y  C_  ( y  u.  {
w } )
16 poss 4664 . . . . . . 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 3521 . . . . . . . . . . . 12  |-  ( y  u.  { w }
)  =  ( { w }  u.  y
)
2019sseq2i 3402 . . . . . . . . . . 11  |-  ( x 
C_  ( y  u. 
{ w } )  <-> 
x  C_  ( {
w }  u.  y
) )
21 ssundif 3783 . . . . . . . . . . 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 4316 . . . . . . . . . . . . . 14  |-  ( v  =  z  ->  (
v R w  <->  z R w ) )
2524cbvrexv 2969 . . . . . . . . . . . . 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 4664 . . . . . . . . . . . . . . . . . . . . . 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 4673 . . . . . . . . . . . . . . . . . . . . . 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 4331 . . . . . . . . . . . . . . . . . . . . 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 4021 . . . . . . . . . . . . . . . . . . . 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 3664 . . . . . . . . . . . . . . . . . 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 3504 . . . . . . . . . . . . . . . . . 18  |-  ( x 
\  { w }
)  C_  x
44 vex 2996 . . . . . . . . . . . . . . . . . . . 20  |-  x  e. 
_V
45 difexg 4461 . . . . . . . . . . . . . . . . . . . 20  |-  ( x  e.  _V  ->  (
x  \  { w } )  e.  _V )
4644, 45ax-mp 5 . . . . . . . . . . . . . . . . . . 19  |-  ( x 
\  { w }
)  e.  _V
47 fri 4703 . . . . . . . . . . . . . . . . . . 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 3438 . . . . . . . . . . . . . . . . . 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 4316 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( v  =  z  ->  (
v R u  <->  z R u ) )
5352notbid 294 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( v  =  z  ->  ( -.  v R u  <->  -.  z R u ) )
5453rspcv 3090 . . . . . . . . . . . . . . . . . . . . . . 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 4674 . . . . . . . . . . . . . . . . . . . . . . . . 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 2996 . . . . . . . . . . . . . . . . . . . . . . 23  |-  w  e. 
_V
67 breq1 4316 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( v  =  w  ->  (
v R u  <->  w R u ) )
6867notbid 294 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( v  =  w  ->  ( -.  v R u  <->  -.  w R u ) )
6966, 68ralsn 3936 . . . . . . . . . . . . . . . . . . . . . 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 3559 . . . . . . . . . . . . . . . . . . . . 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 4040 . . . . . . . . . . . . . . . . . . . . 21  |-  ( w  e.  x  ->  (
( x  \  {
w } )  u. 
{ w } )  =  x )
7675raleqdv 2944 . . . . . . . . . . . . . . . . . . . 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 2849 . . . . . . . . . . . . . . . . 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 2861 . . . . . . . . . . . . 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 2746 . . . . . . . . . . . . 13  |-  ( A. v  e.  x  -.  v R w  <->  -.  E. v  e.  x  v R w )
86 breq2 4317 . . . . . . . . . . . . . . . . 17  |-  ( u  =  w  ->  (
v R u  <->  v R w ) )
8786notbid 294 . . . . . . . . . . . . . . . 16  |-  ( u  =  w  ->  ( -.  v R u  <->  -.  v R w ) )
8887ralbidv 2756 . . . . . . . . . . . . . . 15  |-  ( u  =  w  ->  ( A. v  e.  x  -.  v R u  <->  A. v  e.  x  -.  v R w ) )
8988rspcev 3094 . . . . . . . . . . . . . 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 4029 . . . . . . . . . . . 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 2644 . . . . . . . . . . . . . . . . 17  |-  ( ( x  \  { w } )  =  x  ->  ( ( x 
\  { w }
)  =/=  (/)  <->  x  =/=  (/) ) )
96 raleq 2938 . . . . . . . . . . . . . . . . . 18  |-  ( ( x  \  { w } )  =  x  ->  ( A. v  e.  ( x  \  {
w } )  -.  v R u  <->  A. v  e.  x  -.  v R u ) )
9796rexbidv 2757 . . . . . . . . . . . . . . . . 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 4700 . . . . . . 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 7573 . 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 2620   A.wral 2736   E.wrex 2737   _Vcvv 2993    \ cdif 3346    u. cun 3347    C_ wss 3349   (/)c0 3658   {csn 3898   class class class wbr 4313    Po wpo 4660    Fr wfr 4697   Fincfn 7331
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 2423  ax-sep 4434  ax-nul 4442  ax-pow 4491  ax-pr 4552  ax-un 6393
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 2257  df-mo 2258  df-clab 2430  df-cleq 2436  df-clel 2439  df-nfc 2577  df-ne 2622  df-ral 2741  df-rex 2742  df-rab 2745  df-v 2995  df-sbc 3208  df-dif 3352  df-un 3354  df-in 3356  df-ss 3363  df-pss 3365  df-nul 3659  df-if 3813  df-pw 3883  df-sn 3899  df-pr 3901  df-tp 3903  df-op 3905  df-uni 4113  df-br 4314  df-opab 4372  df-tr 4407  df-eprel 4653  df-id 4657  df-po 4662  df-so 4663  df-fr 4700  df-we 4702  df-ord 4743  df-on 4744  df-lim 4745  df-suc 4746  df-xp 4867  df-rel 4868  df-cnv 4869  df-co 4870  df-dm 4871  df-rn 4872  df-res 4873  df-ima 4874  df-iota 5402  df-fun 5441  df-fn 5442  df-f 5443  df-f1 5444  df-fo 5445  df-f1o 5446  df-fv 5447  df-om 6498  df-1o 6941  df-er 7122  df-en 7332  df-fin 7335
This theorem is referenced by:  fimax2g  7579  wofi  7582  isfin1-3  8576
  Copyright terms: Public domain W3C validator