diff --git a/Z4co/wolfram/wl/Z4c_rhs.wl b/Z4co/wolfram/wl/Z4c_rhs.wl
index 0fcacdaa..c85bbebc 100644
--- a/Z4co/wolfram/wl/Z4c_rhs.wl
+++ b/Z4co/wolfram/wl/Z4c_rhs.wl
@@ -61,11 +61,9 @@ SetEQN[Ss[i_, j_], eT[i, j]];
 
 SetEQN[trSs[], invgam[k, l] Ss[-k, -l]];
 
-SetEQN[trdexAtUU[i_],
-  - invgamt[i, l] exAtUU[j, m] dgamt[-j, -l, -m]
-  - invgamt[j, l] exAtUU[i, m] dgamt[-j, -l, -m]
-  +
-   invgamt[i, l] invgamt[j, m] dexAt[-j, -l, -m]];
+SetEQN[trdexAtUU[i_], -invgamt[i, l] exAtUU[j, m] dgamt[-j, -l, -m] - invgamt[
+  j, l] exAtUU[i, m] dgamt[-j, -l, -m] + invgamt[i, l] invgamt[j, m] dexAt[
+  -j, -l, -m]];
 
 (* (13) *)