fact: Definition fin_color_map n (g : point -> R) := [map z t | exists2 i, i < n & (g z == g t == i%:R)%Rval].
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(path ssralg ssrint) fourcolor(real realplane realsyntax realprop) fourcolor(grid approx)