fact: Definition leperm s t := [exists u, (t == s * u) && (length t == length s + length u)].
imports: HB(structures) mathcomp(all_ssreflect) mathcomp(fingroup perm morphism presentation) permcomp tools permuted combclass congr presentSn ordtype