fact: Definition zfanRt pl := match pl with | Pcons Pr55 _ _ => Zfan0r | Pcons Pr56 _ _ => Zfan1r | Pcons Pr66 _ _ => Zfan1r | Pcons6 _ _ _ => Zfan1r | Pcons7 _ _ _ _ => Zfan2r | Pcons8 _ _ _ _ _ => Zfan3r | _ => Znil end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) fourcolor(hypermap geometry part quiz quiztree)