fact: Definition get_spoke p := match p with | Pcons s _ _ => s | Pcons6 _ _ _ => Pr66 | Pcons7 _ _ _ _ => Pr77 | Pcons8 _ _ _ _ _ => Pr88 | _ => Pr59 end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) fourcolor(hypermap color geometry)