(* THEN, SIMILARLY (OK): *)

(* Specifications: *)
Lemma top_cA_1: forall(m:fmap)(k:dim)(z:dart),
inv_hmap m -> exd m z ->
top m k (cA_1 m k z) = top m k z.
Lemma cA0_1_MA0_1:forall(m:fmap)(z:dart),
cA_1 m zero z = MA0.f_1 m z.
Lemma expe_top_ind: forall(m:fmap)(z:dart)(i:nat),
inv_hmap m -> exd m z ->
let t:= Iter (cA m zero) i z in
top m zero z = top m zero t.