fact: Definition Moebius_path q := if q isn't x :: p then false else [&& uniq q, path clink x p & mem2 p (finv node (last x p)) (node x)].
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq) mathcomp(choice fintype path fingraph)