##
## This file contains the allocation to the variable coxeter_slocus of 
## a list of pairs [elt,pol], where elt runs through the maximal elements
## of the set of x < y s.t. P_{x,y} != 1. When W is crystallographic,
## these are the components of the rational singular locus of the Schubert
## variety X_y.
##
