fact: Definition ext2_quad := [&& halfg (gedge d) \in m, halfg (gedge (gface d)) \in m & ~~ has (equad d) m].
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(path order ssralg ssrnum ssrint div intdiv) fourcolor(grid)