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