Adapt coercion code to work with projections as target classes.

2 files changed, 16 insertions, 12 deletions

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. *)