Step
*
2
1
1
of Lemma
proj-sep_symmetry
1. n : ℕ
2. a : ℙ^n
3. b : ℙ^n
4. u(a) ≠ u(b)
5. r0 < d(u(a);r(-1)*u(b))
6. d(r(-1)*r(-1)*u(b);r(-1)*u(a)) = (|r(-1)| * d(r(-1)*u(b);u(a)))
⊢ r0 < d(u(b);r(-1)*u(a))
BY
{ ((Assert req-vec(n + 1;r(-1)*r(-1)*u(b);u(b)) BY
          (RepUR ``req-vec real-vec-mul`` 0 THEN Auto))
   THEN (RWO "-1" (-2) THENA Auto)
   THEN (RWO "-2" 0 THENA Auto)) }
1
1. n : ℕ
2. a : ℙ^n
3. b : ℙ^n
4. u(a) ≠ u(b)
5. r0 < d(u(a);r(-1)*u(b))
6. d(u(b);r(-1)*u(a)) = (|r(-1)| * d(r(-1)*u(b);u(a)))
7. req-vec(n + 1;r(-1)*r(-1)*u(b);u(b))
⊢ r0 < (|r(-1)| * d(r(-1)*u(b);u(a)))
Latex:
Latex:
1.  n  :  \mBbbN{}
2.  a  :  \mBbbP{}\^{}n
3.  b  :  \mBbbP{}\^{}n
4.  u(a)  \mneq{}  u(b)
5.  r0  <  d(u(a);r(-1)*u(b))
6.  d(r(-1)*r(-1)*u(b);r(-1)*u(a))  =  (|r(-1)|  *  d(r(-1)*u(b);u(a)))
\mvdash{}  r0  <  d(u(b);r(-1)*u(a))
By
Latex:
((Assert  req-vec(n  +  1;r(-1)*r(-1)*u(b);u(b))  BY
                (RepUR  ``req-vec  real-vec-mul``  0  THEN  Auto))
  THEN  (RWO  "-1"  (-2)  THENA  Auto)
  THEN  (RWO  "-2"  0  THENA  Auto))
Home
Index