diff options
Diffstat (limited to 'src/algebra')
| -rw-r--r-- | src/algebra/multpoly.spad.pamphlet | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/algebra/multpoly.spad.pamphlet b/src/algebra/multpoly.spad.pamphlet index 99ab7833..864d4343 100644 --- a/src/algebra/multpoly.spad.pamphlet +++ b/src/algebra/multpoly.spad.pamphlet @@ -702,10 +702,10 @@ IndexedExponents(Varset:OrderedSet): C == T where Rep:= List Term x:% t:Term - coerceOF(t):OutputForm == --++ converts term to OutputForm + coerceOF(t):OutputForm == -- converts term to OutputForm t.c = 1 => (t.k)::OutputForm (t.k)::OutputForm ** (t.c)::OutputForm - coerce(x):OutputForm == ++ converts entire exponents to OutputForm + coerce(x):OutputForm == -- converts entire exponents to OutputForm null x => 1::Integer::OutputForm null rest x => coerceOF(first x) reduce("*",[coerceOF t for t in x]) |