proposition: Lemma syme_syms mu : 'e[mu] = \sum_(la : 'P_d) 'K(la, mu) *: 's[la ^~] :> SF.
proof: Proof. rewrite -(map_syme_prod intr) syme_syms_int. rewrite rmorph_sum /=; apply eq_bigr => i _. rewrite linearZ_LR /= map_syms /=; congr (_ *: _). by rewrite mulrz_nat. Qed.
imports: HB(structures) mathcomp(all_ssreflect) mathcomp(ssralg ssrint fingroup perm) mathcomp(ssrcomplements freeg mpoly) sorted tools ordtype permuted partition skewpart composition Yamanouchi std tableau stdtab skewtab permcent antisym Schur_mpoly therule Schur_altdef unitriginv