proposition: Lemma one_correct : one >:: PolR.one.
proof: Proof. case=> [|k] /=. exact: I.fromZ_small_correct. exact: zero_correct. Qed.
imports: Coq(ZArith Reals) Coquelicot(Coquelicot) mathcomp.ssreflect(ssreflect ssrfun ssrbool eqtype ssrnat seq fintype bigop) Flocq(Core) Stdlib MathComp Interval Xreal Basic_rec