From: Jens Vollinga <vollinga@thep.physik.uni-mainz.de>
Date: Mon, 12 Sep 2005 14:54:13 +0000 (+0000)
Subject: Synced to HEAD:
X-Git-Tag: release_1-3-3~13
X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?a=commitdiff_plain;h=ab35f91d372470d9130aad65f9e825657aa2b2d9;p=ginac.git

Synced to HEAD:
Fixed bug occuring in algebraic substitutions with expressions involving
indices. [C.Dams]
---

diff --git a/ginac/power.cpp b/ginac/power.cpp
index cb1d712d..1e9b6849 100644
--- a/ginac/power.cpp
+++ b/ginac/power.cpp
@@ -858,7 +858,7 @@ ex power::expand_mul(const mul & m, const numeric & n, unsigned options, bool fr
 	}
 
 	// Leave it to multiplication since dummy indices have to be renamed
-	if (get_all_dummy_indices(m).size() > 0) {
+	if (get_all_dummy_indices(m).size() > 0 && n.is_positive()) {
 		ex result = m;
 		for (int i=1; i < n.to_int(); i++)
 			result *= rename_dummy_indices_uniquely(m,m);