fact: Fixpoint qzt_put1 (qa : qarity) (qr : quiz_tree -> quiz_tree) (t : quiz_tree) {struct t} : quiz_tree := match t, qa with | QztNode t5 t6 t7 t8, Qa5 => QztNode (qr t5) t6 t7 t8 | QztNode t5 t6 t7 t8, Qa6 => QztNode t5 (qr t6) t7 t8 | QztNode t5 t6 t7 t8, Qa7 => QztNode t5 t6 (qr t7) t8 | QztNode t5 t6 t7 t8, Qa8 => QztNode t5 t6 t7 (qr t8) | QztHubNode t58 t9 t10 t11, Qa9 => QztHubNode t58 (qr t9) t10 t11 | QztHubNode t58 t9 t10 t11, Qa10 => QztHubNode t58 t9 (qr t10) t11 | QztHubNode t58 t9 t10 t11, Qa11 => QztHubNode t58 t9 t10 (qr t11) | QztHubNode t58 t9 t10 t11, _ => QztHubNode (qzt_put1 qa qr t58) t9 t10 t11 | _, _ => t end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) fourcolor(hypermap geometry color coloring quiz cfmap) fourcolor(cfquiz cfreducible)