stdbdmopn - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > stdbdmopn		Structured version Visualization version GIF version

Theorem stdbdmopn 24027

Description: The standard bounded metric corresponding to 𝐶 generates the same topology as 𝐶. (Contributed by Mario Carneiro, 26-Aug-2015.)

**Hypotheses**
Ref	Expression
stdbdmet.1	⊢ 𝐷 = (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ if((𝑥𝐶𝑦) ≤ 𝑅, (𝑥𝐶𝑦), 𝑅))
stdbdmopn.2	⊢ 𝐽 = (MetOpen‘𝐶)

**Assertion**
Ref	Expression
stdbdmopn	⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) → 𝐽 = (MetOpen‘𝐷))

Distinct variable groups: 𝑥,𝑦,𝐶 𝑥,𝑅,𝑦 𝑥,𝑋,𝑦 Allowed substitution hints: 𝐷(𝑥,𝑦) 𝐽(𝑥,𝑦)

Proof of Theorem stdbdmopn Dummy variables 𝑟 𝑠 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		rpxr 12983	. . . . . . . 8 ⊢ (𝑟 ∈ ℝ⁺ → 𝑟 ∈ ℝ^*)
2	1	ad2antll 728	. . . . . . 7 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → 𝑟 ∈ ℝ^*)
3		simpl2 1193	. . . . . . 7 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → 𝑅 ∈ ℝ^*)
4	2, 3	ifcld 4575	. . . . . 6 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ∈ ℝ^*)
5		rpre 12982	. . . . . . 7 ⊢ (𝑟 ∈ ℝ⁺ → 𝑟 ∈ ℝ)
6	5	ad2antll 728	. . . . . 6 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → 𝑟 ∈ ℝ)
7		rpgt0 12986	. . . . . . . . 9 ⊢ (𝑟 ∈ ℝ⁺ → 0 < 𝑟)
8	7	ad2antll 728	. . . . . . . 8 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → 0 < 𝑟)
9		simpl3 1194	. . . . . . . 8 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → 0 < 𝑅)
10		breq2 5153	. . . . . . . . 9 ⊢ (𝑟 = if(𝑟 ≤ 𝑅, 𝑟, 𝑅) → (0 < 𝑟 ↔ 0 < if(𝑟 ≤ 𝑅, 𝑟, 𝑅)))
11		breq2 5153	. . . . . . . . 9 ⊢ (𝑅 = if(𝑟 ≤ 𝑅, 𝑟, 𝑅) → (0 < 𝑅 ↔ 0 < if(𝑟 ≤ 𝑅, 𝑟, 𝑅)))
12	10, 11	ifboth 4568	. . . . . . . 8 ⊢ ((0 < 𝑟 ∧ 0 < 𝑅) → 0 < if(𝑟 ≤ 𝑅, 𝑟, 𝑅))
13	8, 9, 12	syl2anc 585	. . . . . . 7 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → 0 < if(𝑟 ≤ 𝑅, 𝑟, 𝑅))
14		0xr 11261	. . . . . . . 8 ⊢ 0 ∈ ℝ^*
15		xrltle 13128	. . . . . . . 8 ⊢ ((0 ∈ ℝ^* ∧ if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ∈ ℝ^*) → (0 < if(𝑟 ≤ 𝑅, 𝑟, 𝑅) → 0 ≤ if(𝑟 ≤ 𝑅, 𝑟, 𝑅)))
16	14, 4, 15	sylancr 588	. . . . . . 7 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → (0 < if(𝑟 ≤ 𝑅, 𝑟, 𝑅) → 0 ≤ if(𝑟 ≤ 𝑅, 𝑟, 𝑅)))
17	13, 16	mpd 15	. . . . . 6 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → 0 ≤ if(𝑟 ≤ 𝑅, 𝑟, 𝑅))
18		xrmin1 13156	. . . . . . 7 ⊢ ((𝑟 ∈ ℝ^* ∧ 𝑅 ∈ ℝ^*) → if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ≤ 𝑟)
19	2, 3, 18	syl2anc 585	. . . . . 6 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ≤ 𝑟)
20		xrrege0 13153	. . . . . 6 ⊢ (((if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ∈ ℝ^* ∧ 𝑟 ∈ ℝ) ∧ (0 ≤ if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ∧ if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ≤ 𝑟)) → if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ∈ ℝ)
21	4, 6, 17, 19, 20	syl22anc 838	. . . . 5 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ∈ ℝ)
22	21, 13	elrpd 13013	. . . 4 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ∈ ℝ⁺)
23		simprl 770	. . . . . . 7 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → 𝑧 ∈ 𝑋)
24		xrmin2 13157	. . . . . . . 8 ⊢ ((𝑟 ∈ ℝ^* ∧ 𝑅 ∈ ℝ^*) → if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ≤ 𝑅)
25	2, 3, 24	syl2anc 585	. . . . . . 7 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ≤ 𝑅)
26	23, 4, 25	3jca 1129	. . . . . 6 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → (𝑧 ∈ 𝑋 ∧ if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ∈ ℝ^* ∧ if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ≤ 𝑅))
27		stdbdmet.1	. . . . . . 7 ⊢ 𝐷 = (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ if((𝑥𝐶𝑦) ≤ 𝑅, (𝑥𝐶𝑦), 𝑅))
28	27	stdbdbl 24026	. . . . . 6 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ∈ ℝ^* ∧ if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ≤ 𝑅)) → (𝑧(ball‘𝐷)if(𝑟 ≤ 𝑅, 𝑟, 𝑅)) = (𝑧(ball‘𝐶)if(𝑟 ≤ 𝑅, 𝑟, 𝑅)))
29	26, 28	syldan 592	. . . . 5 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → (𝑧(ball‘𝐷)if(𝑟 ≤ 𝑅, 𝑟, 𝑅)) = (𝑧(ball‘𝐶)if(𝑟 ≤ 𝑅, 𝑟, 𝑅)))
30	29	eqcomd 2739	. . . 4 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → (𝑧(ball‘𝐶)if(𝑟 ≤ 𝑅, 𝑟, 𝑅)) = (𝑧(ball‘𝐷)if(𝑟 ≤ 𝑅, 𝑟, 𝑅)))
31		breq1 5152	. . . . . 6 ⊢ (𝑠 = if(𝑟 ≤ 𝑅, 𝑟, 𝑅) → (𝑠 ≤ 𝑟 ↔ if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ≤ 𝑟))
32		oveq2 7417	. . . . . . 7 ⊢ (𝑠 = if(𝑟 ≤ 𝑅, 𝑟, 𝑅) → (𝑧(ball‘𝐶)𝑠) = (𝑧(ball‘𝐶)if(𝑟 ≤ 𝑅, 𝑟, 𝑅)))
33		oveq2 7417	. . . . . . 7 ⊢ (𝑠 = if(𝑟 ≤ 𝑅, 𝑟, 𝑅) → (𝑧(ball‘𝐷)𝑠) = (𝑧(ball‘𝐷)if(𝑟 ≤ 𝑅, 𝑟, 𝑅)))
34	32, 33	eqeq12d 2749	. . . . . 6 ⊢ (𝑠 = if(𝑟 ≤ 𝑅, 𝑟, 𝑅) → ((𝑧(ball‘𝐶)𝑠) = (𝑧(ball‘𝐷)𝑠) ↔ (𝑧(ball‘𝐶)if(𝑟 ≤ 𝑅, 𝑟, 𝑅)) = (𝑧(ball‘𝐷)if(𝑟 ≤ 𝑅, 𝑟, 𝑅))))
35	31, 34	anbi12d 632	. . . . 5 ⊢ (𝑠 = if(𝑟 ≤ 𝑅, 𝑟, 𝑅) → ((𝑠 ≤ 𝑟 ∧ (𝑧(ball‘𝐶)𝑠) = (𝑧(ball‘𝐷)𝑠)) ↔ (if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ≤ 𝑟 ∧ (𝑧(ball‘𝐶)if(𝑟 ≤ 𝑅, 𝑟, 𝑅)) = (𝑧(ball‘𝐷)if(𝑟 ≤ 𝑅, 𝑟, 𝑅)))))
36	35	rspcev 3613	. . . 4 ⊢ ((if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ∈ ℝ⁺ ∧ (if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ≤ 𝑟 ∧ (𝑧(ball‘𝐶)if(𝑟 ≤ 𝑅, 𝑟, 𝑅)) = (𝑧(ball‘𝐷)if(𝑟 ≤ 𝑅, 𝑟, 𝑅)))) → ∃𝑠 ∈ ℝ⁺ (𝑠 ≤ 𝑟 ∧ (𝑧(ball‘𝐶)𝑠) = (𝑧(ball‘𝐷)𝑠)))
37	22, 19, 30, 36	syl12anc 836	. . 3 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → ∃𝑠 ∈ ℝ⁺ (𝑠 ≤ 𝑟 ∧ (𝑧(ball‘𝐶)𝑠) = (𝑧(ball‘𝐷)𝑠)))
38	37	ralrimivva 3201	. 2 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) → ∀𝑧 ∈ 𝑋 ∀𝑟 ∈ ℝ⁺ ∃𝑠 ∈ ℝ⁺ (𝑠 ≤ 𝑟 ∧ (𝑧(ball‘𝐶)𝑠) = (𝑧(ball‘𝐷)𝑠)))
39		simp1 1137	. . 3 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) → 𝐶 ∈ (∞Met‘𝑋))
40	27	stdbdxmet 24024	. . 3 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) → 𝐷 ∈ (∞Met‘𝑋))
41		stdbdmopn.2	. . . 4 ⊢ 𝐽 = (MetOpen‘𝐶)
42		eqid 2733	. . . 4 ⊢ (MetOpen‘𝐷) = (MetOpen‘𝐷)
43	41, 42	metequiv2 24019	. . 3 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝐷 ∈ (∞Met‘𝑋)) → (∀𝑧 ∈ 𝑋 ∀𝑟 ∈ ℝ⁺ ∃𝑠 ∈ ℝ⁺ (𝑠 ≤ 𝑟 ∧ (𝑧(ball‘𝐶)𝑠) = (𝑧(ball‘𝐷)𝑠)) → 𝐽 = (MetOpen‘𝐷)))
44	39, 40, 43	syl2anc 585	. 2 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) → (∀𝑧 ∈ 𝑋 ∀𝑟 ∈ ℝ⁺ ∃𝑠 ∈ ℝ⁺ (𝑠 ≤ 𝑟 ∧ (𝑧(ball‘𝐶)𝑠) = (𝑧(ball‘𝐷)𝑠)) → 𝐽 = (MetOpen‘𝐷)))
45	38, 44	mpd 15	1 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) → 𝐽 = (MetOpen‘𝐷))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 397 ∧ w3a 1088 = wceq 1542 ∈ wcel 2107 ∀wral 3062 ∃wrex 3071 ifcif 4529 class class class wbr 5149 ‘cfv 6544 (class class class)co 7409 ∈ cmpo 7411 ℝcr 11109 0cc0 11110 ℝ^*cxr 11247 < clt 11248 ≤ cle 11249 ℝ⁺crp 12974 ∞Metcxmet 20929 ballcbl 20931 MetOpencmopn 20934

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1798 ax-4 1812 ax-5 1914 ax-6 1972 ax-7 2012 ax-8 2109 ax-9 2117 ax-10 2138 ax-11 2155 ax-12 2172 ax-ext 2704 ax-sep 5300 ax-nul 5307 ax-pow 5364 ax-pr 5428 ax-un 7725 ax-cnex 11166 ax-resscn 11167 ax-1cn 11168 ax-icn 11169 ax-addcl 11170 ax-addrcl 11171 ax-mulcl 11172 ax-mulrcl 11173 ax-mulcom 11174 ax-addass 11175 ax-mulass 11176 ax-distr 11177 ax-i2m1 11178 ax-1ne0 11179 ax-1rid 11180 ax-rnegex 11181 ax-rrecex 11182 ax-cnre 11183 ax-pre-lttri 11184 ax-pre-lttrn 11185 ax-pre-ltadd 11186 ax-pre-mulgt0 11187 ax-pre-sup 11188

