(*========================================================= cF / L, expf / L, CNS ===========================================================*)
(* expf IS AN EQUIVALENCE (NEW PLACE): *)

(* Specifications: *)
Lemma expf_refl: forall(m:fmap)(z:dart),
inv_hmap m -> exd m z -> expf m z z.
Lemma expf_symm:forall(m:fmap)(z t:dart),
expf m z t -> expf m t z.
Lemma expf_trans:forall (m : fmap) (z t u : dart),
expf m z t -> expf m t u -> expf m z u.
Lemma cF_I:forall(m:fmap)(x z:dart)(u:tag)(p:point),
inv_hmap m -> prec_I m x -> exd m z -> x <> z ->
(cF (I m x u p) z = cF m z).
Lemma Iter_cF_I:forall(m:fmap)(x z:dart)(u:tag)(p:point)(i:nat),
inv_hmap m -> prec_I m x ->
exd m z -> x <> z ->
Iter (cF (I m x u p)) i z = Iter (cF m) i z.