From d4f5bdd6f7304fac541bb5f4555ecdd6aa42699a Mon Sep 17 00:00:00 2001
From: Pierre Corbineau
Date: Tue, 16 Dec 2014 15:59:35 +0100
Subject: fix bug #2447 in congruence

---
 test-suite/success/cc.v | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

(limited to 'test-suite')

diff --git a/test-suite/success/cc.v b/test-suite/success/cc.v
index b565183b9c..a70d919635 100644
--- a/test-suite/success/cc.v
+++ b/test-suite/success/cc.v
@@ -102,5 +102,32 @@ Proof.
   auto.
 Qed.
 
+(* bug 2447 is now closed (PC, 2014) *)
+
+Section bug_2447.
+
+Variable T:Type.
+
+Record R := mkR {x:T;y:T;z:T}.
+
+Variables a a' b b' c c':T.
+
+
+
+Lemma bug_2447: mkR a b c = mkR a' b c -> a = a'.
+congruence.
+Qed.
+
+Lemma bug_2447_variant1: mkR a b c = mkR a b' c -> b = b'.
+congruence.
+Qed.
+
+Lemma bug_2447_variant2: mkR a b c = mkR a b c' -> c = c'.
+congruence.
+Qed.
+
+
+End bug_2447.
+
 
 
-- 
cgit v1.2.3