diff options
| author | herbelin | 2009-12-30 15:19:34 +0000 |
|---|---|---|
| committer | herbelin | 2009-12-30 15:19:34 +0000 |
| commit | 4c825c9df1643f9478d8ceced5447171cdb0c937 (patch) | |
| tree | 1ed286daaa0b143a21a9ed808a2a7c72089b0406 | |
| parent | 42412b457b8dfdbf20484a59b28dfe310f79e368 (diff) | |
Regression test for bug #2145 (Groebner failing with "not eq" hypotheses).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12617 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | test-suite/bugs/closed/shouldsucceed/2145.v | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/shouldsucceed/2145.v b/test-suite/bugs/closed/shouldsucceed/2145.v new file mode 100644 index 0000000000..04b98b1ac5 --- /dev/null +++ b/test-suite/bugs/closed/shouldsucceed/2145.v @@ -0,0 +1,20 @@ +(* Test robustness of Groebner tactic in presence of disequalities *) + +Require Export Reals. +Require Export GroebnerR. + +Open Scope R_scope. + +Lemma essai : + forall yb xb m1 m2 xa ya, + xa <> xb -> + yb - 2 * m2 * xb = ya - m2 * xa -> + yb - m1 * xb = ya - m1 * xa -> + yb - ya = (2 * xb - xa) * m2 -> + yb - ya = (xb - xa) * m1. +Proof. +intros. +(* clear H. groebner used not to work when H was not cleared *) +groebnerR. +Qed. + |