fact: Definition cp_tr0 k0 := ttail et0 = eptrace (rot 1 (map k0 (cpring (cpmap (catrev cp1 cp2))))).
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) fourcolor(hypermap geometry color coloring cfmap ctree)