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 22815

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 12252	. . . . . . . 8 ⊢ (𝑟 ∈ ℝ⁺ → 𝑟 ∈ ℝ^*)
2	1	ad2antll 725	. . . . . . 7 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → 𝑟 ∈ ℝ^*)
3		simpl2 1185	. . . . . . 7 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → 𝑅 ∈ ℝ^*)
4	2, 3	ifcld 4432	. . . . . 6 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ∈ ℝ^*)
5		rpre 12251	. . . . . . 7 ⊢ (𝑟 ∈ ℝ⁺ → 𝑟 ∈ ℝ)
6	5	ad2antll 725	. . . . . 6 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → 𝑟 ∈ ℝ)
7		rpgt0 12255	. . . . . . . . 9 ⊢ (𝑟 ∈ ℝ⁺ → 0 < 𝑟)
8	7	ad2antll 725	. . . . . . . 8 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → 0 < 𝑟)
9		simpl3 1186	. . . . . . . 8 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → 0 < 𝑅)
10		breq2 4972	. . . . . . . . 9 ⊢ (𝑟 = if(𝑟 ≤ 𝑅, 𝑟, 𝑅) → (0 < 𝑟 ↔ 0 < if(𝑟 ≤ 𝑅, 𝑟, 𝑅)))
11		breq2 4972	. . . . . . . . 9 ⊢ (𝑅 = if(𝑟 ≤ 𝑅, 𝑟, 𝑅) → (0 < 𝑅 ↔ 0 < if(𝑟 ≤ 𝑅, 𝑟, 𝑅)))
12	10, 11	ifboth 4425	. . . . . . . 8 ⊢ ((0 < 𝑟 ∧ 0 < 𝑅) → 0 < if(𝑟 ≤ 𝑅, 𝑟, 𝑅))
13	8, 9, 12	syl2anc 584	. . . . . . 7 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → 0 < if(𝑟 ≤ 𝑅, 𝑟, 𝑅))
14		0xr 10541	. . . . . . . 8 ⊢ 0 ∈ ℝ^*
15		xrltle 12396	. . . . . . . 8 ⊢ ((0 ∈ ℝ^* ∧ if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ∈ ℝ^*) → (0 < if(𝑟 ≤ 𝑅, 𝑟, 𝑅) → 0 ≤ if(𝑟 ≤ 𝑅, 𝑟, 𝑅)))
16	14, 4, 15	sylancr 587	. . . . . . 7 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → (0 < if(𝑟 ≤ 𝑅, 𝑟, 𝑅) → 0 ≤ if(𝑟 ≤ 𝑅, 𝑟, 𝑅)))
17	13, 16	mpd 15	. . . . . 6 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → 0 ≤ if(𝑟 ≤ 𝑅, 𝑟, 𝑅))
18		xrmin1 12424	. . . . . . 7 ⊢ ((𝑟 ∈ ℝ^* ∧ 𝑅 ∈ ℝ^*) → if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ≤ 𝑟)
19	2, 3, 18	syl2anc 584	. . . . . 6 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ≤ 𝑟)
20		xrrege0 12421	. . . . . 6 ⊢ (((if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ∈ ℝ^* ∧ 𝑟 ∈ ℝ) ∧ (0 ≤ if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ∧ if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ≤ 𝑟)) → if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ∈ ℝ)
21	4, 6, 17, 19, 20	syl22anc 835	. . . . 5 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ∈ ℝ)
22	21, 13	elrpd 12282	. . . 4 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ∈ ℝ⁺)
23		simprl 767	. . . . . . 7 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → 𝑧 ∈ 𝑋)
24		xrmin2 12425	. . . . . . . 8 ⊢ ((𝑟 ∈ ℝ^* ∧ 𝑅 ∈ ℝ^*) → if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ≤ 𝑅)
25	2, 3, 24	syl2anc 584	. . . . . . 7 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ≤ 𝑅)
26	23, 4, 25	3jca 1121	. . . . . 6 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → (𝑧 ∈ 𝑋 ∧ if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ∈ ℝ^* ∧ if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ≤ 𝑅))
27		stdbdmet.1	. . . . . . 7 ⊢ 𝐷 = (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑋 ↦ if((𝑥𝐶𝑦) ≤ 𝑅, (𝑥𝐶𝑦), 𝑅))
28	27	stdbdbl 22814	. . . . . 6 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ∈ ℝ^* ∧ if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ≤ 𝑅)) → (𝑧(ball‘𝐷)if(𝑟 ≤ 𝑅, 𝑟, 𝑅)) = (𝑧(ball‘𝐶)if(𝑟 ≤ 𝑅, 𝑟, 𝑅)))
29	26, 28	syldan 591	. . . . 5 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → (𝑧(ball‘𝐷)if(𝑟 ≤ 𝑅, 𝑟, 𝑅)) = (𝑧(ball‘𝐶)if(𝑟 ≤ 𝑅, 𝑟, 𝑅)))
30	29	eqcomd 2803	. . . 4 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → (𝑧(ball‘𝐶)if(𝑟 ≤ 𝑅, 𝑟, 𝑅)) = (𝑧(ball‘𝐷)if(𝑟 ≤ 𝑅, 𝑟, 𝑅)))
31		breq1 4971	. . . . . 6 ⊢ (𝑠 = if(𝑟 ≤ 𝑅, 𝑟, 𝑅) → (𝑠 ≤ 𝑟 ↔ if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ≤ 𝑟))
32		oveq2 7031	. . . . . . 7 ⊢ (𝑠 = if(𝑟 ≤ 𝑅, 𝑟, 𝑅) → (𝑧(ball‘𝐶)𝑠) = (𝑧(ball‘𝐶)if(𝑟 ≤ 𝑅, 𝑟, 𝑅)))
33		oveq2 7031	. . . . . . 7 ⊢ (𝑠 = if(𝑟 ≤ 𝑅, 𝑟, 𝑅) → (𝑧(ball‘𝐷)𝑠) = (𝑧(ball‘𝐷)if(𝑟 ≤ 𝑅, 𝑟, 𝑅)))
34	32, 33	eqeq12d 2812	. . . . . 6 ⊢ (𝑠 = if(𝑟 ≤ 𝑅, 𝑟, 𝑅) → ((𝑧(ball‘𝐶)𝑠) = (𝑧(ball‘𝐷)𝑠) ↔ (𝑧(ball‘𝐶)if(𝑟 ≤ 𝑅, 𝑟, 𝑅)) = (𝑧(ball‘𝐷)if(𝑟 ≤ 𝑅, 𝑟, 𝑅))))
35	31, 34	anbi12d 630	. . . . 5 ⊢ (𝑠 = if(𝑟 ≤ 𝑅, 𝑟, 𝑅) → ((𝑠 ≤ 𝑟 ∧ (𝑧(ball‘𝐶)𝑠) = (𝑧(ball‘𝐷)𝑠)) ↔ (if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ≤ 𝑟 ∧ (𝑧(ball‘𝐶)if(𝑟 ≤ 𝑅, 𝑟, 𝑅)) = (𝑧(ball‘𝐷)if(𝑟 ≤ 𝑅, 𝑟, 𝑅)))))
36	35	rspcev 3561	. . . 4 ⊢ ((if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ∈ ℝ⁺ ∧ (if(𝑟 ≤ 𝑅, 𝑟, 𝑅) ≤ 𝑟 ∧ (𝑧(ball‘𝐶)if(𝑟 ≤ 𝑅, 𝑟, 𝑅)) = (𝑧(ball‘𝐷)if(𝑟 ≤ 𝑅, 𝑟, 𝑅)))) → ∃𝑠 ∈ ℝ⁺ (𝑠 ≤ 𝑟 ∧ (𝑧(ball‘𝐶)𝑠) = (𝑧(ball‘𝐷)𝑠)))
37	22, 19, 30, 36	syl12anc 833	. . 3 ⊢ (((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ⁺)) → ∃𝑠 ∈ ℝ⁺ (𝑠 ≤ 𝑟 ∧ (𝑧(ball‘𝐶)𝑠) = (𝑧(ball‘𝐷)𝑠)))
38	37	ralrimivva 3160	. 2 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) → ∀𝑧 ∈ 𝑋 ∀𝑟 ∈ ℝ⁺ ∃𝑠 ∈ ℝ⁺ (𝑠 ≤ 𝑟 ∧ (𝑧(ball‘𝐶)𝑠) = (𝑧(ball‘𝐷)𝑠)))
39		simp1 1129	. . 3 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) → 𝐶 ∈ (∞Met‘𝑋))
40	27	stdbdxmet 22812	. . 3 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑅 ∈ ℝ^* ∧ 0 < 𝑅) → 𝐷 ∈ (∞Met‘𝑋))
41		stdbdmopn.2	. . . 4 ⊢ 𝐽 = (MetOpen‘𝐶)
42		eqid 2797	. . . 4 ⊢ (MetOpen‘𝐷) = (MetOpen‘𝐷)
43	41, 42	metequiv2 22807	. . 3 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝐷 ∈ (∞Met‘𝑋)) → (∀𝑧 ∈ 𝑋 ∀𝑟 ∈ ℝ⁺ ∃𝑠 ∈ ℝ⁺ (𝑠 ≤ 𝑟 ∧ (𝑧(ball‘𝐶)𝑠) = (𝑧(ball‘𝐷)𝑠)) → 𝐽 = (MetOpen‘𝐷)))
44	39, 40, 43	syl2anc 584	. 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 396 ∧ w3a 1080 = wceq 1525 ∈ wcel 2083 ∀wral 3107 ∃wrex 3108 ifcif 4387 class class class wbr 4968 ‘cfv 6232 (class class class)co 7023 ∈ cmpo 7025 ℝcr 10389 0cc0 10390 ℝ^*cxr 10527 < clt 10528 ≤ cle 10529 ℝ⁺crp 12243 ∞Metcxmet 20216 ballcbl 20218 MetOpencmopn 20221

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1781 ax-4 1795 ax-5 1892 ax-6 1951 ax-7 1996 ax-8 2085 ax-9 2093 ax-10 2114 ax-11 2128 ax-12 2143 ax-13 2346 ax-ext 2771 ax-sep 5101 ax-nul 5108 ax-pow 5164 ax-pr 5228 ax-un 7326 ax-cnex 10446 ax-resscn 10447 ax-1cn 10448 ax-icn 10449 ax-addcl 10450 ax-addrcl 10451 ax-mulcl 10452 ax-mulrcl 10453 ax-mulcom 10454 ax-addass 10455 ax-mulass 10456 ax-distr 10457 ax-i2m1 10458 ax-1ne0 10459 ax-1rid 10460 ax-rnegex 10461 ax-rrecex 10462 ax-cnre 10463 ax-pre-lttri 10464 ax-pre-lttrn 10465 ax-pre-ltadd 10466 ax-pre-mulgt0 10467 ax-pre-sup 10468

