From 8f3052d0cf0fbc64dcf285ccd15f3b9cf6daaa67 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Tue, 12 Jan 2021 13:23:07 +0100
Subject: Add a test for bound variables in match goal over a case involving
 variables.

---
 test-suite/success/match_case_pattern_variables.v | 34 +++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 test-suite/success/match_case_pattern_variables.v

diff --git a/test-suite/success/match_case_pattern_variables.v b/test-suite/success/match_case_pattern_variables.v
new file mode 100644
index 0000000000..bb9117d033
--- /dev/null
+++ b/test-suite/success/match_case_pattern_variables.v
@@ -0,0 +1,34 @@
+(** Check that bound variables in case patterns are handled correctly. *)
+
+Goal forall (ch : unit) (t : list unit) (s : list unit),
+  match s with
+  | nil => False
+  | cons a l => ch = a /\ l = t
+  end.
+Proof.
+intros.
+match goal with
+| |- match ?e with
+    | nil => ?N
+    | cons a b => ?P
+    end =>
+     let f :=
+      constr:((fun (e' : list unit) => match e' with
+                          | nil => N
+                          | cons a b => P
+                          end))
+     in
+     change (f e)
+end.
+Abort.
+
+Goal forall (ch : unit) (n : nat) (s : prod unit nat),
+  let (a, l) := s in ch = a /\ l = n.
+Proof.
+intros.
+match goal with
+| [ |- let (a, b) := ?e in ?P ] =>
+  let f := constr:((fun (e' : prod unit nat) => match e' with pair a b => P end)) in
+  change (f e)
+end.
+Abort.
-- 
cgit v1.2.3