Introducing rebindable toplevel definitions.

1 files changed, 24 insertions, 0 deletions

diff --git a/tests/rebind.v b/tests/rebind.v
new file mode 100644
index 0000000000..270fdd0b69
--- /dev/null
+++ b/tests/rebind.v
@@ -0,0 +1,24 @@
+Require Import Ltac2.Ltac2 Ltac2.Notations.
+
+Ltac2 mutable foo () := constructor.
+
+Goal True.
+Proof.
+foo ().
+Qed.
+
+Ltac2 Set foo := fun _ => fail.
+
+Goal True.
+Proof.
+Fail foo ().
+constructor.
+Qed.
+
+(** Not the right type *)
+Fail Ltac2 Set foo := 0.
+
+Ltac2 bar () := ().
+
+(** Cannot redefine non-mutable tactics *)
+Fail Ltac2 Set bar := fun _ => ().