---

Step * 1 1 1 of Lemma ip-triangle-permute


1. rv : InnerProductSpace
2. a : Point(rv)
3. b : Point(rv)
4. c : Point(rv)
5. |a - b ⋅ c - b| < (||a - b|| * ||c - b||)
6. |a - b ⋅ c - a| < (||a - b|| * ||c - a||)
7. ||b - a|| = ||a - b||
8. (||c - a|| * ||a - b||) = (||a - b|| * ||c - a||)
⊢ |c - a ⋅ b - a| < (||a - b|| * ||c - a||)
BY
{ (Assert ⌜|c - a ⋅ b - a| = |a - b ⋅ c - a|⌝⋅ THENM (RWO "-1" 0 THEN Auto)) }

1
.....assertion..... 
1. rv : InnerProductSpace
2. a : Point(rv)
3. b : Point(rv)
4. c : Point(rv)
5. |a - b ⋅ c - b| < (||a - b|| * ||c - b||)
6. |a - b ⋅ c - a| < (||a - b|| * ||c - a||)
7. ||b - a|| = ||a - b||
8. (||c - a|| * ||a - b||) = (||a - b|| * ||c - a||)
⊢ |c - a ⋅ b - a| = |a - b ⋅ c - a|

---

Latex:

---

Latex:

1.  rv  :  InnerProductSpace
2.  a  :  Point(rv)
3.  b  :  Point(rv)
4.  c  :  Point(rv)
5.  |a  -  b  \mcdot{}  c  -  b|  <  (||a  -  b||  *  ||c  -  b||)
6.  |a  -  b  \mcdot{}  c  -  a|  <  (||a  -  b||  *  ||c  -  a||)
7.  ||b  -  a||  =  ||a  -  b||
8.  (||c  -  a||  *  ||a  -  b||)  =  (||a  -  b||  *  ||c  -  a||)
\mvdash{}  |c  -  a  \mcdot{}  b  -  a|  <  (||a  -  b||  *  ||c  -  a||)


By

---

Latex:
(Assert  \mkleeneopen{}|c  -  a  \mcdot{}  b  -  a|  =  |a  -  b  \mcdot{}  c  -  a|\mkleeneclose{}\mcdot{}  THENM  (RWO  "-1"  0  THEN  Auto))

---

Home Index