---

Step * 1 1 1 1 1 1 2 of Lemma rv-inner-Pasch


1. n : ℕ
2. a : ℝ^n
3. b : ℝ^n
4. c : ℝ^n
5. p : ℝ^n
6. q : ℝ^n
7. t : ℝ
8. r0 < t
9. t < r1
10. req-vec(n;p;t*a + r1 - t*c)
11. a ≠ c
12. s : ℝ
13. r0 < s
14. s < r1
15. req-vec(n;q;s*b + r1 - s*c)
16. b ≠ c
17. (s * t) < s
18. r0 < (r1 - s * t)
19. (s * t) < t
20. u : ℝ
21. (t - s * t/r1 - s * t) = u ∈ ℝ
22. v : ℝ
23. (s - s * t/r1 - s * t) = v ∈ ℝ
24. ((r1 - u) * s) = v
25. ((r1 - v) * t) = u
26. (s * u) = (s - v)
27. (t * v) = (t - u)
28. ((r1 - u) * (r1 - s)) = ((r1 - v) * (r1 - t))
29. u ∈ (r0, r1)
30. v ∈ (r0, r1)
31. a ≠ q ⇒ a-u*a + r1 - u*s*b + r1 - s*c-q
32. b ≠ p
⊢ b-u*a + r1 - u*s*b + r1 - s*c-p
BY
{ ((Assert req-vec(n;p;t*a + r1 - t*c) BY Hypothesis) THEN (RWO "-1" 0 THENA Auto)) }

1
1. n : ℕ
2. a : ℝ^n
3. b : ℝ^n
4. c : ℝ^n
5. p : ℝ^n
6. q : ℝ^n
7. t : ℝ
8. r0 < t
9. t < r1
10. req-vec(n;p;t*a + r1 - t*c)
11. a ≠ c
12. s : ℝ
13. r0 < s
14. s < r1
15. req-vec(n;q;s*b + r1 - s*c)
16. b ≠ c
17. (s * t) < s
18. r0 < (r1 - s * t)
19. (s * t) < t
20. u : ℝ
21. (t - s * t/r1 - s * t) = u ∈ ℝ
22. v : ℝ
23. (s - s * t/r1 - s * t) = v ∈ ℝ
24. ((r1 - u) * s) = v
25. ((r1 - v) * t) = u
26. (s * u) = (s - v)
27. (t * v) = (t - u)
28. ((r1 - u) * (r1 - s)) = ((r1 - v) * (r1 - t))
29. u ∈ (r0, r1)
30. v ∈ (r0, r1)
31. a ≠ q ⇒ a-u*a + r1 - u*s*b + r1 - s*c-q
32. b ≠ p
33. req-vec(n;p;t*a + r1 - t*c)
⊢ b-u*a + r1 - u*s*b + r1 - s*c-t*a + r1 - t*c

---

Latex:

---

Latex:

1.  n  :  \mBbbN{}
2.  a  :  \mBbbR{}\^{}n
3.  b  :  \mBbbR{}\^{}n
4.  c  :  \mBbbR{}\^{}n
5.  p  :  \mBbbR{}\^{}n
6.  q  :  \mBbbR{}\^{}n
7.  t  :  \mBbbR{}
8.  r0  <  t
9.  t  <  r1
10.  req-vec(n;p;t*a  +  r1  -  t*c)
11.  a  \mneq{}  c
12.  s  :  \mBbbR{}
13.  r0  <  s
14.  s  <  r1
15.  req-vec(n;q;s*b  +  r1  -  s*c)
16.  b  \mneq{}  c
17.  (s  *  t)  <  s
18.  r0  <  (r1  -  s  *  t)
19.  (s  *  t)  <  t
20.  u  :  \mBbbR{}
21.  (t  -  s  *  t/r1  -  s  *  t)  =  u
22.  v  :  \mBbbR{}
23.  (s  -  s  *  t/r1  -  s  *  t)  =  v
24.  ((r1  -  u)  *  s)  =  v
25.  ((r1  -  v)  *  t)  =  u
26.  (s  *  u)  =  (s  -  v)
27.  (t  *  v)  =  (t  -  u)
28.  ((r1  -  u)  *  (r1  -  s))  =  ((r1  -  v)  *  (r1  -  t))
29.  u  \mmember{}  (r0,  r1)
30.  v  \mmember{}  (r0,  r1)
31.  a  \mneq{}  q  {}\mRightarrow{}  a-u*a  +  r1  -  u*s*b  +  r1  -  s*c-q
32.  b  \mneq{}  p
\mvdash{}  b-u*a  +  r1  -  u*s*b  +  r1  -  s*c-p


By

---

Latex:
((Assert  req-vec(n;p;t*a  +  r1  -  t*c)  BY  Hypothesis)  THEN  (RWO  "-1"  0  THENA  Auto))

---

Home Index