Theorem metustto 24528

Description: Any two elements of the filter base generated by the metric 𝐷 can be compared, like for RR+ (i.e. it's totally ordered). (Contributed by Thierry Arnoux, 22-Nov-2017.) (Revised by Thierry Arnoux, 11-Feb-2018.)

Hypothesis

Ref	Expression
metust.1	⊢ 𝐹 = ran (𝑎 ∈ ℝ+ ↦ (◡𝐷 “ (0[,)𝑎)))

Assertion

Ref	Expression
metustto	⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝐹 ∧ 𝐵 ∈ 𝐹) → (𝐴 ⊆ 𝐵 ∨ 𝐵 ⊆ 𝐴))

Distinct variable groups:   𝐵,𝑎   𝐷,𝑎   𝑋,𝑎   𝐴,𝑎   𝐹,𝑎

Proof of Theorem metustto

Dummy variable 𝑏 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpll 767	. . . . 5 ⊢ (((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) → 𝑎 ∈ ℝ+)
2	1	rpred 12977	. . . 4 ⊢ (((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) → 𝑎 ∈ ℝ)
3		simplr 769	. . . . 5 ⊢ (((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) → 𝑏 ∈ ℝ+)
4	3	rpred 12977	. . . 4 ⊢ (((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) → 𝑏 ∈ ℝ)
5		simpllr 776	. . . . . . . 8 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑎 ≤ 𝑏) → 𝑏 ∈ ℝ+)
6	5	rpred 12977	. . . . . . 7 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑎 ≤ 𝑏) → 𝑏 ∈ ℝ)
7		0xr 11183	. . . . . . . . . 10 ⊢ 0 ∈ ℝ*
8	7	a1i 11	. . . . . . . . 9 ⊢ ((𝑏 ∈ ℝ ∧ 𝑎 ≤ 𝑏) → 0 ∈ ℝ*)
9		simpl 482	. . . . . . . . . 10 ⊢ ((𝑏 ∈ ℝ ∧ 𝑎 ≤ 𝑏) → 𝑏 ∈ ℝ)
10	9	rexrd 11186	. . . . . . . . 9 ⊢ ((𝑏 ∈ ℝ ∧ 𝑎 ≤ 𝑏) → 𝑏 ∈ ℝ*)
11		0le0 12273	. . . . . . . . . 10 ⊢ 0 ≤ 0
12	11	a1i 11	. . . . . . . . 9 ⊢ ((𝑏 ∈ ℝ ∧ 𝑎 ≤ 𝑏) → 0 ≤ 0)
13		simpr 484	. . . . . . . . 9 ⊢ ((𝑏 ∈ ℝ ∧ 𝑎 ≤ 𝑏) → 𝑎 ≤ 𝑏)
14		icossico 13360	. . . . . . . . 9 ⊢ (((0 ∈ ℝ* ∧ 𝑏 ∈ ℝ*) ∧ (0 ≤ 0 ∧ 𝑎 ≤ 𝑏)) → (0[,)𝑎) ⊆ (0[,)𝑏))
15	8, 10, 12, 13, 14	syl22anc 839	. . . . . . . 8 ⊢ ((𝑏 ∈ ℝ ∧ 𝑎 ≤ 𝑏) → (0[,)𝑎) ⊆ (0[,)𝑏))
16		imass2 6061	. . . . . . . 8 ⊢ ((0[,)𝑎) ⊆ (0[,)𝑏) → (◡𝐷 “ (0[,)𝑎)) ⊆ (◡𝐷 “ (0[,)𝑏)))
17	15, 16	syl 17	. . . . . . 7 ⊢ ((𝑏 ∈ ℝ ∧ 𝑎 ≤ 𝑏) → (◡𝐷 “ (0[,)𝑎)) ⊆ (◡𝐷 “ (0[,)𝑏)))
18	6, 17	sylancom 589	. . . . . 6 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑎 ≤ 𝑏) → (◡𝐷 “ (0[,)𝑎)) ⊆ (◡𝐷 “ (0[,)𝑏)))
19		simplrl 777	. . . . . 6 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑎 ≤ 𝑏) → 𝐴 = (◡𝐷 “ (0[,)𝑎)))
20		simplrr 778	. . . . . 6 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑎 ≤ 𝑏) → 𝐵 = (◡𝐷 “ (0[,)𝑏)))
21	18, 19, 20	3sstr4d 3978	. . . . 5 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑎 ≤ 𝑏) → 𝐴 ⊆ 𝐵)
22	21	orcd 874	. . . 4 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑎 ≤ 𝑏) → (𝐴 ⊆ 𝐵 ∨ 𝐵 ⊆ 𝐴))
23		simplll 775	. . . . . . . 8 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑏 ≤ 𝑎) → 𝑎 ∈ ℝ+)
24	23	rpred 12977	. . . . . . 7 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑏 ≤ 𝑎) → 𝑎 ∈ ℝ)
25	7	a1i 11	. . . . . . . . 9 ⊢ ((𝑎 ∈ ℝ ∧ 𝑏 ≤ 𝑎) → 0 ∈ ℝ*)
26		simpl 482	. . . . . . . . . 10 ⊢ ((𝑎 ∈ ℝ ∧ 𝑏 ≤ 𝑎) → 𝑎 ∈ ℝ)
27	26	rexrd 11186	. . . . . . . . 9 ⊢ ((𝑎 ∈ ℝ ∧ 𝑏 ≤ 𝑎) → 𝑎 ∈ ℝ*)
28	11	a1i 11	. . . . . . . . 9 ⊢ ((𝑎 ∈ ℝ ∧ 𝑏 ≤ 𝑎) → 0 ≤ 0)
29		simpr 484	. . . . . . . . 9 ⊢ ((𝑎 ∈ ℝ ∧ 𝑏 ≤ 𝑎) → 𝑏 ≤ 𝑎)
30		icossico 13360	. . . . . . . . 9 ⊢ (((0 ∈ ℝ* ∧ 𝑎 ∈ ℝ*) ∧ (0 ≤ 0 ∧ 𝑏 ≤ 𝑎)) → (0[,)𝑏) ⊆ (0[,)𝑎))
31	25, 27, 28, 29, 30	syl22anc 839	. . . . . . . 8 ⊢ ((𝑎 ∈ ℝ ∧ 𝑏 ≤ 𝑎) → (0[,)𝑏) ⊆ (0[,)𝑎))
32		imass2 6061	. . . . . . . 8 ⊢ ((0[,)𝑏) ⊆ (0[,)𝑎) → (◡𝐷 “ (0[,)𝑏)) ⊆ (◡𝐷 “ (0[,)𝑎)))
33	31, 32	syl 17	. . . . . . 7 ⊢ ((𝑎 ∈ ℝ ∧ 𝑏 ≤ 𝑎) → (◡𝐷 “ (0[,)𝑏)) ⊆ (◡𝐷 “ (0[,)𝑎)))
34	24, 33	sylancom 589	. . . . . 6 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑏 ≤ 𝑎) → (◡𝐷 “ (0[,)𝑏)) ⊆ (◡𝐷 “ (0[,)𝑎)))
35		simplrr 778	. . . . . 6 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑏 ≤ 𝑎) → 𝐵 = (◡𝐷 “ (0[,)𝑏)))
36		simplrl 777	. . . . . 6 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑏 ≤ 𝑎) → 𝐴 = (◡𝐷 “ (0[,)𝑎)))
37	34, 35, 36	3sstr4d 3978	. . . . 5 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑏 ≤ 𝑎) → 𝐵 ⊆ 𝐴)
38	37	olcd 875	. . . 4 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑏 ≤ 𝑎) → (𝐴 ⊆ 𝐵 ∨ 𝐵 ⊆ 𝐴))
39	2, 4, 22, 38	lecasei 11243	. . 3 ⊢ (((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) → (𝐴 ⊆ 𝐵 ∨ 𝐵 ⊆ 𝐴))
40	39	adantlll 719	. 2 ⊢ (((((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝐹 ∧ 𝐵 ∈ 𝐹) ∧ 𝑎 ∈ ℝ+) ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) → (𝐴 ⊆ 𝐵 ∨ 𝐵 ⊆ 𝐴))
41		metust.1	. . . . . 6 ⊢ 𝐹 = ran (𝑎 ∈ ℝ+ ↦ (◡𝐷 “ (0[,)𝑎)))
42	41	metustel 24525	. . . . 5 ⊢ (𝐷 ∈ (PsMet‘𝑋) → (𝐴 ∈ 𝐹 ↔ ∃𝑎 ∈ ℝ+ 𝐴 = (◡𝐷 “ (0[,)𝑎))))
43	42	biimpa 476	. . . 4 ⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝐹) → ∃𝑎 ∈ ℝ+ 𝐴 = (◡𝐷 “ (0[,)𝑎)))
44	43	3adant3 1133	. . 3 ⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝐹 ∧ 𝐵 ∈ 𝐹) → ∃𝑎 ∈ ℝ+ 𝐴 = (◡𝐷 “ (0[,)𝑎)))
45		oveq2 7368	. . . . . . . . . 10 ⊢ (𝑎 = 𝑏 → (0[,)𝑎) = (0[,)𝑏))
46	45	imaeq2d 6019	. . . . . . . . 9 ⊢ (𝑎 = 𝑏 → (◡𝐷 “ (0[,)𝑎)) = (◡𝐷 “ (0[,)𝑏)))
47	46	cbvmptv 5190	. . . . . . . 8 ⊢ (𝑎 ∈ ℝ+ ↦ (◡𝐷 “ (0[,)𝑎))) = (𝑏 ∈ ℝ+ ↦ (◡𝐷 “ (0[,)𝑏)))
48	47	rneqi 5886	. . . . . . 7 ⊢ ran (𝑎 ∈ ℝ+ ↦ (◡𝐷 “ (0[,)𝑎))) = ran (𝑏 ∈ ℝ+ ↦ (◡𝐷 “ (0[,)𝑏)))
49	41, 48	eqtri 2760	. . . . . 6 ⊢ 𝐹 = ran (𝑏 ∈ ℝ+ ↦ (◡𝐷 “ (0[,)𝑏)))
50	49	metustel 24525	. . . . 5 ⊢ (𝐷 ∈ (PsMet‘𝑋) → (𝐵 ∈ 𝐹 ↔ ∃𝑏 ∈ ℝ+ 𝐵 = (◡𝐷 “ (0[,)𝑏))))
51	50	biimpa 476	. . . 4 ⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐵 ∈ 𝐹) → ∃𝑏 ∈ ℝ+ 𝐵 = (◡𝐷 “ (0[,)𝑏)))
52	51	3adant2 1132	. . 3 ⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝐹 ∧ 𝐵 ∈ 𝐹) → ∃𝑏 ∈ ℝ+ 𝐵 = (◡𝐷 “ (0[,)𝑏)))
53		reeanv 3210	. . 3 ⊢ (∃𝑎 ∈ ℝ+ ∃𝑏 ∈ ℝ+ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏))) ↔ (∃𝑎 ∈ ℝ+ 𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ ∃𝑏 ∈ ℝ+ 𝐵 = (◡𝐷 “ (0[,)𝑏))))
54	44, 52, 53	sylanbrc 584	. 2 ⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝐹 ∧ 𝐵 ∈ 𝐹) → ∃𝑎 ∈ ℝ+ ∃𝑏 ∈ ℝ+ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏))))
55	40, 54	r19.29vva 3198	1 ⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝐹 ∧ 𝐵 ∈ 𝐹) → (𝐴 ⊆ 𝐵 ∨ 𝐵 ⊆ 𝐴))

