- g~mu_mu contraction returns Dim for general Lorentz indices and Dim-dimP

[ginac.git] / ginac / lortensor.cpp

diff --git a/ginac/lortensor.cpp b/ginac/lortensor.cpp
index 6c326e2b01af3dfe4fe1d4b168352802b700814d..e8f4f87312d9070d5e2b826affbeddb40f60bf37 100644 (file)
--- a/ginac/lortensor.cpp
+++ b/ginac/lortensor.cpp
@@ -31,7 +31,6 @@
 #include "add.h"
 #include "mul.h"
 #include "debugmsg.h"
-#include "flags.h"
 #include "lst.h"
 #include "lortensor.h"
 #include "operators.h"
@@ -322,7 +321,10 @@ ex lortensor::eval(int level) const
                                return _ex0();
                        }
                } else if (idx1.is_symbolic() && idx1.is_co_contra_pair(idx2)) {
-                       return Dim();
+                       if (idx1.is_orthogonal_only())
+                               return Dim() - idx1.get_dim_parallel_space();
+                       else
+                               return Dim();
                }
        }
        return this -> hold();