(a0 . Cross[b, d] + a0 . Cross[b, e] - a0 . Cross[d, e])*   (-b . b - b . c + b . f + c . f) + (00*I)*\[CapitalEpsilon]0*\[CapitalEpsilon]0*   (a0 . Cross[b, d] + a0 . Cross[b, e] - a0 . Cross[d, e])*   (-b . b - b . c + b . f + c . f) + (00*I)*