ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  nnregexmid Unicode version

Theorem nnregexmid 4719
Description: If inhabited sets of natural numbers always have minimal elements, excluded middle follows. The argument is essentially the same as regexmid 4633 and the larger lesson is that although natural numbers may behave "non-constructively" even in a constructive set theory (for example see nndceq 6666 or nntri3or 6660), sets of natural numbers are a different animal. (Contributed by Jim Kingdon, 6-Sep-2019.)
Hypothesis
Ref Expression
nnregexmid.1  |-  ( ( x  C_  om  /\  E. y  y  e.  x
)  ->  E. y
( y  e.  x  /\  A. z ( z  e.  y  ->  -.  z  e.  x )
) )
Assertion
Ref Expression
nnregexmid  |-  ( ph  \/  -.  ph )
Distinct variable group:    ph, x, y, z

Proof of Theorem nnregexmid
Dummy variable  w is distinct from all other variables.
StepHypRef Expression
1 ssrab2 3312 . . . 4  |-  { w  e.  { (/) ,  { (/) } }  |  ( w  =  { (/) }  \/  ( w  =  (/)  /\  ph ) ) }  C_  {
(/) ,  { (/) } }
2 peano1 4692 . . . . 5  |-  (/)  e.  om
3 suc0 4508 . . . . . 6  |-  suc  (/)  =  { (/)
}
4 peano2 4693 . . . . . . 7  |-  ( (/)  e.  om  ->  suc  (/)  e.  om )
52, 4ax-mp 5 . . . . . 6  |-  suc  (/)  e.  om
63, 5eqeltrri 2305 . . . . 5  |-  { (/) }  e.  om
7 prssi 3831 . . . . 5  |-  ( (
(/)  e.  om  /\  { (/)
}  e.  om )  ->  { (/) ,  { (/) } }  C_  om )
82, 6, 7mp2an 426 . . . 4  |-  { (/) ,  { (/) } }  C_  om
91, 8sstri 3236 . . 3  |-  { w  e.  { (/) ,  { (/) } }  |  ( w  =  { (/) }  \/  ( w  =  (/)  /\  ph ) ) }  C_  om
10 eqid 2231 . . . 4  |-  { w  e.  { (/) ,  { (/) } }  |  ( w  =  { (/) }  \/  ( w  =  (/)  /\  ph ) ) }  =  { w  e.  { (/) ,  { (/) } }  | 
( w  =  { (/)
}  \/  ( w  =  (/)  /\  ph )
) }
1110regexmidlemm 4630 . . 3  |-  E. y 
y  e.  { w  e.  { (/) ,  { (/) } }  |  ( w  =  { (/) }  \/  ( w  =  (/)  /\  ph ) ) }
12 pp0ex 4279 . . . . 5  |-  { (/) ,  { (/) } }  e.  _V
1312rabex 4234 . . . 4  |-  { w  e.  { (/) ,  { (/) } }  |  ( w  =  { (/) }  \/  ( w  =  (/)  /\  ph ) ) }  e.  _V
14 sseq1 3250 . . . . . 6  |-  ( x  =  { w  e. 
{ (/) ,  { (/) } }  |  ( w  =  { (/) }  \/  ( w  =  (/)  /\  ph ) ) }  ->  ( x  C_  om  <->  { w  e.  { (/) ,  { (/) } }  |  ( w  =  { (/) }  \/  ( w  =  (/)  /\  ph ) ) }  C_  om ) )
15 eleq2 2295 . . . . . . 7  |-  ( x  =  { w  e. 
{ (/) ,  { (/) } }  |  ( w  =  { (/) }  \/  ( w  =  (/)  /\  ph ) ) }  ->  ( y  e.  x  <->  y  e.  { w  e.  { (/) ,  { (/) } }  | 
( w  =  { (/)
}  \/  ( w  =  (/)  /\  ph )
) } ) )
1615exbidv 1873 . . . . . 6  |-  ( x  =  { w  e. 
{ (/) ,  { (/) } }  |  ( w  =  { (/) }  \/  ( w  =  (/)  /\  ph ) ) }  ->  ( E. y  y  e.  x  <->  E. y  y  e. 
{ w  e.  { (/)
,  { (/) } }  |  ( w  =  { (/) }  \/  (
w  =  (/)  /\  ph ) ) } ) )
1714, 16anbi12d 473 . . . . 5  |-  ( x  =  { w  e. 
{ (/) ,  { (/) } }  |  ( w  =  { (/) }  \/  ( w  =  (/)  /\  ph ) ) }  ->  ( ( x  C_  om  /\  E. y  y  e.  x
)  <->  ( { w  e.  { (/) ,  { (/) } }  |  ( w  =  { (/) }  \/  ( w  =  (/)  /\  ph ) ) }  C_  om 
/\  E. y  y  e. 
{ w  e.  { (/)
,  { (/) } }  |  ( w  =  { (/) }  \/  (
w  =  (/)  /\  ph ) ) } ) ) )
18 eleq2 2295 . . . . . . . . . 10  |-  ( x  =  { w  e. 
{ (/) ,  { (/) } }  |  ( w  =  { (/) }  \/  ( w  =  (/)  /\  ph ) ) }  ->  ( z  e.  x  <->  z  e.  { w  e.  { (/) ,  { (/) } }  | 
( w  =  { (/)
}  \/  ( w  =  (/)  /\  ph )
) } ) )
1918notbid 673 . . . . . . . . 9  |-  ( x  =  { w  e. 
{ (/) ,  { (/) } }  |  ( w  =  { (/) }  \/  ( w  =  (/)  /\  ph ) ) }  ->  ( -.  z  e.  x  <->  -.  z  e.  { w  e.  { (/) ,  { (/) } }  |  ( w  =  { (/) }  \/  ( w  =  (/)  /\  ph ) ) } ) )
2019imbi2d 230 . . . . . . . 8  |-  ( x  =  { w  e. 
{ (/) ,  { (/) } }  |  ( w  =  { (/) }  \/  ( w  =  (/)  /\  ph ) ) }  ->  ( ( z  e.  y  ->  -.  z  e.  x )  <->  ( z  e.  y  ->  -.  z  e.  { w  e.  { (/)
,  { (/) } }  |  ( w  =  { (/) }  \/  (
w  =  (/)  /\  ph ) ) } ) ) )
2120albidv 1872 . . . . . . 7  |-  ( x  =  { w  e. 
{ (/) ,  { (/) } }  |  ( w  =  { (/) }  \/  ( w  =  (/)  /\  ph ) ) }  ->  ( A. z ( z  e.  y  ->  -.  z  e.  x )  <->  A. z ( z  e.  y  ->  -.  z  e.  { w  e.  { (/)
,  { (/) } }  |  ( w  =  { (/) }  \/  (
w  =  (/)  /\  ph ) ) } ) ) )
2215, 21anbi12d 473 . . . . . 6  |-  ( x  =  { w  e. 
{ (/) ,  { (/) } }  |  ( w  =  { (/) }  \/  ( w  =  (/)  /\  ph ) ) }  ->  ( ( y  e.  x  /\  A. z ( z  e.  y  ->  -.  z  e.  x )
)  <->  ( y  e. 
{ w  e.  { (/)
,  { (/) } }  |  ( w  =  { (/) }  \/  (
w  =  (/)  /\  ph ) ) }  /\  A. z ( z  e.  y  ->  -.  z  e.  { w  e.  { (/)
,  { (/) } }  |  ( w  =  { (/) }  \/  (
w  =  (/)  /\  ph ) ) } ) ) ) )
2322exbidv 1873 . . . . 5  |-  ( x  =  { w  e. 
{ (/) ,  { (/) } }  |  ( w  =  { (/) }  \/  ( w  =  (/)  /\  ph ) ) }  ->  ( E. y ( y  e.  x  /\  A. z ( z  e.  y  ->  -.  z  e.  x ) )  <->  E. y
( y  e.  {
w  e.  { (/) ,  { (/) } }  | 
( w  =  { (/)
}  \/  ( w  =  (/)  /\  ph )
) }  /\  A. z ( z  e.  y  ->  -.  z  e.  { w  e.  { (/)
,  { (/) } }  |  ( w  =  { (/) }  \/  (
w  =  (/)  /\  ph ) ) } ) ) ) )
2417, 23imbi12d 234 . . . 4  |-  ( x  =  { w  e. 
{ (/) ,  { (/) } }  |  ( w  =  { (/) }  \/  ( w  =  (/)  /\  ph ) ) }  ->  ( ( ( x  C_  om 
/\  E. y  y  e.  x )  ->  E. y
( y  e.  x  /\  A. z ( z  e.  y  ->  -.  z  e.  x )
) )  <->  ( ( { w  e.  { (/) ,  { (/) } }  | 
( w  =  { (/)
}  \/  ( w  =  (/)  /\  ph )
) }  C_  om  /\  E. y  y  e.  {
w  e.  { (/) ,  { (/) } }  | 
( w  =  { (/)
}  \/  ( w  =  (/)  /\  ph )
) } )  ->  E. y ( y  e. 
{ w  e.  { (/)
,  { (/) } }  |  ( w  =  { (/) }  \/  (
w  =  (/)  /\  ph ) ) }  /\  A. z ( z  e.  y  ->  -.  z  e.  { w  e.  { (/)
,  { (/) } }  |  ( w  =  { (/) }  \/  (
w  =  (/)  /\  ph ) ) } ) ) ) ) )
25 nnregexmid.1 . . . 4  |-  ( ( x  C_  om  /\  E. y  y  e.  x
)  ->  E. y
( y  e.  x  /\  A. z ( z  e.  y  ->  -.  z  e.  x )
) )
2613, 24, 25vtocl 2858 . . 3  |-  ( ( { w  e.  { (/)
,  { (/) } }  |  ( w  =  { (/) }  \/  (
w  =  (/)  /\  ph ) ) }  C_  om 
/\  E. y  y  e. 
{ w  e.  { (/)
,  { (/) } }  |  ( w  =  { (/) }  \/  (
w  =  (/)  /\  ph ) ) } )  ->  E. y ( y  e.  { w  e. 
{ (/) ,  { (/) } }  |  ( w  =  { (/) }  \/  ( w  =  (/)  /\  ph ) ) }  /\  A. z ( z  e.  y  ->  -.  z  e.  { w  e.  { (/)
,  { (/) } }  |  ( w  =  { (/) }  \/  (
w  =  (/)  /\  ph ) ) } ) ) )
279, 11, 26mp2an 426 . 2  |-  E. y
( y  e.  {
w  e.  { (/) ,  { (/) } }  | 
( w  =  { (/)
}  \/  ( w  =  (/)  /\  ph )
) }  /\  A. z ( z  e.  y  ->  -.  z  e.  { w  e.  { (/)
,  { (/) } }  |  ( w  =  { (/) }  \/  (
w  =  (/)  /\  ph ) ) } ) )
2810regexmidlem1 4631 . 2  |-  ( E. y ( y  e. 
{ w  e.  { (/)
,  { (/) } }  |  ( w  =  { (/) }  \/  (
w  =  (/)  /\  ph ) ) }  /\  A. z ( z  e.  y  ->  -.  z  e.  { w  e.  { (/)
,  { (/) } }  |  ( w  =  { (/) }  \/  (
w  =  (/)  /\  ph ) ) } ) )  ->  ( ph  \/  -.  ph ) )
2927, 28ax-mp 5 1  |-  ( ph  \/  -.  ph )
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 104    \/ wo 715   A.wal 1395    = wceq 1397   E.wex 1540    e. wcel 2202   {crab 2514    C_ wss 3200   (/)c0 3494   {csn 3669   {cpr 3670   suc csuc 4462   omcom 4688
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 619  ax-in2 620  ax-io 716  ax-5 1495  ax-7 1496  ax-gen 1497  ax-ie1 1541  ax-ie2 1542  ax-8 1552  ax-10 1553  ax-11 1554  ax-i12 1555  ax-bndl 1557  ax-4 1558  ax-17 1574  ax-i9 1578  ax-ial 1582  ax-i5r 1583  ax-13 2204  ax-14 2205  ax-ext 2213  ax-sep 4207  ax-nul 4215  ax-pow 4264  ax-pr 4299  ax-un 4530
This theorem depends on definitions:  df-bi 117  df-3an 1006  df-tru 1400  df-nf 1509  df-sb 1811  df-clab 2218  df-cleq 2224  df-clel 2227  df-nfc 2363  df-ral 2515  df-rex 2516  df-rab 2519  df-v 2804  df-dif 3202  df-un 3204  df-in 3206  df-ss 3213  df-nul 3495  df-pw 3654  df-sn 3675  df-pr 3676  df-uni 3894  df-int 3929  df-suc 4468  df-iom 4689
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator