aboutsummaryrefslogtreecommitdiffhomepage
path: root/test-suite/bugs/closed/2375.v
diff options
context:
space:
mode:
authorGravatar xclerc <xclerc@85f007b7-540e-0410-9357-904b9bb8a0f7>2013-09-20 12:40:28 +0000
committerGravatar xclerc <xclerc@85f007b7-540e-0410-9357-904b9bb8a0f7>2013-09-20 12:40:28 +0000
commite46ce40cee2c34f47acb55d2b24bd09f00987556 (patch)
tree696da31b3041d1b7c69244ab5a48f77b87ccf79b /test-suite/bugs/closed/2375.v
parent20bb249ed0e19cc0132519e3de06fafe2ba500c3 (diff)
Get rid of "shouldsucceed" subdirectory by moving tests to parent directory.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16797 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite/bugs/closed/2375.v')
-rw-r--r--test-suite/bugs/closed/2375.v18
1 files changed, 18 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/2375.v b/test-suite/bugs/closed/2375.v
new file mode 100644
index 000000000..c17c426cd
--- /dev/null
+++ b/test-suite/bugs/closed/2375.v
@@ -0,0 +1,18 @@
+(* In the following code, the (superfluous) lemma [lem] is responsible
+for the failure of congruence. *)
+
+Definition f : nat -> Prop := fun x => True.
+
+Lemma lem : forall x, (True -> True) = ( True -> f x).
+Proof.
+ intros. reflexivity.
+Qed.
+
+Goal forall (x:nat), x = x.
+Proof.
+ intros.
+ assert (lem := lem).
+ (*clear ax.*)
+ congruence.
+Qed.
+