fact: Fixpoint DP_splita l := if l is a::l' then let u:= (DP_splita l').1 in if(nilp u) then if (DP_Tcount l >= DP_Fcount l) then ([::],l) else ([:: a], l') else (a::u,(DP_splita l').2) else ([::],[::]).
imports: mathcomp(ssreflect ssrfun ssrbool eqtype) mathcomp(ssrnat seq path div) mathcomp(fintype tuple finfun bigop finset binomial)