aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/matrix.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/matrix.spad.pamphlet')
-rw-r--r--src/algebra/matrix.spad.pamphlet9
1 files changed, 3 insertions, 6 deletions
diff --git a/src/algebra/matrix.spad.pamphlet b/src/algebra/matrix.spad.pamphlet
index 595a9b6a..6aded198 100644
--- a/src/algebra/matrix.spad.pamphlet
+++ b/src/algebra/matrix.spad.pamphlet
@@ -222,8 +222,7 @@ RectangularMatrix(m,n,R): Exports == Implementation where
mini ==> minIndex
maxi ==> maxIndex
- ZERO := per new(m,n,0)$Matrix(R)
- 0 == ZERO
+ 0 == per new(m,n,0)$Matrix(R)
coerce(x:$):OutputForm == rep(x)::OutputForm
@@ -329,10 +328,8 @@ SquareMatrix(ndim,R): Exports == Implementation where
mini ==> minIndex
maxi ==> maxIndex
- ZERO := scalarMatrix 0
- 0 == ZERO
- ONE := scalarMatrix 1
- 1 == ONE
+ 0 == scalarMatrix 0
+ 1 == scalarMatrix 1
characteristic == characteristic$R