fact: Fixpoint walkq (x : G) q := match q with | Qask0 => [::] | Qask1 qa => [:: x] | QaskL qa ql => x :: walkq (qstepL x) ql | QaskR qa qr => x :: walkq (qstepR x) qr | QaskLR qa ql qr => x :: walkq (qstepL x) ql ++ walkq (qstepR x) qr | QaskLL qa qll => let xl := qstepL x in edge (node xl) :: walkq (qstepL xl) qll | QaskRR qa qrr => let xr := qstepR x in xr :: walkq (qstepR xr) qrr end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) fourcolor(hypermap geometry coloring)