From f4eabf9c0655a3d2bb5f8bbec95a334503d24ce9 Mon Sep 17 00:00:00 2001 From: ppedrot Date: Mon, 8 Apr 2013 13:16:46 +0000 Subject: Enrich test-suite with a test for #3022. git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16390 85f007b7-540e-0410-9357-904b9bb8a0f7 --- test-suite/bugs/closed/shouldsucceed/3022.v | 8 ++++++++ 1 file changed, 8 insertions(+) create mode 100644 test-suite/bugs/closed/shouldsucceed/3022.v (limited to 'test-suite') diff --git a/test-suite/bugs/closed/shouldsucceed/3022.v b/test-suite/bugs/closed/shouldsucceed/3022.v new file mode 100644 index 000000000..dcfe73397 --- /dev/null +++ b/test-suite/bugs/closed/shouldsucceed/3022.v @@ -0,0 +1,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. -- cgit v1.2.3