(* OK!!: *)

Lemma nopred_expe_L_i:
forall(m:fmap)(i:nat)(k:dim)(x y z:dart),
inv_hmap (L m k x y) ->
exd m z -> ~pred m zero z ->
let t:= Iter (cA m zero) i z in
(i < MA0.Iter_upb m z)%nat ->
expe (L m k x y) z t.