Theorem metss2lem 23381

Description: Lemma for metss2 23382. (Contributed by Mario Carneiro, 14-Sep-2015.)

Hypotheses

Ref	Expression
metequiv.3	⊢ 𝐽 = (MetOpen‘𝐶)
metequiv.4	⊢ 𝐾 = (MetOpen‘𝐷)
metss2.1	⊢ (𝜑 → 𝐶 ∈ (Met‘𝑋))
metss2.2	⊢ (𝜑 → 𝐷 ∈ (Met‘𝑋))
metss2.3	⊢ (𝜑 → 𝑅 ∈ ℝ+)
metss2.4	⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (𝑥𝐶𝑦) ≤ (𝑅 · (𝑥𝐷𝑦)))

Assertion

Ref	Expression
metss2lem	⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑆 ∈ ℝ+)) → (𝑥(ball‘𝐷)(𝑆 / 𝑅)) ⊆ (𝑥(ball‘𝐶)𝑆))

Distinct variable groups:   𝑥,𝑦,𝐶   𝑥,𝐽,𝑦   𝑥,𝐾,𝑦   𝑦,𝑅   𝑦,𝑆   𝑥,𝐷,𝑦   𝜑,𝑥,𝑦   𝑥,𝑋,𝑦

Allowed substitution hints:   𝑅(𝑥)   𝑆(𝑥)

Proof of Theorem metss2lem

