fact: Definition normq q := match q with | Qask1 qa => QaskLR qa Qask0 Qask0 | QaskL qa ql => QaskLR qa ql Qask0 | QaskR qa qr => QaskLR qa Qask0 qr | _ => q end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) fourcolor(hypermap geometry color coloring quiz cfmap) fourcolor(cfquiz cfreducible)