Module Make
(X : UsualDecidableType)
(KeySet : FSetInterface.WSfun X).
(* SCW: Make an instance of EqDef_eq for X so that we can use the "==" in [get] below. *)
Instance EqDec_of_X : @EqDec X.t eq eq_equivalence.

Lemma binds_dom_contradiction : forall (E : list (X.t*A)),
binds x a E ->
~ In x (dom E) ->
False.