Theorem metustto 24785

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 13090	. . . 4 ⊢ (((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) → 𝑎 ∈ ℝ)
3		simplr 781	. . . . 5 ⊢ (((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) → 𝑏 ∈ ℝ+)
4	3	rpred 13090	. . . 4 ⊢ (((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) → 𝑏 ∈ ℝ)
5		simpllr 788	. . . . . . . 8 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑎 ≤ 𝑏) → 𝑏 ∈ ℝ+)
6	5	rpred 13090	. . . . . . 7 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑎 ≤ 𝑏) → 𝑏 ∈ ℝ)
7		0xr 11284	. . . . . . . . . 10 ⊢ 0 ∈ ℝ*
8	7	a1i 11	. . . . . . . . 9 ⊢ ((𝑏 ∈ ℝ ∧ 𝑎 ≤ 𝑏) → 0 ∈ ℝ*)
9		simpl 488	. . . . . . . . . 10 ⊢ ((𝑏 ∈ ℝ ∧ 𝑎 ≤ 𝑏) → 𝑏 ∈ ℝ)
10	9	rexrd 11287	. . . . . . . . 9 ⊢ ((𝑏 ∈ ℝ ∧ 𝑎 ≤ 𝑏) → 𝑏 ∈ ℝ*)
11		0le0 12370	. . . . . . . . . 10 ⊢ 0 ≤ 0
12	11	a1i 11	. . . . . . . . 9 ⊢ ((𝑏 ∈ ℝ ∧ 𝑎 ≤ 𝑏) → 0 ≤ 0)
13		simpr 490	. . . . . . . . 9 ⊢ ((𝑏 ∈ ℝ ∧ 𝑎 ≤ 𝑏) → 𝑎 ≤ 𝑏)
14		icossico 13473	. . . . . . . . 9 ⊢ (((0 ∈ ℝ* ∧ 𝑏 ∈ ℝ*) ∧ (0 ≤ 0 ∧ 𝑎 ≤ 𝑏)) → (0[,)𝑎) ⊆ (0[,)𝑏))
15	8, 10, 12, 13, 14	syl22anc 852	. . . . . . . 8 ⊢ ((𝑏 ∈ ℝ ∧ 𝑎 ≤ 𝑏) → (0[,)𝑎) ⊆ (0[,)𝑏))
16		imass2 6102	. . . . . . . 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 3989	. . . . 5 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑎 ≤ 𝑏) → 𝐴 ⊆ 𝐵)
22	21	orcd 887	. . . 4 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑎 ≤ 𝑏) → (𝐴 ⊆ 𝐵 ∨ 𝐵 ⊆ 𝐴))
23		simplll 787	. . . . . . . 8 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑏 ≤ 𝑎) → 𝑎 ∈ ℝ+)
24	23	rpred 13090	. . . . . . 7 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑏 ≤ 𝑎) → 𝑎 ∈ ℝ)
25	7	a1i 11	. . . . . . . . 9 ⊢ ((𝑎 ∈ ℝ ∧ 𝑏 ≤ 𝑎) → 0 ∈ ℝ*)
26		simpl 488	. . . . . . . . . 10 ⊢ ((𝑎 ∈ ℝ ∧ 𝑏 ≤ 𝑎) → 𝑎 ∈ ℝ)
27	26	rexrd 11287	. . . . . . . . 9 ⊢ ((𝑎 ∈ ℝ ∧ 𝑏 ≤ 𝑎) → 𝑎 ∈ ℝ*)
28	11	a1i 11	. . . . . . . . 9 ⊢ ((𝑎 ∈ ℝ ∧ 𝑏 ≤ 𝑎) → 0 ≤ 0)
29		simpr 490	. . . . . . . . 9 ⊢ ((𝑎 ∈ ℝ ∧ 𝑏 ≤ 𝑎) → 𝑏 ≤ 𝑎)
30		icossico 13473	. . . . . . . . 9 ⊢ (((0 ∈ ℝ* ∧ 𝑎 ∈ ℝ*) ∧ (0 ≤ 0 ∧ 𝑏 ≤ 𝑎)) → (0[,)𝑏) ⊆ (0[,)𝑎))
31	25, 27, 28, 29, 30	syl22anc 852	. . . . . . . 8 ⊢ ((𝑎 ∈ ℝ ∧ 𝑏 ≤ 𝑎) → (0[,)𝑏) ⊆ (0[,)𝑎))
32		imass2 6102	. . . . . . . 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 3989	. . . . 5 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑏 ≤ 𝑎) → 𝐵 ⊆ 𝐴)
38	37	olcd 888	. . . 4 ⊢ ((((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) ∧ 𝑏 ≤ 𝑎) → (𝐴 ⊆ 𝐵 ∨ 𝐵 ⊆ 𝐴))
39	2, 4, 22, 38	lecasei 11344	. . 3 ⊢ (((𝑎 ∈ ℝ+ ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) → (𝐴 ⊆ 𝐵 ∨ 𝐵 ⊆ 𝐴))
40	39	adantlll 731	. 2 ⊢ (((((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝐹 ∧ 𝐵 ∈ 𝐹) ∧ 𝑎 ∈ ℝ+) ∧ 𝑏 ∈ ℝ+) ∧ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏)))) → (𝐴 ⊆ 𝐵 ∨ 𝐵 ⊆ 𝐴))
41		metust.1	. . . . . 6 ⊢ 𝐹 = ran (𝑎 ∈ ℝ+ ↦ (◡𝐷 “ (0[,)𝑎)))
42	41	metustel 24782	. . . . 5 ⊢ (𝐷 ∈ (PsMet‘𝑋) → (𝐴 ∈ 𝐹 ↔ ∃𝑎 ∈ ℝ+ 𝐴 = (◡𝐷 “ (0[,)𝑎))))
43	42	biimpa 482	. . . 4 ⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝐹) → ∃𝑎 ∈ ℝ+ 𝐴 = (◡𝐷 “ (0[,)𝑎)))
44	43	3adant3 1150	. . 3 ⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝐹 ∧ 𝐵 ∈ 𝐹) → ∃𝑎 ∈ ℝ+ 𝐴 = (◡𝐷 “ (0[,)𝑎)))
45		oveq2 7425	. . . . . . . . . 10 ⊢ (𝑎 = 𝑏 → (0[,)𝑎) = (0[,)𝑏))
46	45	imaeq2d 6060	. . . . . . . . 9 ⊢ (𝑎 = 𝑏 → (◡𝐷 “ (0[,)𝑎)) = (◡𝐷 “ (0[,)𝑏)))
47	46	cbvmptv 5213	. . . . . . . 8 ⊢ (𝑎 ∈ ℝ+ ↦ (◡𝐷 “ (0[,)𝑎))) = (𝑏 ∈ ℝ+ ↦ (◡𝐷 “ (0[,)𝑏)))
48	47	rneqi 5925	. . . . . . 7 ⊢ ran (𝑎 ∈ ℝ+ ↦ (◡𝐷 “ (0[,)𝑎))) = ran (𝑏 ∈ ℝ+ ↦ (◡𝐷 “ (0[,)𝑏)))
49	41, 48	eqtri 2785	. . . . . 6 ⊢ 𝐹 = ran (𝑏 ∈ ℝ+ ↦ (◡𝐷 “ (0[,)𝑏)))
50	49	metustel 24782	. . . . 5 ⊢ (𝐷 ∈ (PsMet‘𝑋) → (𝐵 ∈ 𝐹 ↔ ∃𝑏 ∈ ℝ+ 𝐵 = (◡𝐷 “ (0[,)𝑏))))
51	50	biimpa 482	. . . 4 ⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐵 ∈ 𝐹) → ∃𝑏 ∈ ℝ+ 𝐵 = (◡𝐷 “ (0[,)𝑏)))
52	51	3adant2 1149	. . 3 ⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝐹 ∧ 𝐵 ∈ 𝐹) → ∃𝑏 ∈ ℝ+ 𝐵 = (◡𝐷 “ (0[,)𝑏)))
53		reeanv 3236	. . 3 ⊢ (∃𝑎 ∈ ℝ+ ∃𝑏 ∈ ℝ+ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏))) ↔ (∃𝑎 ∈ ℝ+ 𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ ∃𝑏 ∈ ℝ+ 𝐵 = (◡𝐷 “ (0[,)𝑏))))
54	44, 52, 53	sylanbrc 595	. 2 ⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝐹 ∧ 𝐵 ∈ 𝐹) → ∃𝑎 ∈ ℝ+ ∃𝑏 ∈ ℝ+ (𝐴 = (◡𝐷 “ (0[,)𝑎)) ∧ 𝐵 = (◡𝐷 “ (0[,)𝑏))))
55	40, 54	r19.29vva 3224	1 ⊢ ((𝐷 ∈ (PsMet‘𝑋) ∧ 𝐴 ∈ 𝐹 ∧ 𝐵 ∈ 𝐹) → (𝐴 ⊆ 𝐵 ∨ 𝐵 ⊆ 𝐴))

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   ∨ wo 861   ∧ w3a 1103   = wceq 1570   ∈ wcel 2145  ∃wrex 3088   ⊆ wss 3902   class class class wbr 5107   ↦ cmpt 5190  ^◡ccnv 5658  ran crn 5660   “ cima 5662  ‘cfv 6537  (class class class)co 7417  ℝcr 11127  0cc0 11128  ℝ^*cxr 11270   ≤ cle 11272  ℝ⁺crp 13046  [,)cico 13404  PsMetcpsmet 21575

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2215  ax-ext 2734  ax-sep 5255  ax-nul 5267  ax-pow 5334  ax-pr 5402  ax-un 7740  ax-cnex 11184  ax-resscn 11185  ax-1cn 11186  ax-addrcl 11189  ax-rnegex 11199  ax-cnre 11201  ax-pre-lttri 11202  ax-pre-lttrn 11203

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2566  df-eu 2596  df-clab 2741  df-cleq 2754  df-clel 2837  df-nfc 2911  df-ne 2958  df-nel 3064  df-ral 3079  df-rex 3089  df-rab 3415  df-v 3455  df-sbc 3743  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-nul 4283  df-if 4486  df-pw 4562  df-sn 4588  df-pr 4590  df-op 4594  df-uni 4871  df-iun 4956  df-br 5108  df-opab 5172  df-mpt 5191  df-id 5554  df-po 5567  df-so 5568  df-xp 5665  df-rel 5666  df-cnv 5667  df-co 5668  df-dm 5669  df-rn 5670  df-res 5671  df-ima 5672  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-ov 7420  df-oprab 7421  df-mpo 7422  df-1st 7990  df-2nd 7991  df-er 8700  df-en 8957  df-dom 8958  df-sdom 8959  df-pnf 11273  df-mnf 11274  df-xr 11275  df-ltxr 11276  df-le 11277  df-rp 13047  df-ico 13408

This theorem is used by:  metustfbas  24789