Definition intersect(A : Set)(eqd : eq_dec A)(ls1 ls2 : list A) :=
  filter (fun x => if (in_dec eqd x ls1) then true else false) ls2.

Lemma evalDist_ret_1 : forall (A : Set)(eqd : eq_dec A)(a1 a2 : A), a1 = a2 -> evalDist (Ret eqd a1) a2 = 1.