proposition: Fact tinjval_inj s : injective (tinjval s).
proof: Proof. Proof using. rewrite /tinjval => x y. case: (split_ordP x) => xs ->{x} /=; case: (split_ordP y) => ys ->{y} /=. - by move=> /lshift_inj/perm_inj ->. - by move/eqP; rewrite eq_lrshift. - by move/eqP; rewrite eq_rlshift. - by move=> /rshift_inj/perm_inj ->. Qed.
imports: HB(structures) mathcomp(all_ssreflect) mathcomp(ssralg fingroup morphism perm gproduct) mathcomp(ssrnum matrix vector mxalgebra algC) mathcomp(classfun character mxrepresentation) tools ordcast partition sorted permcomp cycles cycletype permcent