fact: Definition get_fan2r p := match p with | Pcons7 _ _ f2 _ => f2 | Pcons8 _ _ f2 _ _ => f2 | _ => Pr59 end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) fourcolor(hypermap color geometry)