Ajouts de quelques tests sur les bugs

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10400 85f007b7-540e-0410-9357-904b9bb8a0f7

2 files changed, 32 insertions, 0 deletions

diff --git a/test-suite/bugs/opened/shouldnotfail/1338.v b/test-suite/bugs/opened/shouldnotfail/1338.v
new file mode 100644
index 000000000..f383d5344
--- /dev/null
+++ b/test-suite/bugs/opened/shouldnotfail/1338.v
@@ -0,0 +1,12 @@
+Require Import Omega.
+
+Goal forall x, 0 <= x -> x <= 20 -> 
+x <> 0  
+  -> x <> 1 -> x <> 2 -> x <> 3 -> x <>4 -> x <> 5 -> x <> 6 -> x <> 7 -> x <> 8
+-> x <> 9 -> x <> 10 
+  -> x <> 11 -> x <> 12 -> x <> 13 -> x <> 14 -> x <> 15 -> x <> 16 -> x <> 17
+-> x <> 18 -> x <> 19 -> x <> 20 -> False.
+Proof.
+  intros.
+  omega.
+Qed.
diff --git a/test-suite/bugs/opened/shouldnotfail/1740.v b/test-suite/bugs/opened/shouldnotfail/1740.v
new file mode 100644
index 000000000..bde708786
--- /dev/null
+++ b/test-suite/bugs/opened/shouldnotfail/1740.v
@@ -0,0 +1,20 @@
+
+Definition f :=
+  fun n m : nat =>
+    match n, m with
+      | O, _ => O
+      | n, O => n
+      | _, _ => O
+    end.
+
+Goal f =
+  fun n m : nat =>
+    match n, m with
+      | O, _ => O
+      | n, O => n
+      | _, _ => O
+    end.
+  unfold f. 
+  reflexivity.
+Qed.
+