Theorem equivtotbnd 38855

Description: If the metric 𝑀 is "strongly finer" than 𝑁 (meaning that there is a positive real constant 𝑅 such that 𝑁(𝑥, 𝑦) ≤ 𝑅 · 𝑀(𝑥, 𝑦)), then total boundedness of 𝑀 implies total boundedness of 𝑁. (Using this theorem twice in each direction states that if two metrics are strongly equivalent, then one is totally bounded iff the other is.) (Contributed by Mario Carneiro, 14-Sep-2015.)

Hypotheses

Ref	Expression
equivtotbnd.1	⊢ (𝜑 → 𝑀 ∈ (TotBnd‘𝑋))
equivtotbnd.2	⊢ (𝜑 → 𝑁 ∈ (Met‘𝑋))
equivtotbnd.3	⊢ (𝜑 → 𝑅 ∈ ℝ+)
equivtotbnd.4	⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (𝑥𝑁𝑦) ≤ (𝑅 · (𝑥𝑀𝑦)))

Assertion

Ref	Expression
equivtotbnd	⊢ (𝜑 → 𝑁 ∈ (TotBnd‘𝑋))

Distinct variable groups:   𝑥,𝑦,𝑀   𝑥,𝑁,𝑦   𝜑,𝑥,𝑦   𝑥,𝑋,𝑦   𝑥,𝑅,𝑦

Proof of Theorem equivtotbnd

