diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-06-13 16:21:05 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-06-13 16:21:05 +0000 |
commit | 626e6f8bb47df7845aac639c327191e30ad2b17d (patch) | |
tree | 70d67e2d9f497927290d5193e03e7e5e47e1a4f9 /test-suite | |
parent | f32f5b2c989adcf195348589420a9b8635f845b9 (diff) |
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
Diffstat (limited to 'test-suite')
-rw-r--r-- | test-suite/success/ltac.v | 10 |
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 |