The Gauss-Bonnet term

In this tutorial we will check that the Euler density in 4 dimensions, also known as the Gauss-Bonnet term, is topological. That is, we will show that its equations of motion are zero.
EulerDensity[cd]gives the Euler density associated to the covariant derivative cd.
VarL[g[-a,-b]][L]returns while integrating by parts with respect to the covariant derivative of the metric gab.
FullSimplification[][expr]tries to simplify expr as much as possible, taking Bianchi identities into account and sorting covariant derivatives.
ConstructDDIs[expr]constructs all scalar dimensional dependent identities that can be build out of expr.
SolveTensors[expr]attempts to solve the system expr of tensorial equations for all tensors in expr.
MakeAnsatz[{e1,e2,...}]returns C_1 e_1+C_2 e_2+… , where the C_i's are newly defined constant symbols.
SolveConstants[expr]attempts to solve the system expr of tensorial equations for all constant symbols appearing in expr.

Functions used in this tutorial.

First, load the package and define the manifold and metric.
In[1]:=
Click for copyable input
The Gauss-Bonnet term can be obtained from the function EulerDensity:
In[3]:=
Click for copyable input
Out[3]=
Note that EulerDensity omits the square root of the metric determinant, so technically GBterm isn't a density.
Next, we determine the equations of motion of the Gauss-Bonnet term with VarL:
In[4]:=
Click for copyable input
Out[4]=
Because the Gauss-Bonnet term is topogical, the above should identically be zero. There are no further simplifications coming from Bianchi identities that we can use: FullSimplification took care of most of them, and if there were some remaining we still couldn't use them to get rid of the Ricci tensors.
So the above equations of motion can only be zero due to dimensionally dependent identities. We can obtain the relevant identities with a call to ConstructDDIs:
This constructed all dimensionally dependent identities that have two Riemann tensors (or contractions thereof) and free indices a and b. All of these four expression are zero. Even though there are four identities, only two of them are independent (not taking multi-term symmetries into account). This can be verified with SolveTensors:
In[6]:=
Click for copyable input
Out[6]=
The two options are needed to prevent SolveTensors from making rules for every index combination on the left-hand-side related by symmetries (UseSymmetries) and by raising and lowering of the indices (MetricOn).
The above output consists of rules that we can use to enforce the identities on the equations of motion:
In[7]:=
Click for copyable input
Out[7]=
So indeed the equations of motion are zero.
Alternatively, we could have made an Ansatz with arbitrary coefficients from the identities with MakeAnsatz,
In[8]:=
Click for copyable input
Out[8]=
and tried to make this equal to the equations of motion by solving for the coefficients with SolveConstants:
In[9]:=
Click for copyable input
Out[9]=
So again, the equations of motion are equal to particular linear combination of the dimensionally dependent identities, and hence they are zero.