Users' Mathboxes Mathbox for Scott Fenton < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  frind Structured version   Unicode version

Theorem frind 30488
Description: The principle of founded induction. Theorem 4.4 of Don Monk's notes (see frmin 30487). This principle states that if  B is a subclass of a founded class  A with the property that every element of  B whose initial segment is included in  A is itself equal to  A. Compare wfi 5432 and tfi 6694, which are special cases of this theorem that do not require the axiom of infinity to prove. (Contributed by Scott Fenton, 6-Feb-2011.) (Revised by Mario Carneiro, 26-Jun-2015.)
Assertion
Ref Expression
frind  |-  ( ( ( R  Fr  A  /\  R Se  A )  /\  ( B  C_  A  /\  A. y  e.  A  ( Pred ( R ,  A ,  y )  C_  B  ->  y  e.  B ) ) )  ->  A  =  B )
Distinct variable groups:    y, A    y, B    y, R

Proof of Theorem frind
StepHypRef Expression
1 ssdif0 3853 . . . . . . 7  |-  ( A 
C_  B  <->  ( A  \  B )  =  (/) )
21necon3bbii 2681 . . . . . 6  |-  ( -.  A  C_  B  <->  ( A  \  B )  =/=  (/) )
3 difss 3592 . . . . . . 7  |-  ( A 
\  B )  C_  A
4 frmin 30487 . . . . . . . . 9  |-  ( ( ( R  Fr  A  /\  R Se  A )  /\  ( ( A  \  B )  C_  A  /\  ( A  \  B
)  =/=  (/) ) )  ->  E. y  e.  ( A  \  B )
Pred ( R , 
( A  \  B
) ,  y )  =  (/) )
5 eldif 3446 . . . . . . . . . . . . 13  |-  ( y  e.  ( A  \  B )  <->  ( y  e.  A  /\  -.  y  e.  B ) )
65anbi1i 699 . . . . . . . . . . . 12  |-  ( ( y  e.  ( A 
\  B )  /\  Pred ( R ,  ( A  \  B ) ,  y )  =  (/) )  <->  ( ( y  e.  A  /\  -.  y  e.  B )  /\  Pred ( R , 
( A  \  B
) ,  y )  =  (/) ) )
7 anass 653 . . . . . . . . . . . 12  |-  ( ( ( y  e.  A  /\  -.  y  e.  B
)  /\  Pred ( R ,  ( A  \  B ) ,  y )  =  (/) )  <->  ( y  e.  A  /\  ( -.  y  e.  B  /\  Pred ( R , 
( A  \  B
) ,  y )  =  (/) ) ) )
8 ancom 451 . . . . . . . . . . . . . 14  |-  ( ( -.  y  e.  B  /\  Pred ( R , 
( A  \  B
) ,  y )  =  (/) )  <->  ( Pred ( R ,  ( A 
\  B ) ,  y )  =  (/)  /\ 
-.  y  e.  B
) )
9 indif2 3716 . . . . . . . . . . . . . . . . . 18  |-  ( ( `' R " { y } )  i^i  ( A  \  B ) )  =  ( ( ( `' R " { y } )  i^i  A
)  \  B )
10 df-pred 5399 . . . . . . . . . . . . . . . . . . 19  |-  Pred ( R ,  ( A  \  B ) ,  y )  =  ( ( A  \  B )  i^i  ( `' R " { y } ) )
11 incom 3655 . . . . . . . . . . . . . . . . . . 19  |-  ( ( A  \  B )  i^i  ( `' R " { y } ) )  =  ( ( `' R " { y } )  i^i  ( A  \  B ) )
1210, 11eqtri 2451 . . . . . . . . . . . . . . . . . 18  |-  Pred ( R ,  ( A  \  B ) ,  y )  =  ( ( `' R " { y } )  i^i  ( A  \  B ) )
13 df-pred 5399 . . . . . . . . . . . . . . . . . . . 20  |-  Pred ( R ,  A , 
y )  =  ( A  i^i  ( `' R " { y } ) )
14 incom 3655 . . . . . . . . . . . . . . . . . . . 20  |-  ( A  i^i  ( `' R " { y } ) )  =  ( ( `' R " { y } )  i^i  A
)
1513, 14eqtri 2451 . . . . . . . . . . . . . . . . . . 19  |-  Pred ( R ,  A , 
y )  =  ( ( `' R " { y } )  i^i  A )
1615difeq1i 3579 . . . . . . . . . . . . . . . . . 18  |-  ( Pred ( R ,  A ,  y )  \  B )  =  ( ( ( `' R " { y } )  i^i  A )  \  B )
179, 12, 163eqtr4i 2461 . . . . . . . . . . . . . . . . 17  |-  Pred ( R ,  ( A  \  B ) ,  y )  =  ( Pred ( R ,  A ,  y )  \  B )
1817eqeq1i 2429 . . . . . . . . . . . . . . . 16  |-  ( Pred ( R ,  ( A  \  B ) ,  y )  =  (/) 
<->  ( Pred ( R ,  A ,  y )  \  B )  =  (/) )
19 ssdif0 3853 . . . . . . . . . . . . . . . 16  |-  ( Pred ( R ,  A ,  y )  C_  B 
<->  ( Pred ( R ,  A ,  y )  \  B )  =  (/) )
2018, 19bitr4i 255 . . . . . . . . . . . . . . 15  |-  ( Pred ( R ,  ( A  \  B ) ,  y )  =  (/) 
<-> 
Pred ( R ,  A ,  y )  C_  B )
2120anbi1i 699 . . . . . . . . . . . . . 14  |-  ( (
Pred ( R , 
( A  \  B
) ,  y )  =  (/)  /\  -.  y  e.  B )  <->  ( Pred ( R ,  A , 
y )  C_  B  /\  -.  y  e.  B
) )
228, 21bitri 252 . . . . . . . . . . . . 13  |-  ( ( -.  y  e.  B  /\  Pred ( R , 
( A  \  B
) ,  y )  =  (/) )  <->  ( Pred ( R ,  A , 
y )  C_  B  /\  -.  y  e.  B
) )
2322anbi2i 698 . . . . . . . . . . . 12  |-  ( ( y  e.  A  /\  ( -.  y  e.  B  /\  Pred ( R , 
( A  \  B
) ,  y )  =  (/) ) )  <->  ( y  e.  A  /\  ( Pred ( R ,  A ,  y )  C_  B  /\  -.  y  e.  B ) ) )
246, 7, 233bitri 274 . . . . . . . . . . 11  |-  ( ( y  e.  ( A 
\  B )  /\  Pred ( R ,  ( A  \  B ) ,  y )  =  (/) )  <->  ( y  e.  A  /\  ( Pred ( R ,  A ,  y )  C_  B  /\  -.  y  e.  B ) ) )
2524rexbii2 2922 . . . . . . . . . 10  |-  ( E. y  e.  ( A 
\  B ) Pred ( R ,  ( A  \  B ) ,  y )  =  (/) 
<->  E. y  e.  A  ( Pred ( R ,  A ,  y )  C_  B  /\  -.  y  e.  B ) )
26 rexanali 2875 . . . . . . . . . 10  |-  ( E. y  e.  A  (
Pred ( R ,  A ,  y )  C_  B  /\  -.  y  e.  B )  <->  -.  A. y  e.  A  ( Pred ( R ,  A , 
y )  C_  B  ->  y  e.  B ) )
2725, 26bitri 252 . . . . . . . . 9  |-  ( E. y  e.  ( A 
\  B ) Pred ( R ,  ( A  \  B ) ,  y )  =  (/) 
<->  -.  A. y  e.  A  ( Pred ( R ,  A , 
y )  C_  B  ->  y  e.  B ) )
284, 27sylib 199 . . . . . . . 8  |-  ( ( ( R  Fr  A  /\  R Se  A )  /\  ( ( A  \  B )  C_  A  /\  ( A  \  B
)  =/=  (/) ) )  ->  -.  A. y  e.  A  ( Pred ( R ,  A , 
y )  C_  B  ->  y  e.  B ) )
2928ex 435 . . . . . . 7  |-  ( ( R  Fr  A  /\  R Se  A )  ->  (
( ( A  \  B )  C_  A  /\  ( A  \  B
)  =/=  (/) )  ->  -.  A. y  e.  A  ( Pred ( R ,  A ,  y )  C_  B  ->  y  e.  B ) ) )
303, 29mpani 680 . . . . . 6  |-  ( ( R  Fr  A  /\  R Se  A )  ->  (
( A  \  B
)  =/=  (/)  ->  -.  A. y  e.  A  (
Pred ( R ,  A ,  y )  C_  B  ->  y  e.  B ) ) )
312, 30syl5bi 220 . . . . 5  |-  ( ( R  Fr  A  /\  R Se  A )  ->  ( -.  A  C_  B  ->  -.  A. y  e.  A  ( Pred ( R ,  A ,  y )  C_  B  ->  y  e.  B ) ) )
3231con4d 108 . . . 4  |-  ( ( R  Fr  A  /\  R Se  A )  ->  ( A. y  e.  A  ( Pred ( R ,  A ,  y )  C_  B  ->  y  e.  B )  ->  A  C_  B ) )
3332imp 430 . . 3  |-  ( ( ( R  Fr  A  /\  R Se  A )  /\  A. y  e.  A  ( Pred ( R ,  A ,  y )  C_  B  ->  y  e.  B ) )  ->  A  C_  B )
3433adantrl 720 . 2  |-  ( ( ( R  Fr  A  /\  R Se  A )  /\  ( B  C_  A  /\  A. y  e.  A  ( Pred ( R ,  A ,  y )  C_  B  ->  y  e.  B ) ) )  ->  A  C_  B
)
35 simprl 762 . 2  |-  ( ( ( R  Fr  A  /\  R Se  A )  /\  ( B  C_  A  /\  A. y  e.  A  ( Pred ( R ,  A ,  y )  C_  B  ->  y  e.  B ) ) )  ->  B  C_  A
)
3634, 35eqssd 3481 1  |-  ( ( ( R  Fr  A  /\  R Se  A )  /\  ( B  C_  A  /\  A. y  e.  A  ( Pred ( R ,  A ,  y )  C_  B  ->  y  e.  B ) ) )  ->  A  =  B )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 370    = wceq 1437    e. wcel 1872    =/= wne 2614   A.wral 2771   E.wrex 2772    \ cdif 3433    i^i cin 3435    C_ wss 3436   (/)c0 3761   {csn 3998    Fr wfr 4809   Se wse 4810   `'ccnv 4852   "cima 4856   Predcpred 5398
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1663  ax-4 1676  ax-5 1752  ax-6 1798  ax-7 1843  ax-8 1874  ax-9 1876  ax-10 1891  ax-11 1896  ax-12 1909  ax-13 2057  ax-ext 2401  ax-rep 4536  ax-sep 4546  ax-nul 4555  ax-pow 4602  ax-pr 4660  ax-un 6597  ax-inf2 8155
This theorem depends on definitions:  df-bi 188  df-or 371  df-an 372  df-3or 983  df-3an 984  df-tru 1440  df-ex 1658  df-nf 1662  df-sb 1791  df-eu 2273  df-mo 2274  df-clab 2408  df-cleq 2414  df-clel 2417  df-nfc 2568  df-ne 2616  df-ral 2776  df-rex 2777  df-reu 2778  df-rab 2780  df-v 3082  df-sbc 3300  df-csb 3396  df-dif 3439  df-un 3441  df-in 3443  df-ss 3450  df-pss 3452  df-nul 3762  df-if 3912  df-pw 3983  df-sn 3999  df-pr 4001  df-tp 4003  df-op 4005  df-uni 4220  df-iun 4301  df-br 4424  df-opab 4483  df-mpt 4484  df-tr 4519  df-eprel 4764  df-id 4768  df-po 4774  df-so 4775  df-fr 4812  df-se 4813  df-we 4814  df-xp 4859  df-rel 4860  df-cnv 4861  df-co 4862  df-dm 4863  df-rn 4864  df-res 4865  df-ima 4866  df-pred 5399  df-ord 5445  df-on 5446  df-lim 5447  df-suc 5448  df-iota 5565  df-fun 5603  df-fn 5604  df-f 5605  df-f1 5606  df-fo 5607  df-f1o 5608  df-fv 5609  df-om 6707  df-wrecs 7039  df-recs 7101  df-rdg 7139  df-trpred 30466
This theorem is referenced by:  frindi  30489  frinsg  30490
  Copyright terms: Public domain W3C validator