fact: Definition zrange zp := match zp with | Zpart Znil _ _ => Pr59 | Zpart Zhub _ _ => hub_range | Zpart Zhubl pl _ => get_spoke pl | Zpart Zhubr _ pr => get_spoke pr | Zpart Zhatl pl _ => get_spoke pl | Zpart Zhat _ pr => get_hat pr | Zpart Zhatr _ pr => get_spoke pr | Zpart Zfan0l _ pr => get_hat pr | Zpart Zfan1l pl _ => get_fan1l pl | Zpart Zfan2l pl _ => get_fan2l pl | Zpart Zfan3l pl _ => get_fan3l pl | Zpart Zfan0r pl _ => get_hat pl | Zpart Zfan1r pl _ => get_fan1r pl | Zpart Zfan2r pl _ => get_fan2r pl | Zpart Zfan3r pl _ => get_fan3r pl end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) fourcolor(hypermap geometry part quiz quiztree)