aboutsummaryrefslogtreecommitdiffhomepage
path: root/test-suite/bugs/closed/HoTT_coq_013.v
blob: 13962d5b9619d432446967a86eab11b1415da2d7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Set Implicit Arguments.
Generalizable All Variables.

Polymorphic Variant Category (obj : Type) :=.

            Polymorphic Variant Functor objC (C : Category objC) objD (D : Category objD) :=.

            Polymorphic Definition ComposeFunctors objC C objD D objE E (G : @Functor objD D objE E) (F : @Functor objC C objD D) : Functor C E.
Admitted.

Polymorphic Definition ProductCategory objC (C : Category objC) objD (D : Category objD) : @Category (objC * objD)%type.
Admitted.

Polymorphic Definition Cat0 : Category Empty_set.
Admitted.

Set Printing Universes.

Lemma ProductLaw0 objC (C : Category objC) (F : Functor (ProductCategory C Cat0) Cat0) (G : Functor Cat0 (ProductCategory C Cat0)) x y :
  ComposeFunctors F G = x /\
  ComposeFunctors G F = y.
Proof.
  split. (* Error: Refiner was given an argument "(objC * 0)%type" of type "Type" instead of "Set". *)
Abort.