intuition.
eapply eq_impl_comp_spec; wftac.
eapply uniformity.
Qed.

(* Specifications: *)
(* facts about equality specifications *)
Theorem eq_impl_comp_spec_eq :
forall (A : Set){eqd1 eqd2 : EqDec A}(c1 c2 : Comp A),
(forall x, evalDist c1 x == evalDist c2 x) ->
@comp_spec _ _ eqd1 eqd2 eq c1 c2.