isabelle-2021: update CamkesCdlRefine
Signed-off-by: Gerwin Klein <gerwin.klein@proofcraft.systems>
This commit is contained in:
parent
997adaf9f3
commit
d92b4dcadb
|
@ -529,13 +529,15 @@ lemma bintrunc_1_1:
|
|||
lemmas word_rel_simps_small =
|
||||
order_refl (* shortcut *)
|
||||
rel_simps simp_thms
|
||||
word_less_alt word_le_def word_uint_eq_iff uint_eq_0 uint_1
|
||||
word_less_alt word_le_def word_uint_eq_iff uint_0_eq uint_1
|
||||
(* need bintrunc to reduce numerals mod word size *)
|
||||
uint_bintrunc bintrunc_numeral_simps bintrunc_1_1
|
||||
numeral_One BIT_bin_simps BIT_special_simps
|
||||
(* evaluating word size for bintrunc -- yuck *)
|
||||
len_num0 len_num1 len_bit0 len_bit1
|
||||
arith_simps mult_1_right pred_numeral_simps numeral_plus_one
|
||||
arith_special
|
||||
|
||||
|
||||
(* test for simpset *)
|
||||
ML \<open>
|
||||
|
@ -581,10 +583,11 @@ lemma pow_2_numeral:
|
|||
(* needed to evaluate "ptr + 2^sz" expressions *)
|
||||
lemmas word_pow_arith_simps =
|
||||
pow_2_numeral uint_word_arith_bintrs
|
||||
uint_eq_0 uint_1 uint_bintrunc bintrunc_Sucs numeral_One
|
||||
uint_0_eq uint_1 uint_bintrunc bintrunc_Suc_numeral numeral_One
|
||||
arith_simps arith_special
|
||||
nat_0 nat_one_as_int[symmetric] nat_numeral nat_numeral_diff_1 mult_1_right
|
||||
|
||||
|
||||
lemmas object_slots_eval_simps
|
||||
[simplified fun_upds_to_map_of] = (* NB: convert Map.empty for FP_Eval compatibility *)
|
||||
object_slots_def cdl_object.case
|
||||
|
|
Loading…
Reference in New Issue