Simplify Integrate results.

corywalker · Nov 20, 2018 · 1c82bc5 · 1c82bc5
1 parent 04496b3
commit 1c82bc5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/expreduce/resources/calculus.m b/expreduce/resources/calculus.m
@@ -65,11 +65,11 @@
 !!! warning \"Under development\"
     This function is under development, and as such will be incomplete and inaccurate.";
 Integrate[a_,{x_Symbol,start_,end_}] :=
-    ReplaceAll[Integrate[a, x],x->end] - ReplaceAll[Integrate[a, x],x->start];
+    (ReplaceAll[Integrate[a, x],x->end] - ReplaceAll[Integrate[a, x],x->start]) // Simplify;
 Integrate[a_,x_Symbol] := Module[{cleanedA, replaceRules},
   replaceRules = genSubscriptReplacements[a];
   cleanedA = a /. replaceRules[[1]];
-  Rubi`Int[cleanedA, x] /. replaceRules[[2]]
+  (Rubi`Int[cleanedA, x] /. replaceRules[[2]]) // Simplify
 ];
 Attributes[Integrate] = {ReadProtected, Protected};
 Tests`Integrate = {