Maxima Function
rinvariant ()
Forms the Kretchmann-invariant (kinvariant) obtained by contracting the tensors
kinvariant
lriem[i,j,k,l]*uriem[i,j,k,l].
This object is not automatically simplified since it can be very large.