diff options
| -rw-r--r-- | test-suite/success/ltac.v | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/test-suite/success/ltac.v b/test-suite/success/ltac.v index 04d7c87c5b..bac62f16eb 100644 --- a/test-suite/success/ltac.v +++ b/test-suite/success/ltac.v @@ -9,6 +9,11 @@ f plus. Reflexivity. Qed. +(* Submitted by Pierre Crégut *) +(* Check syntactic correctness *) +Recursive Tactic Definition F x := Idtac; (G x) +And G y := Idtac; (F y). + (* Check that Match Context keeps a closure *) Tactic Definition U := Let a = 'I In Match Context With [ |- ? ] -> Apply a. |