diff options
Diffstat (limited to 'src/algebra/defintef.spad.pamphlet')
| -rw-r--r-- | src/algebra/defintef.spad.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/defintef.spad.pamphlet b/src/algebra/defintef.spad.pamphlet index d76f8a01..b8f542cb 100644 --- a/src/algebra/defintef.spad.pamphlet +++ b/src/algebra/defintef.spad.pamphlet @@ -204,7 +204,7 @@ ElementaryFunctionDefiniteIntegration(R, F): Exports == Implementation where polyIfCan(p, x) == q := univariate(p, x) ans:UP := 0 - while q ^= 0 repeat + while q ~= 0 repeat member?(x, tower(c := leadingCoefficient(q)::F)) => return "failed" ans := ans + monomial(c, degree q) q := reductum q |