fact: Definition red_popl_hat pl pr := match pl with | Pcons s h _ => red_pcons (fun r => Pcons s r) h pr | Pcons6 h f1 _ => red_pcons (fun r => Pcons6 r f1) h pr | Pcons7 h f1 f2 _ => red_pcons (fun r => Pcons7 r f1 f2) h pr | Pcons8 h f1 f2 f3 _ => red_pcons (fun r => Pcons8 r f1 f2 f3) h pr | _ => true end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) fourcolor(hypermap geometry part quiz quiztree)