Makes a rank-4 tensor a doubled identity tensor, A_{ijkl} = 1 \mathrm{\; if\; } i \equiv j \wedge k \equiv l \mathrm{\; else\; } 0 .
References syten::DenseTensor< rank, Scalar >::dim(), and SYTEN_ASSERT_DEBUG.
This browser is not able to show SVG: try Firefox, Chrome, Safari, or Opera instead.