From 626e6f8bb47df7845aac639c327191e30ad2b17d Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 13 Jun 2002 16:21:05 +0000
Subject: Test de l'interprétation des fermetures de Match Context

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2780 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 test-suite/success/ltac.v | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/test-suite/success/ltac.v b/test-suite/success/ltac.v
index 32fadf2668..40ded54d72 100644
--- a/test-suite/success/ltac.v
+++ b/test-suite/success/ltac.v
@@ -4,5 +4,13 @@
 (* Checks substitution of x *)
 Tactic Definition f x := Unfold x; Idtac.
  
-Goal (plus O O) = O.
+Lemma lem1 : (plus O O) = O.
 f plus.
+Qed.
+
+(* Check that Match Context keeps a closure *)
+Tactic Definition U := Let a = 'I In Match Context With [ |- ? ] -> Apply a.
+
+Lemma lem2 : True.
+U.
+Qed
-- 
cgit v1.2.3