fact: Definition conv_part12 p4 := match p4 with | Pcons s2 s1 (Pcons h23 f2 _) => match f2, s2 with | Pr59, _ => (h23, fun q => pcons_s s1 (pcons_s s2 q)) | _, Pr55 => (h23, fun q => pcons_s s1 (Pcons Pr55 f2 q)) | _, Pr66 => (h23, fun q => pcons_s s1 (Pcons6 Pr59 f2 q)) | _, Pr77 => (h23, fun q => pcons_s s1 (Pcons7 Pr59 Pr59 f2 q)) | _, _ => (Pr59, fun _ => Pnil) end | Pcons6 s1 h12 (Pcons h23 f21 _) => (h23, fun q => pcons_s s1 (Pcons6 h12 f21 q)) | Pcons7 s1 h12 f21 (Pcons h23 f22 _) => (h23, fun q => pcons_s s1 (Pcons7 h12 f21 f22 q)) | _ => (Pr59, fun _ => Pnil) end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) fourcolor(hypermap color geometry)