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


1. : ℕ
2. : ℝ^n
3. : ℝ^n
4. : ℝ^n
5. : ℝ^n
6. : ℝ^n
7. a ≠ p
8. b ≠ c
9. b ≠ c)  q ≠ c)
10. ¬(p ≠ c ∧ a-p-c))
11. a ≠ c
12. : ℝ
13. r0 ≤ s
14. s ≤ r1
15. req-vec(n;p;s*a r1 s*c)
16. : ℝ
17. r0 ≤ t
18. t ≤ r1
19. req-vec(n;q;t*b r1 t*c)
20. s < r1
21. r0 < (r1 t)
22. : ℝ
23. (t t/r1 t) u ∈ ℝ
24. : ℝ
25. (s t/r1 t) v ∈ ℝ
26. ((r1 u) s) v
27. ((r1 v) t) u
⊢ (u ∈ [r0, r1])
 (v ∈ [r0, r1))
 (∃x:ℝ^n
     (rv-T(n;a;x;q)
     ∧ rv-T(n;b;x;p)
     ∧ (a ≠  x ≠ a)
     ∧ ((a ≠ q ∧ p ≠ c ∧ b ≠ q)  x ≠ q)
     ∧ ((b ≠ p ∧ b ≠ q)  x ≠ b)
     ∧ ((b ≠ p ∧ q ≠ c)  x ≠ p)))
BY
((Assert (s u) (s v) BY
          (nRNorm (-2) THEN nRAdd ⌜(s u) v⌝ (-2)⋅ THEN nRNorm THEN Auto))
   THEN (Assert (t v) (t u) BY
               (nRNorm (-2) THEN nRAdd ⌜(t v) u⌝ (-2)⋅ THEN nRNorm THEN Auto))
   THEN (Assert ((r1 u) (r1 s)) ((r1 v) (r1 t)) BY
               ((nRNorm THENA Auto) THEN (RWO "-2 -1" THEN Auto) THEN nRNorm THEN Auto))) }

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


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.  a  \mneq{}  p
8.  b  \mneq{}  c
9.  (\mneg{}b  \mneq{}  c)  {}\mRightarrow{}  (\mneg{}q  \mneq{}  c)
10.  \mneg{}(p  \mneq{}  c  \mwedge{}  (\mneg{}a-p-c))
11.  a  \mneq{}  c
12.  s  :  \mBbbR{}
13.  r0  \mleq{}  s
14.  s  \mleq{}  r1
15.  req-vec(n;p;s*a  +  r1  -  s*c)
16.  t  :  \mBbbR{}
17.  r0  \mleq{}  t
18.  t  \mleq{}  r1
19.  req-vec(n;q;t*b  +  r1  -  t*c)
20.  s  <  r1
21.  r0  <  (r1  -  s  *  t)
22.  u  :  \mBbbR{}
23.  (t  -  s  *  t/r1  -  s  *  t)  =  u
24.  v  :  \mBbbR{}
25.  (s  -  s  *  t/r1  -  s  *  t)  =  v
26.  ((r1  -  u)  *  s)  =  v
27.  ((r1  -  v)  *  t)  =  u
\mvdash{}  (u  \mmember{}  [r0,  r1])
{}\mRightarrow{}  (v  \mmember{}  [r0,  r1))
{}\mRightarrow{}  (\mexists{}x:\mBbbR{}\^{}n
          (rv-T(n;a;x;q)
          \mwedge{}  rv-T(n;b;x;p)
          \mwedge{}  (a  \mneq{}  q  {}\mRightarrow{}  x  \mneq{}  a)
          \mwedge{}  ((a  \mneq{}  q  \mwedge{}  p  \mneq{}  c  \mwedge{}  b  \mneq{}  q)  {}\mRightarrow{}  x  \mneq{}  q)
          \mwedge{}  ((b  \mneq{}  p  \mwedge{}  b  \mneq{}  q)  {}\mRightarrow{}  x  \mneq{}  b)
          \mwedge{}  ((b  \mneq{}  p  \mwedge{}  q  \mneq{}  c)  {}\mRightarrow{}  x  \mneq{}  p)))


By


Latex:
((Assert  (s  *  u)  =  (s  -  v)  BY
                (nRNorm  (-2)  THEN  nRAdd  \mkleeneopen{}(s  *  u)  -  v\mkleeneclose{}  (-2)\mcdot{}  THEN  nRNorm  0  THEN  Auto))
  THEN  (Assert  (t  *  v)  =  (t  -  u)  BY
                          (nRNorm  (-2)  THEN  nRAdd  \mkleeneopen{}(t  *  v)  -  u\mkleeneclose{}  (-2)\mcdot{}  THEN  nRNorm  0  THEN  Auto))
  THEN  (Assert  ((r1  -  u)  *  (r1  -  s))  =  ((r1  -  v)  *  (r1  -  t))  BY
                          ((nRNorm  0  THENA  Auto)  THEN  (RWO  "-2  -1"  0  THEN  Auto)  THEN  nRNorm  0  THEN  Auto)))




Home Index