diff options
Diffstat (limited to 'src/algebra/irexpand.spad.pamphlet')
| -rw-r--r-- | src/algebra/irexpand.spad.pamphlet | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/algebra/irexpand.spad.pamphlet b/src/algebra/irexpand.spad.pamphlet index e725ca76..c01605cb 100644 --- a/src/algebra/irexpand.spad.pamphlet +++ b/src/algebra/irexpand.spad.pamphlet @@ -78,7 +78,7 @@ IntegrationResultToFunction(R, F): Exports == Implementation where evenRoots x == [first argument k for k in tower x | - is?(k,"nthRoot"::Symbol) and even?(retract(second argument k)@Z) + is?(k,'nthRoot) and even?(retract(second argument k)@Z) and (not empty? variables first argument k)] expand i == @@ -295,6 +295,8 @@ IntegrationResultRFToFunction(R): Exports == Implementation where <<license>>= --Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd. --All rights reserved. +--Copyright (C) 2007-2009, Gabriel Dos Reis. +--All rights reserved. -- --Redistribution and use in source and binary forms, with or without --modification, are permitted provided that the following conditions are |