From 527a09cc27ac64ab308220b25eb683a882dbddc1 Mon Sep 17 00:00:00 2001
From: Matthieu Sozeau
Date: Tue, 17 Jun 2014 16:12:39 +0200
Subject: Adapt coercion code to work with projections as target classes.

---
 test-suite/bugs/closed/HoTT_coq_081.v | 16 ++++++++++++++++
 test-suite/bugs/opened/HoTT_coq_081.v | 12 ------------
 2 files changed, 16 insertions(+), 12 deletions(-)
 create mode 100644 test-suite/bugs/closed/HoTT_coq_081.v
 delete mode 100644 test-suite/bugs/opened/HoTT_coq_081.v

(limited to 'test-suite')

diff --git a/test-suite/bugs/closed/HoTT_coq_081.v b/test-suite/bugs/closed/HoTT_coq_081.v
new file mode 100644
index 0000000000..ac27dea71f
--- /dev/null
+++ b/test-suite/bugs/closed/HoTT_coq_081.v
@@ -0,0 +1,16 @@
+Set Primitive Projections.
+Set Implicit Arguments.
+Set Universe Polymorphism.
+
+Record category (A : Type) :=
+  { ob :> Type;
+    hom : ob -> ob -> Type
+  }.
+
+Record foo { A: Type } := { C : category A; x : ob C; y :> hom _ x x }.
+Definition comp A (C : category A) (x : C) (f : hom _ x x) := f.
+
+Definition bar A (f : @foo A) := @comp _ _ _ f.
+
+(* Toplevel input, characters 0-42:
+Error: Cannot find the target class. *)
diff --git a/test-suite/bugs/opened/HoTT_coq_081.v b/test-suite/bugs/opened/HoTT_coq_081.v
deleted file mode 100644
index bcd12aa691..0000000000
--- a/test-suite/bugs/opened/HoTT_coq_081.v
+++ /dev/null
@@ -1,12 +0,0 @@
-Set Primitive Projections.
-Set Implicit Arguments.
-Set Universe Polymorphism.
-
-Record category :=
-  { ob :> Type;
-    hom : ob -> ob -> Type
-  }.
-
-Fail Record foo := { C : category; x :> ob C }.
-(* Toplevel input, characters 0-42:
-Error: Cannot find the target class. *)
-- 
cgit v1.2.3