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