fact: Fixpoint qzt_size (t : quiz_tree) : nat := match t with | QztLeaf _ _ _ t' => (qzt_size t').+1 | QztNode t5 t6 t7 t8 => qzt_size t5 + (qzt_size t6 + (qzt_size t7 + qzt_size t8)) | QztHubNode t58 t9 t10 t11 => qzt_size t58 + (qzt_size t9 + (qzt_size t10 + qzt_size t11)) | _ => 0 end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) fourcolor(hypermap geometry color coloring quiz cfmap) fourcolor(cfquiz cfreducible)