fact: Definition tabnat_of_ord_fun (t : tabsh la) := if (eval (to_word t) == td) then [seq [seq (i : nat) | i : 'I_n.+1 <- r] | r <- t] else hyper_stdtabsh la.
imports: HB(structures) mathcomp(all_ssreflect) mathcomp(ssralg ssrint fingroup perm) mathcomp(mpoly) tools combclass ordtype sorted partition tableau skewpart skewtab antisym Schur_mpoly freeSchur therule std stdtab unitriginv presentSn