u := [1,0,0]: v := [0,1,0]: w := [a,b,c]: alias(cp=crossprod): LHS := cp( cp(u,v),w ); RHS := cp( u, cp(v,w));