fact: Definition conv_part5 h45 p3 := match p3 with | Pcons u s5 _ => (u, Pcons s5 h45 Pnil) | Pcons7 s5 s6 s7 _ => (Pr77, Pcons s5 h45 (pcons_s s6 (pcons_s s7 Pnil))) | _ => (Pr59, Pnil) end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) fourcolor(hypermap color geometry)