1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
Goal unit.
let x := open_constr:(_) in
let _ := open_constr:(eq_refl : x = tt) in
abstract (exact x).
Qed.
Goal unit.
let x := open_constr:(_) in
let tac := exact x in (* <- this is a closure *)
let _ := open_constr:(eq_refl : x = tt) in
abstract tac.
Qed.
Goal unit.
Fail let x := open_constr:(_) in
abstract exact x.
Abort.
Require Import Ltac2.Ltac2.
Goal unit.
let x := '_ in
let _ := '(eq_refl : $x = tt) in
abstract (exact $x).
Qed.
Goal unit.
let x := '_ in
let tac () := exact $x in
let _ := '(eq_refl : $x = tt) in
abstract (tac ()).
Qed.
|
