fact: Fixpoint invbumprow b s : (seq T) * T := if s is l0 :: s then if (b <= head b s)%O then (b :: s, l0) else let: (rr, lr) := invbumprow b s in (l0 :: rr, lr) else ([::], b).
imports: HB(structures) mathcomp(all_ssreflect) mathcomp(perm fingroup) tools partition Yamanouchi ordtype subseq tableau std stdtab