From 7f4b6b875daaf1d31ff74a58d8916c2a4889cf3a Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 18 Dec 2012 07:00:50 +0000
Subject: Taking into account the possibility of having a type of type which is
 an evar in typing.ml. Thanks to HoTT people for noticing the problem.

Fixed behavior of e_typing

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

(limited to 'test-suite')

diff --git a/test-suite/success/Cases.v b/test-suite/success/Cases.v
index f445ca8eac..c9a3c08efe 100644
--- a/test-suite/success/Cases.v
+++ b/test-suite/success/Cases.v
@@ -1865,3 +1865,9 @@ Type (fun n => match n with
                | Z0 => true
                | _ => false
                end).
+
+(* Check that types with unknown sort, as A below, are not fatal to
+   the pattern-matching compilation *)
+
+Definition transport {A} (P : A->Type) {x y : A} (p : x=y) (u : P x) : P y :=
+  match p with eq_refl => u end.
-- 
cgit v1.2.3