fact: Fixpoint catrev_part (p1 p2 : part) : part := match p1 with | Pnil => p2 | Pcons s h p1' => catrev_part p1' (Pcons s h p2) | Pcons6 h f1 p1' => catrev_part p1' (Pcons6 h f1 p2) | Pcons7 h f1 f2 p1' => catrev_part p1' (Pcons7 h f1 f2 p2) | Pcons8 h f1 f2 f3 p1' => catrev_part p1' (Pcons8 h f1 f2 f3 p2) end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) fourcolor(hypermap color geometry)