proposition: Lemma Greene_invseq s t k : invseq s t -> Greene_row s k = Greene_row t k.
proof: Proof. move=> Hst; have Hts := invseq_sym Hst. by apply/eqP; rewrite eqn_leq; apply/andP; split; apply: leq_Greene; exact: ksupp_inj_invseq. Qed.
imports: mathcomp(all_ssreflect) mathcomp(perm fingroup) tools combclass ordcast partition Yamanouchi ordtype std tableau stdtab sorted Schensted congr plactic Greene Greene_inv