intuition.
subst.
simpl.
destruct (eqd a2 a2); subst; intuition.
Qed.

(* Specifications: *)
Lemma evalDist_ret_0 :
forall (A : Set)(eqd : eq_dec A)(a1 a2 : A),
a1 <> a2 ->
evalDist (Ret eqd a1) a2 = 0.