diff options
Diffstat (limited to 'lib/Integers.v')
-rw-r--r-- | lib/Integers.v | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lib/Integers.v b/lib/Integers.v index d85007b4..4464d26d 100644 --- a/lib/Integers.v +++ b/lib/Integers.v @@ -1202,6 +1202,11 @@ Qed. Remark Ztestbit_0: forall n, Z.testbit 0 n = false. Proof Z.testbit_0_l. +Remark Ztestbit_1: forall n, Z.testbit 1 n = zeq n 0. +Proof. + intros. destruct n; simpl; auto. +Qed. + Remark Ztestbit_m1: forall n, 0 <= n -> Z.testbit (-1) n = true. Proof. intros. destruct n; simpl; auto. @@ -1515,6 +1520,11 @@ Proof. intros. unfold testbit. rewrite unsigned_zero. apply Ztestbit_0. Qed. +Remark bits_one: forall n, testbit one n = zeq n 0. +Proof. + unfold testbit; intros. rewrite unsigned_one. apply Ztestbit_1. +Qed. + Lemma bits_mone: forall i, 0 <= i < zwordsize -> testbit mone i = true. Proof. |