(* USEFUL LEMMAS: *)
(* OK: *)

(* Specifications: *)
Lemma Iter_cA0_I:
forall(m:fmap)(d z:dart)(t:tag)(p:point)(i:nat),
inv_hmap (I m d t p) -> exd m z ->
Iter (cA (I m d t p) zero) i z = Iter (cA m zero) i z.