aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/primelt.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/primelt.spad.pamphlet')
-rw-r--r--src/algebra/primelt.spad.pamphlet2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/primelt.spad.pamphlet b/src/algebra/primelt.spad.pamphlet
index 1f18de1d..c72e09f6 100644
--- a/src/algebra/primelt.spad.pamphlet
+++ b/src/algebra/primelt.spad.pamphlet
@@ -83,7 +83,7 @@ PrimitiveElement(F): Exports == Implementation where
findUniv(l, v, opt) ==
for p in l repeat
- degree(p, v) > 0 and incl?(variables p, [v, opt]) => return p
+ positive? degree(p, v) and incl?(variables p, [v, opt]) => return p
"failed"
triangularLinearIfCan(l, lv, w) ==