fact: Definition halfg d := let: Gpoint x y := d in Gpoint (x %/ 2)%Z (y %/ 2)%Z.
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq path) mathcomp(div choice order ssralg ssrnum ssrint intdiv) fourcolor(hypermap)