(*========================================================== ============================================================ 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: *)

Lemma cA_1_L_B:forall(m : fmap)(k j : dim)(x z : dart),
inv_hmap m -> succ m k x ->
let y:= A m k x in
cA_1 (L (B m k x) k x y) j z = cA_1 m j z.