proposition: Theorem list_nth_shrink : ∀ n k l (d : α) cnt, List.nth n (list_shrink_aux cnt k l) d = List.nth (cnt + n * S k) l d.
proof: Proof. intros n k l d cnt. revert n k cnt. induction l as [| a]; intros; [ destruct n, cnt; reflexivity | idtac ]. destruct n; simpl. destruct cnt; simpl; [ reflexivity | rewrite IHl; reflexivity ]. destruct cnt; simpl; rewrite IHl; reflexivity. Qed.
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