@@ -1375,7 +1375,8 @@ function dot(r1::DualRootSpaceElem, r2::DualRootSpaceElem)
13751375
13761376 # return dot(coefficients(r1) * _bilinear_form_QQ_of_dual(root_system(r1)), coefficients(r2)) # currently the below is faster
13771377 return only (
1378- coefficients (r1) * _bilinear_form_QQ_of_dual (root_system (r1)) * transpose (coefficients (r2))
1378+ coefficients (r1) * _bilinear_form_QQ_of_dual (root_system (r1)) *
1379+ transpose (coefficients (r2)),
13791380 )
13801381end
13811382
@@ -1573,7 +1574,7 @@ If `r` is a root, this is the coroot corresponding to `r`.
15731574function dual (r:: RootSpaceElem )
15741575 R = root_system (r)
15751576 lr = dot (r, r)
1576- coeffs = [dot (simple_root (R, i), simple_root (R, i))// lr * coeff (r,i) for i in 1 : rank (R)]
1577+ coeffs = [dot (simple_root (R, i), simple_root (R, i))// lr * coeff (r, i) for i in 1 : rank (R)]
15771578 return DualRootSpaceElem (R, coeffs)
15781579end
15791580
@@ -1587,7 +1588,9 @@ If `r` is a coroot, this is the root corresponding to `r`.
15871588function dual (r:: DualRootSpaceElem )
15881589 R = root_system (r)
15891590 lr = dot (r, r)
1590- coeffs = [dot (simple_coroot (R, i), simple_coroot (R, i))// lr * coeff (r,i) for i in 1 : rank (R)]
1591+ coeffs = [
1592+ dot (simple_coroot (R, i), simple_coroot (R, i))// lr * coeff (r, i) for i in 1 : rank (R)
1593+ ]
15911594 return RootSpaceElem (R, coeffs)
15921595end
15931596
0 commit comments