fact: Definition zshiftl zi zp := match zp with | Zpart _ (Pcons _ _ Pnil) _ => Zpart zi p0l p0r | Zpart _ (Pcons6 _ _ Pnil) _ => Zpart zi p0l p0r | Zpart _ (Pcons7 _ _ _ Pnil) _ => Zpart zi p0l p0r | Zpart _ (Pcons8 _ _ _ _ Pnil) _ => Zpart zi p0l p0r | Zpart _ (Pcons s h pl) pr => Zpart zi pl (Pcons s h pr) | Zpart _ (Pcons6 h f1 pl) pr => Zpart zi pl (Pcons6 h f1 pr) | Zpart _ (Pcons7 h f1 f2 pl) pr => Zpart zi pl (Pcons7 h f1 f2 pr) | Zpart _ (Pcons8 h f1 f2 f3 pl) pr => Zpart zi pl (Pcons8 h f1 f2 f3 pr) | Zpart _ Pnil _ => Zpart zi p0ll p0lr end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) fourcolor(hypermap geometry part quiz quiztree)