68 lines
2.1 KiB
Plaintext
68 lines
2.1 KiB
Plaintext
(*
|
|
* Copyright 2020, Data61, CSIRO (ABN 41 687 119 230)
|
|
*
|
|
* SPDX-License-Identifier: GPL-2.0-only
|
|
*)
|
|
|
|
theory ArchLevityCatch_AI
|
|
imports
|
|
"ArchBCorres_AI"
|
|
"Lib.LemmaBucket"
|
|
"Lib.SplitRule"
|
|
begin
|
|
|
|
context Arch begin global_naming RISCV64
|
|
|
|
lemma asid_high_bits_of_shift[simp]:
|
|
"asid_high_bits_of (ucast x << asid_low_bits) = x"
|
|
apply (simp add: asid_high_bits_of_def)
|
|
apply (rule word_eqI)
|
|
apply (simp add: word_size nth_ucast nth_shiftr nth_shiftl asid_low_bits_def)
|
|
done
|
|
|
|
lemma ptrFormPAddr_addFromPPtr :
|
|
"ptrFromPAddr (Platform.RISCV64.addrFromPPtr x) = x"
|
|
by (simp add: ptrFromPAddr_def Platform.RISCV64.addrFromPPtr_def)
|
|
|
|
|
|
(****** From GeneralLib *******)
|
|
|
|
lemma asid_high_bits_of_add_ucast:
|
|
"is_aligned w asid_low_bits \<Longrightarrow>
|
|
asid_high_bits_of (ucast (x::9 word) + w) = asid_high_bits_of w"
|
|
apply (rule word_eqI)
|
|
apply (simp add: word_size asid_high_bits_of_def nth_ucast nth_shiftr is_aligned_nth)
|
|
apply (subst word_plus_and_or_coroll)
|
|
apply (rule word_eqI)
|
|
apply (clarsimp simp: nth_ucast)
|
|
apply (drule test_bit_size)
|
|
apply (simp add: word_size asid_low_bits_def)
|
|
apply (auto dest: test_bit_size simp: word_size asid_low_bits_def nth_ucast)
|
|
done
|
|
|
|
lemma asid_high_bits_of_add:
|
|
"\<lbrakk>is_aligned w asid_low_bits; x \<le> 2 ^ asid_low_bits - 1\<rbrakk>
|
|
\<Longrightarrow> asid_high_bits_of (w + x) = asid_high_bits_of w"
|
|
apply (rule word_eqI)
|
|
apply (simp add: word_size asid_high_bits_of_def nth_ucast nth_shiftr
|
|
is_aligned_nth)
|
|
apply (drule le2p_bits_unset, simp add: asid_low_bits_def word_bits_def)
|
|
apply (subst word_plus_and_or_coroll)
|
|
apply (rule word_eqI)
|
|
apply (clarsimp simp: word_size)
|
|
apply (case_tac "na < asid_low_bits")
|
|
apply (simp add: asid_low_bits_def linorder_not_less word_bits_def)
|
|
apply (auto dest: test_bit_size
|
|
simp: asid_low_bits_def nth_ucast)
|
|
done
|
|
|
|
lemma pageBits_less_word_bits [simp]:
|
|
"pageBits < word_bits" by (simp add: pageBits_def word_bits_conv)
|
|
|
|
lemma aobj_ref_arch_cap[simp]:
|
|
"aobj_ref (arch_default_cap aty ptr us dev) = Some ptr"
|
|
by (case_tac aty; simp add: arch_default_cap_def)
|
|
|
|
end
|
|
end
|