intuition.
eapply eq_impl_comp_spec_eq; intuition.
Qed.

Theorem comp_spec_eq_impl_eq :
forall (A : Set){eqd1 eqd2 : EqDec A}(c1 c2 : Comp A),
@comp_spec _ _ eqd1 eqd2 eq c1 c2 ->
(forall x, evalDist c1 x == evalDist c2 x).