ExpandScalarProductsFiniteT[expr]

First, expand all scalar products into spatial and temporal parts. Then write all scalar products in expr into their angular form, i.e. sps[a,b] is replaced by a b cos[a,b]