diff options
| author | Matthieu Sozeau | 2016-09-12 13:37:08 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2016-09-12 13:37:08 +0200 |
| commit | 7a3ef81f20e159bcf4d40227d36c54abbe69c3e9 (patch) | |
| tree | 1527039fb27481b1ce82e2d3cff8fa82ce834ce3 /test-suite | |
| parent | 12cedcbf4dcfe4fd43ab9f4b648314cac26b82db (diff) | |
| parent | 43869b4e05824244e666c60e0b740a80e8b09d0c (diff) | |
Merge remote-tracking branch 'github-coq/pr/249' into v8.6
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/bugs/closed/3424.v | 1 | ||||
| -rw-r--r-- | test-suite/output/inference.v | 1 |
2 files changed, 2 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. diff --git a/test-suite/output/inference.v b/test-suite/output/inference.v index cd9a4a12b2..1825db1676 100644 --- a/test-suite/output/inference.v +++ b/test-suite/output/inference.v @@ -14,6 +14,7 @@ Definition P (e:option L) := Print P. (* Check that plus is folded even if reduction is involved *) +Set Refolding Reduction. Check (fun m n p (H : S m <= (S n) + p) => le_S_n _ _ H). |