End FreshLastKey.
(*******************)
(*******************)
(* Gapless natmaps *)
(*******************)
(*******************)
Section Gapless.
Variable A : Type.
Implicit Type h : natmap A.
Definition gapless h := forall k, 0 < k <= last_key h -> k \in dom h.

Lemma gp_undef : gapless um_undef.