fact: Fixpoint mirror_part_rec (h0 : prange) (rp p : part) : part := match p with | Pnil => rp | Pcons s _ p' => mirror_part_rec h0 (Pcons s (next_hat h0 p') rp) p' | Pcons6 _ f1 p' => mirror_part_rec h0 (Pcons6 (next_hat h0 p') f1 rp) p' | Pcons7 _ f1 f2 p' => mirror_part_rec h0 (Pcons7 (next_hat h0 p') f2 f1 rp) p' | Pcons8 _ f1 f2 f3 p' => mirror_part_rec h0 (Pcons8 (next_hat h0 p') f3 f2 f1 rp) p' end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) fourcolor(hypermap color geometry)