This theorem depends on definitions: df-bi 208 df-an 397 df-or 843 df-3or 1081 df-3an 1082 df-tru 1528 df-ex 1766 df-nf 1770 df-sb 2045 df-mo 2578 df-eu 2614 df-clab 2778 df-cleq 2790 df-clel 2865 df-nfc 2937 df-ne 2987 df-nel 3093 df-ral 3112 df-rex 3113 df-reu 3114 df-rmo 3115 df-rab 3116 df-v 3442 df-sbc 3712 df-csb 3818 df-dif 3868 df-un 3870 df-in 3872 df-ss 3880 df-pss 3882 df-nul 4218 df-if 4388 df-pw 4461 df-sn 4479 df-pr 4481 df-tp 4483 df-op 4485 df-uni 4752 df-iun 4833 df-br 4969 df-opab 5031 df-mpt 5048 df-tr 5071 df-id 5355 df-eprel 5360 df-po 5369 df-so 5370 df-fr 5409 df-we 5411 df-xp 5456 df-rel 5457 df-cnv 5458 df-co 5459 df-dm 5460 df-rn 5461 df-res 5462 df-ima 5463 df-pred 6030 df-ord 6076 df-on 6077 df-lim 6078 df-suc 6079 df-iota 6196 df-fun 6234 df-fn 6235 df-f 6236 df-f1 6237 df-fo 6238 df-f1o 6239 df-fv 6240 df-riota 6984 df-ov 7026 df-oprab 7027 df-mpo 7028 df-om 7444 df-1st 7552 df-2nd 7553 df-wrecs 7805 df-recs 7867 df-rdg 7905 df-er 8146 df-map 8265 df-en 8365 df-dom 8366 df-sdom 8367 df-sup 8759 df-inf 8760 df-pnf 10530 df-mnf 10531 df-xr 10532 df-ltxr 10533 df-le 10534 df-sub 10725 df-neg 10726 df-div 11152 df-nn 11493 df-2 11554 df-n0 11752 df-z 11836 df-uz 12098 df-q 12202 df-rp 12244 df-xneg 12361 df-xadd 12362 df-xmul 12363 df-icc 12599 df-topgen 16550 df-psmet 20223 df-xmet 20224 df-bl 20226 df-mopn 20227 df-bases 21242

This theorem is referenced by: mopnex 22816 xlebnum 23256

W3C validator