Step * of Lemma matrix-plus-zero-right

[k,m:ℕ]. ∀[r:Rng]. ∀[N:Matrix(k;m;r)].  (N N ∈ Matrix(k;m;r))
BY
(Auto
   THEN RepUR ``matrix`` 0
   THEN RepeatFor ((FunExt THENA Auto))
   THEN RenameVar `y' (-1)
   THEN RepUR ``matrix-plus mx matrix-ap zero-matrix`` 0
   THEN Fold `matrix-ap` 0
   THEN RW RngNormC 0
   THEN Auto) }


Latex:


Latex:
\mforall{}[k,m:\mBbbN{}].  \mforall{}[r:Rng].  \mforall{}[N:Matrix(k;m;r)].    (N  +  0  =  N)


By


Latex:
(Auto
  THEN  RepUR  ``matrix``  0
  THEN  RepeatFor  2  ((FunExt  THENA  Auto))
  THEN  RenameVar  `y'  (-1)
  THEN  RepUR  ``matrix-plus  mx  matrix-ap  zero-matrix``  0
  THEN  Fold  `matrix-ap`  0
  THEN  RW  RngNormC  0
  THEN  Auto)




Home Index