fact: Fixpoint invinstabnrow t nrow : seq (seq T) * T := if t is t0 :: t then if nrow is nrow.+1 then let: (tr, lr) := invinstabnrow t nrow in let: (t0r, l0r) := invbumprow lr t0 in (t0r :: tr, l0r) else if t0 is l0 :: t0 then if t0 == [::] then (t, l0) else ((belast l0 t0) :: t, last l0 t0) else ([::], inh) else ([::], inh).
imports: HB(structures) mathcomp(all_ssreflect) mathcomp(perm fingroup) tools partition Yamanouchi ordtype subseq tableau std stdtab