Fixpoint forNats(n : nat) :=
  match n with
      | 0 => nil
      | S n' =>
        cons n' (forNats n')
  end.

Lemma getUnique_eq_inv : forall (A : Set)(a : A)(eqd1 eqd2 : eq_dec A)(ls1 ls2 : list A), getUnique ls1 eqd1 = getUnique ls2 eqd2 -> In a ls1 -> In a ls2.