---

Step * of Lemma real-vec-right-angle

No Annotations
∀[n:ℕ]. ∀[x,y,z:ℝ^n].
  uiff(x - y⋅z - y = r0;∀x':ℝ^n. ((d(x';y) = d(x;y)) ⇒ real-vec-be(n;x;y;x') ⇒ (d(z;x) = d(z;x'))))
BY
{ (Intros
   THEN (RWO "real-vec-right-angle-lemma" 0 THENA Auto)
   THEN (Assert req-vec(n;r(-1)*x - y;r(2)*y - x - y) BY
               (D 0 THEN RepUR ``real-vec-sub real-vec-mul`` 0 THEN Auto THEN nRNorm 0 THEN Auto))
   THEN (RWO  "-1" 0 THENA Auto)
   THEN (RWO "real-vec-dist-translation" 0 THENA Auto)) }

1
1. [n] : ℕ
2. [x] : ℝ^n
3. [y] : ℝ^n
4. [z] : ℝ^n
5. req-vec(n;r(-1)*x - y;r(2)*y - x - y)
⊢ uiff(d(z;x) = d(z;r(2)*y - x);∀x':ℝ^n. ((d(x';y) = d(x;y)) ⇒ real-vec-be(n;x;y;x') ⇒ (d(z;x) = d(z;x'))))

---

Latex:

---

Latex:
No  Annotations
\mforall{}[n:\mBbbN{}].  \mforall{}[x,y,z:\mBbbR{}\^{}n].
    uiff(x  -  y\mcdot{}z  -  y  =  r0;\mforall{}x':\mBbbR{}\^{}n
                                                    ((d(x';y)  =  d(x;y))  {}\mRightarrow{}  real-vec-be(n;x;y;x')  {}\mRightarrow{}  (d(z;x)  =  d(z;x'))))


By

---

Latex:
(Intros
  THEN  (RWO  "real-vec-right-angle-lemma"  0  THENA  Auto)
  THEN  (Assert  req-vec(n;r(-1)*x  -  y;r(2)*y  -  x  -  y)  BY
                          (D  0  THEN  RepUR  ``real-vec-sub  real-vec-mul``  0  THEN  Auto  THEN  nRNorm  0  THEN  Auto))
  THEN  (RWO    "-1"  0  THENA  Auto)
  THEN  (RWO  "real-vec-dist-translation"  0  THENA  Auto))

---

Home Index