From 689463a50a4b1da3fd3fcd899146365ca5d1c9a0 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sat, 21 Oct 2006 10:50:50 +0000
Subject: Correction d'un vieux bug de coercion avec éta-expansion (utilisation
 de subst1 au lieu de subst_term). Indentation plus compacte au passage.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9255 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 test-suite/success/coercions.v | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

(limited to 'test-suite')

diff --git a/test-suite/success/coercions.v b/test-suite/success/coercions.v
index 8dd48752b1..750165a55a 100644
--- a/test-suite/success/coercions.v
+++ b/test-suite/success/coercions.v
@@ -22,7 +22,7 @@ Coercion i : h >-> nat.
 Parameter C : nat -> nat -> nat.
 Coercion C : nat >-> Funclass.
 
-(* Remark: in the following example, it cannot be decide whether C is
+(* Remark: in the following example, it cannot be decided whether C is
    from nat to Funclass or from A to nat. An explicit Coercion command is
    expected 
 
@@ -30,3 +30,15 @@ Parameter A : nat -> Prop.
 Parameter C:> forall n:nat, A n -> nat.
 *)
 
+(* Check coercion between products based on eta-expansion *)
+(* (there was a de Bruijn bug until rev ) *)
+
+Section P.
+
+Variable E : Set.
+Variables C D : E -> Prop.
+Variable G :> forall x, C x -> D x.
+
+Check fun (H : forall y:E, y = y -> C y) => (H : forall y:E, y = y -> D y).
+
+End P.
-- 
cgit v1.2.3