fact: Definition red_pcons pc r (pr : part) := let rpc r' := red_rec (take_part nhub (cat_part (pc r' pr) p0r)) in match r with | Pr56 => rpc Pr55 | Pr57 => rpc Pr56 | Pr58 => rpc Pr57 | Pr67 => rpc Pr66 | Pr68 => rpc Pr67 | Pr78 => rpc Pr77 | _ => true end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) fourcolor(hypermap geometry part quiz quiztree)