Theorem metustto 24877

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 779	. . . . 5 ⊢ (((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) → 𝑎 ∈ ℝ+)
2	1	rpred 13167	. . . 4 ⊢ (((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) → 𝑎 ∈ ℝ)
3		simplr 781	. . . . 5 ⊢ (((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) → 𝑏 ∈ ℝ+)
4	3	rpred 13167	. . . 4 ⊢ (((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) → 𝑏 ∈ ℝ)
5		simpllr 788	. . . . . . . 8 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑎 ≤ 𝑏) → 𝑏 ∈ ℝ+)
6	5	rpred 13167	. . . . . . 7 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑎 ≤ 𝑏) → 𝑏 ∈ ℝ)
7		0xr 11359	. . . . . . . . . 10 ⊢ 0 ∈ ℝ*
8	7	a1i 11	. . . . . . . . 9 ⊢ ((𝑏 ∈ ℝ ∧ 𝑎 ≤ 𝑏) → 0 ∈ ℝ*)
9		simpl 488	. . . . . . . . . 10 ⊢ ((𝑏 ∈ ℝ ∧ 𝑎 ≤ 𝑏) → 𝑏 ∈ ℝ)
10	9	rexrd 11362	. . . . . . . . 9 ⊢ ((𝑏 ∈ ℝ ∧ 𝑎 ≤ 𝑏) → 𝑏 ∈ ℝ*)
11		0le0 12447	. . . . . . . . . 10 ⊢ 0 ≤ 0
12	11	a1i 11	. . . . . . . . 9 ⊢ ((𝑏 ∈ ℝ ∧ 𝑎 ≤ 𝑏) → 0 ≤ 0)
13		simpr 490	. . . . . . . . 9 ⊢ ((𝑏 ∈ ℝ ∧ 𝑎 ≤ 𝑏) → 𝑎 ≤ 𝑏)
14		icossico 13550	. . . . . . . . 9 ⊢ (((0 ∈ ℝ* ∧ 𝑏 ∈ ℝ*) ∧ (0 ≤ 0 ∧ 𝑎 ≤ 𝑏)) → (0[,)𝑎) ⊆ (0[,)𝑏))
15	8, 10, 12, 13, 14	syl22anc 852	. . . . . . . 8 ⊢ ((𝑏 ∈ ℝ ∧ 𝑎 ≤ 𝑏) → (0[,)𝑎) ⊆ (0[,)𝑏))
16		imass2 6054	. . . . . . . 8 ⊢ ((0[,)𝑎) ⊆ (0[,)𝑏) → (◡𝐷 “ (0[,)𝑎)) ⊆ (◡𝐷 “ (0[,)𝑏)))
17	15, 16	syl 18	. . . . . . 7 ⊢ ((𝑏 ∈ ℝ ∧ 𝑎 ≤ 𝑏) → (◡𝐷 “ (0[,)𝑎)) ⊆ (◡𝐷 “ (0[,)𝑏)))
18	6, 17	sylancom 600	. . . . . 6 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑎 ≤ 𝑏) → (◡𝐷 “ (0[,)𝑎)) ⊆ (◡𝐷 “ (0[,)𝑏)))
19		simplrl 789	. . . . . 6 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑎 ≤ 𝑏) → 𝐴 = (◡𝐷 “ (0[,)𝑎)))
20		simplrr 790	. . . . . 6 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑎 ≤ 𝑏) → 𝐵 = (◡𝐷 “ (0[,)𝑏)))
21	18, 19, 20	3sstr4d 3963	. . . . 5 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑎 ≤ 𝑏) → 𝐴 ⊆ 𝐵)
22	21	orcd 887	. . . 4 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑎 ≤ 𝑏) → (𝐴 ⊆ 𝐵 ∨ 𝐵 ⊆ 𝐴))
23		simplll 787	. . . . . . . 8 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑏 ≤ 𝑎) → 𝑎 ∈ ℝ+)
24	23	rpred 13167	. . . . . . 7 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑏 ≤ 𝑎) → 𝑎 ∈ ℝ)
25	7	a1i 11	. . . . . . . . 9 ⊢ ((𝑎 ∈ ℝ ∧ 𝑏 ≤ 𝑎) → 0 ∈ ℝ*)
26		simpl 488	. . . . . . . . . 10 ⊢ ((𝑎 ∈ ℝ ∧ 𝑏 ≤ 𝑎) → 𝑎 ∈ ℝ)
27	26	rexrd 11362	. . . . . . . . 9 ⊢ ((𝑎 ∈ ℝ ∧ 𝑏 ≤ 𝑎) → 𝑎 ∈ ℝ*)
28	11	a1i 11	. . . . . . . . 9 ⊢ ((𝑎 ∈ ℝ ∧ 𝑏 ≤ 𝑎) → 0 ≤ 0)
29		simpr 490	. . . . . . . . 9 ⊢ ((𝑎 ∈ ℝ ∧ 𝑏 ≤ 𝑎) → 𝑏 ≤ 𝑎)
30		icossico 13550	. . . . . . . . 9 ⊢ (((0 ∈ ℝ* ∧ 𝑎 ∈ ℝ*) ∧ (0 ≤ 0 ∧ 𝑏 ≤ 𝑎)) → (0[,)𝑏) ⊆ (0[,)𝑎))
31	25, 27, 28, 29, 30	syl22anc 852	. . . . . . . 8 ⊢ ((𝑎 ∈ ℝ ∧ 𝑏 ≤ 𝑎) → (0[,)𝑏) ⊆ (0[,)𝑎))
32		imass2 6054	. . . . . . . 8 ⊢ ((0[,)𝑏) ⊆ (0[,)𝑎) → (◡𝐷 “ (0[,)𝑏)) ⊆ (◡𝐷 “ (0[,)𝑎)))
33	31, 32	syl 18	. . . . . . 7 ⊢ ((𝑎 ∈ ℝ ∧ 𝑏 ≤ 𝑎) → (◡𝐷 “ (0[,)𝑏)) ⊆ (◡𝐷 “ (0[,)𝑎)))
34	24, 33	sylancom 600	. . . . . 6 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑏 ≤ 𝑎) → (◡𝐷 “ (0[,)𝑏)) ⊆ (◡𝐷 “ (0[,)𝑎)))
35		simplrr 790	. . . . . 6 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑏 ≤ 𝑎) → 𝐵 = (◡𝐷 “ (0[,)𝑏)))
36		simplrl 789	. . . . . 6 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑏 ≤ 𝑎) → 𝐴 = (◡𝐷 “ (0[,)𝑎)))
37	34, 35, 36	3sstr4d 3963	. . . . 5 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑏 ≤ 𝑎) → 𝐵 ⊆ 𝐴)
38	37	olcd 888	. . . 4 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑏 ≤ 𝑎) → (𝐴 ⊆ 𝐵 ∨ 𝐵 ⊆ 𝐴))
39	2, 4, 22, 38	lecasei 11419	. . 3 ⊢ (((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) → (𝐴 ⊆ 𝐵 ∨ 𝐵 ⊆ 𝐴))
40	39	adantlll 731	. 2 ⊢ (((((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝐹 ∧ 𝐵 ∈ 𝐹) ∧ 𝑎 ∈ ℝ+) ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) → (𝐴 ⊆ 𝐵 ∨ 𝐵 ⊆ 𝐴))
41		metust.1	. . . . . 6 ⊢ 𝐹 = ran (𝑎 ∈ ℝ+ ↦ (◡𝐷 “ (0[,)𝑎)))
42	41	metustel 24874	. . . . 5 ⊢ (𝐷 ∈ (PsMet‘𝑋) → (𝐴 ∈ 𝐹 ↔ ∃𝑎 ∈ ℝ+ 𝐴 = (◡𝐷 “ (0[,)𝑎))))
43	42	biimpa 482	. . . 4 ⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝐹) → ∃𝑎 ∈ ℝ+ 𝐴 = (◡𝐷 “ (0[,)𝑎)))
44	43	3adant3 1150	. . 3 ⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝐹 ∧ 𝐵 ∈ 𝐹) → ∃𝑎 ∈ ℝ+ 𝐴 = (◡𝐷 “ (0[,)𝑎)))
45		oveq2 7428	. . . . . . . . . 10 ⊢ (𝑎 = 𝑏 → (0[,)𝑎) = (0[,)𝑏))
46	45	imaeq2d 6051	. . . . . . . . 9 ⊢ (𝑎 = 𝑏 → (◡𝐷 “ (0[,)𝑎)) = (◡𝐷 “ (0[,)𝑏)))
47	46	cbvmptv 5208	. . . . . . . 8 ⊢ (𝑎 ∈ ℝ+ ↦ (◡𝐷 “ (0[,)𝑎))) = (𝑏 ∈ ℝ+ ↦ (◡𝐷 “ (0[,)𝑏)))
48	47	rneqi 5918	. . . . . . 7 ⊢ ran (𝑎 ∈ ℝ+ ↦ (◡𝐷 “ (0[,)𝑎))) = ran (𝑏 ∈ ℝ+ ↦ (◡𝐷 “ (0[,)𝑏)))
49	41, 48	eqtri 2783	. . . . . 6 ⊢ 𝐹 = ran (𝑏 ∈ ℝ+ ↦ (◡𝐷 “ (0[,)𝑏)))
50	49	metustel 24874	. . . . 5 ⊢ (𝐷 ∈ (PsMet‘𝑋) → (𝐵 ∈ 𝐹 ↔ ∃𝑏 ∈ ℝ+ 𝐵 = (◡𝐷 “ (0[,)𝑏))))
51	50	biimpa 482	. . . 4 ⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐵 ∈ 𝐹) → ∃𝑏 ∈ ℝ+ 𝐵 = (◡𝐷 “ (0[,)𝑏)))
52	51	3adant2 1149	. . 3 ⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝐹 ∧ 𝐵 ∈ 𝐹) → ∃𝑏 ∈ ℝ+ 𝐵 = (◡𝐷 “ (0[,)𝑏)))
53		reeanv 3234	. . 3 ⊢ (∃𝑎 ∈ ℝ+ ∃𝑏 ∈ ℝ+ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏))) ↔ (∃𝑎 ∈ ℝ+ 𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ ∃𝑏 ∈ ℝ+ 𝐵 = (◡𝐷 “ (0[,)𝑏))))
54	44, 52, 53	sylanbrc 595	. 2 ⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝐹 ∧ 𝐵 ∈ 𝐹) → ∃𝑎 ∈ ℝ+ ∃𝑏 ∈ ℝ+ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏))))
55	40, 54	r19.29vva 3222	1 ⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝐹 ∧ 𝐵 ∈ 𝐹) → (𝐴 ⊆ 𝐵 ∨ 𝐵 ⊆ 𝐴))

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   ∨ wo 861   ∧ w3a 1103   = wceq 1569   ∈ wcel 2144  ∃wrex 3086   ⊆ wss 3895   class class class wbr 5102   ↦ cmpt 5185  ^◡ccnv 5649  ran crn 5651   “ cima 5653  ‘cfv 6538  (class class class)co 7420  ℝcr 11202  0cc0 11203  ℝ^*cxr 11345   ≤ cle 11347  ℝ⁺crp 13123  [,)cico 13481  PsMetcpsmet 21667

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 1942  ax-6 1999  ax-7 2040  ax-8 2146  ax-9 2154  ax-10 2177  ax-11 2193  ax-12 2212  ax-ext 2732  ax-sep 5248  ax-nul 5259  ax-pow 5326  ax-pr 5390  ax-un 7751  ax-cnex 11259  ax-resscn 11260  ax-1cn 11261  ax-addrcl 11264  ax-rnegex 11274  ax-cnre 11276  ax-pre-lttri 11277  ax-pre-lttrn 11278

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 2099  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-nel 3062  df-ral 3077  df-rex 3087  df-rab 3413  df-v 3452  df-sbc 3739  df-csb 3847  df-ss 3896  df-dif 4047  df-in 4091  df-un 4151  df-nul 4279  df-if 4482  df-pw 4558  df-sn 4585  df-pr 4587  df-op 4835  df-uni 4867  df-iun 4952  df-br 5103  df-opab 5167  df-mpt 5186  df-id 5545  df-po 5558  df-so 5559  df-xp 5656  df-rel 5657  df-cnv 5658  df-co 5659  df-dm 5660  df-rn 5661  df-res 5662  df-ima 5663  df-iota 6494  df-fun 6540  df-fn 6541  df-f 6542  df-f1 6543  df-fo 6544  df-f1o 6545  df-fv 6546  df-ov 7423  df-oprab 7424  df-mpo 7425  df-1st 8001  df-2nd 8002  df-er 8720  df-en 8977  df-dom 8978  df-sdom 8979  df-pnf 11348  df-mnf 11349  df-xr 11350  df-ltxr 11351  df-le 11352  df-rp 13124  df-ico 13485

This theorem is used by:  metustfbas  24881