fact: Fixpoint cpmap (cp : cprog) : pointed_map := match cp with | CpR n :: cp' => ecpR n (cpmap cp') | CpR' :: cp' => ecpR' (cpmap cp') | CpY :: cp' => ecpY (cpmap cp') | CpH :: cp' => ecpH (cpmap cp') | CpU :: cp' => ecpU (cpmap cp') | CpK :: cp' => ecpK (cpmap cp') | CpA :: cp' => ecpA (cpmap cp') | [::] => PointedMap cpmap0 true end.
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) fourcolor(hypermap geometry color)