proposition: Lemma CTpartn_colpartn : CTpartn (colpartn n) = colpartn #|'I_n|.
proof: Proof. by apply val_inj; rewrite cast_intpartnE /= card_ord. 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