diff options
| author |  Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2014-09-17 01:11:52 +0200 |
|---|---|---|
| committer | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2014-09-17 01:11:52 +0200 |
| commit | d34e1eed232c84590ddb80d70db9f7f7cf13584a (patch) | |
| tree | 75782f47ebe381d84ea66409569167f9ba229c78 /test-suite/bugs/closed/HoTT_coq_083.v | |
| parent | c5ecebf6fefbaa673dda506175a2aa4a69d79807 (diff) | |
Update test-suite files after last commit. Add a file for rewrite_strat
examples.
Diffstat (limited to 'test-suite/bugs/closed/HoTT_coq_083.v')
| -rw-r--r-- | test-suite/bugs/closed/HoTT_coq_083.v | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/HoTT_coq_083.v b/test-suite/bugs/closed/HoTT_coq_083.v new file mode 100644 index 000000000..494b25c7b --- /dev/null +++ b/test-suite/bugs/closed/HoTT_coq_083.v @@ -0,0 +1,29 @@ +Set Primitive Projections. +Set Implicit Arguments. +Set Universe Polymorphism. + +Record category := + { ob : Type }. + +Goal forall C, ob C -> ob C. +intros. +generalize dependent (ob C). +(* 1 subgoals, subgoal 1 (ID 7) + + C : category + ============================ + forall T : Type, T -> T +(dependent evars:) *) +intros T t. +Undo 2. +generalize dependent (@ob C). +(* 1 subgoals, subgoal 1 (ID 6) + + C : category + X : ob C + ============================ + Type -> ob C +(dependent evars:) *) +intros T t. +(* Toplevel input, characters 9-10: +Error: No product even after head-reduction. *) |