From 4ac728ac483c7b1a488474f87ff097905466d7eb Mon Sep 17 00:00:00 2001
From: Ian Hinder <ian.hinder@aei.mpg.de>
Date: Wed, 14 Nov 2012 15:33:08 +0100
Subject: TensorTools.m: Expand contractions within partial derivatives

Previously, PD[v[ua],la] was not expanded
---
 Tools/CodeGen/TensorTools.m | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'Tools/CodeGen')

diff --git a/Tools/CodeGen/TensorTools.m b/Tools/CodeGen/TensorTools.m
index 50d108c..5aab9ed 100644
--- a/Tools/CodeGen/TensorTools.m
+++ b/Tools/CodeGen/TensorTools.m
@@ -549,6 +549,9 @@ listComponentsOfDummyIndex[x_, i:(TensorIndex[_,lower])] :=
    contractions of tensorial expressions.
 *)
 
+makeSum[x : PD[Tensor[_, __TensorIndex], __TensorIndex]] :=
+  makeSumOverDummies[x];
+
 makeSum[f_[x___]] :=
   Apply[f, Map[makeSum, {x}]];
 
-- 
cgit v1.2.3