End Iter.

(* Specifications: *)
Lemma iter_const {I} (l : list I) (a : R) :
iter Rplus 0 l (fun _ => a) = INR (length l) * a.
Lemma In_mem {T : eqType} (x : T) l :
reflect (In x l) (in_mem x (mem l)).
Lemma In_iota (n m k : nat) :
(n <= m <= k)%nat <-> In m (iota n (S k - n)).