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 elements_3w : NoDupA eq_key (elements m).