Section Classes.
Context {A : Type}.
Context {dec : EquivDec.EqDec A (@eq A)}.
intros.
eapply Coq.Logic.Eqdep_dec.UIP_dec. apply EquivDec.equiv_dec.
Qed.
eapply Coq.Logic.Eqdep_dec.UIP_dec. apply EquivDec.equiv_dec.
Qed.

Theorem equiv_dec_refl_left : forall a, @EquivDec.equiv_dec _ _ _ dec a a = left eq_refl.