---

Step * 1 1 1 1 of Lemma ip-between-inner-trans


1. rv : InnerProductSpace
2. a : Point(rv)
3. b : Point(rv)
4. c : Point(rv)
5. d : Point(rv)
6. s : ℝ
7. s ∈ (r0, r1)
8. b ≡ s*a + r1 - s*d
9. t : ℝ
10. t ∈ (r0, r1)
11. c ≡ t*s*a + r1 - s*d + r1 - t*d
12. c # d
13. a # b
14. b # c
15. b # d
16. r0 < (t * s)
17. (t * s) < r1
18. r0 < (r1 - t * s)
⊢ (s - t * s/r1 - t * s) ∈ (r0, r1)
BY
{ (Reduce 0
   THEN D 0
   THEN nRMul ⌜r1 - t * s⌝ 0⋅
   THEN Auto
   THEN nRAdd ⌜s * t⌝ 0⋅
   THEN Auto
   THEN All Reduce
   THEN ExRepD
   THEN nRMul ⌜s⌝ 12⋅
   THEN Auto) }

---

Latex:

---

Latex:

1.  rv  :  InnerProductSpace
2.  a  :  Point(rv)
3.  b  :  Point(rv)
4.  c  :  Point(rv)
5.  d  :  Point(rv)
6.  s  :  \mBbbR{}
7.  s  \mmember{}  (r0,  r1)
8.  b  \mequiv{}  s*a  +  r1  -  s*d
9.  t  :  \mBbbR{}
10.  t  \mmember{}  (r0,  r1)
11.  c  \mequiv{}  t*s*a  +  r1  -  s*d  +  r1  -  t*d
12.  c  \#  d
13.  a  \#  b
14.  b  \#  c
15.  b  \#  d
16.  r0  <  (t  *  s)
17.  (t  *  s)  <  r1
18.  r0  <  (r1  -  t  *  s)
\mvdash{}  (s  -  t  *  s/r1  -  t  *  s)  \mmember{}  (r0,  r1)


By

---

Latex:
(Reduce  0
  THEN  D  0
  THEN  nRMul  \mkleeneopen{}r1  -  t  *  s\mkleeneclose{}  0\mcdot{}
  THEN  Auto
  THEN  nRAdd  \mkleeneopen{}s  *  t\mkleeneclose{}  0\mcdot{}
  THEN  Auto
  THEN  All  Reduce
  THEN  ExRepD
  THEN  nRMul  \mkleeneopen{}s\mkleeneclose{}  12\mcdot{}
  THEN  Auto)

---

Home Index