intuition.
eapply eq_impl_comp_spec_eq.
intuition.
eapply evalDist_commute_eq.
Qed.

(* Specifications: *)
Theorem comp_spec_right_ident :
forall (A : Set){eqd : EqDec A}(c1 : Comp A),
comp_spec eq (x <-$ c1; ret x) c1.