fact: Fixpoint tally_hubcap (hc : hubcap) := match hc with | Hubcap1 i _ hc' => incr_nth (tally_hubcap hc') i | Hubcap2 i j _ hc' => incr_nth (incr_nth (tally_hubcap hc') i) j | _ => [::] end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) mathcomp(bigop order ssralg ssrnum ssrint) fourcolor(hypermap geometry quiztree part discharge)