fact: Fixpoint rqs_fit (qs : rqseq) (p : seq G) {struct p} : bool := match qs, p with | rqd :: qs', x :: p' => let rq := rqd : ring_question in [&& arity (h x) == rq + arity x, fitq (node (h x)) rq & rqs_fit qs' p'] | [::], [::] => true | _, _ => false end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) fourcolor(hypermap geometry color coloring patch cfmap quiz)