Section Elt2.
(* A new section is necessary for previous definitions to work with different [elt], especially [MapsTo]... *)
Variable elt elt' : Type.
(** Specification of [map] *)
Hint Resolve map_lelistA : core.
(** Specification of [mapi] *)
Hint Resolve mapi_lelistA : core.

Lemma mapi_sorted : forall m (Hm : sort (@ltk elt) m)(f: key ->elt -> elt'),
sort (@ltk elt') (mapi f m).