proposition: Lemma scycle_ucycle : scycle -> ucycle e p.
proof: Proof. by case/andP=> Cp Up; rewrite /ucycle Cp simple_uniq. Qed.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) fourcolor(hypermap jordan)