From a2f5cc26baca0db087a677196f186ac2f75aa484 Mon Sep 17 00:00:00 2001 From: Frédéric Besson Date: Thu, 14 May 2020 15:58:23 +0200 Subject: [zify] Add support for Int63.int Update doc/sphinx/addendum/micromega.rst Co-authored-by: Jason Gross Update theories/micromega/ZifyInt63.v Co-authored-by: Jason Gross --- test-suite/micromega/int63.v | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100644 test-suite/micromega/int63.v (limited to 'test-suite') 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. -- cgit v1.2.3