summaryrefslogtreecommitdiff
path: root/test-suite/bugs/opened/1773.v
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/bugs/opened/1773.v')
-rw-r--r--test-suite/bugs/opened/1773.v10
1 files changed, 10 insertions, 0 deletions
diff --git a/test-suite/bugs/opened/1773.v b/test-suite/bugs/opened/1773.v
new file mode 100644
index 00000000..4aabf19c
--- /dev/null
+++ b/test-suite/bugs/opened/1773.v
@@ -0,0 +1,10 @@
+Goal forall B C : nat -> nat -> Prop, forall k, C 0 k ->
+ (exists A, (forall k', C A k' -> B A k') -> B A k).
+Proof.
+ intros B C k H.
+ econstructor.
+ intros X.
+ apply X.
+ apply H.
+Qed.
+