diff options
Diffstat (limited to 'src/algebra/gpol.spad.pamphlet')
| -rw-r--r-- | src/algebra/gpol.spad.pamphlet | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/algebra/gpol.spad.pamphlet b/src/algebra/gpol.spad.pamphlet index 3d09fc08..52918474 100644 --- a/src/algebra/gpol.spad.pamphlet +++ b/src/algebra/gpol.spad.pamphlet @@ -103,14 +103,12 @@ LaurentPolynomial(R, UP): Exports == Implementation where monTerm(r, n, v) == zero? n => r::O --- one? n => v - (n = 1) => v + one? n => v v ** (n::O) toutput(r, n, v) == mon := monTerm(r, n, v) --- zero? n or one? r => mon - zero? n or (r = 1) => mon + zero? n or one? r => mon r = -1 => - mon r::O * mon |