End UniqProperties.
(* *********************************************************************** *)
(** * Basic facts about [binds] *)
Section BindsProperties.
Variable  A B   : Type.
Variables f     : A -> B.
Variables x y   : atom.
Variables a b   : A.
Variables E F G : list (atom*A).

Axiom binds_cons_1 :
binds x a ((y, b) :: E) ->
(x = y /\ a = b) \/ binds x a E.