Require Coq.Logic.Eqdep_dec.
Require EquivDec.
Set Implicit Arguments.
Set Strict Implicit.
Section Classes.
Context {A : Type}.
Context {dec : EquivDec.EqDec A (@eq A)}.

Theorem UIP_refl : forall {x : A} (p1 : x = x), p1 = refl_equal _.
intros.