proposition: Fact cycle_type_subproof s : is_part_of_n #|T| (setpart_shape (porbits s)).
proof: Proof. Proof using. rewrite -cardsT; apply setpart_shapeP. exact: partition_porbits. 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