proposition: Lemma Σ_const x n: Σ n (fun _ => x) == inject_Z (Z.of_nat n) * x.
proof: Proof. apply Σ_constant. reflexivity. Qed.
imports: CoRN.stdlib_omissions.List Coq.QArith.QArith Coq.QArith.Qabs CoRN.model.totalorder.QposMinMax CoRN.model.metric2.Qmetric Coq.Program.Program CoRN.stdlib_omissions.N CoRN.stdlib_omissions.Z CoRN.stdlib_omissions.Q