proposition: Corollary res_tab_inj : {in [set x : Tm | eqeval x (rcons s m) & shape_res_tab x == la] &, injective res_tab}.
proof: Proof. move=> t1 t2; rewrite !inE. move=> /andP[Hev1 /eqP/(congr1 val) /=]; rewrite Hev1 => /eqP Hsh1. move=> /andP[Hev2 /eqP/(congr1 val) /=]; rewrite Hev2 => /eqP Hsh2. by rewrite -{2}(res_tabK Hsh1 Hev1) -{2}(res_tabK Hsh2 Hev2) => ->. Qed.
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