aboutsummaryrefslogtreecommitdiffhomepage
path: root/test-suite/success
diff options
context:
space:
mode:
authorGravatar herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>2006-03-02 17:34:58 +0000
committerGravatar herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>2006-03-02 17:34:58 +0000
commitb283db74e0b63b9b4d51fcfd39cb8b401347f991 (patch)
treefc26b4ded940c60dcb463deb1fa69b7c257d9ad6 /test-suite/success
parent4ac83a8cc2a43a20152454f58d9401d4fa9c87a4 (diff)
Ajout test bug 1089
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8113 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite/success')
-rw-r--r--test-suite/success/evars.v4
1 files changed, 4 insertions, 0 deletions
diff --git a/test-suite/success/evars.v b/test-suite/success/evars.v
index dbace977e..ea1dd803f 100644
--- a/test-suite/success/evars.v
+++ b/test-suite/success/evars.v
@@ -56,3 +56,7 @@ Check
:forall x : nat,
(forall y n : nat, {q : nat | y = q * n}) ->
forall n : nat, {q : nat | x = q * n}).
+
+(* Check instantiation of nested evars (bug #1089) *)
+
+Check (fun f:(forall (v:Set->Set), v (v nat) -> nat) => f _ (Some (Some O))).