This theorem depends on definitions: df-bi 206 df-an 398 df-or 847 df-3or 1089 df-3an 1090 df-tru 1545 df-fal 1555 df-ex 1783 df-nf 1787 df-sb 2069 df-mo 2535 df-eu 2564 df-clab 2711 df-cleq 2725 df-clel 2811 df-nfc 2886 df-ne 2942 df-nel 3048 df-ral 3063 df-rex 3072 df-rmo 3377 df-reu 3378 df-rab 3434 df-v 3477 df-sbc 3779 df-csb 3895 df-dif 3952 df-un 3954 df-in 3956 df-ss 3966 df-pss 3968 df-nul 4324 df-if 4530 df-pw 4605 df-sn 4630 df-pr 4632 df-op 4636 df-uni 4910 df-iun 5000 df-br 5150 df-opab 5212 df-mpt 5233 df-tr 5267 df-id 5575 df-eprel 5581 df-po 5589 df-so 5590 df-fr 5632 df-we 5634 df-xp 5683 df-rel 5684 df-cnv 5685 df-co 5686 df-dm 5687 df-rn 5688 df-res 5689 df-ima 5690 df-pred 6301 df-ord 6368 df-on 6369 df-lim 6370 df-suc 6371 df-iota 6496 df-fun 6546 df-fn 6547 df-f 6548 df-f1 6549 df-fo 6550 df-f1o 6551 df-fv 6552 df-riota 7365 df-ov 7412 df-oprab 7413 df-mpo 7414 df-om 7856 df-1st 7975 df-2nd 7976 df-frecs 8266 df-wrecs 8297 df-recs 8371 df-rdg 8410 df-er 8703 df-map 8822 df-en 8940 df-dom 8941 df-sdom 8942 df-sup 9437 df-inf 9438 df-pnf 11250 df-mnf 11251 df-xr 11252 df-ltxr 11253 df-le 11254 df-sub 11446 df-neg 11447 df-div 11872 df-nn 12213 df-2 12275 df-n0 12473 df-z 12559 df-uz 12823 df-q 12933 df-rp 12975 df-xneg 13092 df-xadd 13093 df-xmul 13094 df-icc 13331 df-topgen 17389 df-psmet 20936 df-xmet 20937 df-bl 20939 df-mopn 20940 df-bases 22449

This theorem is referenced by: mopnex 24028 xlebnum 24481

W3C validator