fact: Definition reduced_word := [qualify w : seq 'I_n | length 's_[w] == size w ].
imports: HB(structures) mathcomp(all_ssreflect) mathcomp(fingroup perm morphism presentation) mathcomp(ssralg poly ssrint) permcomp tools permuted combclass congr