fact: Fixpoint list_shrink_aux α cnt k₁ (l : list α) := match l with | [] => [] | [x₁ … l₁] => match cnt with | O => [x₁ … list_shrink_aux k₁ k₁ l₁] | S n => list_shrink_aux n k₁ l₁ end end.
imports: Utf8 QArith Sorted NPeano ConvexHull ConvexHullMisc Misc NbarM QbarM Newton PolyConvexHull Field2 Fpolynomial PSpolynomial Puiseux_base Power_series Puiseux_series Ps_div Slope_base