diff options
| author |  Enrico Tassi <gareuselesinge@debian.org> | 2016-01-26 16:56:34 +0100 |
|---|---|---|
| committer | Enrico Tassi <gareuselesinge@debian.org> | 2016-01-26 16:56:34 +0100 |
| commit | bb08c29807439697fa7c2045000dd3e17a9428b1 (patch) | |
| tree | 9100a2dd5c2cb92ddd083cb052e236cdee6b9690 /test-suite/bugs/opened/3248.v | |
| parent | d55ac4014632489e3009a2a7351d018b3b2d27ac (diff) | |
| parent | 164c6861860e6b52818c031f901ffeff91fca16a (diff) | |
Merge tag 'upstream/8.5'
Upstream version 8.5
Diffstat (limited to 'test-suite/bugs/opened/3248.v')
| -rw-r--r-- | test-suite/bugs/opened/3248.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test-suite/bugs/opened/3248.v b/test-suite/bugs/opened/3248.v index 9e7d1eb5..33c408a2 100644 --- a/test-suite/bugs/opened/3248.v +++ b/test-suite/bugs/opened/3248.v @@ -3,7 +3,7 @@ Ltac ret_and_left f := let T := type of f in lazymatch eval hnf in T with | ?T' -> _ => - let ret := constr:(fun x' : T' => $(tac (f x'))$) in + let ret := constr:(fun x' : T' => ltac:(tac (f x'))) in exact ret | ?T' => exact f end. @@ -12,6 +12,6 @@ Goal forall A B : Prop, forall x y : A, True. Proof. intros A B x y. pose (f := fun (x y : A) => conj x y). - pose (a := $(ret_and_left f)$). + pose (a := ltac:(ret_and_left f)). Fail unify (a x y) (conj x y). Abort. |