blob: ac27dea71fcf136873ddae0fc95f82c69dd14538 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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. *)
|
