fact: Fixpoint DP_split_resize (l: list (list bool)):= if l is a :: l then let l' := DP_split_resize l in if (size a == 2) then a::l' else if l' is u::v then if(size u == 2) then a :: u :: v else (a++u) ::v else [:: a] else [::].
imports: mathcomp(ssreflect ssrfun ssrbool eqtype) mathcomp(ssrnat seq path div) mathcomp(fintype tuple finfun bigop finset binomial)