proposition: Lemma size_primitive (c : C.T) (p : T): size (primitive c p) = (size p).+1.
proof: Proof. by rewrite /size /= size_mkseq. 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