fact: Fixpoint cpradius2 (cp : cprog) i := if i isn't i'.+1 then false else let cm0 := cfmask1 cp i' in let: Cfmask mr1 _ := cm0 in let: Cfmask _ mk1 := cpadj cm0 cp in let: Cfmask _ mk2 := cpadj (Cfmask mr1 mk1) cp in if all id mk2 then true else cpradius2 cp i'.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) fourcolor(hypermap geometry color coloring patch cfmap quiz)