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

Theorem reg2exmidlema 4493
Description: Lemma for reg2exmid 4495. If  A has a minimal element (expressed by  C_), excluded middle follows. (Contributed by Jim Kingdon, 2-Oct-2021.)
Hypothesis
Ref Expression
regexmidlemm.a  |-  A  =  { x  e.  { (/)
,  { (/) } }  |  ( x  =  { (/) }  \/  (
x  =  (/)  /\  ph ) ) }
Assertion
Ref Expression
reg2exmidlema  |-  ( E. u  e.  A  A. v  e.  A  u  C_  v  ->  ( ph  \/  -.  ph ) )
Distinct variable groups:    ph, x    v, A    ph, u, x    v, u
Allowed substitution hints:    ph( v)    A( x, u)

Proof of Theorem reg2exmidlema
StepHypRef Expression
1 simplr 520 . . . . . . 7  |-  ( ( ( u  e.  A  /\  A. v  e.  A  u  C_  v )  /\  u  =  { (/) } )  ->  A. v  e.  A  u  C_  v )
2 sseq1 3151 . . . . . . . . 9  |-  ( u  =  { (/) }  ->  ( u  C_  v  <->  { (/) }  C_  v ) )
32ralbidv 2457 . . . . . . . 8  |-  ( u  =  { (/) }  ->  ( A. v  e.  A  u  C_  v  <->  A. v  e.  A  { (/) }  C_  v ) )
43adantl 275 . . . . . . 7  |-  ( ( ( u  e.  A  /\  A. v  e.  A  u  C_  v )  /\  u  =  { (/) } )  ->  ( A. v  e.  A  u  C_  v  <->  A. v  e.  A  { (/)
}  C_  v )
)
51, 4mpbid 146 . . . . . 6  |-  ( ( ( u  e.  A  /\  A. v  e.  A  u  C_  v )  /\  u  =  { (/) } )  ->  A. v  e.  A  { (/) }  C_  v
)
6 0ex 4091 . . . . . . . 8  |-  (/)  e.  _V
76snss 3685 . . . . . . 7  |-  ( (/)  e.  v  <->  { (/) }  C_  v
)
87ralbii 2463 . . . . . 6  |-  ( A. v  e.  A  (/)  e.  v  <->  A. v  e.  A  { (/) }  C_  v
)
95, 8sylibr 133 . . . . 5  |-  ( ( ( u  e.  A  /\  A. v  e.  A  u  C_  v )  /\  u  =  { (/) } )  ->  A. v  e.  A  (/) 
e.  v )
10 noel 3398 . . . . . 6  |-  -.  (/)  e.  (/)
11 eqid 2157 . . . . . . . . . . . 12  |-  (/)  =  (/)
1211jctl 312 . . . . . . . . . . 11  |-  ( ph  ->  ( (/)  =  (/)  /\  ph ) )
1312olcd 724 . . . . . . . . . 10  |-  ( ph  ->  ( (/)  =  { (/)
}  \/  ( (/)  =  (/)  /\  ph )
) )
146prid1 3665 . . . . . . . . . 10  |-  (/)  e.  { (/)
,  { (/) } }
1513, 14jctil 310 . . . . . . . . 9  |-  ( ph  ->  ( (/)  e.  { (/) ,  { (/) } }  /\  ( (/)  =  { (/) }  \/  ( (/)  =  (/)  /\ 
ph ) ) ) )
16 eqeq1 2164 . . . . . . . . . . 11  |-  ( x  =  (/)  ->  ( x  =  { (/) }  <->  (/)  =  { (/)
} ) )
17 eqeq1 2164 . . . . . . . . . . . 12  |-  ( x  =  (/)  ->  ( x  =  (/)  <->  (/)  =  (/) ) )
1817anbi1d 461 . . . . . . . . . . 11  |-  ( x  =  (/)  ->  ( ( x  =  (/)  /\  ph ) 
<->  ( (/)  =  (/)  /\  ph ) ) )
1916, 18orbi12d 783 . . . . . . . . . 10  |-  ( x  =  (/)  ->  ( ( x  =  { (/) }  \/  ( x  =  (/)  /\  ph ) )  <-> 
( (/)  =  { (/) }  \/  ( (/)  =  (/)  /\ 
ph ) ) ) )
20 regexmidlemm.a . . . . . . . . . 10  |-  A  =  { x  e.  { (/)
,  { (/) } }  |  ( x  =  { (/) }  \/  (
x  =  (/)  /\  ph ) ) }
2119, 20elrab2 2871 . . . . . . . . 9  |-  ( (/)  e.  A  <->  ( (/)  e.  { (/)
,  { (/) } }  /\  ( (/)  =  { (/)
}  \/  ( (/)  =  (/)  /\  ph )
) ) )
2215, 21sylibr 133 . . . . . . . 8  |-  ( ph  -> 
(/)  e.  A )
23 eleq2 2221 . . . . . . . . 9  |-  ( v  =  (/)  ->  ( (/)  e.  v  <->  (/)  e.  (/) ) )
2423rspcv 2812 . . . . . . . 8  |-  ( (/)  e.  A  ->  ( A. v  e.  A  (/)  e.  v  ->  (/)  e.  (/) ) )
2522, 24syl 14 . . . . . . 7  |-  ( ph  ->  ( A. v  e.  A  (/)  e.  v  -> 
(/)  e.  (/) ) )
2625com12 30 . . . . . 6  |-  ( A. v  e.  A  (/)  e.  v  ->  ( ph  ->  (/)  e.  (/) ) )
2710, 26mtoi 654 . . . . 5  |-  ( A. v  e.  A  (/)  e.  v  ->  -.  ph )
289, 27syl 14 . . . 4  |-  ( ( ( u  e.  A  /\  A. v  e.  A  u  C_  v )  /\  u  =  { (/) } )  ->  -.  ph )
2928olcd 724 . . 3  |-  ( ( ( u  e.  A  /\  A. v  e.  A  u  C_  v )  /\  u  =  { (/) } )  ->  ( ph  \/  -.  ph ) )
30 simprr 522 . . . 4  |-  ( ( ( u  e.  A  /\  A. v  e.  A  u  C_  v )  /\  ( u  =  (/)  /\  ph ) )  ->  ph )
3130orcd 723 . . 3  |-  ( ( ( u  e.  A  /\  A. v  e.  A  u  C_  v )  /\  ( u  =  (/)  /\  ph ) )  ->  ( ph  \/  -.  ph )
)
32 eqeq1 2164 . . . . . . 7  |-  ( x  =  u  ->  (
x  =  { (/) }  <-> 
u  =  { (/) } ) )
33 eqeq1 2164 . . . . . . . 8  |-  ( x  =  u  ->  (
x  =  (/)  <->  u  =  (/) ) )
3433anbi1d 461 . . . . . . 7  |-  ( x  =  u  ->  (
( x  =  (/)  /\ 
ph )  <->  ( u  =  (/)  /\  ph )
) )
3532, 34orbi12d 783 . . . . . 6  |-  ( x  =  u  ->  (
( x  =  { (/)
}  \/  ( x  =  (/)  /\  ph )
)  <->  ( u  =  { (/) }  \/  (
u  =  (/)  /\  ph ) ) ) )
3635, 20elrab2 2871 . . . . 5  |-  ( u  e.  A  <->  ( u  e.  { (/) ,  { (/) } }  /\  ( u  =  { (/) }  \/  ( u  =  (/)  /\  ph ) ) ) )
3736simprbi 273 . . . 4  |-  ( u  e.  A  ->  (
u  =  { (/) }  \/  ( u  =  (/)  /\  ph ) ) )
3837adantr 274 . . 3  |-  ( ( u  e.  A  /\  A. v  e.  A  u 
C_  v )  -> 
( u  =  { (/)
}  \/  ( u  =  (/)  /\  ph )
) )
3929, 31, 38mpjaodan 788 . 2  |-  ( ( u  e.  A  /\  A. v  e.  A  u 
C_  v )  -> 
( ph  \/  -.  ph ) )
4039rexlimiva 2569 1  |-  ( E. u  e.  A  A. v  e.  A  u  C_  v  ->  ( ph  \/  -.  ph ) )
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 103    <-> wb 104    \/ wo 698    = wceq 1335    e. wcel 2128   A.wral 2435   E.wrex 2436   {crab 2439    C_ wss 3102   (/)c0 3394   {csn 3560   {cpr 3561
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 604  ax-in2 605  ax-io 699  ax-5 1427  ax-7 1428  ax-gen 1429  ax-ie1 1473  ax-ie2 1474  ax-8 1484  ax-10 1485  ax-11 1486  ax-i12 1487  ax-bndl 1489  ax-4 1490  ax-17 1506  ax-i9 1510  ax-ial 1514  ax-i5r 1515  ax-ext 2139  ax-nul 4090
This theorem depends on definitions:  df-bi 116  df-tru 1338  df-nf 1441  df-sb 1743  df-clab 2144  df-cleq 2150  df-clel 2153  df-nfc 2288  df-ral 2440  df-rex 2441  df-rab 2444  df-v 2714  df-dif 3104  df-un 3106  df-in 3108  df-ss 3115  df-nul 3395  df-sn 3566  df-pr 3567
This theorem is referenced by:  reg2exmid  4495  reg3exmid  4539
  Copyright terms: Public domain W3C validator