Dummy variables 𝑣 𝑠 𝑟 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		equivtotbnd.2	. 2 ⊢ (𝜑 → 𝑁 ∈ (Met‘𝑋))
2		simpr 490	. . . . . 6 ⊢ ((𝜑 ∧ 𝑟 ∈ ℝ+) → 𝑟 ∈ ℝ+)
3		equivtotbnd.3	. . . . . . 7 ⊢ (𝜑 → 𝑅 ∈ ℝ+)
4	3	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑟 ∈ ℝ+) → 𝑅 ∈ ℝ+)
5	2, 4	rpdivcld 13194	. . . . 5 ⊢ ((𝜑 ∧ 𝑟 ∈ ℝ+) → (𝑟 / 𝑅) ∈ ℝ+)
6		equivtotbnd.1	. . . . . . 7 ⊢ (𝜑 → 𝑀 ∈ (TotBnd‘𝑋))
7	6	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑟 ∈ ℝ+) → 𝑀 ∈ (TotBnd‘𝑋))
8		istotbnd3 38848	. . . . . . 7 ⊢ (𝑀 ∈ (TotBnd‘𝑋) ↔ (𝑀 ∈ (Met‘𝑋) ∧ ∀𝑠 ∈ ℝ+ ∃𝑣 ∈ (𝒫 𝑋 ∩ Fin)∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑀)𝑠) = 𝑋))
9	8	simprbi 503	. . . . . 6 ⊢ (𝑀 ∈ (TotBnd‘𝑋) → ∀𝑠 ∈ ℝ+ ∃𝑣 ∈ (𝒫 𝑋 ∩ Fin)∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑀)𝑠) = 𝑋)
10	7, 9	syl 18	. . . . 5 ⊢ ((𝜑 ∧ 𝑟 ∈ ℝ+) → ∀𝑠 ∈ ℝ+ ∃𝑣 ∈ (𝒫 𝑋 ∩ Fin)∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑀)𝑠) = 𝑋)
11		oveq2 7438	. . . . . . . . 9 ⊢ (𝑠 = (𝑟 / 𝑅) → (𝑥(ball‘𝑀)𝑠) = (𝑥(ball‘𝑀)(𝑟 / 𝑅)))
12	11	iuneq2d 4984	. . . . . . . 8 ⊢ (𝑠 = (𝑟 / 𝑅) → ∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑀)𝑠) = ∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑀)(𝑟 / 𝑅)))
13	12	eqeq1d 2765	. . . . . . 7 ⊢ (𝑠 = (𝑟 / 𝑅) → (∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑀)𝑠) = 𝑋 ↔ ∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑀)(𝑟 / 𝑅)) = 𝑋))
14	13	rexbidv 3190	. . . . . 6 ⊢ (𝑠 = (𝑟 / 𝑅) → (∃𝑣 ∈ (𝒫 𝑋 ∩ Fin)∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑀)𝑠) = 𝑋 ↔ ∃𝑣 ∈ (𝒫 𝑋 ∩ Fin)∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑀)(𝑟 / 𝑅)) = 𝑋))
15	14	rspcv 3576	. . . . 5 ⊢ ((𝑟 / 𝑅) ∈ ℝ+ → (∀𝑠 ∈ ℝ+ ∃𝑣 ∈ (𝒫 𝑋 ∩ Fin)∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑀)𝑠) = 𝑋 → ∃𝑣 ∈ (𝒫 𝑋 ∩ Fin)∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑀)(𝑟 / 𝑅)) = 𝑋))
16	5, 10, 15	sylc 66	. . . 4 ⊢ ((𝜑 ∧ 𝑟 ∈ ℝ+) → ∃𝑣 ∈ (𝒫 𝑋 ∩ Fin)∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑀)(𝑟 / 𝑅)) = 𝑋)
17		elfpw 9357	. . . . . . . . . . . . . 14 ⊢ (𝑣 ∈ (𝒫 𝑋 ∩ Fin) ↔ (𝑣 ⊆ 𝑋 ∧ 𝑣 ∈ Fin))
18	17	simplbi 502	. . . . . . . . . . . . 13 ⊢ (𝑣 ∈ (𝒫 𝑋 ∩ Fin) → 𝑣 ⊆ 𝑋)
19	18	adantl 487	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑟 ∈ ℝ+) ∧ 𝑣 ∈ (𝒫 𝑋 ∩ Fin)) → 𝑣 ⊆ 𝑋)
20	19	sselda 3913	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑟 ∈ ℝ+) ∧ 𝑣 ∈ (𝒫 𝑋 ∩ Fin)) ∧ 𝑥 ∈ 𝑣) → 𝑥 ∈ 𝑋)
21		eqid 2763	. . . . . . . . . . . . . 14 ⊢ (MetOpen‘𝑁) = (MetOpen‘𝑁)
22		eqid 2763	. . . . . . . . . . . . . 14 ⊢ (MetOpen‘𝑀) = (MetOpen‘𝑀)
23	8	simplbi 502	. . . . . . . . . . . . . . 15 ⊢ (𝑀 ∈ (TotBnd‘𝑋) → 𝑀 ∈ (Met‘𝑋))
24	6, 23	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑀 ∈ (Met‘𝑋))
25		equivtotbnd.4	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (𝑥𝑁𝑦) ≤ (𝑅 · (𝑥𝑀𝑦)))
26	21, 22, 1, 24, 3, 25	metss2lem 24845	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) → (𝑥(ball‘𝑀)(𝑟 / 𝑅)) ⊆ (𝑥(ball‘𝑁)𝑟))
27	26	anass1rs 668	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑟 ∈ ℝ+) ∧ 𝑥 ∈ 𝑋) → (𝑥(ball‘𝑀)(𝑟 / 𝑅)) ⊆ (𝑥(ball‘𝑁)𝑟))
28	27	adantlr 728	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑟 ∈ ℝ+) ∧ 𝑣 ∈ (𝒫 𝑋 ∩ Fin)) ∧ 𝑥 ∈ 𝑋) → (𝑥(ball‘𝑀)(𝑟 / 𝑅)) ⊆ (𝑥(ball‘𝑁)𝑟))
29	20, 28	syldan 603	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑟 ∈ ℝ+) ∧ 𝑣 ∈ (𝒫 𝑋 ∩ Fin)) ∧ 𝑥 ∈ 𝑣) → (𝑥(ball‘𝑀)(𝑟 / 𝑅)) ⊆ (𝑥(ball‘𝑁)𝑟))
30	29	ralrimiva 3158	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑟 ∈ ℝ+) ∧ 𝑣 ∈ (𝒫 𝑋 ∩ Fin)) → ∀𝑥 ∈ 𝑣 (𝑥(ball‘𝑀)(𝑟 / 𝑅)) ⊆ (𝑥(ball‘𝑁)𝑟))
31		ss2iun 4973	. . . . . . . . 9 ⊢ (∀𝑥 ∈ 𝑣 (𝑥(ball‘𝑀)(𝑟 / 𝑅)) ⊆ (𝑥(ball‘𝑁)𝑟) → ∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑀)(𝑟 / 𝑅)) ⊆ ∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑁)𝑟))
32	30, 31	syl 18	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑟 ∈ ℝ+) ∧ 𝑣 ∈ (𝒫 𝑋 ∩ Fin)) → ∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑀)(𝑟 / 𝑅)) ⊆ ∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑁)𝑟))
33		sseq1 3938	. . . . . . . 8 ⊢ (∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑀)(𝑟 / 𝑅)) = 𝑋 → (∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑀)(𝑟 / 𝑅)) ⊆ ∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑁)𝑟) ↔ 𝑋 ⊆ ∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑁)𝑟)))
34	32, 33	syl5ibcom 248	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑟 ∈ ℝ+) ∧ 𝑣 ∈ (𝒫 𝑋 ∩ Fin)) → (∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑀)(𝑟 / 𝑅)) = 𝑋 → 𝑋 ⊆ ∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑁)𝑟)))
35	1	ad3antrrr 743	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑟 ∈ ℝ+) ∧ 𝑣 ∈ (𝒫 𝑋 ∩ Fin)) ∧ 𝑥 ∈ 𝑣) → 𝑁 ∈ (Met‘𝑋))
36		metxmet 24668	. . . . . . . . . . 11 ⊢ (𝑁 ∈ (Met‘𝑋) → 𝑁 ∈ (∞Met‘𝑋))
37	35, 36	syl 18	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑟 ∈ ℝ+) ∧ 𝑣 ∈ (𝒫 𝑋 ∩ Fin)) ∧ 𝑥 ∈ 𝑣) → 𝑁 ∈ (∞Met‘𝑋))
38		simpllr 788	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑟 ∈ ℝ+) ∧ 𝑣 ∈ (𝒫 𝑋 ∩ Fin)) ∧ 𝑥 ∈ 𝑣) → 𝑟 ∈ ℝ+)
39	38	rpxrd 13178	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑟 ∈ ℝ+) ∧ 𝑣 ∈ (𝒫 𝑋 ∩ Fin)) ∧ 𝑥 ∈ 𝑣) → 𝑟 ∈ ℝ*)
40		blssm 24752	. . . . . . . . . 10 ⊢ ((𝑁 ∈ (∞Met‘𝑋) ∧ 𝑥 ∈ 𝑋 ∧ 𝑟 ∈ ℝ*) → (𝑥(ball‘𝑁)𝑟) ⊆ 𝑋)
41	37, 20, 39, 40	syl3anc 1398	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑟 ∈ ℝ+) ∧ 𝑣 ∈ (𝒫 𝑋 ∩ Fin)) ∧ 𝑥 ∈ 𝑣) → (𝑥(ball‘𝑁)𝑟) ⊆ 𝑋)
42	41	ralrimiva 3158	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑟 ∈ ℝ+) ∧ 𝑣 ∈ (𝒫 𝑋 ∩ Fin)) → ∀𝑥 ∈ 𝑣 (𝑥(ball‘𝑁)𝑟) ⊆ 𝑋)
43		iunss 5006	. . . . . . . 8 ⊢ (∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑁)𝑟) ⊆ 𝑋 ↔ ∀𝑥 ∈ 𝑣 (𝑥(ball‘𝑁)𝑟) ⊆ 𝑋)
44	42, 43	sylibr 237	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑟 ∈ ℝ+) ∧ 𝑣 ∈ (𝒫 𝑋 ∩ Fin)) → ∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑁)𝑟) ⊆ 𝑋)
45	34, 44	jctild 535	. . . . . 6 ⊢ (((𝜑 ∧ 𝑟 ∈ ℝ+) ∧ 𝑣 ∈ (𝒫 𝑋 ∩ Fin)) → (∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑀)(𝑟 / 𝑅)) = 𝑋 → (∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑁)𝑟) ⊆ 𝑋 ∧ 𝑋 ⊆ ∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑁)𝑟))))
46		eqss 3928	. . . . . 6 ⊢ (∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑁)𝑟) = 𝑋 ↔ (∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑁)𝑟) ⊆ 𝑋 ∧ 𝑋 ⊆ ∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑁)𝑟)))
47	45, 46	imbitrrdi 255	. . . . 5 ⊢ (((𝜑 ∧ 𝑟 ∈ ℝ+) ∧ 𝑣 ∈ (𝒫 𝑋 ∩ Fin)) → (∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑀)(𝑟 / 𝑅)) = 𝑋 → ∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑁)𝑟) = 𝑋))
48	47	reximdva 3179	. . . 4 ⊢ ((𝜑 ∧ 𝑟 ∈ ℝ+) → (∃𝑣 ∈ (𝒫 𝑋 ∩ Fin)∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑀)(𝑟 / 𝑅)) = 𝑋 → ∃𝑣 ∈ (𝒫 𝑋 ∩ Fin)∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑁)𝑟) = 𝑋))
49	16, 48	mpd 16	. . 3 ⊢ ((𝜑 ∧ 𝑟 ∈ ℝ+) → ∃𝑣 ∈ (𝒫 𝑋 ∩ Fin)∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑁)𝑟) = 𝑋)
50	49	ralrimiva 3158	. 2 ⊢ (𝜑 → ∀𝑟 ∈ ℝ+ ∃𝑣 ∈ (𝒫 𝑋 ∩ Fin)∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑁)𝑟) = 𝑋)
51		istotbnd3 38848	. 2 ⊢ (𝑁 ∈ (TotBnd‘𝑋) ↔ (𝑁 ∈ (Met‘𝑋) ∧ ∀𝑟 ∈ ℝ+ ∃𝑣 ∈ (𝒫 𝑋 ∩ Fin)∪ 𝑥 ∈ 𝑣 (𝑥(ball‘𝑁)𝑟) = 𝑋))
52	1, 50, 51	sylanbrc 595	1 ⊢ (𝜑 → 𝑁 ∈ (TotBnd‘𝑋))

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   = wceq 1569   ∈ wcel 2146  ∀wral 3080  ∃wrex 3090   ⊆ wss 3900   ∩ cin 4092  𝒫 cpw 4560  ∪ ciun 4954   class class class wbr 5106  ‘cfv 6547  (class class class)co 7430  Fincfn 8987   · cmul 11218  ℝ^*cxr 11355   ≤ cle 11357   / cdiv 11986  ℝ⁺crp 13133  ∞Metcxmet 21678  Metcmet 21679  ballcbl 21680  MetOpencmopn 21683  TotBndctotbnd 38843

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1827  ax-4 1841  ax-5 1944  ax-6 2001  ax-7 2042  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2196  ax-12 2215  ax-ext 2735  ax-sep 5252  ax-nul 5263  ax-pow 5331  ax-pr 5395  ax-un 7761  ax-cnex 11269  ax-resscn 11270  ax-1cn 11271  ax-icn 11272  ax-addcl 11273  ax-addrcl 11274  ax-mulcl 11275  ax-mulrcl 11276  ax-mulcom 11277  ax-addass 11278  ax-mulass 11279  ax-distr 11280  ax-i2m1 11281  ax-1ne0 11282  ax-1rid 11283  ax-rnegex 11284  ax-rrecex 11285  ax-cnre 11286  ax-pre-lttri 11287  ax-pre-lttrn 11288  ax-pre-ltadd 11289  ax-pre-mulgt0 11290

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-nf 1816  df-sb 2101  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-ne 2960  df-nel 3066  df-ral 3081  df-rex 3091  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3456  df-sbc 3743  df-csb 3852  df-ss 3901  df-pss 4017  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-pw 4562  df-sn 4589  df-pr 4591  df-op 4839  df-uni 4871  df-iun 4956  df-br 5107  df-opab 5171  df-mpt 5190  df-tr 5216  df-id 5550  df-eprel 5555  df-po 5563  df-so 5564  df-fr 5608  df-we 5610  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-ord 6372  df-on 6373  df-lim 6374  df-suc 6375  df-iota 6501  df-fun 6549  df-fn 6550  df-f 6551  df-f1 6552  df-fo 6553  df-f1o 6554  df-fv 6555  df-riota 7387  df-ov 7433  df-oprab 7434  df-mpo 7435  df-om 7888  df-1st 8011  df-2nd 8012  df-1o 8490  df-er 8731  df-map 8863  df-en 8988  df-dom 8989  df-sdom 8990  df-fin 8991  df-pnf 11358  df-mnf 11359  df-xr 11360  df-ltxr 11361  df-le 11362  df-sub 11556  df-neg 11557  df-div 11987  df-rp 13134  df-xadd 13255  df-psmet 21685  df-xmet 21686  df-met 21687  df-bl 21688  df-totbnd 38845

This theorem is used by:  equivbnd2  38869