fact: Fixpoint cpexpand (cp : cprog) : cprog := if cp is s :: cp' then cpexpand1 s ++ cpexpand cp' else [::].
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) fourcolor(hypermap geometry color coloring cfmap ctree)