aboutsummaryrefslogtreecommitdiffhomepage
path: root/test-suite/bugs/closed/HoTT_coq_053.v
diff options
context:
space:
mode:
authorGravatar Jason Gross <jgross@mit.edu>2014-05-09 10:13:32 -0400
committerGravatar Matthieu Sozeau <mattam@mattam.org>2014-05-10 15:39:39 +0200
commitc7284415e4bdd3315c84c7d15d140d3fee000bc5 (patch)
treecc8ded3feba7e1da0dd4f7d17b7e5f974de752c3 /test-suite/bugs/closed/HoTT_coq_053.v
parent3f64bd23a343bcd7be0ef07afa7d9e3249df24ec (diff)
Move opened bugs to bugs/opened
Diffstat (limited to 'test-suite/bugs/closed/HoTT_coq_053.v')
-rw-r--r--test-suite/bugs/closed/HoTT_coq_053.v50
1 files changed, 0 insertions, 50 deletions
diff --git a/test-suite/bugs/closed/HoTT_coq_053.v b/test-suite/bugs/closed/HoTT_coq_053.v
deleted file mode 100644
index a14fb6aa5..000000000
--- a/test-suite/bugs/closed/HoTT_coq_053.v
+++ /dev/null
@@ -1,50 +0,0 @@
-(* -*- mode: coq; coq-prog-args: ("-emacs" "-indices-matter") -*- *)
-Set Printing Universes.
-Set Implicit Arguments.
-Generalizable All Variables.
-Set Asymmetric Patterns.
-Set Universe Polymorphism.
-
-Inductive Unit : Type :=
- tt : Unit.
-
-Inductive Bool : Type :=
- | true : Bool
- | false : Bool.
-
-Inductive paths {A : Type} (a : A) : A -> Type :=
- idpath : paths a a.
-
-Record PreCategory :=
- {
- Object :> Type;
- Morphism : Object -> Object -> Type
- }.
-
-Definition DiscreteCategory X : PreCategory
- := @Build_PreCategory X
- (@paths X).
-
-Definition IndiscreteCategory X : PreCategory
- := @Build_PreCategory X
- (fun _ _ => Unit).
-
-Definition NatCategory (n : nat) :=
- match n with
- | 0 => IndiscreteCategory Unit
- | _ => DiscreteCategory Bool
- end.
-(* Error: Universe inconsistency (cannot enforce Set <= Prop).*)
-
-Definition NatCategory' (n : nat) :=
- match n with
- | 0 => (fun X => @Build_PreCategory X
- (fun _ _ => Unit : Prop)) Unit
- | _ => DiscreteCategory Bool
- end.
-
-Definition NatCategory'' (n : nat) :=
- match n with
- | 0 => IndiscreteCategory Unit
- | _ => DiscreteCategory Bool
- end.