aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/naalg.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/naalg.spad.pamphlet')
-rw-r--r--src/algebra/naalg.spad.pamphlet3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/algebra/naalg.spad.pamphlet b/src/algebra/naalg.spad.pamphlet
index f252ef74..9937d9aa 100644
--- a/src/algebra/naalg.spad.pamphlet
+++ b/src/algebra/naalg.spad.pamphlet
@@ -98,8 +98,7 @@ AlgebraGivenByStructuralConstants(R:Field, n : PositiveInteger,_
for i in 1..n repeat
coef : R := elt(x::Rep,i)
not zero?(coef)$R =>
--- one?(coef)$R =>
- ((coef) = 1)$R =>
+ one?(coef)$R =>
-- sy : OutputForm := elt(ls,i)$(List Symbol) :: OutputForm
le := cons(elt(ls,i)$(List Symbol) :: OutputForm, le)
le := cons(coef :: OutputForm * elt(ls,i)$(List Symbol)_