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

(* Specifications: *)
Lemma evalDist_ret_eq :
forall (A : Set)(eqd1 eqd2 : eq_dec A) a1 a2 x,
a1 = a2 ->
evalDist (Ret eqd1 a1) x == evalDist (Ret eqd2 a2) x.