Theorem iccid 13358

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.

Step	Hyp	Ref	Expression
1		elicc1 13357	. . . 4 ⊢ ((𝐴 ∈ ℝ* ∧ 𝐴 ∈ ℝ*) → (𝑥 ∈ (𝐴[,]𝐴) ↔ (𝑥 ∈ ℝ* ∧ 𝐴 ≤ 𝑥 ∧ 𝑥 ≤ 𝐴)))
2	1	anidms 566	. . 3 ⊢ (𝐴 ∈ ℝ* → (𝑥 ∈ (𝐴[,]𝐴) ↔ (𝑥 ∈ ℝ* ∧ 𝐴 ≤ 𝑥 ∧ 𝑥 ≤ 𝐴)))
3		xrlenlt 11246	. . . . . . . 8 ⊢ ((𝐴 ∈ ℝ* ∧ 𝑥 ∈ ℝ*) → (𝐴 ≤ 𝑥 ↔ ¬ 𝑥 < 𝐴))
4		xrlenlt 11246	. . . . . . . . . . 11 ⊢ ((𝑥 ∈ ℝ* ∧ 𝐴 ∈ ℝ*) → (𝑥 ≤ 𝐴 ↔ ¬ 𝐴 < 𝑥))
5	4	ancoms 458	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℝ* ∧ 𝑥 ∈ ℝ*) → (𝑥 ≤ 𝐴 ↔ ¬ 𝐴 < 𝑥))
6		xrlttri3 13110	. . . . . . . . . . . . 13 ⊢ ((𝑥 ∈ ℝ* ∧ 𝐴 ∈ ℝ*) → (𝑥 = 𝐴 ↔ (¬ 𝑥 < 𝐴 ∧ ¬ 𝐴 < 𝑥)))
7	6	biimprd 248	. . . . . . . . . . . 12 ⊢ ((𝑥 ∈ ℝ* ∧ 𝐴 ∈ ℝ*) → ((¬ 𝑥 < 𝐴 ∧ ¬ 𝐴 < 𝑥) → 𝑥 = 𝐴))
8	7	ancoms 458	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℝ* ∧ 𝑥 ∈ ℝ*) → ((¬ 𝑥 < 𝐴 ∧ ¬ 𝐴 < 𝑥) → 𝑥 = 𝐴))
9	8	expcomd 416	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℝ* ∧ 𝑥 ∈ ℝ*) → (¬ 𝐴 < 𝑥 → (¬ 𝑥 < 𝐴 → 𝑥 = 𝐴)))
10	5, 9	sylbid 240	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℝ* ∧ 𝑥 ∈ ℝ*) → (𝑥 ≤ 𝐴 → (¬ 𝑥 < 𝐴 → 𝑥 = 𝐴)))
11	10	com23 86	. . . . . . . 8 ⊢ ((𝐴 ∈ ℝ* ∧ 𝑥 ∈ ℝ*) → (¬ 𝑥 < 𝐴 → (𝑥 ≤ 𝐴 → 𝑥 = 𝐴)))
12	3, 11	sylbid 240	. . . . . . 7 ⊢ ((𝐴 ∈ ℝ* ∧ 𝑥 ∈ ℝ*) → (𝐴 ≤ 𝑥 → (𝑥 ≤ 𝐴 → 𝑥 = 𝐴)))
13	12	ex 412	. . . . . 6 ⊢ (𝐴 ∈ ℝ* → (𝑥 ∈ ℝ* → (𝐴 ≤ 𝑥 → (𝑥 ≤ 𝐴 → 𝑥 = 𝐴))))
14	13	3impd 1349	. . . . 5 ⊢ (𝐴 ∈ ℝ* → ((𝑥 ∈ ℝ* ∧ 𝐴 ≤ 𝑥 ∧ 𝑥 ≤ 𝐴) → 𝑥 = 𝐴))
15		eleq1a 2824	. . . . . 6 ⊢ (𝐴 ∈ ℝ* → (𝑥 = 𝐴 → 𝑥 ∈ ℝ*))
16		xrleid 13118	. . . . . . 7 ⊢ (𝐴 ∈ ℝ* → 𝐴 ≤ 𝐴)
17		breq2 5114	. . . . . . 7 ⊢ (𝑥 = 𝐴 → (𝐴 ≤ 𝑥 ↔ 𝐴 ≤ 𝐴))
18	16, 17	syl5ibrcom 247	. . . . . 6 ⊢ (𝐴 ∈ ℝ* → (𝑥 = 𝐴 → 𝐴 ≤ 𝑥))
19		breq1 5113	. . . . . . 7 ⊢ (𝑥 = 𝐴 → (𝑥 ≤ 𝐴 ↔ 𝐴 ≤ 𝐴))
20	16, 19	syl5ibrcom 247	. . . . . 6 ⊢ (𝐴 ∈ ℝ* → (𝑥 = 𝐴 → 𝑥 ≤ 𝐴))
21	15, 18, 20	3jcad 1129	. . . . 5 ⊢ (𝐴 ∈ ℝ* → (𝑥 = 𝐴 → (𝑥 ∈ ℝ* ∧ 𝐴 ≤ 𝑥 ∧ 𝑥 ≤ 𝐴)))
22	14, 21	impbid 212	. . . 4 ⊢ (𝐴 ∈ ℝ* → ((𝑥 ∈ ℝ* ∧ 𝐴 ≤ 𝑥 ∧ 𝑥 ≤ 𝐴) ↔ 𝑥 = 𝐴))
23		velsn 4608	. . . 4 ⊢ (𝑥 ∈ {𝐴} ↔ 𝑥 = 𝐴)
24	22, 23	bitr4di 289	. . 3 ⊢ (𝐴 ∈ ℝ* → ((𝑥 ∈ ℝ* ∧ 𝐴 ≤ 𝑥 ∧ 𝑥 ≤ 𝐴) ↔ 𝑥 ∈ {𝐴}))
25	2, 24	bitrd 279	. 2 ⊢ (𝐴 ∈ ℝ* → (𝑥 ∈ (𝐴[,]𝐴) ↔ 𝑥 ∈ {𝐴}))
26	25	eqrdv 2728	1 ⊢ (𝐴 ∈ ℝ* → (𝐴[,]𝐴) = {𝐴})

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1086   = wceq 1540   ∈ wcel 2109  {csn 4592   class class class wbr 5110  (class class class)co 7390  ℝ^*cxr 11214   < clt 11215   ≤ cle 11216  [,]cicc 13316

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2702  ax-sep 5254  ax-nul 5264  ax-pow 5323  ax-pr 5390  ax-un 7714  ax-cnex 11131  ax-resscn 11132  ax-pre-lttri 11149  ax-pre-lttrn 11150

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2534  df-eu 2563  df-clab 2709  df-cleq 2722  df-clel 2804  df-nfc 2879  df-ne 2927  df-nel 3031  df-ral 3046  df-rex 3055  df-rab 3409  df-v 3452  df-sbc 3757  df-csb 3866  df-dif 3920  df-un 3922  df-in 3924  df-ss 3934  df-nul 4300  df-if 4492  df-pw 4568  df-sn 4593  df-pr 4595  df-op 4599  df-uni 4875  df-br 5111  df-opab 5173  df-mpt 5192  df-id 5536  df-po 5549  df-so 5550  df-xp 5647  df-rel 5648  df-cnv 5649  df-co 5650  df-dm 5651  df-rn 5652  df-res 5653  df-ima 5654  df-iota 6467  df-fun 6516  df-fn 6517  df-f 6518  df-f1 6519  df-fo 6520  df-f1o 6521  df-fv 6522  df-ov 7393  df-oprab 7394  df-mpo 7395  df-er 8674  df-en 8922  df-dom 8923  df-sdom 8924  df-pnf 11217  df-mnf 11218  df-xr 11219  df-ltxr 11220  df-le 11221  df-icc 13320

This theorem is referenced by:  ioounsn  13445  snunioo  13446  snunico  13447  snunioc  13448  prunioo  13449  icccmplem1  24718  ivthicc  25366  ioombl  25473  volivth  25515  mbfimasn  25540  itgspliticc  25745  dvivth  25922  cvmliftlem10  35288  mblfinlem2  37659  areacirc  37714  iocinico  43208  iocmbl  43209  snunioo1  45517  cncfiooicc  45899  vonsn  46696  seppcld  48922