diff options
| -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 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 |