summaryrefslogtreecommitdiff
path: root/test-suite/bugs/closed/3022.v
blob: dcfe7339749f0a58925b1144839f46511d3b68d7 (plain)
1
2
3
4
5
6
7
8
Goal forall (O obj : Type) (f : O -> obj) (x : O) (e : x = x)
     (T : obj -> obj -> Type) (m : forall x0 : obj, T x0 x0),
   match eq_sym e in (_ = y) return (T (f y) (f x)) with
   | eq_refl => m (f x)
   end = m (f x).
intros.
try case e.
Abort.