fact: Fixpoint symmetrize_drules (r : drules) : drules := if r is p :: r' then let p' := iter 5 (rot_part (size_part p).-1) (mirror_part p) in let psr := p :: symmetrize_drules r' in if cmp_part p p' is Psubset then psr else p' :: psr else r.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) mathcomp(bigop order ssralg ssrnum ssrint) fourcolor(hypermap geometry part)