---

Step * 1 1 3 2 of Lemma not-ip-triangle


1. rv : InnerProductSpace
2. a : Point(rv)
3. b : Point(rv)
4. c : Point(rv)
5. a # b
6. c # b
7. (||a - b|| * ||c - b||) ≤ |a - b ⋅ c - b|
8. |a - b ⋅ c - b| ≤ (||a - b|| * ||c - b||)
9. |a - b ⋅ c - b| = (||a - b|| * ||c - b||)
10. t : ℝ
11. c - b ≡ t*a - b
12. r0 < |t|
⊢ c ≡ b + t*a - b
BY
{ ((RealVecAdd ⌜b⌝ (-2)⋅ THENA Auto) THEN (RWO "-2<" 0 THENA Auto)) }

1
1. rv : InnerProductSpace
2. a : Point(rv)
3. b : Point(rv)
4. c : Point(rv)
5. a # b
6. c # b
7. (||a - b|| * ||c - b||) ≤ |a - b ⋅ c - b|
8. |a - b ⋅ c - b| ≤ (||a - b|| * ||c - b||)
9. |a - b ⋅ c - b| = (||a - b|| * ||c - b||)
10. t : ℝ
11. b + c - b ≡ b + t*a - b
12. r0 < |t|
⊢ c ≡ b + c - b

---

Latex:

---

Latex:

1.  rv  :  InnerProductSpace
2.  a  :  Point(rv)
3.  b  :  Point(rv)
4.  c  :  Point(rv)
5.  a  \#  b
6.  c  \#  b
7.  (||a  -  b||  *  ||c  -  b||)  \mleq{}  |a  -  b  \mcdot{}  c  -  b|
8.  |a  -  b  \mcdot{}  c  -  b|  \mleq{}  (||a  -  b||  *  ||c  -  b||)
9.  |a  -  b  \mcdot{}  c  -  b|  =  (||a  -  b||  *  ||c  -  b||)
10.  t  :  \mBbbR{}
11.  c  -  b  \mequiv{}  t*a  -  b
12.  r0  <  |t|
\mvdash{}  c  \mequiv{}  b  +  t*a  -  b


By

---

Latex:
((RealVecAdd  \mkleeneopen{}b\mkleeneclose{}  (-2)\mcdot{}  THENA  Auto)  THEN  (RWO  "-2<"  0  THENA  Auto))

---

Home Index