fact: Record sort_drules_result := SortDrules { nb_forced_drules :> nat; straddling_drules :> drules }.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) mathcomp(bigop order ssralg ssrnum ssrint) fourcolor(hypermap geometry part)