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

Theorem unblem1 7388
Description: Lemma for unbnn 7392. After removing the successor of an element from an unbounded set of natural numbers, the intersection of the result belongs to the original unbounded set. (Contributed by NM, 3-Dec-2003.)
Assertion
Ref Expression
unblem1  |-  ( ( ( B  C_  om  /\  A. x  e.  om  E. y  e.  B  x  e.  y )  /\  A  e.  B )  ->  |^| ( B  \  suc  A )  e.  B )
Distinct variable groups:    x, y, A    x, B, y

Proof of Theorem unblem1
StepHypRef Expression
1 omsson 4878 . . . . . 6  |-  om  C_  On
2 sstr 3342 . . . . . 6  |-  ( ( B  C_  om  /\  om  C_  On )  ->  B  C_  On )
31, 2mpan2 654 . . . . 5  |-  ( B 
C_  om  ->  B  C_  On )
43ssdifssd 3471 . . . 4  |-  ( B 
C_  om  ->  ( B 
\  suc  A )  C_  On )
54ad2antrr 708 . . 3  |-  ( ( ( B  C_  om  /\  A. x  e.  om  E. y  e.  B  x  e.  y )  /\  A  e.  B )  ->  ( B  \  suc  A ) 
C_  On )
6 ssel 3328 . . . . . 6  |-  ( B 
C_  om  ->  ( A  e.  B  ->  A  e.  om ) )
7 peano2b 4890 . . . . . 6  |-  ( A  e.  om  <->  suc  A  e. 
om )
86, 7syl6ib 219 . . . . 5  |-  ( B 
C_  om  ->  ( A  e.  B  ->  suc  A  e.  om ) )
9 eleq1 2502 . . . . . . . 8  |-  ( x  =  suc  A  -> 
( x  e.  y  <->  suc  A  e.  y ) )
109rexbidv 2732 . . . . . . 7  |-  ( x  =  suc  A  -> 
( E. y  e.  B  x  e.  y  <->  E. y  e.  B  suc  A  e.  y ) )
1110rspccva 3057 . . . . . 6  |-  ( ( A. x  e.  om  E. y  e.  B  x  e.  y  /\  suc  A  e.  om )  ->  E. y  e.  B  suc  A  e.  y )
12 ssel 3328 . . . . . . . . . . 11  |-  ( B 
C_  om  ->  ( y  e.  B  ->  y  e.  om ) )
13 nnord 4882 . . . . . . . . . . . 12  |-  ( y  e.  om  ->  Ord  y )
14 ordn2lp 4630 . . . . . . . . . . . . . 14  |-  ( Ord  y  ->  -.  (
y  e.  suc  A  /\  suc  A  e.  y ) )
15 imnan 413 . . . . . . . . . . . . . 14  |-  ( ( y  e.  suc  A  ->  -.  suc  A  e.  y )  <->  -.  (
y  e.  suc  A  /\  suc  A  e.  y ) )
1614, 15sylibr 205 . . . . . . . . . . . . 13  |-  ( Ord  y  ->  ( y  e.  suc  A  ->  -.  suc  A  e.  y ) )
1716con2d 110 . . . . . . . . . . . 12  |-  ( Ord  y  ->  ( suc  A  e.  y  ->  -.  y  e.  suc  A ) )
1813, 17syl 16 . . . . . . . . . . 11  |-  ( y  e.  om  ->  ( suc  A  e.  y  ->  -.  y  e.  suc  A ) )
1912, 18syl6 32 . . . . . . . . . 10  |-  ( B 
C_  om  ->  ( y  e.  B  ->  ( suc  A  e.  y  ->  -.  y  e.  suc  A ) ) )
2019imdistand 675 . . . . . . . . 9  |-  ( B 
C_  om  ->  ( ( y  e.  B  /\  suc  A  e.  y )  ->  ( y  e.  B  /\  -.  y  e.  suc  A ) ) )
21 eldif 3316 . . . . . . . . . 10  |-  ( y  e.  ( B  \  suc  A )  <->  ( y  e.  B  /\  -.  y  e.  suc  A ) )
22 ne0i 3619 . . . . . . . . . 10  |-  ( y  e.  ( B  \  suc  A )  ->  ( B  \  suc  A )  =/=  (/) )
2321, 22sylbir 206 . . . . . . . . 9  |-  ( ( y  e.  B  /\  -.  y  e.  suc  A )  ->  ( B  \  suc  A )  =/=  (/) )
2420, 23syl6 32 . . . . . . . 8  |-  ( B 
C_  om  ->  ( ( y  e.  B  /\  suc  A  e.  y )  ->  ( B  \  suc  A )  =/=  (/) ) )
2524exp3a 427 . . . . . . 7  |-  ( B 
C_  om  ->  ( y  e.  B  ->  ( suc  A  e.  y  -> 
( B  \  suc  A )  =/=  (/) ) ) )
2625rexlimdv 2835 . . . . . 6  |-  ( B 
C_  om  ->  ( E. y  e.  B  suc  A  e.  y  ->  ( B  \  suc  A )  =/=  (/) ) )
2711, 26syl5 31 . . . . 5  |-  ( B 
C_  om  ->  ( ( A. x  e.  om  E. y  e.  B  x  e.  y  /\  suc  A  e.  om )  -> 
( B  \  suc  A )  =/=  (/) ) )
288, 27sylan2d 470 . . . 4  |-  ( B 
C_  om  ->  ( ( A. x  e.  om  E. y  e.  B  x  e.  y  /\  A  e.  B )  ->  ( B  \  suc  A )  =/=  (/) ) )
2928impl 605 . . 3  |-  ( ( ( B  C_  om  /\  A. x  e.  om  E. y  e.  B  x  e.  y )  /\  A  e.  B )  ->  ( B  \  suc  A )  =/=  (/) )
30 onint 4804 . . 3  |-  ( ( ( B  \  suc  A )  C_  On  /\  ( B  \  suc  A )  =/=  (/) )  ->  |^| ( B  \  suc  A )  e.  ( B  \  suc  A ) )
315, 29, 30syl2anc 644 . 2  |-  ( ( ( B  C_  om  /\  A. x  e.  om  E. y  e.  B  x  e.  y )  /\  A  e.  B )  ->  |^| ( B  \  suc  A )  e.  ( B  \  suc  A ) )
3231eldifad 3318 1  |-  ( ( ( B  C_  om  /\  A. x  e.  om  E. y  e.  B  x  e.  y )  /\  A  e.  B )  ->  |^| ( B  \  suc  A )  e.  B )
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 360    = wceq 1653    e. wcel 1727    =/= wne 2605   A.wral 2711   E.wrex 2712    \ cdif 3303    C_ wss 3306   (/)c0 3613   |^|cint 4074   Ord word 4609   Oncon0 4610   suc csuc 4612   omcom 4874
This theorem is referenced by:  unblem2  7389  unblem3  7390
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1556  ax-5 1567  ax-17 1627  ax-9 1668  ax-8 1689  ax-13 1729  ax-14 1731  ax-6 1746  ax-7 1751  ax-11 1763  ax-12 1953  ax-ext 2423  ax-sep 4355  ax-nul 4363  ax-pr 4432  ax-un 4730
This theorem depends on definitions:  df-bi 179  df-or 361  df-an 362  df-3or 938  df-3an 939  df-tru 1329  df-ex 1552  df-nf 1555  df-sb 1660  df-eu 2291  df-mo 2292  df-clab 2429  df-cleq 2435  df-clel 2438  df-nfc 2567  df-ne 2607  df-ral 2716  df-rex 2717  df-rab 2720  df-v 2964  df-sbc 3168  df-dif 3309  df-un 3311  df-in 3313  df-ss 3320  df-pss 3322  df-nul 3614  df-if 3764  df-pw 3825  df-sn 3844  df-pr 3845  df-tp 3846  df-op 3847  df-uni 4040  df-int 4075  df-br 4238  df-opab 4292  df-tr 4328  df-eprel 4523  df-po 4532  df-so 4533  df-fr 4570  df-we 4572  df-ord 4613  df-on 4614  df-lim 4615  df-suc 4616  df-om 4875
  Copyright terms: Public domain W3C validator