Comprobando el resultado

> evalm(L&*C&*transpose(L));

> equal(simplify(%),A);