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

1 files changed, 9 insertions, 1 deletions

diff --git a/test-suite/success/ltac.v b/test-suite/success/ltac.v
index 32fadf266..40ded54d7 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