35 lines
751 B
Plaintext
35 lines
751 B
Plaintext
(*
|
|
* Copyright 2014, NICTA
|
|
*
|
|
* This software may be distributed and modified according to the terms of
|
|
* the BSD 2-Clause license. Note that NO WARRANTY is provided.
|
|
* See "LICENSE_BSD2.txt" for details.
|
|
*
|
|
* @TAG(NICTA_BSD)
|
|
*)
|
|
|
|
section "32-Bit Machine Word Setup"
|
|
|
|
theory Word_Setup_32
|
|
imports Word_Enum
|
|
begin
|
|
|
|
text \<open>This theory defines standard platform-specific word size and alignment.\<close>
|
|
|
|
definition
|
|
word_bits :: nat where
|
|
"word_bits \<equiv> len_of TYPE(32)"
|
|
|
|
definition
|
|
word_size :: "'a :: numeral" where
|
|
"word_size \<equiv> 4"
|
|
|
|
lemma word_bits_conv:
|
|
"word_bits = 32" unfolding word_bits_def by simp
|
|
|
|
lemma word_bits_word_size_conv:
|
|
"word_bits = word_size * 8"
|
|
unfolding word_bits_def word_size_def by simp
|
|
|
|
end
|