(*========================================================== ============================================================ TOPOLOGICAL FMAPS, HMAPS -  WITH TAGS AND EMBEDDINGS  PART 4:  MAPS, OPERATIONS, PROPERTIES / B, L_B...  COMPLETE: OK! ============================================================ ==========================================================*)
Require Export Jordan3.
(*========================================================== expf_B : expf on B ===========================================================*)
(* OK: *)
(* OK: *)
(* OK: *)
(* IDEM: *)
(* OK: *)
(* OK!! *)
(* IDEM: *)
(* WITH Iter: *)
Definition expfo(m:fmap)(x:dart)(z t:dart):=
expf (L (B m zero x) zero x (A m zero x)) z t.

Lemma expfo_expf:forall(m:fmap)(x:dart)(z t:dart),
inv_hmap m -> succ m zero x ->
(expfo m x z t <-> expf m z t).