Only define curvature relations for the symmetrized Riemann tensor wh…

…en the curvature is non-vanishing.
xAct-contrib · Jul 27, 2016 · 48018f2 · 48018f2
1 parent 91cfe93
commit 48018f2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/xAct/xTras/xTensor.m b/xAct/xTras/xTensor.m
@@ -570,7 +570,7 @@
 				]
 			];
 			(* Curvature rules for the symmetrized Riemann tensor. *)
-			If[metricQ && !torsionQ,
+			If[curvQ && metricQ && !torsionQ,
 				cd /: CurvatureRelations[cd, SymRiemann] = Join[
 					MakeRule[
 						{