fact: Definition ext2_mring := let: exist (_, r) _ := ext2_P in ext2_loop ++ r.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(path order ssralg ssrnum ssrint div intdiv) fourcolor(grid)