aboutsummaryrefslogtreecommitdiffhomepage
path: root/test-suite/bugs/closed/5193.v
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/bugs/closed/5193.v')
-rw-r--r--test-suite/bugs/closed/5193.v14
1 files changed, 14 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/5193.v b/test-suite/bugs/closed/5193.v
new file mode 100644
index 000000000..cc8739afe
--- /dev/null
+++ b/test-suite/bugs/closed/5193.v
@@ -0,0 +1,14 @@
+Class Eqdec A := eqdec : forall a b : A, {a=b}+{a<>b}.
+
+Typeclasses eauto := debug.
+Set Typeclasses Debug Verbosity 2.
+
+Inductive Finx(n : nat) : Set :=
+| Fx1(i : nat)(e : n = S i)
+| FxS(i : nat)(f : Finx i)(e : n = S i).
+
+Context `{Finx_eqdec : forall n, Eqdec (Finx n)}.
+
+Goal {x : Type & Eqdec x}.
+ eexists.
+ try typeclasses eauto 1 with typeclass_instances.