---

Step * of Lemma rv-n_wf

No Annotations
∀[n:ℕ]. (vecℝ^n ∈ RealVectorSpace)
BY
{ ((D 0 THENA Auto)
   THEN ((Assert λi.r0 ∈ ℝ^n BY (RepUR ``real-vec`` 0 THEN Auto)) THEN (Assert sepℝ^n ∈ SeparationSpace BY Auto))
   THEN Unfold `rv-n` 0
   THEN (MemCD THEN Try (Trivial))
   THEN RepUR ``ss-point rn-ss mk-ss ss-eq ss-sep`` 0
   THEN Auto
   THEN MemTypeCD
   THEN Reduce 0
   THEN Auto
   THEN RWO "not-real-vec-sep-iff-eq" 0
   THEN Auto
   THEN (D 0 THEN RepUR ``real-vec-add real-vec-mul`` 0)
   THEN Auto) }

---

Latex:

---

Latex:
No  Annotations
\mforall{}[n:\mBbbN{}].  (vec\mBbbR{}\^{}n  \mmember{}  RealVectorSpace)


By

---

Latex:
((D  0  THENA  Auto)
  THEN  ((Assert  \mlambda{}i.r0  \mmember{}  \mBbbR{}\^{}n  BY
                            (RepUR  ``real-vec``  0  THEN  Auto))
              THEN  (Assert  sep\mBbbR{}\^{}n  \mmember{}  SeparationSpace  BY
                                      Auto)
              )
  THEN  Unfold  `rv-n`  0
  THEN  (MemCD  THEN  Try  (Trivial))
  THEN  RepUR  ``ss-point  rn-ss  mk-ss  ss-eq  ss-sep``  0
  THEN  Auto
  THEN  MemTypeCD
  THEN  Reduce  0
  THEN  Auto
  THEN  RWO  "not-real-vec-sep-iff-eq"  0
  THEN  Auto
  THEN  (D  0  THEN  RepUR  ``real-vec-add  real-vec-mul``  0)
  THEN  Auto)

---

Home Index