aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/ore.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/ore.spad.pamphlet')
-rw-r--r--src/algebra/ore.spad.pamphlet2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/ore.spad.pamphlet b/src/algebra/ore.spad.pamphlet
index 126af607..e55b0eee 100644
--- a/src/algebra/ore.spad.pamphlet
+++ b/src/algebra/ore.spad.pamphlet
@@ -318,7 +318,7 @@ Automorphism(R:Ring): Join(Group, Eltable(R, R)) with
apply(f, r, n) == (g := f pretend ((R, Integer) -> R); g(r, n))
iterat(f, g, n, r) ==
- n < 0 => iter(g, (-n)::NonNegativeInteger, r)
+ negative? n => iter(g, (-n)::NonNegativeInteger, r)
iter(f, n::NonNegativeInteger, r)
iter(f, n, r) ==