Syntax hints:   → wi 4   ∧ wa 395   ∨ wo 848   ∧ w3a 1087   = wceq 1542   ∈ wcel 2114  ∃wrex 3062   ⊆ wss 3890   class class class wbr 5086   ↦ cmpt 5167  ^◡ccnv 5623  ran crn 5625   “ cima 5627  ‘cfv 6492  (class class class)co 7360  ℝcr 11028  0cc0 11029  ℝ^*cxr 11169   ≤ cle 11171  ℝ⁺crp 12933  [,)cico 13291  PsMetcpsmet 21328

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-sep 5231  ax-nul 5241  ax-pow 5302  ax-pr 5370  ax-un 7682  ax-cnex 11085  ax-resscn 11086  ax-1cn 11087  ax-addrcl 11090  ax-rnegex 11100  ax-cnre 11102  ax-pre-lttri 11103  ax-pre-lttrn 11104

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3063  df-rab 3391  df-v 3432  df-sbc 3730  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-op 4575  df-uni 4852  df-iun 4936  df-br 5087  df-opab 5149  df-mpt 5168  df-id 5519  df-po 5532  df-so 5533  df-xp 5630  df-rel 5631  df-cnv 5632  df-co 5633  df-dm 5634  df-rn 5635  df-res 5636  df-ima 5637  df-iota 6448  df-fun 6494  df-fn 6495  df-f 6496  df-f1 6497  df-fo 6498  df-f1o 6499  df-fv 6500  df-ov 7363  df-oprab 7364  df-mpo 7365  df-1st 7935  df-2nd 7936  df-er 8636  df-en 8887  df-dom 8888  df-sdom 8889  df-pnf 11172  df-mnf 11173  df-xr 11174  df-ltxr 11175  df-le 11176  df-rp 12934  df-ico 13295

This theorem is referenced by:  metustfbas  24532