aboutsummaryrefslogtreecommitdiff
path: root/test-suite/bugs
diff options
context:
space:
mode:
authorMatthieu Sozeau2016-09-12 13:37:08 +0200
committerMatthieu Sozeau2016-09-12 13:37:08 +0200
commit7a3ef81f20e159bcf4d40227d36c54abbe69c3e9 (patch)
tree1527039fb27481b1ce82e2d3cff8fa82ce834ce3 /test-suite/bugs
parent12cedcbf4dcfe4fd43ab9f4b648314cac26b82db (diff)
parent43869b4e05824244e666c60e0b740a80e8b09d0c (diff)
Merge remote-tracking branch 'github-coq/pr/249' into v8.6
Diffstat (limited to 'test-suite/bugs')
-rw-r--r--test-suite/bugs/closed/3424.v1
1 files changed, 1 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/3424.v b/test-suite/bugs/closed/3424.v
index f9b2c38611..ee8cabf171 100644
--- a/test-suite/bugs/closed/3424.v
+++ b/test-suite/bugs/closed/3424.v
@@ -13,6 +13,7 @@ Notation "0" := (trunc_S minus_one) : trunc_scope.
Class IsTrunc (n : trunc_index) (A : Type) : Type := Trunc_is_trunc : IsTrunc_internal n A.
Notation IsHProp := (IsTrunc minus_one).
Notation IsHSet := (IsTrunc 0).
+Set Refolding Reduction.
Goal forall (A : Type) (a b : A) (H' : IsHSet A), { x : Type & IsHProp x }.
Proof.
intros.