adbrucker
/
lh-l4v
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix refine proofs for improved corres_pre 

minor fix - verification condition no longer
generated mid-proof

VER-737
This commit is contained in:
Daniel Matichuk 2017-05-11 17:50:33 +10:00
parent 03ee8a9b3e
commit 2d2f2a1e1d
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
proof/refine/ARM/ArchAcc_R.thy
View File

@ -1180,15 +1180,15 @@ lemma copy_global_mappings_corres [@lift_corres_args, corres]:
and (\<lambda>_. is_aligned global_pd 6 \<and> is_aligned pd 6) and ?apre" and and (\<lambda>_. is_aligned global_pd 6 \<and> is_aligned pd 6) and ?apre" and
P'="page_directory_at' globalPD and page_directory_at' pd" P'="page_directory_at' globalPD and page_directory_at' pd"
in corresK_mapM_x[OF order_refl]) in corresK_mapM_x[OF order_refl])
apply (corressimp wp: get_pde_wp getPDE_wp corres_rv_wp_left) apply (corressimp wp: get_pde_wp getPDE_wp)+
subgoal for _ globalPD apply (rule conjI)
by (auto intro!: page_directory_pde_atI page_directory_pde_atI' subgoal by (fastforce intro!: page_directory_pde_atI page_directory_pde_atI'
simp: pde_relation_aligned_def corres_protect_def simp: pde_relation_aligned_def
dest: align_entry_add_cong[of globalPD]) dest: align_entry_add_cong
apply corressimp+ split : if_splits)
apply (clarsimp simp: valid_arch_state_def obj_at_def dest!:pspace_alignedD) by (auto simp: valid_arch_state_def obj_at_def valid_arch_state'_def
by (auto intro: is_aligned_weaken[of _ 14] simp: valid_arch_state'_def) intro: is_aligned_weaken[of _ 14]
dest!:pspace_alignedD)
lemma arch_cap_rights_update: lemma arch_cap_rights_update:
"acap_relation c c' \<Longrightarrow> "acap_relation c c' \<Longrightarrow>