proposition: Lemma RabcGtnX a b c : (a < b <= c)%O -> hypRabc >%O c b a.
proof: Proof. move=> H; constructor. - exact: gt_trans. - by move: H => /andP /= []. - by move: H => /andP /= [] _; rewrite -!leNgt. - by move: H => /andP /= [_ H1] /= x H2; exact: (le_lt_trans H1 H2). - by move: H => /andP /= [_ H1] /= x H2; exact: (lt_le_trans H2 H1). Qed.
imports: mathcomp(all_ssreflect) mathcomp(perm) tools ordcast ordtype subseq partition tableau Yamanouchi stdtab Schensted congr plactic Greene