aboutsummaryrefslogtreecommitdiff
path: root/test-suite
diff options
context:
space:
mode:
authorFrédéric Besson2020-05-14 15:58:23 +0200
committerBESSON Frederic2020-10-20 10:02:09 +0200
commita2f5cc26baca0db087a677196f186ac2f75aa484 (patch)
tree6ef295ca9f22cd0a62ee101b82a7e61b9be08533 /test-suite
parent48319ad16a7bff94c3bcfabb37181daa55b568c4 (diff)
[zify] Add support for Int63.int
Update doc/sphinx/addendum/micromega.rst Co-authored-by: Jason Gross <jasongross9@gmail.com> Update theories/micromega/ZifyInt63.v Co-authored-by: Jason Gross <jasongross9@gmail.com>
Diffstat (limited to 'test-suite')
-rw-r--r--test-suite/micromega/int63.v24
1 files changed, 24 insertions, 0 deletions
diff --git a/test-suite/micromega/int63.v b/test-suite/micromega/int63.v
new file mode 100644
index 0000000000..20dfa2631e
--- /dev/null
+++ b/test-suite/micromega/int63.v
@@ -0,0 +1,24 @@
+Require Import ZArith ZifyInt63 Lia.
+Require Import Int63.
+
+Open Scope int63_scope.
+
+Goal forall (x:int), 0 <= x = true.
+Proof. lia. Qed.
+
+Goal max_int = 9223372036854775807.
+Proof. lia. Qed.
+
+Goal digits = 63.
+Proof. lia. Qed.
+
+Goal wB = (2^63)%Z.
+Proof. lia. Qed.
+
+Goal forall x y, x + y <= max_int = true.
+Proof. lia. Qed.
+
+Goal forall x, x <> 0 -> x / x = 1.
+Proof.
+ nia.
+Qed.