fact: Fixpoint cpcard (cp : cprog) := match cp with | (CpR _ | CpA | CpR') :: cp' => cpcard cp' | (CpU | CpK) :: cp' => (cpcard cp').+2 | CpY :: cp' => (cpcard cp').+4 | CpH :: cp' => (cpcard cp').+4.+2 | [::] => 2 end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) fourcolor(hypermap jordan geometry color chromogram) fourcolor(coloring patch snip sew revsnip kempe) fourcolor(ctree initctree gtree initgtree ctreerestrict) fourcolor(gtreerestrict cfmap cfcolor kempetree)