intuition.
eapply eq_impl_comp_spec_eq.
eapply evalDist_right_ident.
Qed.

Theorem comp_spec_left_ident :
forall (A B : Set){eqda : EqDec A}{eqdb : EqDec B}(c1 : A -> Comp B) a,
comp_spec eq (x <-$ ret a; c1 x) (c1 a).