aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/curve.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/curve.spad.pamphlet')
-rw-r--r--src/algebra/curve.spad.pamphlet2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/curve.spad.pamphlet b/src/algebra/curve.spad.pamphlet
index 57fd38d3..d69d6bfe 100644
--- a/src/algebra/curve.spad.pamphlet
+++ b/src/algebra/curve.spad.pamphlet
@@ -305,7 +305,7 @@ FunctionFieldCategory(F, UP, UPUP): Category == Definition where
infValue f ==
zero? f => 0
- (n := infOrder f) > 0 => 0
+ positive?(n := infOrder f) => 0
zero? n =>
(leadingCoefficient numer f) / (leadingCoefficient denom f)
error "f not locally integral at infinity"