fact: Definition refine_mdisk (md : seq gpoint) : seq gpoint := flatten [seq pmring p | p <- md].
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(path order ssralg ssrnum ssrint div intdiv) fourcolor(grid)