---

Step * 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||)
⊢ |c - a ⋅ b - a| < (||c - a|| * ||b - a||)
BY
{ (((Assert ||b - a|| = ||a - b|| BY Auto) THEN (RWO "-1" 0 THENA Auto))
   THEN (Assert (||c - a|| * ||a - b||) = (||a - b|| * ||c - a||) BY
               Auto)
   THEN (RWO "-1" 0 THENA Auto)) }

1
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||)
\mvdash{}  |c  -  a  \mcdot{}  b  -  a|  <  (||c  -  a||  *  ||b  -  a||)


By

---

Latex:
(((Assert  ||b  -  a||  =  ||a  -  b||  BY  Auto)  THEN  (RWO  "-1"  0  THENA  Auto))
  THEN  (Assert  (||c  -  a||  *  ||a  -  b||)  =  (||a  -  b||  *  ||c  -  a||)  BY
                          Auto)
  THEN  (RWO  "-1"  0  THENA  Auto))

---

Home Index