Theorem reperflem 23425

Description: A subset of the real numbers that is closed under addition with real numbers is perfect. (Contributed by Mario Carneiro, 26-Dec-2016.)

Hypotheses

Ref	Expression
recld2.1	⊢ 𝐽 = (TopOpen‘ℂfld)
reperflem.2	⊢ ((𝑢 ∈ 𝑆 ∧ 𝑣 ∈ ℝ) → (𝑢 + 𝑣) ∈ 𝑆)
reperflem.3	⊢ 𝑆 ⊆ ℂ

Assertion

Ref	Expression
reperflem	⊢ (𝐽 ↾t 𝑆) ∈ Perf

Distinct variable groups:   𝑢,𝐽   𝑣,𝑢,𝑆

Allowed substitution hint:   𝐽(𝑣)

Proof of Theorem reperflem

Dummy variables 𝑛 𝑟 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		cnxmet 23380	. . . . . . 7 ⊢ (abs ∘ − ) ∈ (∞Met‘ℂ)
2		reperflem.3	. . . . . . . 8 ⊢ 𝑆 ⊆ ℂ
3	2	sseli 3962	. . . . . . 7 ⊢ (𝑢 ∈ 𝑆 → 𝑢 ∈ ℂ)
4		recld2.1	. . . . . . . . 9 ⊢ 𝐽 = (TopOpen‘ℂfld)
5	4	cnfldtopn 23389	. . . . . . . 8 ⊢ 𝐽 = (MetOpen‘(abs ∘ − ))
6	5	neibl 23110	. . . . . . 7 ⊢ (((abs ∘ − ) ∈ (∞Met‘ℂ) ∧ 𝑢 ∈ ℂ) → (𝑛 ∈ ((nei‘𝐽)‘{𝑢}) ↔ (𝑛 ⊆ ℂ ∧ ∃𝑟 ∈ ℝ+ (𝑢(ball‘(abs ∘ − ))𝑟) ⊆ 𝑛)))
7	1, 3, 6	sylancr 589	. . . . . 6 ⊢ (𝑢 ∈ 𝑆 → (𝑛 ∈ ((nei‘𝐽)‘{𝑢}) ↔ (𝑛 ⊆ ℂ ∧ ∃𝑟 ∈ ℝ+ (𝑢(ball‘(abs ∘ − ))𝑟) ⊆ 𝑛)))
8		ssrin 4209	. . . . . . . . 9 ⊢ ((𝑢(ball‘(abs ∘ − ))𝑟) ⊆ 𝑛 → ((𝑢(ball‘(abs ∘ − ))𝑟) ∩ (𝑆 ∖ {𝑢})) ⊆ (𝑛 ∩ (𝑆 ∖ {𝑢})))
9		reperflem.2	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑢 ∈ 𝑆 ∧ 𝑣 ∈ ℝ) → (𝑢 + 𝑣) ∈ 𝑆)
10	9	ralrimiva 3182	. . . . . . . . . . . . . . . 16 ⊢ (𝑢 ∈ 𝑆 → ∀𝑣 ∈ ℝ (𝑢 + 𝑣) ∈ 𝑆)
11		rpre 12396	. . . . . . . . . . . . . . . . 17 ⊢ (𝑟 ∈ ℝ+ → 𝑟 ∈ ℝ)
12	11	rehalfcld 11883	. . . . . . . . . . . . . . . 16 ⊢ (𝑟 ∈ ℝ+ → (𝑟 / 2) ∈ ℝ)
13		oveq2 7163	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑣 = (𝑟 / 2) → (𝑢 + 𝑣) = (𝑢 + (𝑟 / 2)))
14	13	eleq1d 2897	. . . . . . . . . . . . . . . . 17 ⊢ (𝑣 = (𝑟 / 2) → ((𝑢 + 𝑣) ∈ 𝑆 ↔ (𝑢 + (𝑟 / 2)) ∈ 𝑆))
15	14	rspccva 3621	. . . . . . . . . . . . . . . 16 ⊢ ((∀𝑣 ∈ ℝ (𝑢 + 𝑣) ∈ 𝑆 ∧ (𝑟 / 2) ∈ ℝ) → (𝑢 + (𝑟 / 2)) ∈ 𝑆)
16	10, 12, 15	syl2an 597	. . . . . . . . . . . . . . 15 ⊢ ((𝑢 ∈ 𝑆 ∧ 𝑟 ∈ ℝ+) → (𝑢 + (𝑟 / 2)) ∈ 𝑆)
17	2, 16	sseldi 3964	. . . . . . . . . . . . . 14 ⊢ ((𝑢 ∈ 𝑆 ∧ 𝑟 ∈ ℝ+) → (𝑢 + (𝑟 / 2)) ∈ ℂ)
18	3	adantr 483	. . . . . . . . . . . . . 14 ⊢ ((𝑢 ∈ 𝑆 ∧ 𝑟 ∈ ℝ+) → 𝑢 ∈ ℂ)
19		eqid 2821	. . . . . . . . . . . . . . 15 ⊢ (abs ∘ − ) = (abs ∘ − )
20	19	cnmetdval 23378	. . . . . . . . . . . . . 14 ⊢ (((𝑢 + (𝑟 / 2)) ∈ ℂ ∧ 𝑢 ∈ ℂ) → ((𝑢 + (𝑟 / 2))(abs ∘ − )𝑢) = (abs‘((𝑢 + (𝑟 / 2)) − 𝑢)))
21	17, 18, 20	syl2anc 586	. . . . . . . . . . . . 13 ⊢ ((𝑢 ∈ 𝑆 ∧ 𝑟 ∈ ℝ+) → ((𝑢 + (𝑟 / 2))(abs ∘ − )𝑢) = (abs‘((𝑢 + (𝑟 / 2)) − 𝑢)))
22		simpr 487	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑢 ∈ 𝑆 ∧ 𝑟 ∈ ℝ+) → 𝑟 ∈ ℝ+)
23	22	rphalfcld 12442	. . . . . . . . . . . . . . . 16 ⊢ ((𝑢 ∈ 𝑆 ∧ 𝑟 ∈ ℝ+) → (𝑟 / 2) ∈ ℝ+)
24	23	rpcnd 12432	. . . . . . . . . . . . . . 15 ⊢ ((𝑢 ∈ 𝑆 ∧ 𝑟 ∈ ℝ+) → (𝑟 / 2) ∈ ℂ)
25	18, 24	pncan2d 10998	. . . . . . . . . . . . . 14 ⊢ ((𝑢 ∈ 𝑆 ∧ 𝑟 ∈ ℝ+) → ((𝑢 + (𝑟 / 2)) − 𝑢) = (𝑟 / 2))
26	25	fveq2d 6673	. . . . . . . . . . . . 13 ⊢ ((𝑢 ∈ 𝑆 ∧ 𝑟 ∈ ℝ+) → (abs‘((𝑢 + (𝑟 / 2)) − 𝑢)) = (abs‘(𝑟 / 2)))
27	23	rpred 12430	. . . . . . . . . . . . . 14 ⊢ ((𝑢 ∈ 𝑆 ∧ 𝑟 ∈ ℝ+) → (𝑟 / 2) ∈ ℝ)
28	23	rpge0d 12434	. . . . . . . . . . . . . 14 ⊢ ((𝑢 ∈ 𝑆 ∧ 𝑟 ∈ ℝ+) → 0 ≤ (𝑟 / 2))
29	27, 28	absidd 14781	. . . . . . . . . . . . 13 ⊢ ((𝑢 ∈ 𝑆 ∧ 𝑟 ∈ ℝ+) → (abs‘(𝑟 / 2)) = (𝑟 / 2))
30	21, 26, 29	3eqtrd 2860	. . . . . . . . . . . 12 ⊢ ((𝑢 ∈ 𝑆 ∧ 𝑟 ∈ ℝ+) → ((𝑢 + (𝑟 / 2))(abs ∘ − )𝑢) = (𝑟 / 2))
31		rphalflt 12417	. . . . . . . . . . . . 13 ⊢ (𝑟 ∈ ℝ+ → (𝑟 / 2) < 𝑟)
32	31	adantl 484	. . . . . . . . . . . 12 ⊢ ((𝑢 ∈ 𝑆 ∧ 𝑟 ∈ ℝ+) → (𝑟 / 2) < 𝑟)
33	30, 32	eqbrtrd 5087	. . . . . . . . . . 11 ⊢ ((𝑢 ∈ 𝑆 ∧ 𝑟 ∈ ℝ+) → ((𝑢 + (𝑟 / 2))(abs ∘ − )𝑢) < 𝑟)
34	1	a1i 11	. . . . . . . . . . . 12 ⊢ ((𝑢 ∈ 𝑆 ∧ 𝑟 ∈ ℝ+) → (abs ∘ − ) ∈ (∞Met‘ℂ))
35		rpxr 12397	. . . . . . . . . . . . 13 ⊢ (𝑟 ∈ ℝ+ → 𝑟 ∈ ℝ*)
36	35	adantl 484	. . . . . . . . . . . 12 ⊢ ((𝑢 ∈ 𝑆 ∧ 𝑟 ∈ ℝ+) → 𝑟 ∈ ℝ*)
37		elbl3 23001	. . . . . . . . . . . 12 ⊢ ((((abs ∘ − ) ∈ (∞Met‘ℂ) ∧ 𝑟 ∈ ℝ*) ∧ (𝑢 ∈ ℂ ∧ (𝑢 + (𝑟 / 2)) ∈ ℂ)) → ((𝑢 + (𝑟 / 2)) ∈ (𝑢(ball‘(abs ∘ − ))𝑟) ↔ ((𝑢 + (𝑟 / 2))(abs ∘ − )𝑢) < 𝑟))
38	34, 36, 18, 17, 37	syl22anc 836	. . . . . . . . . . 11 ⊢ ((𝑢 ∈ 𝑆 ∧ 𝑟 ∈ ℝ+) → ((𝑢 + (𝑟 / 2)) ∈ (𝑢(ball‘(abs ∘ − ))𝑟) ↔ ((𝑢 + (𝑟 / 2))(abs ∘ − )𝑢) < 𝑟))
39	33, 38	mpbird 259	. . . . . . . . . 10 ⊢ ((𝑢 ∈ 𝑆 ∧ 𝑟 ∈ ℝ+) → (𝑢 + (𝑟 / 2)) ∈ (𝑢(ball‘(abs ∘ − ))𝑟))
40	23	rpne0d 12435	. . . . . . . . . . . . 13 ⊢ ((𝑢 ∈ 𝑆 ∧ 𝑟 ∈ ℝ+) → (𝑟 / 2) ≠ 0)
41	25, 40	eqnetrd 3083	. . . . . . . . . . . 12 ⊢ ((𝑢 ∈ 𝑆 ∧ 𝑟 ∈ ℝ+) → ((𝑢 + (𝑟 / 2)) − 𝑢) ≠ 0)
42	17, 18, 41	subne0ad 11007	. . . . . . . . . . 11 ⊢ ((𝑢 ∈ 𝑆 ∧ 𝑟 ∈ ℝ+) → (𝑢 + (𝑟 / 2)) ≠ 𝑢)
43		eldifsn 4718	. . . . . . . . . . 11 ⊢ ((𝑢 + (𝑟 / 2)) ∈ (𝑆 ∖ {𝑢}) ↔ ((𝑢 + (𝑟 / 2)) ∈ 𝑆 ∧ (𝑢 + (𝑟 / 2)) ≠ 𝑢))
44	16, 42, 43	sylanbrc 585	. . . . . . . . . 10 ⊢ ((𝑢 ∈ 𝑆 ∧ 𝑟 ∈ ℝ+) → (𝑢 + (𝑟 / 2)) ∈ (𝑆 ∖ {𝑢}))
45		inelcm 4413	. . . . . . . . . 10 ⊢ (((𝑢 + (𝑟 / 2)) ∈ (𝑢(ball‘(abs ∘ − ))𝑟) ∧ (𝑢 + (𝑟 / 2)) ∈ (𝑆 ∖ {𝑢})) → ((𝑢(ball‘(abs ∘ − ))𝑟) ∩ (𝑆 ∖ {𝑢})) ≠ ∅)
46	39, 44, 45	syl2anc 586	. . . . . . . . 9 ⊢ ((𝑢 ∈ 𝑆 ∧ 𝑟 ∈ ℝ+) → ((𝑢(ball‘(abs ∘ − ))𝑟) ∩ (𝑆 ∖ {𝑢})) ≠ ∅)
47		ssn0 4353	. . . . . . . . . 10 ⊢ ((((𝑢(ball‘(abs ∘ − ))𝑟) ∩ (𝑆 ∖ {𝑢})) ⊆ (𝑛 ∩ (𝑆 ∖ {𝑢})) ∧ ((𝑢(ball‘(abs ∘ − ))𝑟) ∩ (𝑆 ∖ {𝑢})) ≠ ∅) → (𝑛 ∩ (𝑆 ∖ {𝑢})) ≠ ∅)
48	47	ex 415	. . . . . . . . 9 ⊢ (((𝑢(ball‘(abs ∘ − ))𝑟) ∩ (𝑆 ∖ {𝑢})) ⊆ (𝑛 ∩ (𝑆 ∖ {𝑢})) → (((𝑢(ball‘(abs ∘ − ))𝑟) ∩ (𝑆 ∖ {𝑢})) ≠ ∅ → (𝑛 ∩ (𝑆 ∖ {𝑢})) ≠ ∅))
49	8, 46, 48	syl2imc 41	. . . . . . . 8 ⊢ ((𝑢 ∈ 𝑆 ∧ 𝑟 ∈ ℝ+) → ((𝑢(ball‘(abs ∘ − ))𝑟) ⊆ 𝑛 → (𝑛 ∩ (𝑆 ∖ {𝑢})) ≠ ∅))
50	49	rexlimdva 3284	. . . . . . 7 ⊢ (𝑢 ∈ 𝑆 → (∃𝑟 ∈ ℝ+ (𝑢(ball‘(abs ∘ − ))𝑟) ⊆ 𝑛 → (𝑛 ∩ (𝑆 ∖ {𝑢})) ≠ ∅))
51	50	adantld 493	. . . . . 6 ⊢ (𝑢 ∈ 𝑆 → ((𝑛 ⊆ ℂ ∧ ∃𝑟 ∈ ℝ+ (𝑢(ball‘(abs ∘ − ))𝑟) ⊆ 𝑛) → (𝑛 ∩ (𝑆 ∖ {𝑢})) ≠ ∅))
52	7, 51	sylbid 242	. . . . 5 ⊢ (𝑢 ∈ 𝑆 → (𝑛 ∈ ((nei‘𝐽)‘{𝑢}) → (𝑛 ∩ (𝑆 ∖ {𝑢})) ≠ ∅))
53	52	ralrimiv 3181	. . . 4 ⊢ (𝑢 ∈ 𝑆 → ∀𝑛 ∈ ((nei‘𝐽)‘{𝑢})(𝑛 ∩ (𝑆 ∖ {𝑢})) ≠ ∅)
54	4	cnfldtop 23391	. . . . 5 ⊢ 𝐽 ∈ Top
55	4	cnfldtopon 23390	. . . . . . 7 ⊢ 𝐽 ∈ (TopOn‘ℂ)
56	55	toponunii 21523	. . . . . 6 ⊢ ℂ = ∪ 𝐽
57	56	islp2 21752	. . . . 5 ⊢ ((𝐽 ∈ Top ∧ 𝑆 ⊆ ℂ ∧ 𝑢 ∈ ℂ) → (𝑢 ∈ ((limPt‘𝐽)‘𝑆) ↔ ∀𝑛 ∈ ((nei‘𝐽)‘{𝑢})(𝑛 ∩ (𝑆 ∖ {𝑢})) ≠ ∅))
58	54, 2, 3, 57	mp3an12i 1461	. . . 4 ⊢ (𝑢 ∈ 𝑆 → (𝑢 ∈ ((limPt‘𝐽)‘𝑆) ↔ ∀𝑛 ∈ ((nei‘𝐽)‘{𝑢})(𝑛 ∩ (𝑆 ∖ {𝑢})) ≠ ∅))
59	53, 58	mpbird 259	. . 3 ⊢ (𝑢 ∈ 𝑆 → 𝑢 ∈ ((limPt‘𝐽)‘𝑆))
60	59	ssriv 3970	. 2 ⊢ 𝑆 ⊆ ((limPt‘𝐽)‘𝑆)
61		eqid 2821	. . . 4 ⊢ (𝐽 ↾t 𝑆) = (𝐽 ↾t 𝑆)
62	56, 61	restperf 21791	. . 3 ⊢ ((𝐽 ∈ Top ∧ 𝑆 ⊆ ℂ) → ((𝐽 ↾t 𝑆) ∈ Perf ↔ 𝑆 ⊆ ((limPt‘𝐽)‘𝑆)))
63	54, 2, 62	mp2an 690	. 2 ⊢ ((𝐽 ↾t 𝑆) ∈ Perf ↔ 𝑆 ⊆ ((limPt‘𝐽)‘𝑆))
64	60, 63	mpbir 233	1 ⊢ (𝐽 ↾t 𝑆) ∈ Perf

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 398   = wceq 1533   ∈ wcel 2110   ≠ wne 3016  ∀wral 3138  ∃wrex 3139   ∖ cdif 3932   ∩ cin 3934   ⊆ wss 3935  ∅c0 4290  {csn 4566   class class class wbr 5065   ∘ ccom 5558  ‘cfv 6354  (class class class)co 7155  ℂcc 10534  ℝcr 10535  0cc0 10536   + caddc 10539  ℝ^*cxr 10673   < clt 10674   − cmin 10869   / cdiv 11296  2c2 11691  ℝ⁺crp 12388  abscabs 14592   ↾_t crest 16693  TopOpenctopn 16694  ∞Metcxmet 20529  ballcbl 20531  ℂ_fldccnfld 20544  Topctop 21500  neicnei 21704  limPtclp 21741  Perfcperf 21742

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1792  ax-4 1806  ax-5 1907  ax-6 1966  ax-7 2011  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2157  ax-12 2173  ax-ext 2793  ax-rep 5189  ax-sep 5202  ax-nul 5209  ax-pow 5265  ax-pr 5329  ax-un 7460  ax-cnex 10592  ax-resscn 10593  ax-1cn 10594  ax-icn 10595  ax-addcl 10596  ax-addrcl 10597  ax-mulcl 10598  ax-mulrcl 10599  ax-mulcom 10600  ax-addass 10601  ax-mulass 10602  ax-distr 10603  ax-i2m1 10604  ax-1ne0 10605  ax-1rid 10606  ax-rnegex 10607  ax-rrecex 10608  ax-cnre 10609  ax-pre-lttri 10610  ax-pre-lttrn 10611  ax-pre-ltadd 10612  ax-pre-mulgt0 10613  ax-pre-sup 10614

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1536  df-ex 1777  df-nf 1781  df-sb 2066  df-mo 2618  df-eu 2650  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ne 3017  df-nel 3124  df-ral 3143  df-rex 3144  df-reu 3145  df-rmo 3146  df-rab 3147  df-v 3496  df-sbc 3772  df-csb 3883  df-dif 3938  df-un 3940  df-in 3942  df-ss 3951  df-pss 3953  df-nul 4291  df-if 4467  df-pw 4540  df-sn 4567  df-pr 4569  df-tp 4571  df-op 4573  df-uni 4838  df-int 4876  df-iun 4920  df-iin 4921  df-br 5066  df-opab 5128  df-mpt 5146  df-tr 5172  df-id 5459  df-eprel 5464  df-po 5473  df-so 5474  df-fr 5513  df-we 5515  df-xp 5560  df-rel 5561  df-cnv 5562  df-co 5563  df-dm 5564  df-rn 5565  df-res 5566  df-ima 5567  df-pred 6147  df-ord 6193  df-on 6194  df-lim 6195  df-suc 6196  df-iota 6313  df-fun 6356  df-fn 6357  df-f 6358  df-f1 6359  df-fo 6360  df-f1o 6361  df-fv 6362  df-riota 7113  df-ov 7158  df-oprab 7159  df-mpo 7160  df-om 7580  df-1st 7688  df-2nd 7689  df-wrecs 7946  df-recs 8007  df-rdg 8045  df-1o 8101  df-oadd 8105  df-er 8288  df-map 8407  df-en 8509  df-dom 8510  df-sdom 8511  df-fin 8512  df-fi 8874  df-sup 8905  df-inf 8906  df-pnf 10676  df-mnf 10677  df-xr 10678  df-ltxr 10679  df-le 10680  df-sub 10871  df-neg 10872  df-div 11297  df-nn 11638  df-2 11699  df-3 11700  df-4 11701  df-5 11702  df-6 11703  df-7 11704  df-8 11705  df-9 11706  df-n0 11897  df-z 11981  df-dec 12098  df-uz 12243  df-q 12348  df-rp 12389  df-xneg 12506  df-xadd 12507  df-xmul 12508  df-fz 12892  df-seq 13369  df-exp 13429  df-cj 14457  df-re 14458  df-im 14459  df-sqrt 14593  df-abs 14594  df-struct 16484  df-ndx 16485  df-slot 16486  df-base 16488  df-plusg 16577  df-mulr 16578  df-starv 16579  df-tset 16583  df-ple 16584  df-ds 16586  df-unif 16587  df-rest 16695  df-topn 16696  df-topgen 16716  df-psmet 20536  df-xmet 20537  df-met 20538  df-bl 20539  df-mopn 20540  df-cnfld 20545  df-top 21501  df-topon 21518  df-topsp 21540  df-bases 21553  df-cld 21626  df-ntr 21627  df-cls 21628  df-nei 21705  df-lp 21743  df-perf 21744  df-xms 22929  df-ms 22930

This theorem is referenced by:  reperf  23426  cnperf  23427