(* Build a polynomial from an infinite sequence of coefficients and a bound. *)
Fact poly_key : unit. Proof. by []. Qed.
Definition poly := locked_with poly_key poly_expanded_def.
Canonical poly_unlockable := [unlockable fun poly].
Local Notation "\poly_ ( i < n ) E" := (poly n (fun i : nat => E)).

Lemma size_poly n E : size (\poly_(i < n) E i) <= n.