fact: Fixpoint qzt_get1 (qa : qarity) (t : quiz_tree) {struct t} : quiz_tree := match t, qa with | QztNode t' _ _ _, Qa5 => t' | QztNode _ t' _ _, Qa6 => t' | QztNode _ _ t' _, Qa7 => t' | QztNode _ _ _ t', Qa8 => t' | QztHubNode _ t' _ _, Qa9 => t' | QztHubNode _ _ t' _, Qa10 => t' | QztHubNode _ _ _ t', Qa11 => t' | QztHubNode t' _ _ _, _ => qzt_get1 qa t' | _, _ => QztNil end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) fourcolor(hypermap geometry color coloring quiz cfmap) fourcolor(cfquiz cfreducible)