diff options
Diffstat (limited to 'src/algebra/fs2expxp.spad.pamphlet')
-rw-r--r-- | src/algebra/fs2expxp.spad.pamphlet | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/algebra/fs2expxp.spad.pamphlet b/src/algebra/fs2expxp.spad.pamphlet index fed80080..ad344d99 100644 --- a/src/algebra/fs2expxp.spad.pamphlet +++ b/src/algebra/fs2expxp.spad.pamphlet @@ -209,8 +209,7 @@ FunctionSpaceToExponentialExpansion(R,FE,x,cen):_ -- is the function a power with exponent other than 0 or 1? (expt := isPower fcn) case "failed" => "failed" power := expt :: Record(val:FE,exponent:I) --- one? power.exponent => "failed" - (power.exponent = 1) => "failed" + one? power.exponent => "failed" power negativePowerOK? upxs == |