proposition: Lemma msym_fundamental_symh_un (t1 t2 : {mpoly R[n]}) : t1 \mPo S = t2 \mPo S -> t1 = t2.
proof: Proof. move=> Heq. have {Heq} : omegasf (sympolyf_eval t1) = omegasf (sympolyf_eval t2). by apply val_inj; rewrite /= !sympolyf_evalK. move=> /(congr1 omegasf); rewrite !omegasfK /=. move=> /(congr1 val); rewrite /= -!sympolyf_evalE. exact: msym_fundamental_un. 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