blob: 4964bf96c01be79bae4b2c9e5da242f1f4a1c075 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
Require Import String.
Local Ltac set_strings :=
let s := match goal with |- context[String ?s1 ?s2] => constr:(String s1 s2) end in
let H := fresh s in
set (H := s).
Local Open Scope string_scope.
Goal "asdf" = "bds".
Fail set_strings. (* Error: Ltac variable s is bound to "asdf" which cannot be coerced to
a fresh identifier. *)
|