From 4778808664c919ffead4e9f01ff5475335d8d1fa Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 30 Jan 2006 23:11:55 +0000
Subject: Prise en compte coercions autour des sous-termes filtrés (si non
 dépendants)

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

diff --git a/test-suite/success/Case13.v b/test-suite/success/Case13.v
index 670d01f761..f19e24b88e 100644
--- a/test-suite/success/Case13.v
+++ b/test-suite/success/Case13.v
@@ -54,3 +54,16 @@ Check (fun x : I' 0 => match x with
                        | C2' _ niln => 0
                        | _ => 0
                        end).
+
+(* Check insertion of coercions around matched subterm *)
+
+Parameter A:Set.
+Parameter f:> A -> nat.
+
+Inductive J : Set := D : A -> J.
+
+Check (fun x => match x with
+                | D 0 => 0
+                | D _ => 1
+                end).
+
-- 
cgit v1.2.3