fact: Fixpoint take_part (n : nat) (p : part) {struct n} : part := match n, p with | n'.+1, Pcons s h p' => Pcons s h (take_part n' p') | n'.+1, Pcons6 h f1 p' => Pcons6 h f1 (take_part n' p') | n'.+1, Pcons7 h f1 f2 p' => Pcons7 h f1 f2 (take_part n' p') | n'.+1, Pcons8 h f1 f2 f3 p' => Pcons8 h f1 f2 f3 (take_part n' p') | _, _ => Pnil end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype path fingraph) fourcolor(hypermap color geometry)