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

Theorem iccid 9094
Description: A closed interval with identical lower and upper bounds is a singleton. (Contributed by Jeff Hankins, 13-Jul-2009.)
Assertion
Ref Expression
iccid (𝐴 ∈ ℝ* → (𝐴[,]𝐴) = {𝐴})

Proof of Theorem iccid
Dummy variable 𝑥 is distinct from all other variables.
StepHypRef Expression
1 elicc1 9093 . . . 4 ((𝐴 ∈ ℝ*𝐴 ∈ ℝ*) → (𝑥 ∈ (𝐴[,]𝐴) ↔ (𝑥 ∈ ℝ*𝐴𝑥𝑥𝐴)))
21anidms 389 . . 3 (𝐴 ∈ ℝ* → (𝑥 ∈ (𝐴[,]𝐴) ↔ (𝑥 ∈ ℝ*𝐴𝑥𝑥𝐴)))
3 xrlenlt 7314 . . . . . . . 8 ((𝐴 ∈ ℝ*𝑥 ∈ ℝ*) → (𝐴𝑥 ↔ ¬ 𝑥 < 𝐴))
4 xrlenlt 7314 . . . . . . . . . . 11 ((𝑥 ∈ ℝ*𝐴 ∈ ℝ*) → (𝑥𝐴 ↔ ¬ 𝐴 < 𝑥))
54ancoms 264 . . . . . . . . . 10 ((𝐴 ∈ ℝ*𝑥 ∈ ℝ*) → (𝑥𝐴 ↔ ¬ 𝐴 < 𝑥))
6 xrlttri3 9018 . . . . . . . . . . . . 13 ((𝑥 ∈ ℝ*𝐴 ∈ ℝ*) → (𝑥 = 𝐴 ↔ (¬ 𝑥 < 𝐴 ∧ ¬ 𝐴 < 𝑥)))
76biimprd 156 . . . . . . . . . . . 12 ((𝑥 ∈ ℝ*𝐴 ∈ ℝ*) → ((¬ 𝑥 < 𝐴 ∧ ¬ 𝐴 < 𝑥) → 𝑥 = 𝐴))
87ancoms 264 . . . . . . . . . . 11 ((𝐴 ∈ ℝ*𝑥 ∈ ℝ*) → ((¬ 𝑥 < 𝐴 ∧ ¬ 𝐴 < 𝑥) → 𝑥 = 𝐴))
98expcomd 1371 . . . . . . . . . 10 ((𝐴 ∈ ℝ*𝑥 ∈ ℝ*) → (¬ 𝐴 < 𝑥 → (¬ 𝑥 < 𝐴𝑥 = 𝐴)))
105, 9sylbid 148 . . . . . . . . 9 ((𝐴 ∈ ℝ*𝑥 ∈ ℝ*) → (𝑥𝐴 → (¬ 𝑥 < 𝐴𝑥 = 𝐴)))
1110com23 77 . . . . . . . 8 ((𝐴 ∈ ℝ*𝑥 ∈ ℝ*) → (¬ 𝑥 < 𝐴 → (𝑥𝐴𝑥 = 𝐴)))
123, 11sylbid 148 . . . . . . 7 ((𝐴 ∈ ℝ*𝑥 ∈ ℝ*) → (𝐴𝑥 → (𝑥𝐴𝑥 = 𝐴)))
1312ex 113 . . . . . 6 (𝐴 ∈ ℝ* → (𝑥 ∈ ℝ* → (𝐴𝑥 → (𝑥𝐴𝑥 = 𝐴))))
14133impd 1153 . . . . 5 (𝐴 ∈ ℝ* → ((𝑥 ∈ ℝ*𝐴𝑥𝑥𝐴) → 𝑥 = 𝐴))
15 eleq1a 2154 . . . . . 6 (𝐴 ∈ ℝ* → (𝑥 = 𝐴𝑥 ∈ ℝ*))
16 xrleid 9020 . . . . . . 7 (𝐴 ∈ ℝ*𝐴𝐴)
17 breq2 3809 . . . . . . 7 (𝑥 = 𝐴 → (𝐴𝑥𝐴𝐴))
1816, 17syl5ibrcom 155 . . . . . 6 (𝐴 ∈ ℝ* → (𝑥 = 𝐴𝐴𝑥))
19 breq1 3808 . . . . . . 7 (𝑥 = 𝐴 → (𝑥𝐴𝐴𝐴))
2016, 19syl5ibrcom 155 . . . . . 6 (𝐴 ∈ ℝ* → (𝑥 = 𝐴𝑥𝐴))
2115, 18, 203jcad 1120 . . . . 5 (𝐴 ∈ ℝ* → (𝑥 = 𝐴 → (𝑥 ∈ ℝ*𝐴𝑥𝑥𝐴)))
2214, 21impbid 127 . . . 4 (𝐴 ∈ ℝ* → ((𝑥 ∈ ℝ*𝐴𝑥𝑥𝐴) ↔ 𝑥 = 𝐴))
23 velsn 3433 . . . 4 (𝑥 ∈ {𝐴} ↔ 𝑥 = 𝐴)
2422, 23syl6bbr 196 . . 3 (𝐴 ∈ ℝ* → ((𝑥 ∈ ℝ*𝐴𝑥𝑥𝐴) ↔ 𝑥 ∈ {𝐴}))
252, 24bitrd 186 . 2 (𝐴 ∈ ℝ* → (𝑥 ∈ (𝐴[,]𝐴) ↔ 𝑥 ∈ {𝐴}))
2625eqrdv 2081 1 (𝐴 ∈ ℝ* → (𝐴[,]𝐴) = {𝐴})
Colors of variables: wff set class
Syntax hints:  ¬ wn 3  wi 4  wa 102  wb 103  w3a 920   = wceq 1285  wcel 1434  {csn 3416   class class class wbr 3805  (class class class)co 5564  *cxr 7284   < clt 7285  cle 7286  [,]cicc 9060
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-13 1445  ax-14 1446  ax-17 1460  ax-i9 1464  ax-ial 1468  ax-i5r 1469  ax-ext 2065  ax-sep 3916  ax-pow 3968  ax-pr 3992  ax-un 4216  ax-setind 4308  ax-cnex 7199  ax-resscn 7200  ax-pre-ltirr 7220  ax-pre-apti 7223
This theorem depends on definitions:  df-bi 115  df-3or 921  df-3an 922  df-tru 1288  df-fal 1291  df-nf 1391  df-sb 1688  df-eu 1946  df-mo 1947  df-clab 2070  df-cleq 2076  df-clel 2079  df-nfc 2212  df-ne 2250  df-nel 2345  df-ral 2358  df-rex 2359  df-rab 2362  df-v 2612  df-sbc 2825  df-dif 2984  df-un 2986  df-in 2988  df-ss 2995  df-pw 3402  df-sn 3422  df-pr 3423  df-op 3425  df-uni 3622  df-br 3806  df-opab 3860  df-id 4076  df-xp 4397  df-rel 4398  df-cnv 4399  df-co 4400  df-dm 4401  df-iota 4917  df-fun 4954  df-fv 4960  df-ov 5567  df-oprab 5568  df-mpt2 5569  df-pnf 7287  df-mnf 7288  df-xr 7289  df-ltxr 7290  df-le 7291  df-icc 9064
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator