diff options
author | 2010-09-02 20:08:39 +0000 | |
---|---|---|
committer | 2010-09-02 20:08:39 +0000 | |
commit | 7eda1af42c6634d5d27a019d2da9f1ae98c0e170 (patch) | |
tree | ca48e8ce4162dafe84927bdf307f157d7010c823 /test-suite | |
parent | 93383861409291653f393f949e12e5604951dadc (diff) |
fixed bug #2375 (congruence)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13399 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite')
-rw-r--r-- | test-suite/bugs/closed/shouldsucceed/2375.v | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/shouldsucceed/2375.v b/test-suite/bugs/closed/shouldsucceed/2375.v new file mode 100644 index 000000000..c17c426cd --- /dev/null +++ b/test-suite/bugs/closed/shouldsucceed/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. + |