aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/exprode.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/exprode.spad.pamphlet')
-rw-r--r--src/algebra/exprode.spad.pamphlet3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/algebra/exprode.spad.pamphlet b/src/algebra/exprode.spad.pamphlet
index 0259de07..2693eabf 100644
--- a/src/algebra/exprode.spad.pamphlet
+++ b/src/algebra/exprode.spad.pamphlet
@@ -116,8 +116,7 @@ ExpressionSpaceODESolver(R, F): Exports == Implementation where
K, R, P, F)
div2exquo f ==
--- one?(d := denom f) => f
- ((d := denom f) = 1) => f
+ one?(d := denom f) => f
opex(smp2exquo numer f, smp2exquo d)
-- if g is of the form a * k + b, then return -b/a