diff options
| author | Hugo Herbelin | 2015-11-02 12:26:53 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2015-12-02 18:34:11 +0100 |
| commit | 9205d8dc7b9e97b6c2f0815fddc5673c21d11089 (patch) | |
| tree | cdb63debac7a78b66849ab8f747c5c7214bb1a7a /test-suite/bugs/closed/3881.v | |
| parent | 2374a23fb7ebfa547eb16ce2ab8dc9efb2a3f855 (diff) | |
Changing syntax "$(tactic)$" into "ltac:(tactic)", as discussed in WG.
Diffstat (limited to 'test-suite/bugs/closed/3881.v')
| -rw-r--r-- | test-suite/bugs/closed/3881.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test-suite/bugs/closed/3881.v b/test-suite/bugs/closed/3881.v index 4408ab885d..070d1e9c71 100644 --- a/test-suite/bugs/closed/3881.v +++ b/test-suite/bugs/closed/3881.v @@ -8,7 +8,7 @@ Reserved Notation "x -> y" (at level 99, right associativity, y at level 200). Notation "A -> B" := (forall (_ : A), B) : type_scope. Axiom admit : forall {T}, T. Notation "g 'o' f" := (fun x => g (f x)) (at level 40, left associativity). -Notation "g 'o' f" := $(let g' := g in let f' := f in exact (fun x => g' (f' x)))$ (at level 40, left associativity). (* Ensure that x is not captured in [g] or [f] in case they contain holes *) +Notation "g 'o' f" := ltac:(let g' := g in let f' := f in exact (fun x => g' (f' x))) (at level 40, left associativity). (* Ensure that x is not captured in [g] or [f] in case they contain holes *) Inductive eq {A} (x:A) : A -> Prop := eq_refl : x = x where "x = y" := (@eq _ x y) : type_scope. Arguments eq_refl {_ _}. Definition ap {A B:Type} (f:A -> B) {x y:A} (p:x = y) : f x = f y := match p with eq_refl => eq_refl end. |