MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  xrsxmet Structured version   Visualization version   GIF version

Theorem xrsxmet 22811
Description: The metric on the extended reals is a proper extended metric. (Contributed by Mario Carneiro, 4-Sep-2015.)
Hypothesis
Ref Expression
xrsxmet.1 𝐷 = (dist‘ℝ*𝑠)
Assertion
Ref Expression
xrsxmet 𝐷 ∈ (∞Met‘ℝ*)

Proof of Theorem xrsxmet
Dummy variables 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 xrex 12020 . . . 4 * ∈ V
21a1i 11 . . 3 (⊤ → ℝ* ∈ V)
3 id 22 . . . . . . . 8 (𝑦 ∈ ℝ*𝑦 ∈ ℝ*)
4 xnegcl 12235 . . . . . . . 8 (𝑥 ∈ ℝ* → -𝑒𝑥 ∈ ℝ*)
5 xaddcl 12261 . . . . . . . 8 ((𝑦 ∈ ℝ* ∧ -𝑒𝑥 ∈ ℝ*) → (𝑦 +𝑒 -𝑒𝑥) ∈ ℝ*)
63, 4, 5syl2anr 496 . . . . . . 7 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) → (𝑦 +𝑒 -𝑒𝑥) ∈ ℝ*)
7 xnegcl 12235 . . . . . . . 8 (𝑦 ∈ ℝ* → -𝑒𝑦 ∈ ℝ*)
8 xaddcl 12261 . . . . . . . 8 ((𝑥 ∈ ℝ* ∧ -𝑒𝑦 ∈ ℝ*) → (𝑥 +𝑒 -𝑒𝑦) ∈ ℝ*)
97, 8sylan2 492 . . . . . . 7 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) → (𝑥 +𝑒 -𝑒𝑦) ∈ ℝ*)
106, 9ifcld 4273 . . . . . 6 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) → if(𝑥𝑦, (𝑦 +𝑒 -𝑒𝑥), (𝑥 +𝑒 -𝑒𝑦)) ∈ ℝ*)
1110rgen2a 3113 . . . . 5 𝑥 ∈ ℝ*𝑦 ∈ ℝ* if(𝑥𝑦, (𝑦 +𝑒 -𝑒𝑥), (𝑥 +𝑒 -𝑒𝑦)) ∈ ℝ*
12 xrsxmet.1 . . . . . . 7 𝐷 = (dist‘ℝ*𝑠)
1312xrsds 19989 . . . . . 6 𝐷 = (𝑥 ∈ ℝ*, 𝑦 ∈ ℝ* ↦ if(𝑥𝑦, (𝑦 +𝑒 -𝑒𝑥), (𝑥 +𝑒 -𝑒𝑦)))
1413fmpt2 7403 . . . . 5 (∀𝑥 ∈ ℝ*𝑦 ∈ ℝ* if(𝑥𝑦, (𝑦 +𝑒 -𝑒𝑥), (𝑥 +𝑒 -𝑒𝑦)) ∈ ℝ*𝐷:(ℝ* × ℝ*)⟶ℝ*)
1511, 14mpbi 220 . . . 4 𝐷:(ℝ* × ℝ*)⟶ℝ*
1615a1i 11 . . 3 (⊤ → 𝐷:(ℝ* × ℝ*)⟶ℝ*)
17 breq2 4806 . . . . . 6 ((𝑦 +𝑒 -𝑒𝑥) = if(𝑥𝑦, (𝑦 +𝑒 -𝑒𝑥), (𝑥 +𝑒 -𝑒𝑦)) → (0 ≤ (𝑦 +𝑒 -𝑒𝑥) ↔ 0 ≤ if(𝑥𝑦, (𝑦 +𝑒 -𝑒𝑥), (𝑥 +𝑒 -𝑒𝑦))))
18 breq2 4806 . . . . . 6 ((𝑥 +𝑒 -𝑒𝑦) = if(𝑥𝑦, (𝑦 +𝑒 -𝑒𝑥), (𝑥 +𝑒 -𝑒𝑦)) → (0 ≤ (𝑥 +𝑒 -𝑒𝑦) ↔ 0 ≤ if(𝑥𝑦, (𝑦 +𝑒 -𝑒𝑥), (𝑥 +𝑒 -𝑒𝑦))))
19 xsubge0 12282 . . . . . . . 8 ((𝑦 ∈ ℝ*𝑥 ∈ ℝ*) → (0 ≤ (𝑦 +𝑒 -𝑒𝑥) ↔ 𝑥𝑦))
2019ancoms 468 . . . . . . 7 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) → (0 ≤ (𝑦 +𝑒 -𝑒𝑥) ↔ 𝑥𝑦))
2120biimpar 503 . . . . . 6 (((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ 𝑥𝑦) → 0 ≤ (𝑦 +𝑒 -𝑒𝑥))
22 xrletri 12175 . . . . . . . 8 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) → (𝑥𝑦𝑦𝑥))
2322orcanai 990 . . . . . . 7 (((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ ¬ 𝑥𝑦) → 𝑦𝑥)
24 xsubge0 12282 . . . . . . . 8 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) → (0 ≤ (𝑥 +𝑒 -𝑒𝑦) ↔ 𝑦𝑥))
2524biimpar 503 . . . . . . 7 (((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ 𝑦𝑥) → 0 ≤ (𝑥 +𝑒 -𝑒𝑦))
2623, 25syldan 488 . . . . . 6 (((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ ¬ 𝑥𝑦) → 0 ≤ (𝑥 +𝑒 -𝑒𝑦))
2717, 18, 21, 26ifbothda 4265 . . . . 5 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) → 0 ≤ if(𝑥𝑦, (𝑦 +𝑒 -𝑒𝑥), (𝑥 +𝑒 -𝑒𝑦)))
2812xrsdsval 19990 . . . . 5 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) → (𝑥𝐷𝑦) = if(𝑥𝑦, (𝑦 +𝑒 -𝑒𝑥), (𝑥 +𝑒 -𝑒𝑦)))
2927, 28breqtrrd 4830 . . . 4 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) → 0 ≤ (𝑥𝐷𝑦))
3029adantl 473 . . 3 ((⊤ ∧ (𝑥 ∈ ℝ*𝑦 ∈ ℝ*)) → 0 ≤ (𝑥𝐷𝑦))
3129biantrud 529 . . . . 5 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) → ((𝑥𝐷𝑦) ≤ 0 ↔ ((𝑥𝐷𝑦) ≤ 0 ∧ 0 ≤ (𝑥𝐷𝑦))))
3228, 10eqeltrd 2837 . . . . . 6 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) → (𝑥𝐷𝑦) ∈ ℝ*)
33 0xr 10276 . . . . . 6 0 ∈ ℝ*
34 xrletri3 12176 . . . . . 6 (((𝑥𝐷𝑦) ∈ ℝ* ∧ 0 ∈ ℝ*) → ((𝑥𝐷𝑦) = 0 ↔ ((𝑥𝐷𝑦) ≤ 0 ∧ 0 ≤ (𝑥𝐷𝑦))))
3532, 33, 34sylancl 697 . . . . 5 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) → ((𝑥𝐷𝑦) = 0 ↔ ((𝑥𝐷𝑦) ≤ 0 ∧ 0 ≤ (𝑥𝐷𝑦))))
36 simpr 479 . . . . . . . 8 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ (𝑥𝐷𝑦) = 0) ∧ 𝑥 = 𝑦) → 𝑥 = 𝑦)
37 simplr 809 . . . . . . . . . . . . 13 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ (𝑥𝐷𝑦) = 0) ∧ 𝑥𝑦) → (𝑥𝐷𝑦) = 0)
38 0re 10230 . . . . . . . . . . . . 13 0 ∈ ℝ
3937, 38syl6eqel 2845 . . . . . . . . . . . 12 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ (𝑥𝐷𝑦) = 0) ∧ 𝑥𝑦) → (𝑥𝐷𝑦) ∈ ℝ)
4012xrsdsreclb 19993 . . . . . . . . . . . . . 14 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑥𝑦) → ((𝑥𝐷𝑦) ∈ ℝ ↔ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)))
41403expa 1112 . . . . . . . . . . . . 13 (((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ 𝑥𝑦) → ((𝑥𝐷𝑦) ∈ ℝ ↔ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)))
4241adantlr 753 . . . . . . . . . . . 12 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ (𝑥𝐷𝑦) = 0) ∧ 𝑥𝑦) → ((𝑥𝐷𝑦) ∈ ℝ ↔ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)))
4339, 42mpbid 222 . . . . . . . . . . 11 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ (𝑥𝐷𝑦) = 0) ∧ 𝑥𝑦) → (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ))
4443simpld 477 . . . . . . . . . 10 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ (𝑥𝐷𝑦) = 0) ∧ 𝑥𝑦) → 𝑥 ∈ ℝ)
4544recnd 10258 . . . . . . . . 9 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ (𝑥𝐷𝑦) = 0) ∧ 𝑥𝑦) → 𝑥 ∈ ℂ)
4643simprd 482 . . . . . . . . . 10 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ (𝑥𝐷𝑦) = 0) ∧ 𝑥𝑦) → 𝑦 ∈ ℝ)
4746recnd 10258 . . . . . . . . 9 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ (𝑥𝐷𝑦) = 0) ∧ 𝑥𝑦) → 𝑦 ∈ ℂ)
48 rexsub 12255 . . . . . . . . . . 11 ((𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ) → (𝑥 +𝑒 -𝑒𝑦) = (𝑥𝑦))
4943, 48syl 17 . . . . . . . . . 10 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ (𝑥𝐷𝑦) = 0) ∧ 𝑥𝑦) → (𝑥 +𝑒 -𝑒𝑦) = (𝑥𝑦))
5028eqeq1d 2760 . . . . . . . . . . . . 13 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) → ((𝑥𝐷𝑦) = 0 ↔ if(𝑥𝑦, (𝑦 +𝑒 -𝑒𝑥), (𝑥 +𝑒 -𝑒𝑦)) = 0))
5150biimpa 502 . . . . . . . . . . . 12 (((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ (𝑥𝐷𝑦) = 0) → if(𝑥𝑦, (𝑦 +𝑒 -𝑒𝑥), (𝑥 +𝑒 -𝑒𝑦)) = 0)
5251adantr 472 . . . . . . . . . . 11 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ (𝑥𝐷𝑦) = 0) ∧ 𝑥𝑦) → if(𝑥𝑦, (𝑦 +𝑒 -𝑒𝑥), (𝑥 +𝑒 -𝑒𝑦)) = 0)
53 xneg11 12237 . . . . . . . . . . . . . . 15 (((𝑦 +𝑒 -𝑒𝑥) ∈ ℝ* ∧ 0 ∈ ℝ*) → (-𝑒(𝑦 +𝑒 -𝑒𝑥) = -𝑒0 ↔ (𝑦 +𝑒 -𝑒𝑥) = 0))
546, 33, 53sylancl 697 . . . . . . . . . . . . . 14 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) → (-𝑒(𝑦 +𝑒 -𝑒𝑥) = -𝑒0 ↔ (𝑦 +𝑒 -𝑒𝑥) = 0))
55 simpr 479 . . . . . . . . . . . . . . . . 17 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) → 𝑦 ∈ ℝ*)
564adantr 472 . . . . . . . . . . . . . . . . 17 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) → -𝑒𝑥 ∈ ℝ*)
57 xnegdi 12269 . . . . . . . . . . . . . . . . 17 ((𝑦 ∈ ℝ* ∧ -𝑒𝑥 ∈ ℝ*) → -𝑒(𝑦 +𝑒 -𝑒𝑥) = (-𝑒𝑦 +𝑒 -𝑒-𝑒𝑥))
5855, 56, 57syl2anc 696 . . . . . . . . . . . . . . . 16 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) → -𝑒(𝑦 +𝑒 -𝑒𝑥) = (-𝑒𝑦 +𝑒 -𝑒-𝑒𝑥))
59 xnegneg 12236 . . . . . . . . . . . . . . . . . 18 (𝑥 ∈ ℝ* → -𝑒-𝑒𝑥 = 𝑥)
6059adantr 472 . . . . . . . . . . . . . . . . 17 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) → -𝑒-𝑒𝑥 = 𝑥)
6160oveq2d 6827 . . . . . . . . . . . . . . . 16 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) → (-𝑒𝑦 +𝑒 -𝑒-𝑒𝑥) = (-𝑒𝑦 +𝑒 𝑥))
627adantl 473 . . . . . . . . . . . . . . . . 17 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) → -𝑒𝑦 ∈ ℝ*)
63 simpl 474 . . . . . . . . . . . . . . . . 17 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) → 𝑥 ∈ ℝ*)
64 xaddcom 12262 . . . . . . . . . . . . . . . . 17 ((-𝑒𝑦 ∈ ℝ*𝑥 ∈ ℝ*) → (-𝑒𝑦 +𝑒 𝑥) = (𝑥 +𝑒 -𝑒𝑦))
6562, 63, 64syl2anc 696 . . . . . . . . . . . . . . . 16 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) → (-𝑒𝑦 +𝑒 𝑥) = (𝑥 +𝑒 -𝑒𝑦))
6658, 61, 653eqtrd 2796 . . . . . . . . . . . . . . 15 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) → -𝑒(𝑦 +𝑒 -𝑒𝑥) = (𝑥 +𝑒 -𝑒𝑦))
67 xneg0 12234 . . . . . . . . . . . . . . . 16 -𝑒0 = 0
6867a1i 11 . . . . . . . . . . . . . . 15 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) → -𝑒0 = 0)
6966, 68eqeq12d 2773 . . . . . . . . . . . . . 14 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) → (-𝑒(𝑦 +𝑒 -𝑒𝑥) = -𝑒0 ↔ (𝑥 +𝑒 -𝑒𝑦) = 0))
7054, 69bitr3d 270 . . . . . . . . . . . . 13 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) → ((𝑦 +𝑒 -𝑒𝑥) = 0 ↔ (𝑥 +𝑒 -𝑒𝑦) = 0))
7170ad2antrr 764 . . . . . . . . . . . 12 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ (𝑥𝐷𝑦) = 0) ∧ 𝑥𝑦) → ((𝑦 +𝑒 -𝑒𝑥) = 0 ↔ (𝑥 +𝑒 -𝑒𝑦) = 0))
72 biidd 252 . . . . . . . . . . . 12 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ (𝑥𝐷𝑦) = 0) ∧ 𝑥𝑦) → ((𝑥 +𝑒 -𝑒𝑦) = 0 ↔ (𝑥 +𝑒 -𝑒𝑦) = 0))
73 eqeq1 2762 . . . . . . . . . . . . . 14 ((𝑦 +𝑒 -𝑒𝑥) = if(𝑥𝑦, (𝑦 +𝑒 -𝑒𝑥), (𝑥 +𝑒 -𝑒𝑦)) → ((𝑦 +𝑒 -𝑒𝑥) = 0 ↔ if(𝑥𝑦, (𝑦 +𝑒 -𝑒𝑥), (𝑥 +𝑒 -𝑒𝑦)) = 0))
7473bibi1d 332 . . . . . . . . . . . . 13 ((𝑦 +𝑒 -𝑒𝑥) = if(𝑥𝑦, (𝑦 +𝑒 -𝑒𝑥), (𝑥 +𝑒 -𝑒𝑦)) → (((𝑦 +𝑒 -𝑒𝑥) = 0 ↔ (𝑥 +𝑒 -𝑒𝑦) = 0) ↔ (if(𝑥𝑦, (𝑦 +𝑒 -𝑒𝑥), (𝑥 +𝑒 -𝑒𝑦)) = 0 ↔ (𝑥 +𝑒 -𝑒𝑦) = 0)))
75 eqeq1 2762 . . . . . . . . . . . . . 14 ((𝑥 +𝑒 -𝑒𝑦) = if(𝑥𝑦, (𝑦 +𝑒 -𝑒𝑥), (𝑥 +𝑒 -𝑒𝑦)) → ((𝑥 +𝑒 -𝑒𝑦) = 0 ↔ if(𝑥𝑦, (𝑦 +𝑒 -𝑒𝑥), (𝑥 +𝑒 -𝑒𝑦)) = 0))
7675bibi1d 332 . . . . . . . . . . . . 13 ((𝑥 +𝑒 -𝑒𝑦) = if(𝑥𝑦, (𝑦 +𝑒 -𝑒𝑥), (𝑥 +𝑒 -𝑒𝑦)) → (((𝑥 +𝑒 -𝑒𝑦) = 0 ↔ (𝑥 +𝑒 -𝑒𝑦) = 0) ↔ (if(𝑥𝑦, (𝑦 +𝑒 -𝑒𝑥), (𝑥 +𝑒 -𝑒𝑦)) = 0 ↔ (𝑥 +𝑒 -𝑒𝑦) = 0)))
7774, 76ifboth 4266 . . . . . . . . . . . 12 ((((𝑦 +𝑒 -𝑒𝑥) = 0 ↔ (𝑥 +𝑒 -𝑒𝑦) = 0) ∧ ((𝑥 +𝑒 -𝑒𝑦) = 0 ↔ (𝑥 +𝑒 -𝑒𝑦) = 0)) → (if(𝑥𝑦, (𝑦 +𝑒 -𝑒𝑥), (𝑥 +𝑒 -𝑒𝑦)) = 0 ↔ (𝑥 +𝑒 -𝑒𝑦) = 0))
7871, 72, 77syl2anc 696 . . . . . . . . . . 11 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ (𝑥𝐷𝑦) = 0) ∧ 𝑥𝑦) → (if(𝑥𝑦, (𝑦 +𝑒 -𝑒𝑥), (𝑥 +𝑒 -𝑒𝑦)) = 0 ↔ (𝑥 +𝑒 -𝑒𝑦) = 0))
7952, 78mpbid 222 . . . . . . . . . 10 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ (𝑥𝐷𝑦) = 0) ∧ 𝑥𝑦) → (𝑥 +𝑒 -𝑒𝑦) = 0)
8049, 79eqtr3d 2794 . . . . . . . . 9 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ (𝑥𝐷𝑦) = 0) ∧ 𝑥𝑦) → (𝑥𝑦) = 0)
8145, 47, 80subeq0d 10590 . . . . . . . 8 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ (𝑥𝐷𝑦) = 0) ∧ 𝑥𝑦) → 𝑥 = 𝑦)
8236, 81pm2.61dane 3017 . . . . . . 7 (((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ (𝑥𝐷𝑦) = 0) → 𝑥 = 𝑦)
8382ex 449 . . . . . 6 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) → ((𝑥𝐷𝑦) = 0 → 𝑥 = 𝑦))
8412xrsdsval 19990 . . . . . . . . . 10 ((𝑦 ∈ ℝ*𝑦 ∈ ℝ*) → (𝑦𝐷𝑦) = if(𝑦𝑦, (𝑦 +𝑒 -𝑒𝑦), (𝑦 +𝑒 -𝑒𝑦)))
8584anidms 680 . . . . . . . . 9 (𝑦 ∈ ℝ* → (𝑦𝐷𝑦) = if(𝑦𝑦, (𝑦 +𝑒 -𝑒𝑦), (𝑦 +𝑒 -𝑒𝑦)))
86 xrleid 12174 . . . . . . . . . 10 (𝑦 ∈ ℝ*𝑦𝑦)
8786iftrued 4236 . . . . . . . . 9 (𝑦 ∈ ℝ* → if(𝑦𝑦, (𝑦 +𝑒 -𝑒𝑦), (𝑦 +𝑒 -𝑒𝑦)) = (𝑦 +𝑒 -𝑒𝑦))
88 xnegid 12260 . . . . . . . . 9 (𝑦 ∈ ℝ* → (𝑦 +𝑒 -𝑒𝑦) = 0)
8985, 87, 883eqtrd 2796 . . . . . . . 8 (𝑦 ∈ ℝ* → (𝑦𝐷𝑦) = 0)
9089adantl 473 . . . . . . 7 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) → (𝑦𝐷𝑦) = 0)
91 oveq1 6818 . . . . . . . 8 (𝑥 = 𝑦 → (𝑥𝐷𝑦) = (𝑦𝐷𝑦))
9291eqeq1d 2760 . . . . . . 7 (𝑥 = 𝑦 → ((𝑥𝐷𝑦) = 0 ↔ (𝑦𝐷𝑦) = 0))
9390, 92syl5ibrcom 237 . . . . . 6 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) → (𝑥 = 𝑦 → (𝑥𝐷𝑦) = 0))
9483, 93impbid 202 . . . . 5 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) → ((𝑥𝐷𝑦) = 0 ↔ 𝑥 = 𝑦))
9531, 35, 943bitr2d 296 . . . 4 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) → ((𝑥𝐷𝑦) ≤ 0 ↔ 𝑥 = 𝑦))
9695adantl 473 . . 3 ((⊤ ∧ (𝑥 ∈ ℝ*𝑦 ∈ ℝ*)) → ((𝑥𝐷𝑦) ≤ 0 ↔ 𝑥 = 𝑦))
97 simplrr 820 . . . . . . 7 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ 𝑧 = 𝑥) → (𝑧𝐷𝑦) ∈ ℝ)
9897leidd 10784 . . . . . 6 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ 𝑧 = 𝑥) → (𝑧𝐷𝑦) ≤ (𝑧𝐷𝑦))
99 simpr 479 . . . . . . 7 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ 𝑧 = 𝑥) → 𝑧 = 𝑥)
10099oveq1d 6826 . . . . . 6 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ 𝑧 = 𝑥) → (𝑧𝐷𝑦) = (𝑥𝐷𝑦))
10199oveq1d 6826 . . . . . . . . 9 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ 𝑧 = 𝑥) → (𝑧𝐷𝑥) = (𝑥𝐷𝑥))
102 simpll1 1255 . . . . . . . . . 10 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ 𝑧 = 𝑥) → 𝑥 ∈ ℝ*)
103 oveq12 6820 . . . . . . . . . . . . 13 ((𝑦 = 𝑥𝑦 = 𝑥) → (𝑦𝐷𝑦) = (𝑥𝐷𝑥))
104103anidms 680 . . . . . . . . . . . 12 (𝑦 = 𝑥 → (𝑦𝐷𝑦) = (𝑥𝐷𝑥))
105104eqeq1d 2760 . . . . . . . . . . 11 (𝑦 = 𝑥 → ((𝑦𝐷𝑦) = 0 ↔ (𝑥𝐷𝑥) = 0))
106105, 89vtoclga 3410 . . . . . . . . . 10 (𝑥 ∈ ℝ* → (𝑥𝐷𝑥) = 0)
107102, 106syl 17 . . . . . . . . 9 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ 𝑧 = 𝑥) → (𝑥𝐷𝑥) = 0)
108101, 107eqtrd 2792 . . . . . . . 8 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ 𝑧 = 𝑥) → (𝑧𝐷𝑥) = 0)
109108oveq1d 6826 . . . . . . 7 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ 𝑧 = 𝑥) → ((𝑧𝐷𝑥) + (𝑧𝐷𝑦)) = (0 + (𝑧𝐷𝑦)))
11097recnd 10258 . . . . . . . 8 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ 𝑧 = 𝑥) → (𝑧𝐷𝑦) ∈ ℂ)
111110addid2d 10427 . . . . . . 7 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ 𝑧 = 𝑥) → (0 + (𝑧𝐷𝑦)) = (𝑧𝐷𝑦))
112109, 111eqtr2d 2793 . . . . . 6 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ 𝑧 = 𝑥) → (𝑧𝐷𝑦) = ((𝑧𝐷𝑥) + (𝑧𝐷𝑦)))
11398, 100, 1123brtr3d 4833 . . . . 5 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ 𝑧 = 𝑥) → (𝑥𝐷𝑦) ≤ ((𝑧𝐷𝑥) + (𝑧𝐷𝑦)))
114 simpr 479 . . . . . . . . 9 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ 𝑧 = 𝑦) → 𝑧 = 𝑦)
115114oveq1d 6826 . . . . . . . 8 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ 𝑧 = 𝑦) → (𝑧𝐷𝑥) = (𝑦𝐷𝑥))
116 simplrl 819 . . . . . . . 8 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ 𝑧 = 𝑦) → (𝑧𝐷𝑥) ∈ ℝ)
117115, 116eqeltrrd 2838 . . . . . . 7 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ 𝑧 = 𝑦) → (𝑦𝐷𝑥) ∈ ℝ)
118117leidd 10784 . . . . . 6 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ 𝑧 = 𝑦) → (𝑦𝐷𝑥) ≤ (𝑦𝐷𝑥))
119 simpll1 1255 . . . . . . 7 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ 𝑧 = 𝑦) → 𝑥 ∈ ℝ*)
120 simpll2 1257 . . . . . . 7 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ 𝑧 = 𝑦) → 𝑦 ∈ ℝ*)
121 oveq2 6819 . . . . . . . . . 10 (𝑥 = 𝑦 → (𝑦𝐷𝑥) = (𝑦𝐷𝑦))
12291, 121eqtr4d 2795 . . . . . . . . 9 (𝑥 = 𝑦 → (𝑥𝐷𝑦) = (𝑦𝐷𝑥))
123122adantl 473 . . . . . . . 8 (((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ 𝑥 = 𝑦) → (𝑥𝐷𝑦) = (𝑦𝐷𝑥))
124 eqeq2 2769 . . . . . . . . . 10 ((𝑥 +𝑒 -𝑒𝑦) = if(𝑦𝑥, (𝑥 +𝑒 -𝑒𝑦), (𝑦 +𝑒 -𝑒𝑥)) → (if(𝑥𝑦, (𝑦 +𝑒 -𝑒𝑥), (𝑥 +𝑒 -𝑒𝑦)) = (𝑥 +𝑒 -𝑒𝑦) ↔ if(𝑥𝑦, (𝑦 +𝑒 -𝑒𝑥), (𝑥 +𝑒 -𝑒𝑦)) = if(𝑦𝑥, (𝑥 +𝑒 -𝑒𝑦), (𝑦 +𝑒 -𝑒𝑥))))
125 eqeq2 2769 . . . . . . . . . 10 ((𝑦 +𝑒 -𝑒𝑥) = if(𝑦𝑥, (𝑥 +𝑒 -𝑒𝑦), (𝑦 +𝑒 -𝑒𝑥)) → (if(𝑥𝑦, (𝑦 +𝑒 -𝑒𝑥), (𝑥 +𝑒 -𝑒𝑦)) = (𝑦 +𝑒 -𝑒𝑥) ↔ if(𝑥𝑦, (𝑦 +𝑒 -𝑒𝑥), (𝑥 +𝑒 -𝑒𝑦)) = if(𝑦𝑥, (𝑥 +𝑒 -𝑒𝑦), (𝑦 +𝑒 -𝑒𝑥))))
126 xrleloe 12168 . . . . . . . . . . . . . . 15 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) → (𝑥𝑦 ↔ (𝑥 < 𝑦𝑥 = 𝑦)))
127126adantr 472 . . . . . . . . . . . . . 14 (((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ 𝑥𝑦) → (𝑥𝑦 ↔ (𝑥 < 𝑦𝑥 = 𝑦)))
128 simpr 479 . . . . . . . . . . . . . . . 16 (((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ 𝑥𝑦) → 𝑥𝑦)
129128neneqd 2935 . . . . . . . . . . . . . . 15 (((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ 𝑥𝑦) → ¬ 𝑥 = 𝑦)
130 biorf 419 . . . . . . . . . . . . . . . 16 𝑥 = 𝑦 → (𝑥 < 𝑦 ↔ (𝑥 = 𝑦𝑥 < 𝑦)))
131 orcom 401 . . . . . . . . . . . . . . . 16 ((𝑥 = 𝑦𝑥 < 𝑦) ↔ (𝑥 < 𝑦𝑥 = 𝑦))
132130, 131syl6bb 276 . . . . . . . . . . . . . . 15 𝑥 = 𝑦 → (𝑥 < 𝑦 ↔ (𝑥 < 𝑦𝑥 = 𝑦)))
133129, 132syl 17 . . . . . . . . . . . . . 14 (((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ 𝑥𝑦) → (𝑥 < 𝑦 ↔ (𝑥 < 𝑦𝑥 = 𝑦)))
134 xrltnle 10295 . . . . . . . . . . . . . . 15 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) → (𝑥 < 𝑦 ↔ ¬ 𝑦𝑥))
135134adantr 472 . . . . . . . . . . . . . 14 (((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ 𝑥𝑦) → (𝑥 < 𝑦 ↔ ¬ 𝑦𝑥))
136127, 133, 1353bitr2d 296 . . . . . . . . . . . . 13 (((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ 𝑥𝑦) → (𝑥𝑦 ↔ ¬ 𝑦𝑥))
137136con2bid 343 . . . . . . . . . . . 12 (((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ 𝑥𝑦) → (𝑦𝑥 ↔ ¬ 𝑥𝑦))
138137biimpa 502 . . . . . . . . . . 11 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ 𝑥𝑦) ∧ 𝑦𝑥) → ¬ 𝑥𝑦)
139138iffalsed 4239 . . . . . . . . . 10 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ 𝑥𝑦) ∧ 𝑦𝑥) → if(𝑥𝑦, (𝑦 +𝑒 -𝑒𝑥), (𝑥 +𝑒 -𝑒𝑦)) = (𝑥 +𝑒 -𝑒𝑦))
140136biimpar 503 . . . . . . . . . . 11 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ 𝑥𝑦) ∧ ¬ 𝑦𝑥) → 𝑥𝑦)
141140iftrued 4236 . . . . . . . . . 10 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ 𝑥𝑦) ∧ ¬ 𝑦𝑥) → if(𝑥𝑦, (𝑦 +𝑒 -𝑒𝑥), (𝑥 +𝑒 -𝑒𝑦)) = (𝑦 +𝑒 -𝑒𝑥))
142124, 125, 139, 141ifbothda 4265 . . . . . . . . 9 (((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ 𝑥𝑦) → if(𝑥𝑦, (𝑦 +𝑒 -𝑒𝑥), (𝑥 +𝑒 -𝑒𝑦)) = if(𝑦𝑥, (𝑥 +𝑒 -𝑒𝑦), (𝑦 +𝑒 -𝑒𝑥)))
14328adantr 472 . . . . . . . . 9 (((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ 𝑥𝑦) → (𝑥𝐷𝑦) = if(𝑥𝑦, (𝑦 +𝑒 -𝑒𝑥), (𝑥 +𝑒 -𝑒𝑦)))
14412xrsdsval 19990 . . . . . . . . . . 11 ((𝑦 ∈ ℝ*𝑥 ∈ ℝ*) → (𝑦𝐷𝑥) = if(𝑦𝑥, (𝑥 +𝑒 -𝑒𝑦), (𝑦 +𝑒 -𝑒𝑥)))
145144ancoms 468 . . . . . . . . . 10 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) → (𝑦𝐷𝑥) = if(𝑦𝑥, (𝑥 +𝑒 -𝑒𝑦), (𝑦 +𝑒 -𝑒𝑥)))
146145adantr 472 . . . . . . . . 9 (((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ 𝑥𝑦) → (𝑦𝐷𝑥) = if(𝑦𝑥, (𝑥 +𝑒 -𝑒𝑦), (𝑦 +𝑒 -𝑒𝑥)))
147142, 143, 1463eqtr4d 2802 . . . . . . . 8 (((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) ∧ 𝑥𝑦) → (𝑥𝐷𝑦) = (𝑦𝐷𝑥))
148123, 147pm2.61dane 3017 . . . . . . 7 ((𝑥 ∈ ℝ*𝑦 ∈ ℝ*) → (𝑥𝐷𝑦) = (𝑦𝐷𝑥))
149119, 120, 148syl2anc 696 . . . . . 6 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ 𝑧 = 𝑦) → (𝑥𝐷𝑦) = (𝑦𝐷𝑥))
150114oveq1d 6826 . . . . . . . . 9 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ 𝑧 = 𝑦) → (𝑧𝐷𝑦) = (𝑦𝐷𝑦))
151120, 89syl 17 . . . . . . . . 9 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ 𝑧 = 𝑦) → (𝑦𝐷𝑦) = 0)
152150, 151eqtrd 2792 . . . . . . . 8 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ 𝑧 = 𝑦) → (𝑧𝐷𝑦) = 0)
153115, 152oveq12d 6829 . . . . . . 7 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ 𝑧 = 𝑦) → ((𝑧𝐷𝑥) + (𝑧𝐷𝑦)) = ((𝑦𝐷𝑥) + 0))
154117recnd 10258 . . . . . . . 8 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ 𝑧 = 𝑦) → (𝑦𝐷𝑥) ∈ ℂ)
155154addid1d 10426 . . . . . . 7 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ 𝑧 = 𝑦) → ((𝑦𝐷𝑥) + 0) = (𝑦𝐷𝑥))
156153, 155eqtrd 2792 . . . . . 6 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ 𝑧 = 𝑦) → ((𝑧𝐷𝑥) + (𝑧𝐷𝑦)) = (𝑦𝐷𝑥))
157118, 149, 1563brtr4d 4834 . . . . 5 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ 𝑧 = 𝑦) → (𝑥𝐷𝑦) ≤ ((𝑧𝐷𝑥) + (𝑧𝐷𝑦)))
158 simplrl 819 . . . . . . . . . 10 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ (𝑧𝑥𝑧𝑦)) → (𝑧𝐷𝑥) ∈ ℝ)
159 simpll3 1259 . . . . . . . . . . 11 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ (𝑧𝑥𝑧𝑦)) → 𝑧 ∈ ℝ*)
160 simpll1 1255 . . . . . . . . . . 11 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ (𝑧𝑥𝑧𝑦)) → 𝑥 ∈ ℝ*)
161 simprl 811 . . . . . . . . . . 11 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ (𝑧𝑥𝑧𝑦)) → 𝑧𝑥)
16212xrsdsreclb 19993 . . . . . . . . . . 11 ((𝑧 ∈ ℝ*𝑥 ∈ ℝ*𝑧𝑥) → ((𝑧𝐷𝑥) ∈ ℝ ↔ (𝑧 ∈ ℝ ∧ 𝑥 ∈ ℝ)))
163159, 160, 161, 162syl3anc 1477 . . . . . . . . . 10 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ (𝑧𝑥𝑧𝑦)) → ((𝑧𝐷𝑥) ∈ ℝ ↔ (𝑧 ∈ ℝ ∧ 𝑥 ∈ ℝ)))
164158, 163mpbid 222 . . . . . . . . 9 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ (𝑧𝑥𝑧𝑦)) → (𝑧 ∈ ℝ ∧ 𝑥 ∈ ℝ))
165164simprd 482 . . . . . . . 8 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ (𝑧𝑥𝑧𝑦)) → 𝑥 ∈ ℝ)
166165recnd 10258 . . . . . . 7 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ (𝑧𝑥𝑧𝑦)) → 𝑥 ∈ ℂ)
167 simplrr 820 . . . . . . . . . 10 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ (𝑧𝑥𝑧𝑦)) → (𝑧𝐷𝑦) ∈ ℝ)
168 simpll2 1257 . . . . . . . . . . 11 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ (𝑧𝑥𝑧𝑦)) → 𝑦 ∈ ℝ*)
169 simprr 813 . . . . . . . . . . 11 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ (𝑧𝑥𝑧𝑦)) → 𝑧𝑦)
17012xrsdsreclb 19993 . . . . . . . . . . 11 ((𝑧 ∈ ℝ*𝑦 ∈ ℝ*𝑧𝑦) → ((𝑧𝐷𝑦) ∈ ℝ ↔ (𝑧 ∈ ℝ ∧ 𝑦 ∈ ℝ)))
171159, 168, 169, 170syl3anc 1477 . . . . . . . . . 10 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ (𝑧𝑥𝑧𝑦)) → ((𝑧𝐷𝑦) ∈ ℝ ↔ (𝑧 ∈ ℝ ∧ 𝑦 ∈ ℝ)))
172167, 171mpbid 222 . . . . . . . . 9 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ (𝑧𝑥𝑧𝑦)) → (𝑧 ∈ ℝ ∧ 𝑦 ∈ ℝ))
173172simprd 482 . . . . . . . 8 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ (𝑧𝑥𝑧𝑦)) → 𝑦 ∈ ℝ)
174173recnd 10258 . . . . . . 7 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ (𝑧𝑥𝑧𝑦)) → 𝑦 ∈ ℂ)
175164simpld 477 . . . . . . . 8 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ (𝑧𝑥𝑧𝑦)) → 𝑧 ∈ ℝ)
176175recnd 10258 . . . . . . 7 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ (𝑧𝑥𝑧𝑦)) → 𝑧 ∈ ℂ)
177166, 174, 176abs3difd 14396 . . . . . 6 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ (𝑧𝑥𝑧𝑦)) → (abs‘(𝑥𝑦)) ≤ ((abs‘(𝑥𝑧)) + (abs‘(𝑧𝑦))))
17812xrsdsreval 19991 . . . . . . 7 ((𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ) → (𝑥𝐷𝑦) = (abs‘(𝑥𝑦)))
179165, 173, 178syl2anc 696 . . . . . 6 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ (𝑧𝑥𝑧𝑦)) → (𝑥𝐷𝑦) = (abs‘(𝑥𝑦)))
18012xrsdsreval 19991 . . . . . . . . 9 ((𝑧 ∈ ℝ ∧ 𝑥 ∈ ℝ) → (𝑧𝐷𝑥) = (abs‘(𝑧𝑥)))
181164, 180syl 17 . . . . . . . 8 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ (𝑧𝑥𝑧𝑦)) → (𝑧𝐷𝑥) = (abs‘(𝑧𝑥)))
182176, 166abssubd 14389 . . . . . . . 8 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ (𝑧𝑥𝑧𝑦)) → (abs‘(𝑧𝑥)) = (abs‘(𝑥𝑧)))
183181, 182eqtrd 2792 . . . . . . 7 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ (𝑧𝑥𝑧𝑦)) → (𝑧𝐷𝑥) = (abs‘(𝑥𝑧)))
18412xrsdsreval 19991 . . . . . . . 8 ((𝑧 ∈ ℝ ∧ 𝑦 ∈ ℝ) → (𝑧𝐷𝑦) = (abs‘(𝑧𝑦)))
185172, 184syl 17 . . . . . . 7 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ (𝑧𝑥𝑧𝑦)) → (𝑧𝐷𝑦) = (abs‘(𝑧𝑦)))
186183, 185oveq12d 6829 . . . . . 6 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ (𝑧𝑥𝑧𝑦)) → ((𝑧𝐷𝑥) + (𝑧𝐷𝑦)) = ((abs‘(𝑥𝑧)) + (abs‘(𝑧𝑦))))
187177, 179, 1863brtr4d 4834 . . . . 5 ((((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) ∧ (𝑧𝑥𝑧𝑦)) → (𝑥𝐷𝑦) ≤ ((𝑧𝐷𝑥) + (𝑧𝐷𝑦)))
188113, 157, 187pm2.61da2ne 3018 . . . 4 (((𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) → (𝑥𝐷𝑦) ≤ ((𝑧𝐷𝑥) + (𝑧𝐷𝑦)))
1891883adant1 1125 . . 3 ((⊤ ∧ (𝑥 ∈ ℝ*𝑦 ∈ ℝ*𝑧 ∈ ℝ*) ∧ ((𝑧𝐷𝑥) ∈ ℝ ∧ (𝑧𝐷𝑦) ∈ ℝ)) → (𝑥𝐷𝑦) ≤ ((𝑧𝐷𝑥) + (𝑧𝐷𝑦)))
1902, 16, 30, 96, 189isxmet2d 22331 . 2 (⊤ → 𝐷 ∈ (∞Met‘ℝ*))
191190trud 1640 1 𝐷 ∈ (∞Met‘ℝ*)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wb 196  wo 382  wa 383  w3a 1072   = wceq 1630  wtru 1631  wcel 2137  wne 2930  wral 3048  Vcvv 3338  ifcif 4228   class class class wbr 4802   × cxp 5262  wf 6043  cfv 6047  (class class class)co 6811  cr 10125  0cc0 10126   + caddc 10129  *cxr 10263   < clt 10264  cle 10265  cmin 10456  -𝑒cxne 12134   +𝑒 cxad 12135  abscabs 14171  distcds 16150  *𝑠cxrs 16360  ∞Metcxmt 19931
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1869  ax-4 1884  ax-5 1986  ax-6 2052  ax-7 2088  ax-8 2139  ax-9 2146  ax-10 2166  ax-11 2181  ax-12 2194  ax-13 2389  ax-ext 2738  ax-sep 4931  ax-nul 4939  ax-pow 4990  ax-pr 5053  ax-un 7112  ax-cnex 10182  ax-resscn 10183  ax-1cn 10184  ax-icn 10185  ax-addcl 10186  ax-addrcl 10187  ax-mulcl 10188  ax-mulrcl 10189  ax-mulcom 10190  ax-addass 10191  ax-mulass 10192  ax-distr 10193  ax-i2m1 10194  ax-1ne0 10195  ax-1rid 10196  ax-rnegex 10197  ax-rrecex 10198  ax-cnre 10199  ax-pre-lttri 10200  ax-pre-lttrn 10201  ax-pre-ltadd 10202  ax-pre-mulgt0 10203  ax-pre-sup 10204
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3or 1073  df-3an 1074  df-tru 1633  df-ex 1852  df-nf 1857  df-sb 2045  df-eu 2609  df-mo 2610  df-clab 2745  df-cleq 2751  df-clel 2754  df-nfc 2889  df-ne 2931  df-nel 3034  df-ral 3053  df-rex 3054  df-reu 3055  df-rmo 3056  df-rab 3057  df-v 3340  df-sbc 3575  df-csb 3673  df-dif 3716  df-un 3718  df-in 3720  df-ss 3727  df-pss 3729  df-nul 4057  df-if 4229  df-pw 4302  df-sn 4320  df-pr 4322  df-tp 4324  df-op 4326  df-uni 4587  df-int 4626  df-iun 4672  df-br 4803  df-opab 4863  df-mpt 4880  df-tr 4903  df-id 5172  df-eprel 5177  df-po 5185  df-so 5186  df-fr 5223  df-we 5225  df-xp 5270  df-rel 5271  df-cnv 5272  df-co 5273  df-dm 5274  df-rn 5275  df-res 5276  df-ima 5277  df-pred 5839  df-ord 5885  df-on 5886  df-lim 5887  df-suc 5888  df-iota 6010  df-fun 6049  df-fn 6050  df-f 6051  df-f1 6052  df-fo 6053  df-f1o 6054  df-fv 6055  df-riota 6772  df-ov 6814  df-oprab 6815  df-mpt2 6816  df-om 7229  df-1st 7331  df-2nd 7332  df-wrecs 7574  df-recs 7635  df-rdg 7673  df-1o 7727  df-oadd 7731  df-er 7909  df-map 8023  df-en 8120  df-dom 8121  df-sdom 8122  df-fin 8123  df-sup 8511  df-pnf 10266  df-mnf 10267  df-xr 10268  df-ltxr 10269  df-le 10270  df-sub 10458  df-neg 10459  df-div 10875  df-nn 11211  df-2 11269  df-3 11270  df-4 11271  df-5 11272  df-6 11273  df-7 11274  df-8 11275  df-9 11276  df-n0 11483  df-z 11568  df-dec 11684  df-uz 11878  df-rp 12024  df-xneg 12137  df-xadd 12138  df-icc 12373  df-fz 12518  df-seq 12994  df-exp 13053  df-cj 14036  df-re 14037  df-im 14038  df-sqrt 14172  df-abs 14173  df-struct 16059  df-ndx 16060  df-slot 16061  df-base 16063  df-plusg 16154  df-mulr 16155  df-tset 16160  df-ple 16161  df-ds 16164  df-xrs 16362  df-xmet 19939
This theorem is referenced by:  xrsdsre  22812  xrsblre  22813  xrsmopn  22814  metdcnlem  22838  xmetdcn2  22839  xmetdcn  22840  metdscn  22858  metdscn2  22859
  Copyright terms: Public domain W3C validator