1
2% The following rule triggered a "non-numeric argument in arithmetic" error
3% in subf1.
4
5frule := { int((~~a+~~b*~x)^~m*~f^((~~c+~~d*x)^~n),x) =>
6   (a+b*x)^(m+1)*f^((c+d*x)^n)/(b*(m+1))
7   - d*n*log(f)/(b*(m+1))*int((a+b*x)^(m+1)*f^((c+d*x)^n)*(c+d*x)^(n-1),x)  when fixp n and numberp m and n>1 and m<-1};
8
9let frule;
10
11clearrules frule;
12
13end;
14
15