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

Theorem onsucelsucexmidlem 4629
Description: Lemma for onsucelsucexmid 4630. The set  { x  e. 
{ (/) ,  { (/) } }  |  ( x  =  (/)  \/  ph ) } appears as  A in the proof of Theorem 1.3 in [Bauer] p. 483 (see acexmidlema 6014), and similar sets also appear in other proofs that various propositions imply excluded middle, for example in ordtriexmidlem 4619. (Contributed by Jim Kingdon, 2-Aug-2019.)
Assertion
Ref Expression
onsucelsucexmidlem  |-  { x  e.  { (/) ,  { (/) } }  |  ( x  =  (/)  \/  ph ) }  e.  On
Distinct variable group:    ph, x

Proof of Theorem onsucelsucexmidlem
Dummy variables  y  z are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 simpll 527 . . . . . . . 8  |-  ( ( ( y  e.  z  /\  z  e.  {
x  e.  { (/) ,  { (/) } }  | 
( x  =  (/)  \/ 
ph ) } )  /\  z  =  (/) )  ->  y  e.  z )
2 noel 3497 . . . . . . . . . 10  |-  -.  y  e.  (/)
3 eleq2 2294 . . . . . . . . . 10  |-  ( z  =  (/)  ->  ( y  e.  z  <->  y  e.  (/) ) )
42, 3mtbiri 681 . . . . . . . . 9  |-  ( z  =  (/)  ->  -.  y  e.  z )
54adantl 277 . . . . . . . 8  |-  ( ( ( y  e.  z  /\  z  e.  {
x  e.  { (/) ,  { (/) } }  | 
( x  =  (/)  \/ 
ph ) } )  /\  z  =  (/) )  ->  -.  y  e.  z )
61, 5pm2.21dd 625 . . . . . . 7  |-  ( ( ( y  e.  z  /\  z  e.  {
x  e.  { (/) ,  { (/) } }  | 
( x  =  (/)  \/ 
ph ) } )  /\  z  =  (/) )  ->  y  e.  {
x  e.  { (/) ,  { (/) } }  | 
( x  =  (/)  \/ 
ph ) } )
76ex 115 . . . . . 6  |-  ( ( y  e.  z  /\  z  e.  { x  e.  { (/) ,  { (/) } }  |  ( x  =  (/)  \/  ph ) } )  ->  (
z  =  (/)  ->  y  e.  { x  e.  { (/)
,  { (/) } }  |  ( x  =  (/)  \/  ph ) } ) )
8 eleq2 2294 . . . . . . . . . . 11  |-  ( z  =  { (/) }  ->  ( y  e.  z  <->  y  e.  {
(/) } ) )
98biimpac 298 . . . . . . . . . 10  |-  ( ( y  e.  z  /\  z  =  { (/) } )  ->  y  e.  { (/)
} )
10 velsn 3687 . . . . . . . . . 10  |-  ( y  e.  { (/) }  <->  y  =  (/) )
119, 10sylib 122 . . . . . . . . 9  |-  ( ( y  e.  z  /\  z  =  { (/) } )  ->  y  =  (/) )
12 onsucelsucexmidlem1 4628 . . . . . . . . 9  |-  (/)  e.  {
x  e.  { (/) ,  { (/) } }  | 
( x  =  (/)  \/ 
ph ) }
1311, 12eqeltrdi 2321 . . . . . . . 8  |-  ( ( y  e.  z  /\  z  =  { (/) } )  ->  y  e.  {
x  e.  { (/) ,  { (/) } }  | 
( x  =  (/)  \/ 
ph ) } )
1413ex 115 . . . . . . 7  |-  ( y  e.  z  ->  (
z  =  { (/) }  ->  y  e.  {
x  e.  { (/) ,  { (/) } }  | 
( x  =  (/)  \/ 
ph ) } ) )
1514adantr 276 . . . . . 6  |-  ( ( y  e.  z  /\  z  e.  { x  e.  { (/) ,  { (/) } }  |  ( x  =  (/)  \/  ph ) } )  ->  (
z  =  { (/) }  ->  y  e.  {
x  e.  { (/) ,  { (/) } }  | 
( x  =  (/)  \/ 
ph ) } ) )
16 elrabi 2958 . . . . . . . 8  |-  ( z  e.  { x  e. 
{ (/) ,  { (/) } }  |  ( x  =  (/)  \/  ph ) }  ->  z  e.  { (/)
,  { (/) } }
)
17 vex 2804 . . . . . . . . 9  |-  z  e. 
_V
1817elpr 3691 . . . . . . . 8  |-  ( z  e.  { (/) ,  { (/)
} }  <->  ( z  =  (/)  \/  z  =  { (/) } ) )
1916, 18sylib 122 . . . . . . 7  |-  ( z  e.  { x  e. 
{ (/) ,  { (/) } }  |  ( x  =  (/)  \/  ph ) }  ->  ( z  =  (/)  \/  z  =  { (/)
} ) )
2019adantl 277 . . . . . 6  |-  ( ( y  e.  z  /\  z  e.  { x  e.  { (/) ,  { (/) } }  |  ( x  =  (/)  \/  ph ) } )  ->  (
z  =  (/)  \/  z  =  { (/) } ) )
217, 15, 20mpjaod 725 . . . . 5  |-  ( ( y  e.  z  /\  z  e.  { x  e.  { (/) ,  { (/) } }  |  ( x  =  (/)  \/  ph ) } )  ->  y  e.  { x  e.  { (/)
,  { (/) } }  |  ( x  =  (/)  \/  ph ) } )
2221gen2 1498 . . . 4  |-  A. y A. z ( ( y  e.  z  /\  z  e.  { x  e.  { (/)
,  { (/) } }  |  ( x  =  (/)  \/  ph ) } )  ->  y  e.  { x  e.  { (/) ,  { (/) } }  | 
( x  =  (/)  \/ 
ph ) } )
23 dftr2 4190 . . . 4  |-  ( Tr 
{ x  e.  { (/)
,  { (/) } }  |  ( x  =  (/)  \/  ph ) }  <->  A. y A. z ( ( y  e.  z  /\  z  e.  {
x  e.  { (/) ,  { (/) } }  | 
( x  =  (/)  \/ 
ph ) } )  ->  y  e.  {
x  e.  { (/) ,  { (/) } }  | 
( x  =  (/)  \/ 
ph ) } ) )
2422, 23mpbir 146 . . 3  |-  Tr  {
x  e.  { (/) ,  { (/) } }  | 
( x  =  (/)  \/ 
ph ) }
25 ssrab2 3311 . . 3  |-  { x  e.  { (/) ,  { (/) } }  |  ( x  =  (/)  \/  ph ) }  C_  { (/) ,  { (/)
} }
26 2ordpr 4624 . . 3  |-  Ord  { (/)
,  { (/) } }
27 trssord 4479 . . 3  |-  ( ( Tr  { x  e. 
{ (/) ,  { (/) } }  |  ( x  =  (/)  \/  ph ) }  /\  { x  e. 
{ (/) ,  { (/) } }  |  ( x  =  (/)  \/  ph ) }  C_  { (/) ,  { (/)
} }  /\  Ord  {
(/) ,  { (/) } }
)  ->  Ord  { x  e.  { (/) ,  { (/) } }  |  ( x  =  (/)  \/  ph ) } )
2824, 25, 26, 27mp3an 1373 . 2  |-  Ord  {
x  e.  { (/) ,  { (/) } }  | 
( x  =  (/)  \/ 
ph ) }
29 pp0ex 4281 . . . 4  |-  { (/) ,  { (/) } }  e.  _V
3029rabex 4235 . . 3  |-  { x  e.  { (/) ,  { (/) } }  |  ( x  =  (/)  \/  ph ) }  e.  _V
3130elon 4473 . 2  |-  ( { x  e.  { (/) ,  { (/) } }  | 
( x  =  (/)  \/ 
ph ) }  e.  On 
<->  Ord  { x  e. 
{ (/) ,  { (/) } }  |  ( x  =  (/)  \/  ph ) } )
3228, 31mpbir 146 1  |-  { x  e.  { (/) ,  { (/) } }  |  ( x  =  (/)  \/  ph ) }  e.  On
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 104    \/ wo 715   A.wal 1395    = wceq 1397    e. wcel 2201   {crab 2513    C_ wss 3199   (/)c0 3493   {csn 3670   {cpr 3671   Tr wtr 4188   Ord word 4461   Oncon0 4462
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-14 2204  ax-ext 2212  ax-sep 4208  ax-nul 4216  ax-pow 4266
This theorem depends on definitions:  df-bi 117  df-3an 1006  df-tru 1400  df-nf 1509  df-sb 1810  df-clab 2217  df-cleq 2223  df-clel 2226  df-nfc 2362  df-ral 2514  df-rex 2515  df-rab 2518  df-v 2803  df-dif 3201  df-un 3203  df-in 3205  df-ss 3212  df-nul 3494  df-pw 3655  df-sn 3676  df-pr 3677  df-uni 3895  df-tr 4189  df-iord 4465  df-on 4467  df-suc 4470
This theorem is referenced by:  onsucelsucexmid  4630  acexmidlemcase  6018  acexmidlemv  6021
  Copyright terms: Public domain W3C validator