fact: Fixpoint straighten_rev w := if w is w0 :: w then inscode (straighten_rev w) w0 else (nseq n.+1 0).
imports: HB(structures) mathcomp(all_ssreflect) mathcomp(fingroup perm morphism presentation) mathcomp(ssralg poly ssrint) permcomp tools permuted combclass congr