fact: Record porbits_map := PorbitMap { fs :> {set U} -> {set V}; fs_stab : fs @: porbits s \subset porbits t; fs_homog : {in porbits s, forall C, #|fs C| = #|C| } }.
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