fact: Definition eq_pmap n k k' := forall z1 z2, in_pmap n z1 -> in_pmap n z2 -> k z1 z2 <-> k' z1 z2.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(path ssralg ssrint) fourcolor(real realplane realsyntax realprop) fourcolor(grid approx)