fact: Definition at_radius2 := [rel x y | ~~ [disjoint adj y & [predI adj x & A]]].
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) fourcolor(hypermap walkup geometry color chromogram)