aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/constant.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/constant.spad.pamphlet')
-rw-r--r--src/algebra/constant.spad.pamphlet2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/constant.spad.pamphlet b/src/algebra/constant.spad.pamphlet
index 4b8bca4c..34138adc 100644
--- a/src/algebra/constant.spad.pamphlet
+++ b/src/algebra/constant.spad.pamphlet
@@ -88,7 +88,7 @@ InnerAlgebraicNumber(): Exports == Implementation where
one? a == one? numer a and one? denom a
x:% / y:% == mainRatDenom(x /$Rep y)
x:% ** n:Integer ==
- n < 0 => mainRatDenom (x **$Rep n)
+ negative? n => mainRatDenom (x **$Rep n)
x **$Rep n
trueEqual(a,b) ==
-- if two algebraic numbers have the same norm (after deleting repeated