Step	Hyp	Ref	Expression
1		metss2.2	. . . . . . 7 ⊢ (𝜑 → 𝐷 ∈ (Met‘𝑋))
2	1	ad2antrr 726	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑆 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑋) → 𝐷 ∈ (Met‘𝑋))
3		simplrl 777	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑆 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑋) → 𝑥 ∈ 𝑋)
4		simpr 488	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑆 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑋) → 𝑦 ∈ 𝑋)
5		metcl 23202	. . . . . 6 ⊢ ((𝐷 ∈ (Met‘𝑋) ∧ 𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋) → (𝑥𝐷𝑦) ∈ ℝ)
6	2, 3, 4, 5	syl3anc 1373	. . . . 5 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑆 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑋) → (𝑥𝐷𝑦) ∈ ℝ)
7		simplrr 778	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑆 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑋) → 𝑆 ∈ ℝ+)
8	7	rpred 12611	. . . . 5 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑆 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑋) → 𝑆 ∈ ℝ)
9		metss2.3	. . . . . 6 ⊢ (𝜑 → 𝑅 ∈ ℝ+)
10	9	ad2antrr 726	. . . . 5 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑆 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑋) → 𝑅 ∈ ℝ+)
11	6, 8, 10	ltmuldiv2d 12659	. . . 4 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑆 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑋) → ((𝑅 · (𝑥𝐷𝑦)) < 𝑆 ↔ (𝑥𝐷𝑦) < (𝑆 / 𝑅)))
12		metss2.4	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (𝑥𝐶𝑦) ≤ (𝑅 · (𝑥𝐷𝑦)))
13	12	anassrs 471	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝑋) ∧ 𝑦 ∈ 𝑋) → (𝑥𝐶𝑦) ≤ (𝑅 · (𝑥𝐷𝑦)))
14	13	adantlrr 721	. . . . 5 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑆 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑋) → (𝑥𝐶𝑦) ≤ (𝑅 · (𝑥𝐷𝑦)))
15		metss2.1	. . . . . . . 8 ⊢ (𝜑 → 𝐶 ∈ (Met‘𝑋))
16	15	ad2antrr 726	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑆 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑋) → 𝐶 ∈ (Met‘𝑋))
17		metcl 23202	. . . . . . 7 ⊢ ((𝐶 ∈ (Met‘𝑋) ∧ 𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋) → (𝑥𝐶𝑦) ∈ ℝ)
18	16, 3, 4, 17	syl3anc 1373	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑆 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑋) → (𝑥𝐶𝑦) ∈ ℝ)
19	10	rpred 12611	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑆 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑋) → 𝑅 ∈ ℝ)
20	19, 6	remulcld 10846	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑆 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑋) → (𝑅 · (𝑥𝐷𝑦)) ∈ ℝ)
21		lelttr 10906	. . . . . 6 ⊢ (((𝑥𝐶𝑦) ∈ ℝ ∧ (𝑅 · (𝑥𝐷𝑦)) ∈ ℝ ∧ 𝑆 ∈ ℝ) → (((𝑥𝐶𝑦) ≤ (𝑅 · (𝑥𝐷𝑦)) ∧ (𝑅 · (𝑥𝐷𝑦)) < 𝑆) → (𝑥𝐶𝑦) < 𝑆))
22	18, 20, 8, 21	syl3anc 1373	. . . . 5 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑆 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑋) → (((𝑥𝐶𝑦) ≤ (𝑅 · (𝑥𝐷𝑦)) ∧ (𝑅 · (𝑥𝐷𝑦)) < 𝑆) → (𝑥𝐶𝑦) < 𝑆))
23	14, 22	mpand 695	. . . 4 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑆 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑋) → ((𝑅 · (𝑥𝐷𝑦)) < 𝑆 → (𝑥𝐶𝑦) < 𝑆))
24	11, 23	sylbird 263	. . 3 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑆 ∈ ℝ+)) ∧ 𝑦 ∈ 𝑋) → ((𝑥𝐷𝑦) < (𝑆 / 𝑅) → (𝑥𝐶𝑦) < 𝑆))
25	24	ss2rabdv 3979	. 2 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑆 ∈ ℝ+)) → {𝑦 ∈ 𝑋 ∣ (𝑥𝐷𝑦) < (𝑆 / 𝑅)} ⊆ {𝑦 ∈ 𝑋 ∣ (𝑥𝐶𝑦) < 𝑆})
26		metxmet 23204	. . . . 5 ⊢ (𝐷 ∈ (Met‘𝑋) → 𝐷 ∈ (∞Met‘𝑋))
27	1, 26	syl 17	. . . 4 ⊢ (𝜑 → 𝐷 ∈ (∞Met‘𝑋))
28	27	adantr 484	. . 3 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑆 ∈ ℝ+)) → 𝐷 ∈ (∞Met‘𝑋))
29		simprl 771	. . 3 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑆 ∈ ℝ+)) → 𝑥 ∈ 𝑋)
30		simpr 488	. . . . 5 ⊢ ((𝑥 ∈ 𝑋 ∧ 𝑆 ∈ ℝ+) → 𝑆 ∈ ℝ+)
31		rpdivcl 12594	. . . . 5 ⊢ ((𝑆 ∈ ℝ+ ∧ 𝑅 ∈ ℝ+) → (𝑆 / 𝑅) ∈ ℝ+)
32	30, 9, 31	syl2anr 600	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑆 ∈ ℝ+)) → (𝑆 / 𝑅) ∈ ℝ+)
33	32	rpxrd 12612	. . 3 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑆 ∈ ℝ+)) → (𝑆 / 𝑅) ∈ ℝ*)
34		blval 23256	. . 3 ⊢ ((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑥 ∈ 𝑋 ∧ (𝑆 / 𝑅) ∈ ℝ*) → (𝑥(ball‘𝐷)(𝑆 / 𝑅)) = {𝑦 ∈ 𝑋 ∣ (𝑥𝐷𝑦) < (𝑆 / 𝑅)})
35	28, 29, 33, 34	syl3anc 1373	. 2 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑆 ∈ ℝ+)) → (𝑥(ball‘𝐷)(𝑆 / 𝑅)) = {𝑦 ∈ 𝑋 ∣ (𝑥𝐷𝑦) < (𝑆 / 𝑅)})
36		metxmet 23204	. . . . 5 ⊢ (𝐶 ∈ (Met‘𝑋) → 𝐶 ∈ (∞Met‘𝑋))
37	15, 36	syl 17	. . . 4 ⊢ (𝜑 → 𝐶 ∈ (∞Met‘𝑋))
38	37	adantr 484	. . 3 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑆 ∈ ℝ+)) → 𝐶 ∈ (∞Met‘𝑋))
39		rpxr 12578	. . . 4 ⊢ (𝑆 ∈ ℝ+ → 𝑆 ∈ ℝ*)
40	39	ad2antll 729	. . 3 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑆 ∈ ℝ+)) → 𝑆 ∈ ℝ*)
41		blval 23256	. . 3 ⊢ ((𝐶 ∈ (∞Met‘𝑋) ∧ 𝑥 ∈ 𝑋 ∧ 𝑆 ∈ ℝ*) → (𝑥(ball‘𝐶)𝑆) = {𝑦 ∈ 𝑋 ∣ (𝑥𝐶𝑦) < 𝑆})
42	38, 29, 40, 41	syl3anc 1373	. 2 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑆 ∈ ℝ+)) → (𝑥(ball‘𝐶)𝑆) = {𝑦 ∈ 𝑋 ∣ (𝑥𝐶𝑦) < 𝑆})
43	25, 35, 42	3sstr4d 3938	1 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑆 ∈ ℝ+)) → (𝑥(ball‘𝐷)(𝑆 / 𝑅)) ⊆ (𝑥(ball‘𝐶)𝑆))

