diff options
author | Jason Gross <jgross@mit.edu> | 2014-05-06 09:51:21 -0400 |
---|---|---|
committer | Jason Gross <jgross@mit.edu> | 2014-05-06 16:11:43 -0400 |
commit | d1a39e06c44dc451d8a56a286017885d400ac435 (patch) | |
tree | f83237ecf03b9d809d888ea31a842e6fb6d716d0 /test-suite/bugs/closed/HoTT_coq_118.v | |
parent | d40091c015b68cc1a8403ca5dcc74323bf939f37 (diff) |
Add regression tests for univ. poly. and prim proj
These regression tests are aggregated from the various bugs I (and
others) have reported on https://github.com/HoTT/coq/issues relating to
universe polymorphism, primitive projections, and eta for records.
These are the tests that trunk currently passes.
I'm not sure about the naming scheme (HoTT_coq_###.v, where ### is the
number of the issue in GitHub), but I couldn't think of a better one.
Diffstat (limited to 'test-suite/bugs/closed/HoTT_coq_118.v')
-rw-r--r-- | test-suite/bugs/closed/HoTT_coq_118.v | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/HoTT_coq_118.v b/test-suite/bugs/closed/HoTT_coq_118.v new file mode 100644 index 000000000..14ad0e49d --- /dev/null +++ b/test-suite/bugs/closed/HoTT_coq_118.v @@ -0,0 +1,35 @@ +(* File reduced by coq-bug-finder from original input, then from 5631 lines to 557 lines, then from 526 lines to 181 lines, then from 189 lines to 154 lines, then from 153 lines to 107 lines, then from 97 lines to 56 lines, then from 50 lines to 37 lines *) +Generalizable All Variables. +Set Universe Polymorphism. +Definition admit {T} : T. +Admitted. +Inductive paths {A : Type} (a : A) : A -> Type := + idpath : paths a a. +Arguments idpath {A a} , [A] a. +Notation "x = y" := (@paths _ x y) : type_scope. +Class Contr_internal (A : Type) := BuildContr { center : A }. +Arguments center A {_}. +Instance contr_paths_contr `{Contr_internal A} (x y : A) : Contr_internal (x = y) := admit. +Inductive Unit : Set := tt. +Instance contr_unit : Contr_internal Unit | 0 := admit. +Record PreCategory := { morphism : Type }. +Class IsIsomorphism {C : PreCategory} (m : morphism C) := { left_inverse : m = m }. +Definition indiscrete_category : PreCategory := @Build_PreCategory Unit. +Goal forall (X : Type) (_ : forall x y : X, Contr_internal (@paths X x y)) (s : X), + @IsIsomorphism indiscrete_category tt -> True. +Proof. + intros X H s [p]. + simpl in *. + assert (idpath = p). + clear. + assert (H : forall p : tt = tt, idpath = p) by (intro; exact (center _)). + clear H. + exact (center _). + (* Toplevel input, characters 15-32: +Error: +Unable to satisfy the following constraints: +In environment: +p : tt = tt + +?46 : "Contr_internal (idpath = p)" + *) |