proposition: Lemma CTpartnK (p : 'P_n) : partnCT p = p.
proof: Proof. Proof using. rewrite /partnCT; apply val_inj => /=. by rewrite !cast_intpartnE. Qed.
imports: mathcomp.ssreflect.ssreflect mathcomp(ssrfun ssrbool eqtype ssrnat seq choice fintype) mathcomp(tuple finfun finset path bigop) mathcomp(fingroup perm action) mathcomp(ssralg matrix mxalgebra algC classfun) partition tools sorted permcomp fibered_set cycles