(* IMMEDIATE: USEFUL *)

(* Specifications: *)
Lemma Iter_f_Si:forall(m:fmap)(i:nat)(z:dart),
inv_hmap m -> exd m z ->
Iter (f m) (S i) z = Iter (f m) i (f m z).
Lemma Iter_f_1_Si:forall(m:fmap)(i:nat)(z:dart),
inv_hmap m -> exd m z ->
Iter (f_1 m) (S i) z = Iter (f_1 m) i (f_1 m z).