fact: Fixpoint cfquiz_tree_rec (qt : quiz_tree) (cfs : seq config) : quiz_tree := if cfs isn't cf :: cfs' then qt else let qt' := store_cf_qz (cfquiz cf) (cfsym cf) qt in if qt' is QztHubNode _ _ _ _ then cfquiz_tree_rec qt' cfs' else QztNil.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) fourcolor(hypermap geometry color coloring quiz cfmap) fourcolor(cfquiz cfreducible)