Imported Upstream version 8.4pl1dfsgupstream/8.4pl1dfsg

1 files changed, 6 insertions, 0 deletions

diff --git a/test-suite/success/Cases.v b/test-suite/success/Cases.v
index f445ca8e..c9a3c08e 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.