Syntax hints:   → wi 4   ∧ wa 399   = wceq 1543   ∈ wcel 2110  {crab 3058   ⊆ wss 3857   class class class wbr 5043  ‘cfv 6369  (class class class)co 7202  ℝcr 10711   · cmul 10717  ℝ^*cxr 10849   < clt 10850   ≤ cle 10851   / cdiv 11472  ℝ⁺crp 12569  ∞Metcxmet 20320  Metcmet 20321  ballcbl 20322  MetOpencmopn 20325

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1976  ax-7 2016  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2158  ax-12 2175  ax-ext 2706  ax-sep 5181  ax-nul 5188  ax-pow 5247  ax-pr 5311  ax-un 7512  ax-cnex 10768  ax-resscn 10769  ax-1cn 10770  ax-icn 10771  ax-addcl 10772  ax-addrcl 10773  ax-mulcl 10774  ax-mulrcl 10775  ax-mulcom 10776  ax-addass 10777  ax-mulass 10778  ax-distr 10779  ax-i2m1 10780  ax-1ne0 10781  ax-1rid 10782  ax-rnegex 10783  ax-rrecex 10784  ax-cnre 10785  ax-pre-lttri 10786  ax-pre-lttrn 10787  ax-pre-ltadd 10788  ax-pre-mulgt0 10789

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 848  df-3or 1090  df-3an 1091  df-tru 1546  df-fal 1556  df-ex 1788  df-nf 1792  df-sb 2071  df-mo 2537  df-eu 2566  df-clab 2713  df-cleq 2726  df-clel 2812  df-nfc 2882  df-ne 2936  df-nel 3040  df-ral 3059  df-rex 3060  df-reu 3061  df-rmo 3062  df-rab 3063  df-v 3403  df-sbc 3688  df-csb 3803  df-dif 3860  df-un 3862  df-in 3864  df-ss 3874  df-nul 4228  df-if 4430  df-pw 4505  df-sn 4532  df-pr 4534  df-op 4538  df-uni 4810  df-iun 4896  df-br 5044  df-opab 5106  df-mpt 5125  df-id 5444  df-po 5457  df-so 5458  df-xp 5546  df-rel 5547  df-cnv 5548  df-co 5549  df-dm 5550  df-rn 5551  df-res 5552  df-ima 5553  df-iota 6327  df-fun 6371  df-fn 6372  df-f 6373  df-f1 6374  df-fo 6375  df-f1o 6376  df-fv 6377  df-riota 7159  df-ov 7205  df-oprab 7206  df-mpo 7207  df-1st 7750  df-2nd 7751  df-er 8380  df-map 8499  df-en 8616  df-dom 8617  df-sdom 8618  df-pnf 10852  df-mnf 10853  df-xr 10854  df-ltxr 10855  df-le 10856  df-sub 11047  df-neg 11048  df-div 11473  df-rp 12570  df-xadd 12688  df-psmet 20327  df-xmet 20328  df-met 20329  df-bl 20330

This theorem is referenced by:  metss2  23382  equivcfil  24168  equivcau  24169  equivtotbnd  35630