fact: Definition plact2i := fun s => match s return seq word with | [:: b; c; a] => if (a < b <= c)%O then [:: [:: b; a; c]] else [::] | _ => [::] end.
imports: mathcomp(all_ssreflect) mathcomp(perm) tools partition ordtype tableau stdtab Schensted congr