diff options
| author | Pierre-Marie Pédrot | 2017-09-03 01:59:34 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-09-03 02:03:41 +0200 |
| commit | 4d5e3f3f00cb1848861b938ba1a57c33800d71a6 (patch) | |
| tree | 227b93bad3660ec16b4b0e2964e6bb2577d0d6b2 /tests | |
| parent | f84c0b96f11d5d1f130d36c0c04597ddeca6001f (diff) | |
Fix coq/ltac2#16: Passing Ltac2 variables to Ltac1 via $ results in anomalies.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/compat.v | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/compat.v b/tests/compat.v index 44421349da..f4e849c5de 100644 --- a/tests/compat.v +++ b/tests/compat.v @@ -25,6 +25,9 @@ Abort. (** Variables do not cross the compatibility layer boundary. *) Fail Ltac2 bar nay := ltac1:(discriminate nay). +Fail Ltac2 pose1 (v : constr) := + ltac1:(pose $v). + (** Test calls to Ltac2 from Ltac1 *) Set Default Proof Mode "Classic". @@ -54,3 +57,4 @@ Fail mytac ltac2:(fail). let t := idtac; ltac2:(fail) in mytac t. constructor. Qed. + |