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

Theorem reg2exmidlema 4285
Description: Lemma for reg2exmid 4287. 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 497 . . . . . . 7  |-  ( ( ( u  e.  A  /\  A. v  e.  A  u  C_  v )  /\  u  =  { (/) } )  ->  A. v  e.  A  u  C_  v )
2 sseq1 3021 . . . . . . . . 9  |-  ( u  =  { (/) }  ->  ( u  C_  v  <->  { (/) }  C_  v ) )
32ralbidv 2369 . . . . . . . 8  |-  ( u  =  { (/) }  ->  ( A. v  e.  A  u  C_  v  <->  A. v  e.  A  { (/) }  C_  v ) )
43adantl 271 . . . . . . 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 145 . . . . . 6  |-  ( ( ( u  e.  A  /\  A. v  e.  A  u  C_  v )  /\  u  =  { (/) } )  ->  A. v  e.  A  { (/) }  C_  v
)
6 0ex 3913 . . . . . . . 8  |-  (/)  e.  _V
76snss 3524 . . . . . . 7  |-  ( (/)  e.  v  <->  { (/) }  C_  v
)
87ralbii 2373 . . . . . 6  |-  ( A. v  e.  A  (/)  e.  v  <->  A. v  e.  A  { (/) }  C_  v
)
95, 8sylibr 132 . . . . 5  |-  ( ( ( u  e.  A  /\  A. v  e.  A  u  C_  v )  /\  u  =  { (/) } )  ->  A. v  e.  A  (/) 
e.  v )
10 noel 3262 . . . . . 6  |-  -.  (/)  e.  (/)
11 eqid 2082 . . . . . . . . . . . 12  |-  (/)  =  (/)
1211jctl 307 . . . . . . . . . . 11  |-  ( ph  ->  ( (/)  =  (/)  /\  ph ) )
1312olcd 686 . . . . . . . . . 10  |-  ( ph  ->  ( (/)  =  { (/)
}  \/  ( (/)  =  (/)  /\  ph )
) )
146prid1 3506 . . . . . . . . . 10  |-  (/)  e.  { (/)
,  { (/) } }
1513, 14jctil 305 . . . . . . . . 9  |-  ( ph  ->  ( (/)  e.  { (/) ,  { (/) } }  /\  ( (/)  =  { (/) }  \/  ( (/)  =  (/)  /\ 
ph ) ) ) )
16 eqeq1 2088 . . . . . . . . . . 11  |-  ( x  =  (/)  ->  ( x  =  { (/) }  <->  (/)  =  { (/)
} ) )
17 eqeq1 2088 . . . . . . . . . . . 12  |-  ( x  =  (/)  ->  ( x  =  (/)  <->  (/)  =  (/) ) )
1817anbi1d 453 . . . . . . . . . . 11  |-  ( x  =  (/)  ->  ( ( x  =  (/)  /\  ph ) 
<->  ( (/)  =  (/)  /\  ph ) ) )
1916, 18orbi12d 740 . . . . . . . . . 10  |-  ( x  =  (/)  ->  ( ( x  =  { (/) }  \/  ( x  =  (/)  /\  ph ) )  <-> 
( (/)  =  { (/) }  \/  ( (/)  =  (/)  /\ 
ph ) ) ) )
20 regexmidlemm.a . . . . . . . . . 10  |-  A  =  { x  e.  { (/)
,  { (/) } }  |  ( x  =  { (/) }  \/  (
x  =  (/)  /\  ph ) ) }
2119, 20elrab2 2752 . . . . . . . . 9  |-  ( (/)  e.  A  <->  ( (/)  e.  { (/)
,  { (/) } }  /\  ( (/)  =  { (/)
}  \/  ( (/)  =  (/)  /\  ph )
) ) )
2215, 21sylibr 132 . . . . . . . 8  |-  ( ph  -> 
(/)  e.  A )
23 eleq2 2143 . . . . . . . . 9  |-  ( v  =  (/)  ->  ( (/)  e.  v  <->  (/)  e.  (/) ) )
2423rspcv 2698 . . . . . . . 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 623 . . . . 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 686 . . 3  |-  ( ( ( u  e.  A  /\  A. v  e.  A  u  C_  v )  /\  u  =  { (/) } )  ->  ( ph  \/  -.  ph ) )
30 simprr 499 . . . 4  |-  ( ( ( u  e.  A  /\  A. v  e.  A  u  C_  v )  /\  ( u  =  (/)  /\  ph ) )  ->  ph )
3130orcd 685 . . 3  |-  ( ( ( u  e.  A  /\  A. v  e.  A  u  C_  v )  /\  ( u  =  (/)  /\  ph ) )  ->  ( ph  \/  -.  ph )
)
32 eqeq1 2088 . . . . . . 7  |-  ( x  =  u  ->  (
x  =  { (/) }  <-> 
u  =  { (/) } ) )
33 eqeq1 2088 . . . . . . . 8  |-  ( x  =  u  ->  (
x  =  (/)  <->  u  =  (/) ) )
3433anbi1d 453 . . . . . . 7  |-  ( x  =  u  ->  (
( x  =  (/)  /\ 
ph )  <->  ( u  =  (/)  /\  ph )
) )
3532, 34orbi12d 740 . . . . . 6  |-  ( x  =  u  ->  (
( x  =  { (/)
}  \/  ( x  =  (/)  /\  ph )
)  <->  ( u  =  { (/) }  \/  (
u  =  (/)  /\  ph ) ) ) )
3635, 20elrab2 2752 . . . . 5  |-  ( u  e.  A  <->  ( u  e.  { (/) ,  { (/) } }  /\  ( u  =  { (/) }  \/  ( u  =  (/)  /\  ph ) ) ) )
3736simprbi 269 . . . 4  |-  ( u  e.  A  ->  (
u  =  { (/) }  \/  ( u  =  (/)  /\  ph ) ) )
3837adantr 270 . . 3  |-  ( ( u  e.  A  /\  A. v  e.  A  u 
C_  v )  -> 
( u  =  { (/)
}  \/  ( u  =  (/)  /\  ph )
) )
3929, 31, 38mpjaodan 745 . 2  |-  ( ( u  e.  A  /\  A. v  e.  A  u 
C_  v )  -> 
( ph  \/  -.  ph ) )
4039rexlimiva 2473 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 102    <-> wb 103    \/ wo 662    = wceq 1285    e. wcel 1434   A.wral 2349   E.wrex 2350   {crab 2353    C_ wss 2974   (/)c0 3258   {csn 3406   {cpr 3407
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 104  ax-ia2 105  ax-ia3 106  ax-in1 577  ax-in2 578  ax-io 663  ax-5 1377  ax-7 1378  ax-gen 1379  ax-ie1 1423  ax-ie2 1424  ax-8 1436  ax-10 1437  ax-11 1438  ax-i12 1439  ax-bndl 1440  ax-4 1441  ax-17 1460  ax-i9 1464  ax-ial 1468  ax-i5r 1469  ax-ext 2064  ax-nul 3912
This theorem depends on definitions:  df-bi 115  df-tru 1288  df-nf 1391  df-sb 1687  df-clab 2069  df-cleq 2075  df-clel 2078  df-nfc 2209  df-ral 2354  df-rex 2355  df-rab 2358  df-v 2604  df-dif 2976  df-un 2978  df-in 2980  df-ss 2987  df-nul 3259  df-sn 3412  df-pr 3413
This theorem is referenced by:  reg2exmid  4287  reg3exmid  4330
  Copyright terms: Public domain W3C validator