fact: Definition proper_cpmask cp cm := let: Cfmask mr mk := cm in (size mr == cprsize cp) && (size mk == cpksize cp).
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) fourcolor(hypermap geometry color)