diff options
| author |  Jason Gross <jgross@mit.edu> | 2017-05-12 13:11:37 -0400 |
|---|---|---|
| committer | Jason Gross <jgross@mit.edu> | 2017-05-12 13:11:37 -0400 |
| commit | 59ea974cfae7041fd312195ee5c2b39c94e29e1b (patch) | |
| tree | 7676849bf91a9975fb55a1e9e2a8aa8d6a2a9f64 /src/Util/WordUtil.v | |
| parent | 05b86acbe41f8f98ebc2ce93ae3401cb6ff08a60 (diff) | |
Split off notation and defs in ZUtil
Diffstat (limited to 'src/Util/WordUtil.v')
| -rw-r--r-- | src/Util/WordUtil.v | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Util/WordUtil.v b/src/Util/WordUtil.v index 4b19d5f8b..c8aa9a4e5 100644 --- a/src/Util/WordUtil.v +++ b/src/Util/WordUtil.v @@ -1307,9 +1307,9 @@ Qed. (* TODO : automate *) Lemma WordNZ_split1 : forall {n m} w, - Z.of_N (Word.wordToN (Word.split1 n m w)) = ZUtil.Z.pow2_mod (Z.of_N (Word.wordToN w)) (Z.of_nat n). + Z.of_N (Word.wordToN (Word.split1 n m w)) = Z.pow2_mod (Z.of_N (Word.wordToN w)) (Z.of_nat n). Proof. - intros; unfold ZUtil.Z.pow2_mod. + intros; unfold Z.pow2_mod. rewrite wordToN_split1. apply Z.bits_inj_iff'; intros k Hpos. rewrite Z.land_spec. @@ -1338,7 +1338,7 @@ Qed. Lemma WordNZ_split2 : forall {n m} w, Z.of_N (Word.wordToN (Word.split2 n m w)) = Z.shiftr (Z.of_N (Word.wordToN w)) (Z.of_nat n). Proof. - intros; unfold ZUtil.Z.pow2_mod. + intros; unfold Z.pow2_mod. rewrite wordToN_split2. apply Z.bits_inj_iff'; intros k Hpos. rewrite Z2N.inj_testbit; [|assumption]. |