From 4bbe2e4e2a9d5dea1a07f8cf0d7e3aeeed609201 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Mon, 28 Aug 2017 01:27:19 +0200
Subject: Properly handling parameters of primitive projections in cctac.

---
 test-suite/bugs/closed/5697.v | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'test-suite')

diff --git a/test-suite/bugs/closed/5697.v b/test-suite/bugs/closed/5697.v
index a17229aaff..c653f992af 100644
--- a/test-suite/bugs/closed/5697.v
+++ b/test-suite/bugs/closed/5697.v
@@ -8,3 +8,12 @@ intros.
 intros H'.
 congruence.
 Qed.
+
+Record bar (A : Type) : Type := Bar { bar_car: A }.
+
+Goal forall x y : nat, x <> y -> Bar nat x <> Bar nat y.
+Proof.
+intros.
+intros H'.
+congruence.
+Qed.
-- 
cgit v1.2.3