---

Step * 2 2 1 of Lemma implies-ip-triangle


1. rv : InnerProductSpace
2. a : Point
3. b : Point
4. c : Point
5. a' : Point
6. a_b_a'
7. ab=a'b
8. ab=cb
9. c # a
10. c # a'
11. r(-1)*a - b ≡ a' - b
⊢ r0 < ||a' - b - c - b||
BY
{ ((Assert a' - b - c - b ≡ a' - c BY (RealVecEqual THEN Auto)) THEN (RWO "-1" 0 THENA Auto)) }

1
1. rv : InnerProductSpace
2. a : Point
3. b : Point
4. c : Point
5. a' : Point
6. a_b_a'
7. ab=a'b
8. ab=cb
9. c # a
10. c # a'
11. r(-1)*a - b ≡ a' - b
12. a' - b - c - b ≡ a' - c
⊢ r0 < ||a' - c||

---

Latex:

---

Latex:

1.  rv  :  InnerProductSpace
2.  a  :  Point
3.  b  :  Point
4.  c  :  Point
5.  a'  :  Point
6.  a\_b\_a'
7.  ab=a'b
8.  ab=cb
9.  c  \#  a
10.  c  \#  a'
11.  r(-1)*a  -  b  \mequiv{}  a'  -  b
\mvdash{}  r0  <  ||a'  -  b  -  c  -  b||


By

---

Latex:
((Assert  a'  -  b  -  c  -  b  \mequiv{}  a'  -  c  BY  (RealVecEqual  THEN  Auto))  THEN  (RWO  "-1"  0  THENA  Auto))

---

Home Index