---

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


1. rv : InnerProductSpace
2. a : Point
3. b : Point
4. a' : Point
5. a # a'
6. a_b_a'
7. ab=a'b
8. a # b
9. a' # b
⊢ r(-1)*a - b ≡ a' - b
BY
{ ((RWO "ip-between-iff" (-4) THENA Auto)
   THEN ExRepD
   THEN (RWO  "-4" (-3) THENA Auto)
   THEN (RWO  "-4" 0 THENA Auto)
   THEN ThinVar `b'
   THEN RenameVar `b' 3) }

1
1. rv : InnerProductSpace
2. a : Point
3. b : Point
4. a # b
5. t : ℝ
6. t ∈ (r0, r1)
7. at*a + r1 - t*b=bt*a + r1 - t*b
⊢ r(-1)*a - t*a + r1 - t*b ≡ b - t*a + r1 - t*b

---

Latex:

---

Latex:

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


By

---

Latex:
((RWO  "ip-between-iff"  (-4)  THENA  Auto)
  THEN  ExRepD
  THEN  (RWO    "-4"  (-3)  THENA  Auto)
  THEN  (RWO    "-4"  0  THENA  Auto)
  THEN  ThinVar  `b'
  THEN  RenameVar  `b'  3)

---

Home Index