fact: Definition red_pop zp := match zp with | Zpart Zhubl pl pr => red_popl_spoke pl pr | Zpart Zhubr pl pr => red_popr_spoke pr | Zpart Zhatl pl pr => red_popl_spoke pl pr | Zpart Zhat pl pr => red_popr_hat pr | Zpart Zhatr pl pr => red_popr_spoke pr | Zpart Zfan0l pl pr => red_popr_hat pr | Zpart Zfan1l pl pr => red_popl_fan1l pl pr | Zpart Zfan2l pl pr => red_popl_fan2l pl pr | Zpart Zfan3l pl pr => red_popl_fan3l pl pr | Zpart Zfan0r pl pr => red_popl_hat pl pr | Zpart Zfan1r pl pr => red_popl_fan1r pl pr | Zpart Zfan2r pl pr => red_popl_fan2r pl pr | Zpart Zfan3r pl pr => red_popl_fan3r pl pr | _ => true end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) fourcolor(hypermap geometry part quiz quiztree)