fact: Definition conv_part4 p1 := match p1 with | Pcons h34 _ (Pcons s4 f41 _) => match f41, s4 with | Pr59, _ => (Pr59, Pcons s4 h34) | _, Pr55 => (f41, Pcons Pr55 h34) | _, Pr66 => (Pr59, Pcons6 h34 f41) | _, Pr77 => (Pr59, Pcons7 h34 f41 Pr59) | _, _ => (Pr59, fun _ => Pnil) end | Pcons h34 _ (Pcons6 f41 h45 _) => (h45, Pcons6 h34 f41) | Pcons h34 _ (Pcons7 f41 f42 h45 _) => (h45, Pcons7 h34 f41 f42) | _ => (Pr59, fun _ => Pnil) end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) fourcolor(hypermap color geometry)