End IterSepCon.

(* Specifications: *)
Lemma iter_sepcon_map: forall {A B C: Type} {ND : NatDed A} {SL : SepLog A} (l : list C) (f : B -> A) (g: C -> B),
iter_sepcon (fun x : C => f (g x)) l = iter_sepcon f (map g l).