aboutsummaryrefslogtreecommitdiff
path: root/test-suite/bugs
diff options
context:
space:
mode:
authorMaxime Dénès2018-03-09 15:11:52 +0100
committerMaxime Dénès2018-03-09 15:11:52 +0100
commit0b3a458ecf2cfbe8cd2905d28f2459bd16240a18 (patch)
treee49f0cb970aad0ba8dd22088bf51d7d75ce2b8b8 /test-suite/bugs
parentd04f262f4c27a086b9ddfef1931586ef1062614d (diff)
parent67091e1d155be19333c5e5bd2cc306792ca630d3 (diff)
Merge PR #6895: [compat] Remove "Refolding Reduction" option.
Diffstat (limited to 'test-suite/bugs')
-rw-r--r--test-suite/bugs/opened/3424.v (renamed from test-suite/bugs/closed/3424.v)4
1 files changed, 2 insertions, 2 deletions
diff --git a/test-suite/bugs/closed/3424.v b/test-suite/bugs/opened/3424.v
index ee8cabf171..d1c5bb68f9 100644
--- a/test-suite/bugs/closed/3424.v
+++ b/test-suite/bugs/opened/3424.v
@@ -13,12 +13,12 @@ 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.
eexists.
(* exact (H' a b). *)
(* Undo. *)
-apply (H' a b).
+Fail apply (H' a b).
+exact (H' a b).
Qed.