(*===========================================================
                expe AND bottom
============================================================*)

(* expo and between in an edge: *)

Definition expe(m:fmap)(z t:dart):=
  MA0.expo m z t.Definition betweene(m:fmap)(z v t:dart):=
  MA0.between m z v t.

Lemma cA0_1_MA0_1_Iter:forall(m:fmap)(i:nat)(z:dart), Iter (cA_1 m zero) i z = Iter (MA0.f_1 m) i z.