---

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


1. rv : InnerProductSpace
2. a : Point
3. b : Point
4. a' : Point
5. a_b_a'
6. ab=a'b
7. a # b
8. a' # b
⊢ r(-1)*a - b ≡ a' - b
BY
{ (Unfold `ss-eq` 0 THEN (DistinguishCases ⌜a # a'⌝⋅ THENA Auto) THEN All (Fold `ss-eq`)) }

1
1. rv : InnerProductSpace
2. a : Point
3. b : Point
4. a' : Point
5. a_b_a'
6. ab=a'b
7. a # b
8. a' # b
9. a # a'
⊢ r(-1)*a - b ≡ a' - b

2
1. rv : InnerProductSpace
2. a : Point
3. b : Point
4. a' : Point
5. a_b_a'
6. ab=a'b
7. a # b
8. a' # b
9. a ≡ a'
⊢ r(-1)*a - b ≡ a' - b

---

Latex:

---

Latex:

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


By

---

Latex:
(Unfold  `ss-eq`  0  THEN  (DistinguishCases  \mkleeneopen{}a  \#  a'\mkleeneclose{}\mcdot{}  THENA  Auto)  THEN  All  (Fold  `ss-eq`))

---

Home Index