aboutsummaryrefslogtreecommitdiff
path: root/test-suite
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite')
-rw-r--r--test-suite/micromega/bug_13794.v39
-rw-r--r--test-suite/output/bug_13821_native_command_line_warn.out0
-rw-r--r--test-suite/output/bug_13821_native_command_line_warn.v1
3 files changed, 40 insertions, 0 deletions
diff --git a/test-suite/micromega/bug_13794.v b/test-suite/micromega/bug_13794.v
new file mode 100644
index 0000000000..5e303a0b7f
--- /dev/null
+++ b/test-suite/micromega/bug_13794.v
@@ -0,0 +1,39 @@
+From Coq Require Import Lia ZArith.ZArith NArith.NArith.
+Unset Nia Cache.
+
+Open Scope N_scope.
+
+
+Lemma over (n0 n1 n2 n3 n4 n5 n6 : N)
+ (e0 : 1 + 8 * n0 = n1 * n1 + n2)
+ (e1 : n1 - 1 = 2 * n3 + n4)
+ (e2 : n3 * (1 + n3) = 2 * n5)
+ (e3 : n2 + 2 * n4 * n1 - n4 = 8 * n6)
+ (o0 : n4 = 0 \/ n4 = 1) :
+ n6 = n0 - n5.
+Proof.
+ Time nia.
+Qed.
+
+Lemma over2 (n0 n1 n2 n3 n4 n5 n6 : N)
+ (e0 : 1 + 8 * n0 = n1 * n1 + n2)
+ (e1 : n1 + 1 = 2 * n3 + n4)
+ (e2 : n3 * (1 + n3) = 2 * n5)
+ (e3 : n2 + 2 * n4 * n1 + n4 = 8 * n6)
+ (o0 : n4 = 0) :
+ n6 = n0 + n5.
+Proof.
+ Fail nia.
+Abort.
+
+Open Scope Z_scope.
+
+Lemma over3 (n1 n2 n3 n4 n5 : Z)
+ (e : 0 <= n1 /\ 0 <= n2 /\ 0 <= n3 /\ 0 <= n4
+ /\ 0 <= n5)
+ (e1 : n1 + 1 = 20 * n3 + n4)
+ (e3 : n2 + 2 * n4 * n1 + n4 = 8 * n5) :
+ n5 = 0.
+Proof.
+Time Fail nia.
+Abort.
diff --git a/test-suite/output/bug_13821_native_command_line_warn.out b/test-suite/output/bug_13821_native_command_line_warn.out
new file mode 100644
index 0000000000..e69de29bb2
--- /dev/null
+++ b/test-suite/output/bug_13821_native_command_line_warn.out
diff --git a/test-suite/output/bug_13821_native_command_line_warn.v b/test-suite/output/bug_13821_native_command_line_warn.v
new file mode 100644
index 0000000000..a28210b6c2
--- /dev/null
+++ b/test-suite/output/bug_13821_native_command_line_warn.v
@@ -0,0 +1 @@
+(* -*- coq-prog-args: ("-w" "-native-compiler-disabled" "-native-compiler" "ondemand"); -*- *)