fact: Fixpoint DP_splitc_aux n l:= if n is n'.+1 then if nilp l then [::] else let uv:= DP_splitb l in if nilp uv.2 then [:: l] else rcons (DP_splitc_aux n' uv.1) uv.2 else [::].
imports: mathcomp(ssreflect ssrfun ssrbool eqtype) mathcomp(ssrnat seq path div) mathcomp(fintype tuple finfun bigop finset binomial)