Section FMapSpec.
Variable  m m' m'' : t A.
Variable x y z : key.
Variable e e' : A.
Proof using.
intros.
generalize (xelements_complete _ _ _ _ H); clear H; intros.
revert p0 H.
induction p; destruct p0; simpl; intros; eauto; try discriminate.
Qed.
Proof using.
intros.
generalize (xelements_complete _ _ _ _ H); clear H; intros.
revert p0 H.
induction p; destruct p0; simpl; intros; eauto; try discriminate.
Qed.

Lemma xelements_sort : forall p, sort lt_key (xelements m p).