fact: Definition red_popl_spoke pl pr := if pl is Pcons s h _ then red_pcons (Pcons^~ h) s pr else true.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) fourcolor(hypermap geometry part quiz quiztree)