From ccbb78b17fada5d9f0f5937dc276cb0b0960f4c3 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Tue, 13 Sep 2016 18:27:58 +0200
Subject: Continuing fix to #5078, taking also into account intropatterns.
 Getting closer from before when the bug was introduced + test.

---
 test-suite/bugs/closed/5078.v | 5 +++++
 1 file changed, 5 insertions(+)
 create mode 100644 test-suite/bugs/closed/5078.v

(limited to 'test-suite')

diff --git a/test-suite/bugs/closed/5078.v b/test-suite/bugs/closed/5078.v
new file mode 100644
index 0000000000..ca73cbcc18
--- /dev/null
+++ b/test-suite/bugs/closed/5078.v
@@ -0,0 +1,5 @@
+(* Test coercion from ident to evaluable reference *)
+Tactic Notation "unfold_hyp" hyp(H) := cbv delta [H].
+Goal True -> Type.
+  intro H''.
+  Fail unfold_hyp H''.
-- 
cgit v1.2.3


From 753248c145cdac846528d809a1f085c18408e17f Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Thu, 15 Sep 2016 19:30:45 +0200
Subject: Added a test file for contradiction.

---
 test-suite/success/contradiction.v | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 test-suite/success/contradiction.v

(limited to 'test-suite')

diff --git a/test-suite/success/contradiction.v b/test-suite/success/contradiction.v
new file mode 100644
index 0000000000..92a7c6ccbc
--- /dev/null
+++ b/test-suite/success/contradiction.v
@@ -0,0 +1,32 @@
+(* Some tests for contradiction *)
+
+Lemma L1 : forall A B : Prop, A -> ~A -> B.
+Proof.
+intros; contradiction.
+Qed.
+
+Lemma L2 : forall A B : Prop, ~A -> A -> B.
+Proof.
+intros; contradiction.
+Qed.
+
+Lemma L3 : forall A : Prop, ~True -> A.
+Proof.
+intros; contradiction.
+Qed.
+
+Lemma L4 : forall A : Prop, forall x : nat, ~x=x -> A.
+Proof.
+intros; contradiction.
+Qed.
+
+Lemma L5 : forall A : Prop, forall x y : nat, ~x=y -> x=y -> A.
+Proof.
+intros; contradiction.
+Qed.
+
+Lemma L6 : forall A : Prop, forall x y : nat, x=y -> ~x=y -> A.
+Proof.
+intros; contradiction.
+Qed.
+
-- 
cgit v1.2.3


From f1a561d847e207433a0ec3e6333798dfa19e4a0c Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Sat, 17 Sep 2016 20:24:36 +0200
Subject: Further "decide equality" tests on demand of Jason.

---
 test-suite/success/eqdecide.v | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'test-suite')

diff --git a/test-suite/success/eqdecide.v b/test-suite/success/eqdecide.v
index 1f6af0dc44..724e2998ef 100644
--- a/test-suite/success/eqdecide.v
+++ b/test-suite/success/eqdecide.v
@@ -14,6 +14,18 @@ Lemma lem1 : forall x y : T, {x = y} + {x <> y}.
  decide equality.
 Qed.
 
+Lemma lem1' : forall x y : T, x = y \/ x <> y.
+ decide equality.
+Qed.
+
+Lemma lem1'' : forall x y : T, {x <> y} + {x = y}.
+ decide equality.
+Qed.
+
+Lemma lem1''' : forall x y : T, x <> y \/ x = y.
+ decide equality.
+Qed.
+
 Lemma lem2 : forall x y : T, {x = y} + {x <> y}.
 intros x y.
  decide equality.
-- 
cgit v1.2.3


From 464c680b631e1ba892f2171a36002d6ca184bc4f Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Thu, 22 Sep 2016 11:14:37 +0200
Subject: Fixing #5095 (non relevant too strict test in let-in abstraction).

---
 test-suite/bugs/closed/5095.v | 5 +++++
 1 file changed, 5 insertions(+)
 create mode 100644 test-suite/bugs/closed/5095.v

(limited to 'test-suite')

diff --git a/test-suite/bugs/closed/5095.v b/test-suite/bugs/closed/5095.v
new file mode 100644
index 0000000000..b6f38e3e84
--- /dev/null
+++ b/test-suite/bugs/closed/5095.v
@@ -0,0 +1,5 @@
+(* Checking let-in abstraction *)
+Goal let x := Set in let y := x in True.
+  intros x y.
+  (* There used to have a too strict dependency test there *)
+  set (s := Set) in (value of x).
-- 
cgit v1.2.3