fact: Hypothesis sameN : forall (x : H), val (node x) = skip p node (val x).
imports: mathcomp(all_ssreflect) GraphTheory(edone preliminaries bij) fourcolor(hypermap geometry cfmap jordan color coloring combinatorial4ct) fourcolor(walkup)