fact: Definition ext1_mring := let: RotToSpec _ r _ := rot_to rm_ed in ext1_loop ++ r.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(path order ssralg ssrnum ssrint div intdiv) fourcolor(grid)