3 files changed, 40 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/bug_13903.v b/test-suite/bugs/closed/bug_13903.v
new file mode 100644
index 0000000000..7c1820b85c
--- /dev/null
+++ b/test-suite/bugs/closed/bug_13903.v
@@ -0,0 +1,5 @@
+Section test.
+Variables (T : Type) (x : T).
+#[using="x"] Definition test : unit := tt.
+End test.
+Check test : forall T, T -> unit.
diff --git a/test-suite/bugs/closed/bug_13960.v b/test-suite/bugs/closed/bug_13960.v
new file mode 100644
index 0000000000..947db9586f
--- /dev/null
+++ b/test-suite/bugs/closed/bug_13960.v
@@ -0,0 +1,10 @@
+Require Ltac2.Ltac2.
+
+Set Default Goal Selector "!".
+
+Ltac2 t () := let _ := Message.print (Message.of_string "hi") in 42.
+
+Goal False.
+Proof.
+Ltac2 Eval t ().
+Abort.
diff --git a/test-suite/ltac2/ind.v b/test-suite/ltac2/ind.v
new file mode 100644
index 0000000000..6f7352d224
--- /dev/null
+++ b/test-suite/ltac2/ind.v
@@ -0,0 +1,25 @@
+Require Import Ltac2.Ltac2.
+Require Import Ltac2.Option.
+
+Ltac2 Eval
+  let nat := Option.get (Env.get [@Coq; @Init; @Datatypes; @nat]) in
+  let nat := match nat with
+  | Std.IndRef nat => nat
+  | _ => Control.throw Not_found
+  end in
+  let data := Ind.data nat in
+  (* Check that there is only one inductive in the block *)
+  let ntypes := Ind.nblocks data in
+  let () := if Int.equal ntypes 1 then () else Control.throw Not_found in
+  let nat' := Ind.repr (Ind.get_block data 0) in
+  (* Check it corresponds *)
+  let () := if Ind.equal nat nat' then () else Control.throw Not_found in
+  let () := if Int.equal (Ind.index nat) 0 then () else Control.throw Not_found in
+  (* Check the number of constructors *)
+  let nconstr := Ind.nconstructors data in
+  let () := if Int.equal nconstr 2 then () else Control.throw Not_found in
+  (* Create a fresh instance *)
+  let s := Ind.get_constructor data 1 in
+  let s := Env.instantiate (Std.ConstructRef s) in
+  constr:($s 0)
+.