fact: Definition conv_part3 h23 p6 := match p6 with | Pnil => Pcons Pr55 h23 | Pcons _ _ Pnil => Pcons Pr66 h23 | Pcons f31 _ (Pcons f32 _ Pnil) => match f31, f32 with | Pr59, Pr59 => Pcons Pr77 h23 | _, _ => Pcons7 h23 f31 f32 end | Pcons f31 _ (Pcons f32 _ (Pcons f33 _ Pnil)) => Pcons8 h23 f31 f32 f33 | _ => fun _ => Pnil end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) fourcolor(hypermap color geometry)